VB编程的几个API函数的应用问题
添加时间: 2006-2-13 9:40:57 作者: VB教程 阅读次数:98 来源: http://www.d9soft.com
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!
上下文章:
上一篇文章: VB能做什么 下一篇文章: VB编程的一些基础的问题
相关文章: