电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> VB编程>>VB编程-几个API函数的应用问题:

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

来源:水木清华BBS | 2006-12-17 | (有1979人读过)

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!

 

VB编程热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号