• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.9
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] 调整图片大小,制作隐藏后的略缩图放在界面 [复制链接]

1#
自制隐藏后的略缩图放在界面上,截图太大,求老大给段代码呗,直接给个调整尺寸的就行。
看了之前的说要调用API函数,网上看了完全懵逼了
Event Form1.隐藏窗口.Click
hwnd = Form1.Label2.Caption
set dm = createobject("dm.dmsoft")
If Form1.隐藏窗口.Caption="隐藏" then
Form1.隐藏窗口.Caption = "显示"
dm.MoveWindow hwnd,-900,-500
Form1.PictureBox1.Left =0
Form1.PictureBox1.top = 0
Form1.PictureBox1.Width = 240
Form1.PictureBox1.Height = 144
Form1.PictureBox1.Visible = 1
Form1.ListBox1.Left =0
Form1.ListBox1.top = 145
Form1.ListBox1.Width = 241
Form1.ListBox1.Height = 206
Do
dm_ret = dm.Capture(0, 0, 160, 96, "c:\test_game\screen.bmp")
Delay 2000
//插入改变图片大小代码
Form1.PictureBox1.Picture = "c:\test_game\screen.bmp" ///图片太大,无法显示
If Form1.隐藏窗口.Caption = "隐藏" Then
Exit Do
End If
Loop
ElseIf Form1.隐藏窗口.Caption="显示" Then
    Form1.隐藏窗口.Caption = "隐藏"
    dm.MoveWindow hwnd,0,0
    
    Form1.PictureBox1.Visible = 0
    Form1.ListBox1.Left =0
Form1.ListBox1.top = 0
Form1.ListBox1.Width = 240
Form1.ListBox1.Height = 350
End If
End Event

本主题由 超级版主 瑞祥幽冥狼 于 2021/8/10 8:47:51 执行 主题分类 操作
2#

回复 1楼dc9985的帖子
  1. ' 图片尺寸缩放
  2. Dim 图片路径, 目标路径, 目标宽度, 目标高度'涉及神梦插件
  3. Call Plugin.SMWH.WIA_Scale("C:\Users\Administrator\Desktop\1.jpg","C:\Users\Administrator\Desktop\2.jpg", 100, 200)
复制代码
插件分享----PC按键----常用插件整理[第五章][2020.12.17更新]

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题