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）运行

  启动后