. , Visual Basic . Visual Basic : , , .
. Visual Basic : ^ ( ), * (), / (), \ ( ), Mod ( ), + (), - ( ).
. True/False. Visual Basic : And ( ), Eqv ( ), Imp ( ), Not ( ), Or ( ), Xor ( ).
. & +.
. VBA : = (), <(), <= ( ), >(), >= ( ),<> ( ), Is ( , , Like ( ).
, . , :
| ? | . |
| * | . |
| # | (0 9). |
| [_] | _. |
| [! _ ] | _. |
{_), ([ ]), , .
([), (?), (#) (*), . (]) , .
(-) _ . , [A-Z] , A-Z. .
Option Compare . , Option Compare Binary [-] , , , D . Option Compare Text [-] , , , b, , , D, d, , .
, :
|
|
|
(!) _ , True, , _. , ;
(-), ( , ), _. , ;
, ( ). [A-Z] , [Z-A] ;
[ ] ("").
:
Dim MyCheck
MyCheck = "aBBBa" Like "a*a" ' True
MyCheck = "F" Like "[A-Z]" ' True
MyCheck = "F" Like "[!A-Z]" ' False
MyCheck = "a2a" Like "a#a" ' True
MyCheck = "aM5b" Like "a [L-P]#[!c-e]" ' True
MyCheck - "BAT123khg" Like "B?T*" ' True
MyCheck = "CAT123khg" Like "B?*" ' False
. , , .
, , . ; , . :
| (^) | (=) | Not |
| (-) | (< >) | And |
| (*,/) | (<) | Or |
| (\) | (>) | Xor |
| (Mod) | (<=) | Eqv |
| (+,-) | (>=) | Imp |
| (&) | Like | Is |
, . , . , , . . .
(&) , .
Like , .
Is . ; , .
|
|
|
. Visual Basic, , . , () . . , , . ; , , .
. Visual Basic , :
| . , | |
| . | |
| Visual Basic, DLL , , | |
| - | . |
| / | , , |
. Visual Basic , : ; ; ; .
. , Visual Basic , , " ".
, . . , . , . , , .
, Visual Basic .
VBA
, . , , , , . :
, , ;
, , , .
Visual Basic :
Sub , ;
Function ;
Property .
Sub. Sub , . Sub, .
Sub:
[ Private | Public] [Static] Sub _ ()
End Sub
Sub End Sub. Sub , .
, .
VBA Sub .
. , . . , , , .
|
|
|
? , - . . .
. Visual Basic , , , , ( ). , , :
( ), (_) . , , 1, 1_lick();
" Form" ( "Report"), . Form_Click() ( , , ).
. :
Private Sub --_- ()
End Sub
:
Private Sub Form _- ()
End Sub
, , Access; . , , .
, . , . Access . , Access .
Function. Visual Basic , . , , , Sqr, Cos Chr. , Function Function.
Sub, Function , , . Sub, Function . Sub Function :
:
= ().
, Function . . ( As, Variant);
|
|
|
. Function , .
Function , Visual Basic.
. <Enter>. Sub Function. , :
Sub UpdateForm ()
Function SchetSumma () '
Access , ( End Sub End Function).
. , .
, .
:
1. .
2. / .
3. .
4. . .
. , .
, Sub Function.
Sub. Sub Function , Sub . Sub . , Sub , . , Function, Sub .
Sub :
' Sub Proc1
Call Proc1 (Argument1, Argument2)
Proc1 Argument1, Argument2
, , Call, .
Call , .
Function. Function, , Visual Basic, :
' ToDec
Print 10 * ToDec
X = ToDec
If ToDec = 10 Then Debug.Print " "
X = Function1(10 * ToDec)
Sub. , Year:
Call Year (Now)
Year Now
, , Visual Basic .
. Public . , , . , : (), .
. ( ), . , , , Sub1, , , :
Call Report_.Subl ()
. , , . , DemoClass Class1:
Dim DemoClass as New Class1
DemoClass.Subl
, , . ( DemoClass), .
. , . .
, . . , CommonName 1 2, CommonName 2 CommonName 2, CommonName 1.
|
|
|
1 CommonName, 2, :
Moy2.CommonName ()
