vb编写一个程序，单击窗体弹出一个对话框，选择是，在窗体显示a，选择否，在窗体显示b。求代码！！谢
vb编写一个程序，单击窗体弹出一个对话框，选择是，在窗体显示a，选择否，在窗体显示b。求代码！！谢谢！！
代码如下：
Private Sub Form_Click()If MsgBox("显示a吗？", vbYesNo, "提示") = vbYes Then
Print a
Else
Print b
End If
End Sub追问
程序达人！厉害！
追答这里达人太多了，不敢当啊。。。
追问以后有vb问题就问你啦！
在VB中怎么用代码弹出输入对话框
1、首先，打开“易语言”，然后选择“Windows窗口程序”选项，如下图所示，然后进入下一步。2、其次，完成上述步骤后，将编辑框、按钮和常用对话框从基本组件栏拖放到程序中，如下图所示，然后进入下一步。3、接着，完成上述步骤后，单击以选中“通用对话框”，然后在左侧的属性列中看到“过滤器”。根...
用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 ...
编写一个VB程序运行时,鼠标单击窗体,按一次在窗体上显示“春晓”诗一句...
Else Form1.Cls End If End Sub
vb编写一段程序,通过窗体的单击事件执行,显示使用MsgBox对话框
1 显示确定和取消按钮 2 放弃、重试、和忽略按钮 3 显示是、否和取消按钮 4 显示是和否按钮 5 显示重试和取消按钮 16 显示临界信息图标 32 显示警告查询图标 48 显示警告信息图标 64 显示信息消息图标 0 第一个按钮为默认图标 256 第一个按钮为默认图标 512 ...
如何在VB中单击一个按钮弹出一个对话框并显示一段话,详细代码,谢谢
Const msg1 As String="请在这里输入你想显示的一段话!"Const msg2 As String="这里是对话框要显示的标题."MsgBox msg1,vbOkOnly,msg2 '此处代码一定不能添加()End Sub === 记住,1楼的代码会出现编译错误,在不需要返回值的时候就不能添加(),而在需要返回值的时候就一定要添加()....
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,在文本框中动态显示当前时间...
窗体load事件：timer1.interval=1000 timer1.enabled=false 时钟timer事件：text1.text=time 第一个按钮：timer1.enabled=true 第二个按钮：timer1.enabled=false
...是,否,取消,,然后每点击一个都会弹出另一个对话框
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim btnResult As MsgBoxResult btnResult = MsgBox("这是您需要的效果吗？", 3, "这是提示框")Select Case btnResult Case 6 '用户点了"是"键 '这里什么都不用写，直接返回初始窗体，除非...
...文本框中输入一个字符,单击命令按钮,在窗体上显示该字符的AscII值...
Private Sub Command1_Click()a = InputBox("输入要验证ASCLL码的字符")k = Asc(a)Print k End Sub
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。
假设你的图片路径为d:\\fafa.gif,代码如下：Private Sub Form_Click()Picture1.Picture = IIf(Picture1.Picture = LoadPicture(""), LoadPicture("d:\\fafa.gif"), LoadPicture(""))End Sub 这样就可以单击切换图片了，对了，你要加一个图片框控件，再写入代码 ...
