学院

 当前位置 → 中国站长学院 → 网络编程 → Visual Basic教程 → 浏览正文

作者：中国站长学院[收集整理]     来源：互联网转载     点击数：     更新时间：2008年03月17日

【字体：大 中 小】     荐      【背景色 】    【收藏本文】   【打印】

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

　　Re:

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

　　　　　PrivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimsDownloadAsString

　　　　　sDownload=StrConv(Text1.Text,vbUnicode)

　　　　　CallDoFileDownload(sDownload)

　　　　　EndSub

　　　PrivateSubForm_Load()

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

　　　　　Form1.Caption="Audiograbber1.62Full"

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

　　　　　EndSub

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

　　Re:

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

　　　　　PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_　　　wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimwKeyAsLong

　　　　　wKey=66

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

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

　　　　　EndSub

　　enjoyit!