去年的《程序员大本营》VB部分有一个GVBox控件,可以加载多种图形文件,可以将所有加载的图形文件保存为JPG的格式,只不过这不是一个免费控件,每次使用时总回出现一个对话框,提示你赶快掏钱。不过没关系,使用SendMessage将该对话框关闭即可,如下所示,我在一个Timer中设置了一些代码,它将自动找到该对话框,并关闭它,然后就可以放心的使用了:
Private Sub Timer1_Timer()
'在这里,关闭由控件GVBox产生的对话框
Dim hanDle As Long
Const WM_CLOSE = &H10
hanDle = FindWindow(0&, "About GVBox")
If hanDle > 0 Then
SendMessage hanDle, WM_CLOSE, 0, 0
Timer1.Interval = 0
End If
End Sub
赶快看一下你的邮箱,里面有一个GVBox。非常简单。