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

　　Q :--怎样在我的程序中实现文件下载

　　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混合编程疑难问题解

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有