VB如何编写简单弹出对话框的代码?
发布网友
发布时间：2022-04-25 15:06
共5个回答
热心网友
时间：2023-10-11 00:08
直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()
x = MsgBox("确定要退出吗？", vbYesNo, "提示")
If x = vbYes Then
End
End If
End Sub
VB的系统特性：
1.工程*：
实际文本之前最多只能有256 个空格的前导，在一个逻辑行中最多只能有25 个续行符。
2.过程、类型和变量：
对每个模块的过程数没有*。每个过程可包含至多K 的代码。如果过程或模块超过这一*，Visual Basic 便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的程，或将模块级声明移到另一模块，来避免此类错误发生。Visual Basic 用表来保存代码中的标识符名(变量、过程、常量等)。每个表限于K。
3.动态链接库声明表：
每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约40 个字节，表的大小限于K，形成每个模块大约有1500 个声明。
4.工程名表：
整个应用程序用一张包含所有名称的表。这些名称包括：常量名、变量名、自定义的类型定义名、模块名、DLL 过程声明名。对工程名表总大小没有*，但是区分大小写的条目不得超过32K。如果超过了32K 的*，可以在不同的模块中重新使用private 标识符以*区分大小写的条目数到达32K。
5.输入表：
在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是24 字节，但限于K，这样每个模块大约可以有2000 个引用。
热心网友
时间：2023-10-11 00:08
直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()
x = MsgBox("确定要退出吗？", vbYesNo, "提示")
If x = vbYes Then
End
End If
End Sub 希望能帮助到你 不懂请追问。
热心网友
时间：2023-10-11 00:08
直接用MSGBOX函数即可。不需要控件。代码如下:Private Sub Command1_Click()
x = MsgBox("确定要退出吗？"， vbYesNo， "提示")
If x = vbYes Then
End。
热心网友
时间：2023-10-11 00:09
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '点程序窗体上的X退出
Dim QueDing As Integer
Beep
QueDing = MsgBox("你真的确定要退出本程序吗？", vbYesNo + vbQuestion, "关闭窗口提示")
If QueDing = vbYes Then
End
Else
Cancel = 1
End If
End Sub
Private Sub Command1_Click() '点退出按钮退出 Form_QueryUnload 0, 0
End Sub
热心网友
时间：2023-10-11 00:10
N = 0
Do While N < 7
T = Int(31 * Rnd) + 1
Flg = False
For J = 1 To N
If A(J) = T Then Flg = True: Exit For
Next
If Not Flg Then N = N + 1: A(N) = T
