vb则样点击一个按钮出对话框

Sub Command1_Click()'方案一 Msgbox "你好！我弹出来了！"'方案二 n=InputBox("请问你叫什么名字？")Msgbox "你叫" & n & "啊！",64,"哈哈，我知道了！"'注：Msgbox 简单用法 'Msgbox 【提示信息】[,【对话框样式】[,【标题】]]End Sub ...

作用：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])参数说明：MsgBox 函数的语法具有以下几个命名参数：Prompt---必需的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 ...

Private Sub Command1_Click()MsgBox "因为你长的不够帅，所以执行了非法操作，"+ Chr(13)+ ""+ Chr(13)+ "此程序即将关闭，"+ Chr(10)+ ""+ Chr(13)+ "如果有问题，请与供应商联系。",19,"系统信息"End Sub

工程-部件-控件选项卡 选中Microsoft Common Dialog Control6.0复选框 单击确定.下面只举打开对话框 Private Sub Command1_Click()CommonDialog1.Filter = "Access数据库(*.mdb)" '设置“打开”对话框的筛选条件 CommonDialog1.ShowOpen '弹出“打开”对话框 End Sub 建议看VB程序设计方面的...

Private Sub Command1_Click()cd1.ShowOpen Text1.Text = cd1.FileName End Sub 上面代码中cd1是common dialog控件，添加方法：在vb6中单击菜单 工程-->部件，在部件对话框中选择microsoft common dialog control6.0 确定

可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现 方法一，利用msgbox：Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" & vbCrLf _ & "│ 库存1 │ 库存2 │ 库存3 │" & vbCrLf _ & "├────...

Private Sub Command1_Click() Dim n&, i& n = 5 'n的数可以自定义 For i = 1 To n MsgBox "弹出的内容" NextEnd Sub

版本 1 在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。MsgBox(prompt[, buttons][, title][, helpfile, context])参数 prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在...

在窗体上添加一个按钮，单击按钮在弹出的代码框中写代码 Private Sub Command1_Click()Do Until a = vbCancel a = MsgBox("逗你玩！")Loop End Sub

你是想弹出无数个提示框，点击另外一个按钮就让它停止弹出对话框对不对？很简单啊，你在循环的时候加入一个判断条件就可以了（对不对？）条件满足才循环，条件一旦不满足就不循环就是了。把你的程序改成如下：Dim Switch as Boolean '这条很重要,定义一个全局变量,作用就是判断.Private Sub Form...