UC知道vb制作Msgbox那样的对话框
来源：百度知道 编辑：UC知道 时间：2024/06/11 00:33:27
我想VB制作MsgBox那样的对话框:
在按钮中输入:
ao "2005",错误,"123"
就进入Form2对话框,弹出来的标签是123,有个错误图片,内容是"2005"
怎样用简单代码变量制作?
请大家想想办法!
你们错误理解我的意思了!我的意思是添加一个模块,设置像下面一样的东东：
Public Sub aobox(bt As String)
End Sub
然后输入aobox "2008",错误,"四"
就弹出Form2的错误提示框,form2.caption="标题" 、label1.caption="内容" 我知道!
不过太麻烦了!只要输入aobox "内容",错误,"标题"就行
在按钮中输入:
ao "2005",错误,"123"
就进入Form2对话框,弹出来的标签是123,有个错误图片,内容是"2005"
怎样用简单代码变量制作?
请大家想想办法!
你们错误理解我的意思了!我的意思是添加一个模块,设置像下面一样的东东：
Public Sub aobox(bt As String)
End Sub
然后输入aobox "2008",错误,"四"
就弹出Form2的错误提示框,form2.caption="标题" 、label1.caption="内容" 我知道!
不过太麻烦了!只要输入aobox "内容",错误,"标题"就行
Public Sub aobox(bt As String,pc As String)
Form2.Caption = bt
Form2.Label1.Caption = pc
Form2.show 1
End Sub
'这是模块里的内容
Private Sub Command1_Click()
aobox "123", "2005"
End Sub
'这是Command1的内容
'OK了!大家试一试
你的意思是用form2 做成msgbox么？
如果是的话 那么只要在form2 中拉一个label的 然后就在
按钮中写
form2.caption="标题"
label1.caption="内容"
然后按钮什么的的就自己加 然后赋值就可以了
首先添加一个窗体,选<对话框>类型的,出来后大小随便你调,假设你的FORM1是你现在的窗口,FORM2是要弹出的那个窗口,有一按钮Command1,在Command1添加事件如下
Private Sub Command1_Click()
Unload Me
form2.Show
form2.Caption = "123"
form2.Label1.Caption = "2005"
End Sub
而在FORM2中先后加入一个Label1和一个Image1,而先设好Image1的图片,选中Image1,在属性窗口找到Loadpicture属性后,选择要显示的片!完