vb对多个按钮写代码（vb按钮可用代码）

本篇文章给大家谈谈vb对多个按钮写代码，以及vb按钮可用代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB里的Button 按钮代码怎么写成多选按钮的那种
• 2、VB写一个exe程序，有很多个按钮，点击每个按钮都能打开指定的软件，该怎么写？
• 3、求vb制作几个按钮的代码

VB里的Button 按钮代码怎么写成多选按钮的那种

使用CheckBox控件，设置CheckBox控件的Style属性为 1 （VbButtonGraphical 1

）就可以了。这样还可以加入图片呢！

这样就可以同时按下多个按钮，看到的和按下多个命令按钮一样。

如果是在VB.NET中，可以在属性窗口中设置空间的Appearance属性为Button，也可以在Form_Load过程中如下设置：

Check3.Appearance = Appearance.Button

Check2.Appearance = Appearance.Button

Check1.Appearance = Appearance.Button

但是，在VB6中就只能在属性窗口中设置咯。

VB写一个exe程序，有很多个按钮，点击每个按钮都能打开指定的软件，该怎么写？

给Shell函数指定第二个参数值

语法：Shell(pathname[,windowstyle])

windowstyle 命名参数有以下这些值：

常量 值 描述

vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。常数vbHide在Macintosh平台不可用。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。

VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

如果需要打开其他软件后，这个软件最大化，可以使用

Shell(程序路径，VbMaximizedFocus) 或 Shell(程序路径，3)

求vb制作几个按钮的代码

Dim dierci As Boolean

Private Sub Command1_Click()

xuanze = MsgBox("提示内容1", vbQuestion + vbOKCancel)

If xuanze = vbCancel Then

Command3.Visible = True

Else

Command2.Visible = True

dierci = False

End If

Command1.Visible = False

End Sub

Private Sub Command2_Click()

If dierci Then

Command2.Visible = False

'被点第二次时会消失，这时界面空了，怎么办？代码加在这里。

Else

MsgBox "再点"

End If

dierci = Not dierci

End Sub

Private Sub Command3_Click()

xuanze = MsgBox("是否退出？", vbQuestion + vbYesNo)

If xuanze = vbYes Then

End

Else

Command1.Visible = True

Command3.Visible = False

End If

End Sub

Private Sub Form_Load()

Command2.Visible = False

Command3.Visible = False

End Sub

回答者： vlaoda - 总监 八级 2-5 11:03

Private Click_B As Integer

Private Sub cmdA_Click()

If MsgBox("请选择", vbOKCancel) = vbOK Then

cmdB.Visible = True

Else

cmdC.Visible = True

End If

End Sub

Private Sub cmdB_Click()

If Click_B = 2 Then

Click_B = 1

cmdB.Visible = False

Exit Sub

End If

MsgBox "请再点击", vbOKOnly

Click_B = Click_B + 1

End Sub

Private Sub cmdC_Click()

If MsgBox("是否退出", vbYesNo) = vbYes Then

Unload Me

Else

Click_B = 1

cmdC.Visible = False

cmdB.Visible = False

End If

End Sub

Private Sub Form_Load()

Click_B = 1

cmdA.Visible = True

cmdB.Visible = False

cmdC.Visible = False

End Sub

'---------------------

Private Sub Command1_Click()

If MsgBox("提示信息！", 1) = 1 Then

Command2.Visible = Not Command2.Visible

Else

Command3.Visible = True

End If

End Sub

Private Sub Command3_Click()

If MsgBox("是否退出~！", 4) = 6 Then

End

Else

Form_Load

End If

End Sub

Private Sub Form_Load()

Command1.Visible = True

Command2.Visible = False

Command3.Visible = False

End Sub

关于vb对多个按钮写代码和vb按钮可用代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。