vb中執行命令按鈕的語句

『壹』 VB中如何用代碼添加命令按鈕

按以下步驟實現動態添加命令按鈕
（1）新建一個VB6工程
（2）Form1窗體代碼
OptionExplicit
'定義要動態添加的命令按鈕變數（帶事件處理）

'點擊動態添加的按鈕，彈出對話框
PrivateSubcmdX_Click()
MsgBox"動態添加的命令按鈕！！！"
EndSub
'滑鼠雙擊窗體，動態添加一個命令按鈕
PrivateSubForm_DblClick()
IfcmdXIsNothingThen
SetcmdX=Controls.Add("VB.CommandButton","cmd1")
cmdX.Caption="點擊我呀"
cmdX.Width=4500
cmdX.Move150,150
cmdX.Visible=True
EndIf
EndSub
（3）運行
啟動後
滑鼠雙擊窗體
點擊命令按鈕，彈出一個對話框

『貳』 vb 如何在按鍵時運行語句

按CTRL或ALT或SHIFT時不觸發KeyPress
用KeyDown
Private Sub 控制項_KeyDown(KeyCode As Integer, Shift As Integer)
KEYCODE是字母大寫的ASCII值
Press 'a' keycode=65=asc("A")
Shift 是CTRL或ALT或SHIFT的值
CTRL 2
ALT 4
SHIFT 1
組合鍵就是他們的值相加
Press CTRL+ALT Shift=6

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if KeyCode=asc("S") and (Shift=6) then
shell "1.txt"
end if
End Sub

『叄』 vb中按一個按鈕輸入另一個按鈕的執行命令

是在一個按鈕中調用另一個按鈕吧，使用Call 就可以了，例：

PrivateSubCommand1_Click()
CallCommand2_Click
EndSub

『肆』 在VB中，如何調用命令行的命令

使用SHELL()

SHELL語句用法心得

一. 調用系統「創建快捷方式」向導
是否為VB不支持創建快捷方式而於著急呢？雖然 您可以調用vb5stkit．Dll中的fCreateShellLink函 數，但它是為安裝程序設計的，快捷方式的默認路徑 總是從當前用戶的「＼Start Menu＼Programs」開始，也 就是說，如果您的Windows95裝在C盤上，您無法通過 fCreateShellLink函數把快捷方式創建到D盤上去。
現在，給大家介紹一種極為方便、巧妙的方法： 用Shell語句調用系統「創建快捷方式」向導。
新建一個項目，在窗體上放一個按鈕，雙擊此按 鈕，加入以下代碼：
Private Sub Command1_Click()
Open App.Path ＆ "\temp.lnk" For Output As #1
Close #1 '以上兩句在程序所在目錄建立一 個臨時文件
Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere
"＆ App.Path ＆ "\temp.lnk"
End Sub
（注意：Shell語句中NewLinkHere後面跟著一個 空格才是引號，否則將出錯。）
運行程序，按一下命令按鈕，怎麼樣？「創建快 捷方式」向導出現了，如果創建成功，快捷方式將取 代臨時文件temp.lnk的位置，如果選取消，temp.lnk 也會自動消失。當然，您可以在硬碟的任意位置建立 temp.lnk。好，現在又可以為您的程序增添一項新功 能了。Enjoy！
二. Rundll32.exe的用途
我們知道，用Shell語句只能調用可執行文件，即 exe、com、bat和pif文件，有時我們想要調用其他一 些系統功能該怎麼辦呢？此時，Windows提供的 Rundll32.exe可大顯身手了。下面我們來認識一下這 些用法，也許會給您帶來一點驚喜。
1．要打開設置系統時間的控制面板文件 （Timedate.cpl),只需運行如下代碼：
Shell "Rundll32.exe
Shell32.dll,Control_RunDLL Timedate.cpl"
至於打開其他控制面板文件，相信您一定能夠舉 一反三，嘗試一下，換個文件名就成了。
2．要運行某一快捷方式（*.lnk）則可以用以下 代碼：
She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要運行的文件，包括 路徑，下同。
3. 也可以這樣寫來打開ActiveMovie控制：
Shell "RUNDLL32.EXE amovie.ocx，Rundll",1
而用Shell "RUNDLL32.EXE amovie.ocx，Rundll /play X",1 將直接播放媒體文件。
4. Shell "rundll32.exe desk.cpl，InstallScreenSaver X」當然是安裝屏幕保 護啦，如果你寫了一個屏幕保護程序，那麼可以在安 裝程序中寫上它，而不一定要裝到system目錄下。順 便提一下，VB不是自撈一個「Application Setup Wizard」么？它的VB源代碼都在安裝目錄下的 「\setupkit\setup1」中放著呢，好好把它研究一下。 你完全能做出富有個性的安裝程序來。
5.按住shift鍵，右擊某一文件，菜單中會出現 「打開方式」選項，這也許已不是什麼秘密。但現在， 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接調用「打開方式」框。
6. 甚至能用這樣一句來列印文件（包括HTML所 支持的所有文本與圖像格式):
Shell "rundll32.exe MSHTML.DLL，PrintHTML X」, 1
怎麼樣？是不是小有收獲呢？這下，您一定會對 Rundll32.exe這個平時不起眼的文件另眼相待了，它 可是系統運行必不可少的部件呢！其實 Shell＋Rundll32還能調用其他許多系統功能，比如關 於NetMeeting和Telnet方面的。如果您有興趣，可以 到往冊表的「我的電腦＼HKEY_CLASSES_ROOT＼」或「我 的電腦\HKEY_LOCAL_MACHINE\Software\CLASSES」下 去看看，本文的內容大都是從那裡「抄」來的。只要 有足夠的決心、信心、耐心，您一定能發現更多有價 值的東西。Good luck!

