VB弹出框

VB弹出框


梅雷提示 = MsgBox("请选择按钮  ", 33, "梅雷提示！")

'用户按下  按钮的是什么按钮 【值=1 确定 】【值=2 取消】其它略

If 梅雷提示 = 1 Then  ' 用户按下“是”。
text1="确定"
Else
text1="取消"
End If

==============================
格式：变量=msgbox(输出内容，按纽参数或图标参数，标题栏名）
格式：变量=msgbox(输出内容，按纽参数+图标参数，标题栏名）
例1: lxn = MsgBox("输出内容", 1, "标题栏名")
例2: lxn = MsgBox("输出内容", 32, "标题栏名")
例3:lxn = MsgBox("输出内容",33, "标题栏名") 与 例2 相同
按钮参数：
0只显示确定按纽；
1显示确定取消按纽；
2显示终止重试忽略按纽；
3显示是、否取消按纽；
4显示是、否按纽；
5显示重试取消按纽。
图标参数：
16显示"×"图标；
32显示"？"图标；
48显示"！"图标；
64显示"i"图标。
===========================================
输入的字符串。格式：
字符串变量= InputBox(提示文字, 标题栏文字, 文本框缺省值)
例：lxn$=inputbox("请输入你的名字","我爱VB","my name is")
==========================================


==============================================
End                   结束程序
==================================
On Error Resume Next'遇到错误，直接执行下一行。
===================================================
On Error GoTo ErrorHandler'遇到错误，直接跳到指定的一行。
===================================================
Beep                  发出预设的警示声
=====================================================
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '声明
延迟：
Sleep 1000 '延迟1秒
==========================================
==================================================
打开网页
url = "http://www.baidu.com"
Shell "cmd.exe /c start " & url, 0
1、 Print(字符串):在窗体输出字符串，
2、 Tab(n):把光标移到该行的n开始的位置
3、 Spc(n):跳过n个空格、vbCrlf ：【回车】
4、 Cls:清除当前窗体内的显示内容
5、 Move 左上角x，左上角y,宽度，高度:移动窗体或控件
6、 a=InputBox("提示"):跳出一个数据输入窗口，
7、
可赋值： a = MsgBox "内容":跳出一个提示窗口
================================================
============================
显示：在属性栏里ALIGNMENT里有选择
是从左开始
还是从中间开始
还是从右面开始
=====================
在对话框上显示内容
Print "内容"
_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/