关於VB问题

来源:百度知道 编辑:UC知道 时间:2024/06/01 17:00:20
我想要点一个键弹出提示框。
还有。想要窗口没有最大化。不能拉伸窗口

1、设置form1的BorderStyle 属性为1
设置MinButton 属性为true 就直接可以了。

2、MsgBox 语法格式
MsgBox 提示[,消息框样式][,标题]
MsgBox "内容", "窗体缺省(除了0还有几个数学
我忘了,你可以自己试下)", "对话框名称"
例:Private Sub Command1_Click()
MsgBox "密码错误","0","提示"
End Sub

maxbox 函数

1、

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "你按下一个键!"
End Sub

2、

设置form的BorderStyle 属性为1
设置MinButton 属性为true
设置MaxButton 属性为false

建立一个窗口FORM,
设置form的BorderStyle 属性为1
设置MinButton 属性为true
设置MaxButton 属性为false
代码
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "单击后的弹出对话框的文字提示"
End Sub

一、实现单击按钮后弹出提示框
建立Form1窗体,添加Command1控件,双击Command1,进入代码编辑区,键入以下代码:
Private Sub Command1_Click()
MsgBox "这就是你点一下要弹出的窗口!", vbOKOnly, "提示框"