WEB开发网
开发学院WEB开发综合 VB编程的几个API函数的应用问题 阅读

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

 2006-02-27 11:38:34 来源:WEB开发网   
核心提示:Q:--怎样在我的程序中实现文件下载Re:一个例子:一个Command,两个Text代码如下:PRivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLongPrivateSubCommand1_Cli
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!

->

Tags:VB 编程 API

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接