『伍』 vb里一個窗體中的命令按鈕 按下去 會執行另外一個窗體中的命令按鈕的命令 要怎麼做

實現方法：

1）在當前窗口按鈕的Click事件中對執行窗體的按鈕的Value 屬性賦值True事項。

Value 屬性，CommandButton 控制項－返回或設置指示該按鈕是否可選的值；在設計時不可用。

PrivateSubCommand1_Click()
Form2.Command1.Value=True
EndSub

2）VB中只需在另一窗體添加一個Timer控制項，在當前窗體呼喚該窗體的Timer控制項改變它的

Enabled 屬性或Interval 屬性來實現。

• Timer 控制項，通過引發 Timer 事件，Timer 控制項可以有規律地隔一段時間執行一次代碼。

• Enabled 屬性，返回或設置一個值，該值用來確定一個窗體或控制項是否能夠對用戶產生的事件作出反應。

• Interval 屬性，返回或設置對 Timer 控制項的計時事件各調用間的毫秒數。

  OptionExplicit
  DimiAsLong
  
  PrivateSubCommand1_Click()
  Form2.Timer1.Enabled=True
  EndSub
  
  PrivateSubForm_Load()
  Form2.Show
  EndSub
  
  PrivateSubTimer1_Timer()
  Command1_Click
  EndSub

  『陸』 vb中怎樣按下回車鍵實現命令按鈕的功能

  代碼及注釋如下：
  Private Sub Form_KeyPress(KeyAscii As Integer)'在form上敲回車觸發事件
  
  If KeyAscii = 13 Then'如果按下的是回車鍵，注意回車Asc碼是13
  Call Command1_Click'那麼執行command1點擊事件
  End If
  End Sub

  『柒』 VB的對話框按鈕如何執行命令

  舉個例子：
  Private Sub Command1_Click()
  a = MsgBox("你確定要關閉程序嗎", vbOKCancel, "提示")
  If a = vbOK Then
  End
  End If
  End Sub

  『捌』 VB里如何雙擊按鈕執行命令。

  Private Sub Command1_Click() '這個是單擊事件，按鈕事件只有單擊沒有雙擊
  
  Private Sub Form_DblClick() 『在窗體上雙擊事件,FROM之類的才有雙擊事件

  『玖』 vb中按一個按鈕輸入另一個按鈕的執行命令

  單擊按鈕,可以打開同一工程中的另一個窗口,例語句:
  form2.show
  但要打開任意路徑中的文件,這有些異想天開,因為你說的任意路徑中的文件,就是包括你的硬碟里的所有文件,有各種類型的文件"*.bat;*.txt;*.exe;*.com;*.pdf;*.bmp;*.inf;*.mp3.......",這么多類型的文件,你要讓vb都能打開,vb好象不是萬能的

  『拾』 VB中如何用代碼添加命令按鈕

  按以下步驟實現動態添加命令按鈕

  （1）新建一個VB6工程

  （2）Form1窗體代碼

  OptionExplicit
  
  '定義要動態添加的命令按鈕變數（帶事件處理）
  
  
  '點擊動態添加的按鈕，彈出對話框
  PrivateSubcmdX_Click()
  MsgBox"動態添加的命令按鈕！！！"
  EndSub
  
  '滑鼠雙擊窗體，動態添加一個命令按鈕
  PrivateSubForm_DblClick()
  IfcmdXIsNothingThen
  SetcmdX=Controls.Add("VB.CommandButton","cmd1")
  cmdX.Caption="點擊我呀"
  cmdX.Width=4500
  cmdX.Move150,150
  cmdX.Visible=True
  EndIf
  EndSub

  （3）運行

  啟動後