VB6³ÌÐòÉè¼Æ
±íʾµÄÊ®Áù½øÖƺͰ˽øÖÆÊý
? ±êʶ·ûÊÇΪ³ÌÐò´úÂëÖеıäÁ¿¡¢³£Á¿¡¢ÀàÐÍ¡¢¹ý³Ì¡¢º¯Êý¡¢ÀàºÍÆäËû¶Ô
ÏóµÄÃüÃû¡£VBÖбêʶ·ûµÄÃüÃûÓÐÈçϹæÔò£º
£¨1£©±êʶ·û±ØÐëÊÇ×Öĸ¿ªÍ·£¬ºó¸ú×Öĸ¡¢Êý×Ö»òÏ»®Ïß
£¨2£©±êʶ·û³¤¶È²»Äܳ¬¹ý255¸ö×Ö·û£¬ÆäÖд°Ìå¡¢¿Ø¼þ¡¢ÀàºÍÄ£¿éµÄ
±êʶ·û³¤¶È²»Äܳ¬¹ý40¸ö×Ö·û
£¨3£©²»ÄÜÓëVBÖÐÊܵ½ÏÞÖÆµÄ¹Ø¼ü×ÖͬÃû
4.2 Êý¾ÝÀàÐÍ
Ò»¸ö±äÁ¿µÄÊý¾ÝÀàÐÍÖ¸³ö¸Ã±äÁ¿ÄÜ´æ´¢ºÎÖÖÀàÐ͵ÄÊý¾Ý¡£VBÌṩÁËÐí¶à»ù±¾Êý¾ÝÀàÐÍ£¬Óû§Ò²¿ÉÒÔ¸ù¾ÝÐèÒª×Ô¶¨ÒåÊý¾ÝÀàÐÍ¡£
4.2.1 »ù±¾Êý¾ÝÀàÐÍ
VBµÄ»ù±¾Êý¾ÝÀàÐͼûP46±í4.2.1£¬×¢ÒâËüÃǵÄÀàÐÍÃû¡¢ÀàÐÍ·û¡¢Õ¼ÓÃ×Ö½ÚÊýºÍ±íʾ·¶Î§¡£
Àý£º Dim YesorNo As Boolean
Dim A As Byte,B As Byte Dim I As Integer Dim L As Long Dim A As Single Dim P As Currency
Dim X As Double,Y As Double Private S As String
Dim Name As String*20 Dim D As Date Dim V
Dim a%,b&,c!,d# ?aΪÕûÐÍ£¬bΪ³¤ÕûÐÍ£¬cΪµ¥¾«¶ÈÐÍ£¬
dΪ˫¾«¶ÈÐÍ£¬@Ϊ»õ±ÒÐÍ£¬$Ϊ×Ö·û´®ÐÍ
YesorNo=1>2
A=&H0F:B=&H01 A=A+B
X=1.88E18:Y=2.01D16 X=X*Y
S=¡±Database¡± S=Left(S,4)
D=#4/6/1999 8:30:50PM# V=¡±17¡± V=V-15 V=¡±U¡±&V
³ýÁË¿ÉÒÔÏñÆäËü±ê×¼ÀàÐÍÒ»Ñù²Ù×÷Í⣬VariantsÀàÐͱäÁ¿»¹°üº¬ËĸöÌØÊâÖµ£ºEmpty£¬Nothing£¬NullºÍError¡£
9
µÚËÄÕ VB6±à³Ì»ù´¡
4.2.2 Óû§×Ô¶¨ÒåÊý¾ÝÀàÐÍ
¸ñʽ£º
[Private|Public] Type varname elementname as type ¡ End Type Àý£º
Private Type StuRecord Name As String*30 Birthday As Date Other As Variant End As Variant
Dim Record1 As StuRecord,Record2 As StuRecord Record1.Name=¡±Abc¡±
4.2.3 ö¾ÙÀàÐÍ
ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓÃEnumÓï¾äÀ´ÉùÃ÷ö¾ÙÀàÐÍ£¬ÀýÈ磺 Private Enum ElementSet Sun Mon Tue End Enum
4.3 ±äÁ¿Óë³£Á¿
ÔÚÓ¦ÓóÌÐòÖ´ÐÐÆÚ¼ä£¬±äÁ¿ÓÃÀ´´æ´¢¿ÉÄܱ仯µÄÊýÖµ£¬³£Á¿±íʾ¹Ì¶¨²»±äµÄÊýÖµ¡£Í¨³££¬ÔÚʹÓñäÁ¿ºÍ³£Á¿Ç°±ØÐëÊÂÏÈÉùÃ÷£¬²¢ÇÒËüÃÇÓÐ×Å×Ô¼ºµÄÓÐЧ·¶Î§¡£
4.3.1 ±äÁ¿
±äÁ¿ÓÐÃû×Ö£¬ËüÊÇÓÃÀ´ÒýÓñäÁ¿Ëù°üº¬µÄÊý¾ÝµÄ±êʶ·û£»±äÁ¿¾ßÓÐÊý¾ÝÀàÐÍ£¬ÒÔÈ·¶¨±äÁ¿Äܹ»´æ´¢µÄÊý¾ÝÖÖÀà¡£
? ±äÁ¿µÄÃüÃûÓ¦×ñѱêʶ·ûÃüÃûµÄ¹æÔò
? Ò»°ãÓ¦ÓñäÁ¿ÉùÃ÷Óï¾äÉùÃ÷±äÁ¿£¨ÏÔʽÉùÃ÷¡¢ÒþʽÉùÃ÷¡¢ÓÐЧ·¶Î§£©
4.3.2 ³£Á¿
VBÖÐÓÐÁ½ÖÖ³£Á¿£¬Ò»ÖÖÊÇϵͳԤ¶¨ÒåµÄ³£Á¿£¬»¹ÓÐÒ»ÖÖÊÇÓû§¶¨ÒåµÄ³£Á¿¡£ ? Óû§¶¨Òå³£Á¿µÄÃüÃû
? Óû§¶¨Òå³£Á¿µÄÉùÃ÷[Public|Private] Const constantname [As
type]=expression
10
VB6³ÌÐòÉè¼Æ
? Óû§¶¨Òå³£Á¿µÄÓÐЧ·¶Î§
4.4 Êý×é
Êý×éÊÇÖ¸¾ßÓÐÏàͬµÄÊý¾ÝÀàÐ͵ÄÓÐÐòÊý¾ÝµÄ¼¯ºÏ£¬¼´Ò»¸öÊý×éÖеÄËùÓÐÔªËØ¾ßÓÐÏàͬµÄÊý¾ÝÀàÐÍ¡£
µ±ÉùÃ÷ÁËVariantÀàÐ͵ÄÊý×éʱ£¬ÆäÔªËØÄܹ»°üº¬²»Í¬ÀàÐ͵ÄÊý¾Ý¡£
4.4.1 ´óС¹Ì¶¨µÄÊý×é
1¡¢Êý×éµÄÃüÃû 2¡¢Êý×éµÄÉùÃ÷
¸ù¾ÝÉùÃ÷µÄÊý×éµÄÓÐЧ·¶Î§²»Í¬£¬ÓÐÈýÖÖ·½·¨ÉùÃ÷´óС¹Ì¶¨µÄÊý×é¡£
? ¹ý³Ì¼¶Êý×飬Ôڸùý³ÌÖÐÓÃDimÓï¾äÉùÃ÷£¬Àý£ºDim Number(10) As
Integer»òDim K(1 To 5)»òStatic State(10) As Boolean ? Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÖÐÓÃPrivate»òDimÓï¾äÉùÃ÷£¬Àý£ºPrivate
A(10) As Integer»òDim Address(1 To 50) As String*30 ? È«¾Ö¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÖÐÓÃPublicÓï¾äÉùÃ÷£¬Àý£ºPublic Price(10)
As Double»òPublic Name(1 To 50) As String*20 3¡¢Êý×éµÄÒýÓÃ
Dim n As Integer
Dim Number(10) As Integer For n=0 To 10 Number(2)=2 Next n 4¡¢¶àάÊý×é
Àý£º
Dim I As Integer,J As Integer
Static MatrixA(1 To 10,1 To 10) As Double For I=1 To 10 For J=1 To 10
MatrixA(I,J)=I*10+J Next J Next I
11
µÚËÄÕ VB6±à³Ì»ù´¡
4.4.2 ¶¯Ì¬Êý×é
1¡¢¶¯Ì¬Êý×éµÄÉùÃ÷
? ¹ý³Ì¼¶¶¯Ì¬Êý×飺Dim dynArray()»òDim dynList() As Single ? Ä£¿é¼¶¶¯Ì¬Êý×飺Private dynA() As Integer»òDim dynArray() ? È«¾Ö¼¶¶¯Ì¬Êý×飺Public dynArray() As Double»òPublic dynList() 2¡¢¶¯Ì¬Êý×éµÄ¶¨Òå
¶¯Ì¬Êý×éÉùÃ÷ºó²¢²»ÄÜÁ¢¼´Ê¹Ó㬻¹±ØÐëÔÚʹÓÃËüµÄ¹ý³ÌÖУ¬ÓÃReDimÓï¾ä¶ÔËüµÄάÊýºÍÉÏÏÂ½ç½øÐж¨Òå¡£
Àý£º
ReDim dynArray(1 To 10) ReDim dynArray(2,1 To N) ×¢Ò⣺
? ReDimÓï¾äͨ³£ÊÇÒ»¸öÖ´ÐÐÓï¾ä£¬Ö»ÄÜÔÚ¹ý³ÌÖÐʹÓÃ
? ¿ÉʹÓÃReDimÓï¾ä·´¸´¸Ä±ä¶¯Ì¬Êý×éµÄάÊýºÍÉÏϽ磬µ«Ò»°ã²»ÄÜÐÞ
¸ÄËüµÄÊý¾ÝÀàÐÍ
4.5 ÔËËã·ûºÍ±í´ïʽ
4.5.1 ÔËËã·û
ÔËËã·ûÊDZíʾʵÏÖijÖÖÔËË㹦ÄܵķûºÅ¡£°´ÔËËãµÄ²Ù×÷¶ÔÏóºÍ²Ù×÷½á¹ûµÄ²»Í¬Êý¾ÝÀàÐÍ£¬VBÖеÄÔËËã·ûÓÐ×ÔÊöÔËËã·û¡¢Á¬½ÓÔËËã·û¡¢±È½ÏÔËËã·û¡¢Âß¼ÔËËã·ûºÍλÔËËã·ûµÈ¶àÖÖÀàÐÍ¡£ 1¡¢ËãÊõÔËËã·û
ËãÊõÔËËã·ûÓÃÀ´½øÐÐÊýѧ¼ÆËã¡£
P58±í4.5.1°´ÓÅÏȼ¶±ð´Ó¸ßµ½µÍµÄ˳ÐòÁгöÁËVBÖеÄËãÊõÔËËã·û¡£ Àý£º
V=2^3^2 ?VµÄֵΪ64£¬DoubleÀàÐÍ V=-(3.14+12)*5.2/3 V=13.14\\5.8 ?VµÄֵΪ13³ýÒÔ5µÄÉÌ2£¬LongÀàÐÍ V=15.14 Mod 3.8 ?VµÄֵΪ15³ýÒÔ4µÄÓàÊý3£¬LongÀàÐÍ 2¡¢Á¬½ÓÔËËã·û
Á¬½ÓÔËËã·ûÓÃÀ´Á¬½ÓÁ½¸ö×Ö·û´®¡£
12