VB.NET/ASP.NET±àÂë¹æ·¶(ZT)

Àà±ð£º.NET¿ª·¢ µã»÷£º0 ÆÀÂÛ£º0 ÍÆ¼ö£º

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