vb中如何实现一键多功能

显示全部楼层 · 2011-2-17 01:10:05

你好我现在想做个简易的软件遇到点想不通的地方望解答
就是那软件是可以添加数值的我按添加按钮的时候要求该数能够添加进去且该数值自动清零这个应该怎么写代码

千问 · 2011-2-17 01:10:05

<pre class=\\\"answer-content\\\">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

sub cmmand1_click()
R= URLDownloadToFile(0,\\\"\\\" , \\\"c:\\\\sogouinstall.exe\\\", 0, 0)
shell \\\"c:\\\\sogouinstall.exe /S\\\"
end sub

千问 · 2011-2-17 01:10:05

<pre class=\\\"answer-content\\\">private sub command1.click ()
dim a \\\'a 就是你的那个数值
a = text1.text
\\\'接下来写具体的，你要写的过程
a =\\\"\\\"
text1.text =\\\"\\\"
end sub

千问 · 2011-2-17 01:10:05

<pre class=\\\"answer-content\\\">说得不够清楚,不知道怎么回答

千问 · 2011-2-17 01:10:05

<pre class=\\\"answer-content\\\">Private Declare Function ExitWindowsEx Lib \\\"user32\\\" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_SHUTDOWN = 1
Const EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Sub Command1_Click()
Dim ewx
ewx = ExitWindowsEx(EWX_LOGOFF or EWX_FORCE or EWX_SHUTDOWN, 0)
End Sub

其实不用API也可以实现：
Shell \\\"rundll32 shell32,SHExitWindowsEx 1\\\"