VB编程的几个API函数的应用问题

　　Re:

　　一个例子：一个Command，两个Text 代码如下：

　　　　　Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

　　　Private Sub Command1_Click()

　　　　　Dim sDownload As String

　　　　　sDownload = StrConv(Text1.Text, VBUnicode)

　　　　　Call DoFileDownload(sDownload)

　　　　　End Sub

　　　Private Sub Form_Load()

　　　　　Text1.Text = "http://www.chat.ru/~softdaily/fo-ag162.zip"

　　　　　Form1.Caption = "Audiograbber 1.62 Full"

　　　　　Text2.Text = "http://www6.50megs.com/audiograbber/demos/cr-ag161.zip"

　　　　　End Sub

　　Q :--如何在vb中定义一个热键，使得当一个应用程序的窗口最小化后，可以通过热键来唤醒它

　　Re:

　　先声明API函数SendMessage，然后添加一个按钮和如下代码；

　　　　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVa l hwnd As Long, ByVal_ 　　　wMsg As Long, ByVal wparam As Long, lparam As Any) As Long

　　　Private Sub Command1_Click()

　　　　　Dim wKey As Long

　　　　　wKey = 66

　　　　　X = SendMessage(Me.hwnd, WM_SETHOTKEY, wKey, 0)

　　　　　MsgBox "B 键将激活窗体！", 64, "定义快捷键"

　　　　　End Sub

　　enjoy it!

上一篇： VB6在拖托盘中写入应用程序图标
下一篇： VB VC混合编程疑难问题解

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!