VB6.0 and vb.net function tables
Vb. NET function table
vb and VB vb vb vb vb vb vb vb
Object Browser View System internal constants
Form1.backcolor = Vbblue
Form1.backcolor = QBColor (0)
Vbkeyup Vbkeydown Vbkeyleft vbkeyright represents the key code around the keyboard
Custom constant Const PI = 3.14
Variable Dim qq As String equivalent to Dim qq $
Implicitly declaring variables without dim directly using i=i+1
The colon connects two lines of code into one line
Spaces underline one line of code into two lines
Arithmetic operators:
-Take negative
& Connection
Relational operators:
Like comparison style
Is comparison object variable
Logical operators:
Not (1>4)
And OR
XOR Exclusive OR
Eqv equivalence
Imp implication
Input and output:
Print "Hello" is equivalent to Form1.print "Hello" output on Form
Picture1.Print "" Output on picture frame
Debug.Print "" Output in Immediate window
Printer.print "" With printer output
A print is the output of a blank line
Print A, b the middle of the divider big point
Print A; B
Print A:tab (8): b tab (8) Means 8 empty Spc (8) for 8 spaces
space$ (5) is available in a string, representing 5 spaces
Format specifier
Format $ (string, format) str$ () function almost
Print format$ (99, "0000") output four digits
Print format$ (12.567, "#.###") output 12.57
Print format$ (12.567, "000.0000") output 012.567
Print format$ (12345, "#,#") output 12,345
Print format$ (12345.123, "#,#.##") output 12,345.12
Print format$ (12345, "000000,0") output 0,012,345
Print format$ (12.567, "$ 000.0000") output $012.567
CLS Clears form text
Move 2000,2500,2600,2300
CurrentX = 200
CurrentY = 300
Print ""
Dim A As String
A = "FDD"
CurrentX = (Scalewidth-textwidth (a))/2
CurrentY = (Scalewidth-textheight (a))/2
Print a
Dim A As String
A = InputBox ("Please enter your name", "Prompt", "hello", 3000,5000)
Print "Your name is:" & A
biaoti$ = "Student Information Registration"
b$ = InputBox ("Please enter name", Biaoti)
MsgBox "Welcome" &chr$ (12)
MsgBox "Welcome" &vbcrlf function
Dim A As String
A = MsgBox ("Are you sure you want to quit the program?", 1+32) ' 1 is used to display a "OK" and "Cancel" button, 32 to display the system problem icon
If a = 1 Then
End
Else
Print "You did not quit this program"
End If
Text1.fontbold = Not text1.fontbold ' Take reverse operation
Form. Show ' Me.Show
Text1. SetFocus
For Next loop:
Dim i As Integer
For i = 1 to 10
Print I
Next I
When the loop:
While a <> ...
...
Wend
Do loops: ' While until can be placed behind loops
Do While condition
...
Loop
Do Until conditions
...
Loop
Export statement:
Private Sub Form_Click ()
Dim i,num
Todo
For i = 1 to 10
num = Int (rnd*10)
Print num
Select Case num
Case 5:exit for
Case 8:exit Do
Case 9:exit Sub
End Select
Next I
Print "Exit for"
Loop
Print "Exit Do"
End Sub
Goto Statement on Goto statement
100
...
If.. Then goto 100