自制隐藏后的略缩图放在界面上,截图太大,求老大给段代码呗,直接给个调整尺寸的就行。
看了之前的说要调用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