Private Sub Form_Click()
If MsgBox("请选择", vbYesNo) = vbYes Then
MsgBox "你选择了是"
Else
MsgBox "你选择了否"
End If
End Sub
或者是这样
Private Sub Form_Click()If MsgBox("请选择", vbYesNo) = vbYes Then
Print "你选择了是"
Else
Print "你选择了否"
End If
End Sub
vb中单击窗体显示文字双击窗体清楚文本怎么做
一共七步首先，在窗口中添加一个文本框，如下图所示，然后进入下一步。其次，单击文本框，在属性窗口中设置文本框的属性，清除文本，如下图所示，然后进入下一步。接着，将文本框的enabled属性设置为False，如下图所示，然后进入下一步。然后，在表单上添加一个命令按钮，如下图所示，然后进入下一步。
如何在VB中单击一个按钮弹出一个对话框并显示一段话,详细代码,谢谢
新建一个窗体,在窗体上添加一个命令按钮,然后在代码窗口中添加以下代码:=== Private Sub Command1_Click()Const msg1 As String="请在这里输入你想显示的一段话!"Const msg2 As String="这里是对话框要显示的标题."MsgBox msg1,vbOkOnly,msg2 '此处代码一定不能添加()End Sub === 记住,1...
VB中多个按钮,点击后然后在窗体固定位置显示不同的内容
比如先放一个PictureBox控件，在上面再放上其他控件；然后再在窗体放入一个PictureBox控件，再在上面放上另一批按钮、文本框之类的控件，依此类推。然后点第一个按钮时，把第一个PictureBox的Visible属性设为True，其他PictureBox的Visible属性设为False；同理点第二个按钮时，把第二个PictureBox的Visible...
用vb设计一项目,单击窗体后依次弹出输入对话框[inputbox()].输入姓名...
电脑上没VB，只能用EXECL里的VBA写了，记不得事件表示的具体代码区别了，应该适用VB的，如果有问题，你直接就复制中间代码好了，窗体的事件你自己选下 MouseDown 事件。Private Sub Form1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Dim ...
...是,否,取消,,然后每点击一个都会弹出另一个对话框
'用户点了"否"键 MsgBox("还需要再确认一次吗？") Case 2 '用户点了"取消"键 MsgBox("不明白点击'取消'键了，还要弹窗出来是为什么？") End Select End SubEnd Class 以上结果是你需要的吗？
...鼠标单击窗体,按一次在窗体上显示“春晓”诗一句,显示完整,清除窗体...
Dim n Private Sub Form_Click()n = n + 1 If n Mod 5 = 1 Then Print "春眠不觉晓"ElseIf n Mod 5 = 2 Then Print "处处闻啼鸟"ElseIf n Mod 5 = 3 Then Print "夜来风雨声"ElseIf n Mod 5 = 4 Then Print "花落知多少"Else Form1.Cls End If End Sub ...
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。怎样...
首先添加一个窗体，在这个窗体上加一个文本框的控件，在这个文本框的单击事件中写如下的程序：Dim num, sum, it(1), n, t, hPrivate Sub Form_Click()File1.Refreshsum = 0List1.ClearFor i = 0 To File1.ListCount - 1t = Split(File1.List(i), ".")(UBound(Split(File1.List(i...
在VB中怎么用代码弹出输入对话框
1、首先，打开“易语言”，然后选择“Windows窗口程序”选项，如下图所示，然后进入下一步。2、其次，完成上述步骤后，将编辑框、按钮和常用对话框从基本组件栏拖放到程序中，如下图所示，然后进入下一步。3、接着，完成上述步骤后，单击以选中“通用对话框”，然后在左侧的属性列中看到“过滤器”。
VB 弹出提示对话框后自动关闭
最好的办法是你自己做一个提示窗体来代替msgbox,这样做,你不但可以实现x秒关闭,还可以在按钮上显示倒计时...因为你用代码去修改msgbox函数弹出的窗口,需要使用大量代码,自己重新写一个窗口,只要很简单的一点点即可,至于返回值,可以用全局变量来实现 ...
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。_百...
假设你的图片路径为d:\\fafa.gif,代码如下：Private Sub Form_Click()Picture1.Picture = IIf(Picture1.Picture = LoadPicture(""), LoadPicture("d:\\fafa.gif"), LoadPicture(""))End Sub 这样就可以单击切换图片了，对了，你要加一个图片框控件，再写入代码 ...
