消息窗体的输入输出，断点调试方法【VB学习笔记2020课堂版02】

事件回顾：

窗体退出事件：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