简介 INTRODUCTION键盘按下事件、窗体消息提示函数msgbox详解
事件回顾:
窗体退出事件:Unload
案例:防止误操作关闭窗体,通过该事件来进行控制。设置参数cancel的值为-1即可停止退出。
键盘按下事件:KeyDown 只要按住键盘的键,那么会一直执行这个事件
键盘按键事件:KeyPress 只有按下的那一刻产生一次事件
键盘按键弹起事件:KeyUp 一次按下,只产生一次。
鼠标按下事件:MouseDown
鼠标移动事件:mouseMove
鼠标按键弹起事件:MouseUp
窗体大小改变事件:resize
以下为消息窗体的输入输出,结合sub过程的自定义和调用知识要点:
窗体消息提示函数msgbox
规则1:不需要函数的返回值的时候,不用括号
MsgBox "123,木头人"
返回值:在调用函数后,会产生一个结果返回给程序。
规则2:需要函数的返回值,使用函数的时候加上括号()
Dim a
a = MsgBox("123,木头人")
print a '输出a的返回值为1
行内潜规则:不会断点调试,就等于没有学会编程。
断点调试程序方法:
1.在需要停止程序的代码行前点击,使其产生一个红色断点
2.运行程序,执行相应事件,程序会停止到代码红点的位置
3.使用快捷键F8,可以使当前代码运行。(当前运行到的行,但是尚未运行,显示底纹为黄色)
4.一步一步按F8,是的程序运行完,观察运行过程中的变量值的变化
dim表示声明变量,而声明一个变量的本质实在内存中开辟一个空间,用来存储相应类型的值。
dim a as integer '声明一个整型变量a(在内存中开辟一个空间,命名为a,用来存储整数类型的值)
代码注释:表示注释的代码不被程序运行。
VB中的代码注释使用单引号' 被注释的代码会变成绿色。
如果发现代码是红色,表示程序报错。
事件过程用sub关键词表示
自定义过程:
sub 自定义名称
end sub
调用一个程序的过程,使用关键词call
调用方法 call 过程名称
举例:
Sub mybook()
MsgBox "恭喜老刘写成书籍!"
End Sub
调用举例:
Call mybook
自定义有参数的sub过程
sub mybook2(n as String)
MsgBox "老刘写成了【" & n & "】书"
end sub
调用方法:Call mybook2("VB书籍大全")
文本输入消息窗口使用inputbox函数,该函数会返回输入的值。
使用方法:
inputbox("提示内容","标题")
举例将函数调用后,输入结果的值取出,存储到a变量。
Dim a As String
a = InputBox("请输入一本书的名字:", "提醒")
批量注释的方法:
在菜单空白处,鼠标右键,勾上“编辑”,出现“编辑工具栏”,在工具栏上有将选中代码进行注释和取消注释的按钮。
作业:在纸上写两种方式的过程自定义和调用
1.没有参数的sub
2.有参数的sub
软件设计界面:
源代码分享:
Private Sub Command1_Click()
Dim a
a = MsgBox("123,木头人")
'Print a
MsgBox a
End Sub
Private Sub Command2_Click()
Call mybook
End Sub
Private Sub Command3_Click()
Dim a As String
a = InputBox("请输入一本书的名字:", "提醒")
Call mybook2(a)
End Sub
Private Sub Form_Load()
Form1.Caption = "刘金玉"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否退出", vbYesNo, "消息") = vbYes Then
End
Else
Cancel = -1
End If
End Sub
Private Sub Label1_Click()
Label1.FontSize = Label1.FontSize + 10
End Sub
Private Sub Label2_DblClick()
MsgBox "是真爱吗?"
End Sub
'Private Sub Text1_GotFocus()
'MsgBox Text1.Text & "获得焦点"
'End Sub
'
'Private Sub Text1_LostFocus()
'MsgBox Text1.Text & "已经失去焦点"
'
'End Sub
Sub mybook()
MsgBox "恭喜老刘写成书籍!"
End Sub
Sub mybook2(n As String)
MsgBox "老刘写成了【" & n & "】书"
End Sub
联系作者:刘金玉
长按关注公众号
编程创造城市官网:https://bcczcs.com/