vb 功能如何实现 ？

来源：百度知道 编辑：UC知道 时间：2024/05/15 16:58:52
我本来是编了一个小软件，里面有一个按钮，按下那一个按钮才会实现里面的功能，
我现在想改为双击运行这一个程序就实现里面的功能

比如说这一段代码
要如何改？
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
R = URLDownloadToFile(0, "http://down.roben2008.cn/123.rar", "c:\123.rar", 0, 0)
End Sub

简单
把Command1_Click改成p1
再另外写
Private Sub Form_Load()
call p1
End Sub
就OK了.
{或把Command1_Click改成p1
双击窗体就出现
Private Sub Form_Load()

End Sub
了
中间加call p1 }

Dim douClick As Integer
Private Sub Command1_Click()

douClick = douClick + 1
If douClick Mod 2 = 0 Then
Print "OK"
'R = URLDownloadToFile(0, "http://down.roben2008.cn/123.rar", "c:\123.rar", 0, 0)
End If
End Sub

'把下面代码编译成EXE文件，双击即可自动完成所需功能。

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_load()
R = URLDownloadToFile(0, "如何实现数据统计功能（VB）？ 如何利用VB实现这个功能? VB如何实现这个抓包功能？ 如何vb实现撤消操作功能 vb中如何实现这个功能！ VB如何控制键盘实现copy功能？ 如何在VB中实现盘点功能? vb如何实现软件注册功能？ 请教VB 如何实现按键精灵的功能? vb中如何实现这样的功能？