VB.NET/ASP.NET±àÂë¹æ·¶
ÔÚ¿ª·¢Öб£³ÖÁ¼ºÃµÄ±àÂë¹æ·¶ÊÇÊ®·ÖÖØÒªµÄ¡£ÎÒËù²ÉÓõÄеÄVB.NET/ASP.NET±àÂë¹æ·¶£¬ÊÇÒ»ÖÖ±»Ö¤Ã÷ÄÜÃ÷ÏÔ¸ÄÉÆ´úÂë¿É¶ÁÐÔ£¬²¢ÓÐÖúÓÚ´úÂë¹ÜÀí¡¢·ÖÀàµÄ±àÂë¹æ·¶¡£²ÉÓÃÕâÖÖ±àÂë¹æ·¶£¬ÄܱÜÃâÈçÐÙÑÀÀûÃüÃû·¨´øÀ´µÄ·±³¤Ç°×º£¬±ãÓÚ¼ÇÒä±äÁ¿µÄÓÃ;¡£ÏÂÃæµÄ½éÉÜÕâÖÖ±àÂë¹æ·¶¡£
Ò»¡¢ÀàÐͼ¶µ¥Î»µÄÃüÃû
1¡¢Àà
¡õÒÔClassÉùÃ÷µÄÀ࣬¶¼±ØÐëÒÔÃû´Ê»òÃû´Ê¶ÌÓïÃüÃû£¬ÌåÏÖÀàµÄ×÷Óá£È磺
Class Indicator
¡õµ±ÀàÊÇÒ»¸öÌØÐÔ£¨Attribute£©Ê±£¬ÒÔAttribute½á⣬µ±ÀàÊÇÒ»¸öÒì³££¨Exception£©Ê±£¬ÒÔException½áβ£º
Class ColorSetException
Class CauseExceptionAttribute
¡õµ±ÀàÖ»ÐèÓÐÒ»¸ö¶ÔÏóʵÀý£¨È«¾Ö¶ÔÏ󣬱ÈÈçApplicationµÈ£©£¬±ØÐëÒÔClass½á⣬Èç
Class ScreenClass
Class SystemClass
¡õµ±ÀàÖ»ÓÃÓÚ×÷ΪÆäËûÀàµÄ»ùÀ࣬¸ù¾ÝÇé¿ö£¬ÒÔBase½áβ£º
MustInherit Class IndicatorBase
¡õÈç¹û¶¨ÒåµÄÀàÊÇÒ»¸ö´°Ì壬ÄÇôÃû×ֵĺóÃæ±ØÐë¼Óºó׺Form£¬Èç¹ûÊÇWeb´°Ì壬±ØÐë¼Óºó׺Page£º
Class PrintForm : Inherits Form '* Windows´°Ìå
Class StartPage : Inherits Page '* Web´°Ìå
2¡¢Ã¶¾ÙºÍ½á¹¹
ͬÑù±ØÐëÒÔÃû´Ê»òÃû´Ê¶ÌÓïÃüÃû¡£×îºÃÌåÏÖö¾Ù»ò½á¹¹µÄÌØµã£¬È磺
Enum ColorButtons 'ÒÔ¸´Êý½á⣬±íÃ÷ÕâÊÇÒ»¸öö¾Ù
Structure CustomerInfoRecord 'ÒÔRecord½á⣬±íÃ÷ÕâÊÇÒ»¸ö½á¹¹Ìå
3¡¢Î¯ÅÉÀàÐÍ
¡õÆÕͨµÄίÅÉÀàÐÍÒÔÃèÊö¶¯×÷µÄÃû´ÊÃüÃû£¬ÒÔÌåÏÖίÅÉÀàÐÍʵÀýµÄ¹¦ÄÜ£º
Delegate Sub DataSeeker (ByVal SeekString As String)
¡õÓÃÓÚʼþ´¦ÀíµÄίÅÉÀàÐÍ£¬±ØÐëÒÔEventHandler½á⣬È磺
Delegate Sub DataChangedEventHandler (ByVal Sender As Object, ByVal e As DataChangedEventArgs)
4¡¢½Ó¿Ú
ÓëÆäËûÀàÐͲ»Í¬£¬½Ó¿Ú±ØÐëÒªÓÉI×÷Ϊǰ׺£¬²¢ÓÃÐÎÈÝ´ÊÃüÃû£¬Í»³ö±íÏÖʵÏÖ½Ó¿ÚµÄÀཫ¾ßÓÐʲôÄÜÁ¦£º
Interface ISortable
5¡¢Ä£¿é
Ä£¿é²»ÊÇÀàÐÍ£¬ËûµÄÃû³Æ³ýÁ˱ØÐëÒÔÃû´ÊÃüÃûÍ⣬±ØÐë¼ÓÒÔºó׺Module:
Module SharedFunctionsModule
ÉÏÊöËùÓйæÔòµÄ¹²Í¬ÌصãÊÇ£¬Ã¿¸ö×é³ÉÃû³ÆµÄ´ÊÓï¶¼±ØÐëÊÇ´óд¿ªÍ·£¬½ûÖ¹ÍêÈ«´óд»òСдµÄÃû³Æ¡£
¶þ¡¢·½·¨ºÍÊôÐÔµÄÃüÃû
1¡¢·½·¨
ÎÞÂÛÊǺ¯Êý»¹ÊÇ×Ó³ÌÐò£¬·½·¨¶¼±ØÐëÒÔ¶¯´Ê»ò¶¯´Ê¶ÌÓïÃüÃû¡£ÎÞÐèÇø·Öº¯ÊýºÍ×Ó³ÌÐò£¬Ò²ÎÞÐèÖ¸Ã÷·µ»ØÀàÐÍ¡£
Sub Open(ByVal CommandString As String)
Function SetCopyNumber(ByVal CopyNumber As Integer)
²ÎÊýÐèÒªÖ¸Ã÷ByVal»¹ÊÇByRef£¬ÕâÒ»µãдÆðÀ´»áÈóÌÐò±ß³¤£¬µ«·Ç³£±ØÒª¡£Èç¹ûûÓÐÌØ±ðÇé¿ö£¬¶¼Ê¹ÓÃByVal¡£²ÎÊýµÄÃüÃû·½·¨£¬²Î¿¼ºóÃæ“±äÁ¿µÄÃüÃû·½·¨”¡£ÐèÒªÖØÔØµÄ·½·¨£¬Ò»°ã²»Ð´Overloads£¬¸ù¾ÝÐèÒª±àÐ´ÖØÔØµÄ·½·¨¡£
2¡¢ÊôÐÔ
ÔÔòÉÏ£¬×ֶΣ¨Field£©ÊDz»Äܹ«¿ªµÄ£¬Òª·ÃÎÊ×ֶεÄÖµ£¬Ò»°ãʹÓÃÊôÐÔ¡£ÊôÐÔÒÔ¼ò½àÇåÎúµÄÃû´ÊÃüÃû£º
Property Concentration As Single
Property Customer As CustomerTypes
3¡¢Ê¼þ
ʼþÊÇÌØÊâµÄÊôÐÔ£¬Ö»ÄÜÔÚʼþ´¦ÀíÉÏÏÂÎÄÖÐʹÓá£ÃüÃûµÄÔÔòÒ»°ãÊǶ¯´Ê»ò¶¯´ÊµÄ·Ö´Ê£¬Í¨¹ýʱ̬±íÃ÷ʼþ·¢ÉúµÄʱ¼ä£º
Event Click As ClickEventHandler
Event ColorChanged As ColorChangedEventHangler
Èý¡¢±äÁ¿ºÍ³£Êý
³£ÊýÒÔ±íÃ÷³£ÊýÒâÒåµÄÃû´ÊÃüÃû£¬Ò»°ã²»Çø·Ö³£ÊýµÄÀàÐÍ£º
Const DefaultConcentration As Single = 0.01
ÔÚÑϸñÒªÇóµÄ´úÂëÖУ¬³£ÊýÒÔc_¿ªÍ·£¬Èçc_DefaultConcentration£¬µ«×îºÃ²»ÒªÓÃËü£¬Ëü»á´øÀ´ÊäÈëÀ§ÄÑ¡£
ÆÕͨÀàÐ͵ıäÁ¿£¬Ö»ÒªÓÃÓÐÒâÒåµÄÃû×ÖÃüÃû¼´¿É£¬²»¿ÉʹÓüò³ÆºÍÎÞÒâÒåµÄÃû³ÆÖîÈçA£¬x1µÈ£¬ÏÂÃæ¸ø³öÁËÁ¼ºÃµÄÀý×Ó£º
Dim Index As Integer
Dim NextMonthExpenditure As Decimal
Dim CustomerName As String
²»ÄÜÆðÌ«³¤µÄÃû×Ö£¬Ó¦¸Ã¾¡Á¿¼ò½à£¬ÈçÏÂÃæµÄÀý×Ó£º
Dim VariableUsedToStoreSystemInformation As String '* ´íÎó£¬Ì«¸´ÔÓÁË
Dim SystemInformation As String '* ÕýÈ·£¬¼òµ¥Ã÷ÁË
Dim sysInfo As String '* ´íÎ󣬹ýÓÚ¼òµ¥
ÌØÊâÇé¿ö¿ÉÒÔ¿¼ÂÇÒ»¸ö×ÖĸµÄ±äÁ¿£º
Dim g As Graphic
¶ÔÓڿؼþ£¬Ó¦¸ÃÖ¸Ã÷¿Ø¼þµÄÀàÐÍ£¬·½·¨ÊÇÖ±½ÓÔÚ±äÁ¿ºóÃæ¼ÓÒÔÀàÃû£º
Friend WithEvents NextPageButton As Button '* °´Å¥
Friend WithEvents ColorChoicerPanel As Panel '* Ãæ°æ
Friend WithEvents CardFileOpenDialog As FileOpenDialog '* Îļþ´ò¿ª¶Ô»°¿ò
µÈµÈ£¬ÎÞÐè¹æ¶¨Ä³ÖÖÀàÐ͵ıäÁ¿µÄǰ׺£¬Ö»Ðè°ÑÀàÐÍдÔÚºóÃæ¾ÍÐÐÁË£¬ÊÔ¶Ô±ÈÏÂÁдúÂ룺
btnCancel.Text = "&Cancel"
CancelButton.Text = "&Cancel"
ÏÔÈ»ºóÕ߸üÄÜʹÔĶÁÕßÃ÷°×±äÁ¿µÄÀàÐÍÊÇÒ»¸ö°´Å¥¡£
ËÄ¡¢Ç°×º
1¡¢ ¶ÔÏó
1)±ê×¼¶ÔÏó
Ãû³Æ
ǰ׺
Àý×Ó
˵Ã÷
System.Array
arr
arrUsers
Óû§¼¯ºÏ
System.Boolean
bln
blnDoesUserExist
Óû§ÊÇ·ñ´æÔÚ
System.Byte
byt
bytStreamContent
×Ö½ÚÁ÷ÄÚÈÝ
System.Char
chr
chrKeyPress
°´¼ü
System.DateTime
dte
dteCreatedDateTime
´´½¨ÈÕÆÚ
System.Decimal
dec
decYearlySaleQuota
Äê¶ÈÏúÊÛ¶î
System.Double
dbl
dblTotalPrice
×ܽð¶î
System.Interger
int
intMessages
ÏûÏ¢Êý
System.Object
obj
objExternalFunction
Íⲿ¹¦ÄÜ
System.Single
sng
sngFinishRate
Íê³ÉÂÊ
System.String
str
strLoginName
µÇ½Ãû³Æ
System.Exception
exc
excRet
´íÎó
System.Enum
enm
enmUserStates
Óû§×´Ì¬
Structure
stu
stuEmployees
Ô±¹¤ÀàÐÍ
System.Data.SqlClient.SqlConnection
cnn
cnnDatabase
Êý¾Ý¿âÁ¬½Ó
System.Data.SqlClient.SqlCommand
cmm
cmmUserAddUpdate
Óû§Ìí¼Ó¸üÐÂ
System.Data.SqlClient.SqlDataAdapter
sda
sdaUsers
Óû§Êý¾ÝÊÊÅäÆ÷
System.Data.SqlClient.SqlDataReader
sdr
sdrUserData
Óû§Êý¾Ý¶ÁÈ¡Æ÷
2)×Ô¶¨Òå¶ÔÏó
ÎÒÃǹ涨Ӧ¸Ã¸ù¾Ý×Ô¶¨Òå¶ÔÏóµÄÃû³ÆÀ´È·¶¨¸Ã¶ÔÏóÀàÐ͵Äǰ׺£¬Àý×ÓÈçÏÂ:
¶ÔÏó£ºSysSet
ǰ׺£ºss
Àý×Ó£ºssSafety
2¡¢¸ù¾Ý±äÁ¿Óë³£Á¿µÄÉú´æÖÜÆÚ£¬ÎÒÃÇÓ¦¸Ã¶¨Ò岻ͬµÄÉú´æÖÜÆÚǰ׺ÒÔÊ¾Çø±ð£¬ÒÔ±ãÎÒÃÇÇå³þ¸Ã±äÁ¿/³£Á¿µÄ·¶Î§¡£
a) Àࡢģ¿é¡¢×é¼þ¡¢¿Ø¼þ
ÎÒÃǹ涨ÔÚÀࡢģ¿é¡¢×é¼þ¡¢¿Ø¼þ·¶Î§ÄÚ£¬±äÁ¿µÄÉú´æÖÜÆÚǰ׺Ӧ¸ÃÌí¼Ó“m_”(Module£Ä£¿é)¡£Àý×ÓÈçÏ£º
Ãû³Æ
ǰ׺
Àý×Ó
˵Ã÷
System.Array
m_arr
m_arrUsers
Óû§¼¯ºÏ
System.Boolean
m_bln
m_blnDoesUserExist
Óû§ÊÇ·ñ´æÔÚ
System.Byte
m_byt
m_bytStreamContent
×Ö½ÚÁ÷ÄÚÈÝ
System.Char
m_chr
m_chrKeyPress
°´¼ü
System.DateTime
m_dte
m_dteCreatedDateTime
´´½¨ÈÕÆÚ
System.Decimal
m_dec
m_decYearlySaleQuota
Äê¶ÈÏúÊÛ¶î
System.Double
m_dbl
m_dblTotalPrice
×ܽð¶î
System.Interger
m_int
m_intMessages
ÏûÏ¢Êý
System.Object
m_obj
m_objExternalFunction
Íⲿ¹¦ÄÜ
System.Single
m_sng
m_sngFinishRate
Íê³ÉÂÊ
System.String
m_str
m_strLoginName
µÇ½Ãû³Æ
System.Exception
m_exc
m_excRet
´íÎó
System.Enum
m_enm
m_enmUserStates
Óû§×´Ì¬
Structure
m_stu
m_stuEmployees
Ô±¹¤ÀàÐÍ
System.Data.SqlClient.SqlConnection
m_cnn
m_cnnDatabase
Êý¾Ý¿âÁ¬½Ó
System.Data.SqlClient.SqlCommand
m_cmm
m_cmmUserAddUpdate
Óû§Ìí¼Ó¸üÐÂ
System.Data.SqlClient.SqlDataAdapter
m_sda
m_sdaUsers
Óû§Êý¾ÝÊÊÅäÆ÷
System.Data.SqlClient.SqlDataReader
m_sdr
m_sdrUserData
Óû§Êý¾Ý¶ÁÈ¡Æ÷
b) ¹ý³Ì¡¢º¯Êý¡¢ÊôÐÔ¡¢Ê¼þ
ÎÒÃǹ涨ÔÚ¹ý³Ì¡¢º¯Êý¡¢ÊôÐÔ¡¢Ê¼þ·¶Î§ÄÚ£¬±äÁ¿µÄÉú´æÖÜÆÚǰ׺Ӧ¸ÃÌí¼Ó“o_”(Owner£Ë½ÓÐ)¡£Àý×ÓÈçÏ£º
Ãû³Æ
ǰ׺
Àý×Ó
˵Ã÷
System.Array
o_arr
o_arrUsers
Óû§¼¯ºÏ
System.Boolean
o_bln
o_blnDoesUserExist
Óû§ÊÇ·ñ´æÔÚ
System.Byte
o_byt
o_bytStreamContent
×Ö½ÚÁ÷ÄÚÈÝ
System.Char
o_chr
o_chrKeyPress
°´¼ü
System.DateTime
o_dte
o_dteCreatedDateTime
´´½¨ÈÕÆÚ
System.Decimal
o_dec
o_decYearlySaleQuota
Äê¶ÈÏúÊÛ¶î
System.Double
o_dbl
o_dblTotalPrice
×ܽð¶î
System.Interger
o_int
o_intMessages
ÏûÏ¢Êý
System.Object
o_obj
o_objExternalFunction
Íⲿ¹¦ÄÜ
System.Single
o_sng
o_sngFinishRate
Íê³ÉÂÊ
System.String
o_str
o_strLoginName
µÇ½Ãû³Æ
System.Exception
o_exc
o_excRet
´íÎó
System.Enum
o_enm
o_enmUserStates
Óû§×´Ì¬
Structure
o_stu
o_stuEmployees
Ô±¹¤ÀàÐÍ
System.Data.SqlClient.SqlConnection
o_cnn
o_cnnDatabase
Êý¾Ý¿âÁ¬½Ó
System.Data.SqlClient.SqlCommand
o_cmm
o_cmmUserAddUpdate
Óû§Ìí¼Ó¸üÐÂ
System.Data.SqlClient.SqlDataAdapter
o_sda
o_sdaUsers
Óû§Êý¾ÝÊÊÅäÆ÷
System.Data.SqlClient.SqlDataReader
o_sdr
o_sdrUserData
Óû§Êý¾Ý¶ÁÈ¡Æ÷
Îå¡¢±êÇ©
±êÇ©¾ÍÊÇÓÃÓÚGotoÌø×ªµÄ´úÂë±êʶ£¬ÓÉÓÚGoto²¢²»ÍƼöʹÓã¬ËùÒÔ±êÇ©µÄʹÓÃÒ²±È½Ï¿Á¿Ì¡£±êÇ©±ØÐëÈ«²¿´óд£¬ÖмäµÄ¿Õ¸ñÓÃÏ»®Ïß_´úÌæ£¬¶øÇÒÓ¦¸ÃÒÔ_¿ªÍ·£¬±ÈÈ磺
_A_LABEL_EXAMPLE:
Èç´Ë¶¨Òå±êÇ©ÊÇΪÁËÓëÆäËû´úÂëÔªËØ³ä·ÖÇø±ð¡£
Áù¡¢Ãû×Ö¿Õ¼ä
ͨ³££¬Ò»¸ö¹¤³ÌʹÓÃÒ»¸öÃû×ֿռ䣬ͨ³£²»ÐèÒªÓÃNamespaceÓï¾ä£¬¶øÊÇÔÚ¹¤³ÌÑ¡ÏîµÄ“Root Namespace”ÖÐÖ¸¶¨£¬Ê¹ÓøùÃû×Ö¿Õ¼ä¿ÉÒÔʹ´úÂë¸ü¼ÓÕûÆë£¬ÈÝÒ×Ð޸ģ¬ÕâÒ»µãÊÇVBÊ®×ãµÄÓŵ㡣Ãû×Ö¿Õ¼äµÄÓï·¨ÊÇ£º
¹«Ë¾Ãû.²úÆ·Ãû[.×é¼þÃûµÄ¸´Êý]
È磺
Namespace COM.NET
Namespace COM.File.IO.Files
Ëæ±ãÆðÒ»¸öÃû×Ö¿Õ¼äµÄÃû×Ö¾ø¶Ô²»ÊÇÒ»¸öºÃÖ÷Ò⣬һ¶¨Òª×ñÊØÉÏÊö¹æ¶¨¡£
Æß¡¢¸ñʽ»¯
Á¼ºÃµÄ¸ñʽ»¯´úÂë¶ÔÎÒÃǵÄä¯ÀÀÓëά»¤ÓÐÏ൱µÄºÃ´¦¡£
1¡¢ ¿é
.NETÌṩÁË#Region...#End Region¿é¿ØÖÆ¡£ÎÒÃÇÓ¦¸Ã¸ù¾Ý´úÂëËùʵÏֵŦÄÜ·ÖÀಢÒÔ¿é×éÖ¯ÆðÀ´¡£
2¡¢ Ëõ½ø
ÿ¸ö²ã´ÎÖ±½Ó¶¼Ó¦¸ÃÒÔTab½øÐÐËõ½ø£¬¶ø²»ÊÇSpace(¿Õ¸ñ¼ü)¡£
3¡¢ Á÷
ÿ¸ö·½·¨¡¢º¯Êý¡¢ÊôÐÔ¡¢Ê¼þÓ¦¸ÃÓÐÇÒÖ»ÓÐÒ»¸öÈë¿ÚºÍÒ»¸ö³ö¿Ú¡£Èç¹ûÓö¼û¶à²ãǶÌ×¶øÐèÒªÖ±½ÓÌø³öµÄʱºò£¬ÇëʹÓþֲ¿Boolean»òÕßInteger±äÁ¿À´±êʾÓÃÒÔ¶à²ãÌø³ö¡£
Æ©È磺
Private Function TestForReturn () As Boolean
Dim o_blnRet As Boolean=False
Dim i As Integer, l As Integer
For i=1 To 100
For l=1 To 10
If (x) Then
o_blnRet=True
Exit For
Else
End If
Next
If o_blnRet Then
Exit For
Else
End If
Next
Return o_blnRet 'ÕâÀïÊÇΨһ³ö¿Ú
End Function
°Ë¡¢×¢ÊÍ
1¡¢ ×¼Ôò
×¢Ê͵ĹæÔò·±¶à£¬»ù±¾µØ£ºÕý³£µÄ×¢ÊÍÒÔ'*¿ªÍ·£¬µ¥¶ÀµÄ'Ö»ÓÃÀ´×¢ÊÍÔÝʱ²»ÓõĴúÂë
'* ÕâÊÇÆÕͨµÄ×¢ÊÍ
'* Õâ¶Î´úÂëÔÚµ÷ÊÔÕýÈ·ºó¼ÓÈë
'If UseHighSpeed(i) = True Then ....
ÕâÑùÄܹ»·½±ãµÄ²ÉÓôúÂë×¢Ê͹¤¾ß¿ØÖÆ´úÂëµÄʹÓá£
2¡¢Àࣨ°üÀ¨WebForm¡¢WinFormµÈ£©¡¢Ä£¿é¡¢×é¼þ¡¢¿Ø¼þ
ÿ¸öÀࡢģ¿é¡¢×é¼þ¡¢¿Ø¼þ×ʼµÄµØ·½±ØÐëÊäÈë¸Ã¶ÔÏóµÄÐÅÏ¢£¬ÑùÀýÄÚÈÝÓë¸ñʽÈçÏ£º
'******************************************************************
'*
'* ¶ÔÏóÃû³Æ£ºOnlineUpdateService
'* ÃüÃû¿Õ¼ä£º http://www.domain.cn/onlineupdate/OnlineUpdateService.asmx
'* ×÷ Õߣºchs(Wilson Chan)
'* ¹¦ÄÜ˵Ã÷£ºÔÚÏ߸üÐÂWeb Services
'* ´´½¨ÈÕÆÚ£º2003/07/27
'* ÐÞ¸ÄÈÕÆÚ£º2003/09/5 16:59
'* Ð޸ļǼ£º
'* ¡õ2003/07/31
'* 1.AddUpdateUserCategory/DeleteUserCategory
'* 2.AddUpdateUserState/DeleteUserState
'* 3.AddUpdateServerUpdate/DeleteServerUpdate
'* 4.AddUpdateClientUpdate/DeleteClientUpdate
'* 5.AddUpdateClientUpdateLog/DeleteClientUpdateLog
'* 6.GetServerUpdates/GetClientUpdates/GetClientUpdateLogs
'*
'******************************************************************
Ò»°ãµØ£¬ÎÒÃÇÒªÇóÄÚÈÝÓУº¶ÔÏóÃû³Æ¡¢ÃüÃû¿Õ¼ä¡¢×÷Õß¡¢¹¦ÄÜ˵Ã÷¡¢´´½¨ÈÕÆÚ¡¢ÐÞ¸ÄÈÕÆÚ¡¢Ð޸ļǼ£¬ÌØ±ðµØ£¬ÎÒÃÇÒªÇóÐ޸ļǼӦ¸ÃÏêϸÐðÊö×î½üµÄÐ޸ġ£
3¡¢·½·¨¡¢º¯Êý¡¢Ê¼þÓëÊôÐÔ
ÿ¸ö·½·¨¡¢º¯Êý¡¢Ê¼þÓëÊôÐÔ×ʼµÄµØ·½±ØÐëÊäÈë¸Ã¶ÔÏóµÄÐÅÏ¢£¬ÑùÀýÄÚÈÝÓë¸ñʽÈçÏ£º
'*Ãû³Æ£ºOnlineUpdateFileAddUpdate
'*¹¦ÄÜ£ºÌí¼Ó¸ü¸Ä¸üÐÂÐÅÏ¢
'*×÷Õߣºchs
'*´´½¨£º2003/7/31
'*Ð޸ģº2003/7/31
'*²ÎÊý£ºintID£ºÎ¨Ò»±êʾ
'* strTitle£º±êÌâ
'* strVersion£º°æ±¾
'* strVerifier£º±êʾ
'* strDescription£ºÃèÊö
'* strRelatedFile£ºÏà¹ØÎļþ
'* strUpdatePackage£ºÏÂÔØ°ü
'* intState£º×´Ì¬
'* dteCreatedDateTime£º´´½¨ÈÕÆÚ
'*·µ»Ø£º³É¹¦£¬True£¬·´Ö®£¬False
'*˵Ã÷£º
Ò»°ãµØ£¬ÎÒÃÇÒªÇóÄÚÈÝÓУºÃû³Æ¡¢¹¦ÄÜ¡¢×÷Õß¡¢ËµÃ÷¡¢´´½¨¡¢Ð޸ġ¢²ÎÊýÓë·µ»Ø¡£
°Ë¡¢ÍêÕûÐÔ
1¡¢If...Else...End If
2¡¢Select Case...Case Else...End Select
¾Å¡¢°²È«ÐÔ
1¡¢Try...Catch...Finally...End Try
Ê®¡¢ÓÅ»¯
1¡¢With
2¡¢For...Next
3¡¢Do Until...Loop
4¡¢´úÂëÖØ¹¹
ʮһ¡¢ÆäËü
1¡¢ ¿ì½Ý¼ü
2¡¢
±¾ÎĵØÖ·£ºhttp://com.8s8s.com/it/it42402.htm