Dim :
Dim VarName([Subscripts]) [As Type]
VarName - , ;
Subscripts - . , Subscripts .
Subscripts :
[lower To] upper [,[lower To] upper]..
lower - ( );
upper - ( ).
:
Dim Array_Str (1 To 10) As String - , 10 ;
Dim Array_Var() - ;
Dim Array_Mult (0 To 5, 0 To 7) As Integer - , 6*8=48 .
33.
Visual Basic . : [Ctrl+E], Tools\Menu Editor.... .
, , Caption Enabled. , :
! _ (_1) _2 _3 ~_4 _5 _6 2 _ _2
Visual Basic. Caption , . . Caption (&). , File Caption "&File". [Alt+i], Caption "F&ile".
( , ). , Visual Basic , .
. : , , , , .. mnu; : , , . :
3.8.
file
mnuFile
.ile\Qpen...
mnuFOpen
.ile\Send\Eax
mnuFSFax
|
|
. . , . , .. .
Shortcut . Windows : [Ctrl+X] (Cut), [Ctrl+C] (Copy), [Ctrl+V] (Paste).
WtadowList Index .
Visible, Enabled, Checked
. visible . Enabled , : False, . Checked . .
. , :
mnuFLoad.Caption = "&3" mnuFLoad.Enabled = False mnuFLoad.Visible = False mnuFLoad.Checked = True
. click. .
Private Sub mnuFLoad_Click () LoadSomething End Sub
Len(str) | =ln("") =9 | |
Left (<>, <>) | <> | Left(" 1234string", 4) ="1234" |
Right(<>, <>) | <> | Right(" 1234string", 6) ="string" |
Mid(<>, <> [, <>]) | <> , <> | Mid ("12345678", 4.3) ="456" |
Mid(<>, <>) | <> | Mid ("12345678", 4) ="45678" |
LTrim (<>) | LTrim(" ") ="" | |
RTrim (<>) | RTrim(" ") ="" | |
Trim (<>) | Trim(" ") ="" | |
InStr([<>, ] < 1>, <2> [, <>]) | . <2> <1>, <> - , . , | Instr("C:Temp test.mdb", "Test")=9 , 0 |
InStrRev ([<>, ] <1>, <2> [, <>]) | , . <> | |
Replace (<>, <>, <>) | . <> <> <> |
|
|