Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÃüÃû¹æÔò¼°´úÂë¹æ·¶

VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
 
Âíά·å
(maweifeng@263.net
)
 
1.      
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1.      
±äÁ¿¡¢³£Á¿¡¢×Ô¶¨ÒåÀàÐͺÍö¾Ù
±í
1
‑1
¸ÅÀ¨Á˱äÁ¿¡¢³£Á¿µÄ»ù±¾ÃüÃû¹æÔò¡£
 
±í

1

1

±äÁ¿¡¢³£Á¿ºÍö¾ÙÀàÐ͵ÄÃüÃû¹æÔò
ÔªËØ
ÃüÃû¹æÔò
±äÁ¿
<
·¶Î§
><
Êý×é
><
Êý¾ÝÀàÐÍ
>
ÃèÊö£¨Ê××Öĸ´óд£©
³£Á¿
<
·¶Î§
><
Êý¾ÝÀàÐÍ
>
ÃèÊö£¨È«²¿´óд£©
Óû§×Ô¶¨ÒåÀàÐÍ
Type
ÃèÊöÃû³Æ
   
<
Êý¾ÝÀàÐÍ
>
ÃèÊö
End Type
ö¾ÙÀàÐÍ
Enum <
¹¤³Ìǰ׺
>
Ò»°ãÃèÊö
   
<
¹¤³Ìǰ׺
><
Ò»°ãÃèÊö
><
¾ßÌåÃû³Æ
1>
   
<
¹¤³Ìǰ׺
><
Ò»°ãÃèÊö
><
¾ßÌåÃû³Æ
2>
End Enum
 
<
·¶Î§
>
±íʾÁ˱äÁ¿µÄ×÷ÓÃÓò£¬¶ÔÓÚ
Private
ÀàÐͺÍÄ£¿é¼¶±äÁ¿£¬Ò»°ãʹÓÓ
m
”ǰ׺±íʾ£¬¶ÔÓÚ
Public
ÀàÐ͵ıäÁ¿£¬Ò»°ãʹÓÓ
g
”ǰ׺±íʾ£¬¶ø¶ÔÓÚ¹ý³ÌÄڵľֲ¿±äÁ¿£¬Ôò²»Ê¹ÓÃǰ׺¡£Èç¹ûÊÇÊý×飬ÔÚ·¶Î§Ç°×ººóÔö¼Ó“
a
”±íʾ±äÁ¿ÎªÊý×é¡£
¶ÔÓÚÊý¾ÝÀàÐÍ£¬Ò»°ãʹÓÃ
±í
1
‑2
µÄǰ׺±íʾ¡£
 
±í

1

2

ÃüÃû¹æÔò³£ÓÃǰ׺
ǰ׺
Êý¾ÝÀàÐÍ
ǰ׺
Êý¾ÝÀàÐÍ
ǰ׺
Êý¾ÝÀàÐÍ
is
Boolean
cm
ADODB.Command
cmb
MSForms.ComboBox
byt
Byte
cn
ADODB.Connection
chk
MSForms.CheckBox
cur
Currency
rs
ADODB.Recordset
cmd
MSForms.CommandButton
dte
Date
 
 
fra
MSForms.Frame
dec
Decimal
cht
Excel.Chart
lbl
MSForms.Label
f
Double
£¬
Single
rng
Excel.Range
lst
MSForms.ListBox
i
Integer
£¬
Long
wb
Excel.Workbook
mpg
MSForms.MultiPage
obj
Object
ws
Excel.Worksheet
opt
MSForms.OptionButton
str
String
 
 
spn
MSForms.SpinButton
u
User-defined type
cbr
Office.CommandBar
txt
MSForms.TextBox
v
Variant
ctl


Ïà¹ØÎĵµ£º

vb class Property Get¡¢Property Let ʹÓÃ

vb class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²Êǿɼûµ ......

VBÄæÏò¹¤³ÌʵսÑÝϰ

û¿Ç,ûÓÐCommand Button,ËùÓеÄÄÚÈݶ¼ÔÚForm_LoadÀï¡£ÓÃVBDE²é¿´£¬Form_LoadÔÚ00406A90,´ò¿ªW32dsm£¬ÔØÈëCasinoÂÖÅÌÖÇÄÜ»úÆ÷ÈË£¬²éÕÒ00406A90£¬·´»ã±à´úÂëÈçÏ£º
Quote:
:00406A90 55                   &nb ......

´¿VBÕæÕýʵÏÖÎȶ¨µÄNT·þÎñ

'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......

VB×Ô¶¯µÇ¼¼ì²â²¢Ìí¼ÓÓòÃû

ÓôÃÆ£¬ÎÒʹÓõÄÕâ¸ö¿Õ¼äµÄIDCÉ̾¹È»Ã¿¸ôÒ»¶Îʱ¼ä¾ÍÒª¼ì²â°ó¶¨µÄÓòÃûÊÇ·ñÔÙδÌá½»±¸°¸ÁбíÖУ¬Èç¹ûÊǾÍɾ³ý£¬µ«ÊÇÈ´²»¼ì²âÎÒÊÇ·ñÌá½»Á˱¸°¸£¬°´ÕÕËûÃÇ˵·¨É¾³ýÓòÃûÒ»Ììºó²ÅÄÜÔٴΰ󶨣¬·ñÔòÕâÒ»ÌìÄÚ°ó¶¨Á˵½Ï´μì²â¾Í»áÔÙɾ³ý¡£ÕâÑùÎҾͲ»Í£µÄÔÚºǫ́¿´£¬¿´ÊÇ·ñ±»É¾³ý£¬Èç¹û±»É¾³ý£¬¾ÍÔÙ°ÑÓòÃû°ó¶¨ÉÏÈ¥£¬;(ºÜÊÜÉË£¡
ÓÚÊÇÓÃV ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