Type usage and Samson exception capture
Today, I will talk to you about the use of type and Samson exception capture, many people may not know much about it. In order to make you understand better, the editor has summarized the following content for you. I hope you can get something according to this article.
Custom data type
In order for our custom data type to be used in each sub, let's define it in general, that is, as a global variable.
Case study:
Define a student's data type
Student attributes: student number, name, gender, age
It is recommended to capitalize the first letter of the custom name, and do not use Chinese. The custom name specification will follow the variable naming convention.
Custom data types tend to prefer to be used with arrays
Custom data types are often defined similar to an object.
Note: custom data types, private Private required
Supplementary exception description for exception capture
Use the Err keyword
Err.Description indicates error description
Classroom summary
1. Learn to customize the data type type
2. Points for attention in mastering data types
3. Learn to troubleshoot and catch anomalies
4. Output of abnormal information
The interface of this issue:
Source code for this issue:
Private Type Student
Sno As Long 'student number sname As String' name ssex As String 'gender sage As Integer' age
End Type
Dim stu () As Student
Private Sub Command1_Click ()
ReDim stu (2) As Student
Stu (0). Sno = 1stu (0). Sname = "Tintin" stu (0). Ssex = "male" stu (0). Sage = 10
Stu (1). Sno = 2stu (1). Sname = "Dongdong" stu (1). Ssex = "female" stu (1). Sage = 11
Stu (2). Sno = 3stu (2). Sname = "Xiaogang" stu (2). Ssex = "male" stu (2). Sage = 10MsgBox "student loaded successfully", vbApplicationModal, "notify" End Sub
Private Sub Command2_Click () On Error GoTo catchtry:Dim i%For I = 0 To UBound (stu) Step 1
Print "student number:" & stu (I). Sno _ & "name: & stu (I). Sname _ &" gender: & stu (I). Ssex _ & "Age: & stu (I). Sage
Next iGoTo finallycatch:MsgBox "Please load the students first!" , vbCritical, "message" finally:
End Sub
After reading the above, do you have any further understanding of type usage and Samson exception capture? If you want to know more knowledge or related content, please follow the industry information channel, thank you for your support.
