用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码

				
				
					
						
											    Public MustInherit Class Vehicle
				        'Property holders
				        Private mFuelCapacity As Integer
				        Public Property FuelCapacity() As Integer
				            Set
				                mFuelCapacity = Value
				            End Set
				            Get
				                FuelCapacity = mFuelCapacity
				            End Get
				        End Property
				    End Class
				End Namespace
				Me.cboVehicleType.SelectedIndex = 0
				#Region " Windows Form Designer generated code "
				Me.ResumeLayout(False)
				#End Region
				Dim Vehicle As Object
				Vehicle.FuelCapacity = CInt(Me.txtFuelCapacity.Text)
				Me.lblComputedRange.Text = "Your Vehicle's Range is: " & Range.ToString()
				
				
				" History=""/>
							
						
						
						
						
							
							
							
								
									
									
									
									
									
									
										
									
									
								
								
									
									
									
									
									
									
										
									
									
								
												3DHIGHLIGHT
				3DLIGHT
				ABORT
				ABORTRETRYIGNORE
				ACTIVEBORDER
				ACTIVETITLEBAR
				ALIAS
				APPLICATIONMODAL
				APPLICATIONWORKSPACE
				ARCHIVE
				BACK
				BINARYCOMPARE
				BLACK
				BLUE
				BUTTONFACE
				BUTTONSHADOW
				BUTTONTEXT
				CANCEL
				CDROM
				CR
				CRITICAL
				CRLF
				CYAN
				DEFAULT
				DEFAULTBUTTON1
				DEFAULTBUTTON2
				DEFAULTBUTTON3
				DESKTOP
				DIRECTORY
				EXCLAMATION
				FALSE
				FIXED
				FORAPPENDING
				FORMFEED
				FORREADING
				FORWRITING
				FROMUNICODE
				GRAYTEXT
				GREEN
				HIDDEN
				HIDE
				HIGHLIGHT
				HIGHLIGHTTEXT
				HIRAGANA
				IGNORE
				INACTIVEBORDER
				INACTIVECAPTIONTEXT
				INACTIVETITLEBAR
				INFOBACKGROUND
				INFORMATION
				INFOTEXT
				KATAKANA
				LF
				LOWERCASE
				MAGENTA
				MAXIMIZEDFOCUS
				MENUBAR
				MENUTEXT
				METHOD
				MINIMIZEDFOCUS
				MINIMIZEDNOFOCUS
				MSGBOXRIGHT
				MSGBOXRTLREADING
				MSGBOXSETFOREGROUND
				NARROW
				NEWLINE
				NO
				NORMAL
				NORMALFOCUS
				NORMALNOFOCUS
				NULLSTRING
				OBJECTERROR
				OK
				OKCANCEL
				OKONLY
				PROPERCASE
				QUESTION
				RAMDISK
				READONLY
				RED
				REMOTE
				REMOVABLE
				RETRY
				RETRYCANCEL
				SCROLLBARS
				SYSTEMFOLDER
				SYSTEMMODAL
				TAB
				TEMPORARYFOLDER
				TEXTCOMPARE
				TITLEBARTEXT
				TRUE
				UNICODE
				UNKNOWN
				UPPERCASE
				VERTICALTAB
				VOLUME
				WHITE
				WIDE
				WIN16
				WIN32
				WINDOWBACKGROUND
				WINDOWFRAME
				WINDOWSFOLDER
				WINDOWTEXT
				YELLOW
				YES
				YESNO
				YESNOCANCEL
				">
									
								
												BYTE
				DATE
				DECIMIAL
				DOUBLE
				INTEGER
				LONG
				OBJECT
				SINGLE
				STRING
				">
									
								
												BEEP
				CALL
				CHDIR
				CHDRIVE
				CLASS
				CASE
				CATCH
				DECLARE
				DELEGATE
				DELETESETTING
				DIM
				DO
				DOEVENTS
				END
				ENUM
				EVENT
				EXIT
				EACH
				FUNCTION
				FINALLY
				IF
				IMPORTS
				INHERITS
				INTERFACE
				IMPLEMENTS
				KILL
				LOOP
				MIDB
				NAMESPACE
				OPEN
				PUT
				RAISEEVENT
				RANDOMIZE
				REDIM
				REM
				RESET
				SAVESETTING
				SELECT
				SETATTR
				STOP
				SUB
				SYNCLOCK
				STRUCTURE
				SHADOWS
				SWITCH
				TIMEOFDAY
				TODAY
				TRY
				WIDTH
				WITH
				WRITE
				WHILE
				As
				ADDHANDLER
				ASSEMBLY
				AUTO
				Binary
				ByRef
				ByVal
				BEGINEPILOGUE
				Else
				Empty
				Error
				ENDPROLOGUE
				EXTERNALSOURCE
				ENVIRON
				For
				Friend
				GET
				HANDLES
				Input
				Is
				Len
				Lock
				Me
				Mid
				MUSTINHERIT
				MYBASE
				MYCLASS
				New
				Next
				Nothing
				Null
				NOTINHERITABLE
				NOTOVERRIDABLE
				OFF
				On
				Option
				Optional
				OVERRIDABLE
				ParamArray
				Print
				Private
				Property
				Public
				Resume
				Seek
				Static
				Step
				String
				SHELL
				SENDKEYS
				SET
				Then
				Time
				To
				THROW
				WithEvents
				">
									
								
												DEBUG
				DICTIONARY
				DRIVE
				DRIVES
				ERR
				FILE
				FILES
				FILESYSTEMOBJECT
				FOLDER
				FOLDERS
				TEXTSTREAM
				">
									
								
												&=
				*
				*=
				+
				+=
				-
				-=
				//
				/
				/=
				=
				\
				\=
				^
				^=
				ADDRESSOF
				AND
				BITAND
				BITNOT
				BITOR
				BITXOR
				GETTYPE
				LIKE
				MOD
				NOT
				OR
				XOR
				">
									
								
												ARRAY
				ASC
				ASCB
				ASCW
				CALLBYNAME
				CBOOL
				CBYTE
				CCHAR
				CCHR
				CDATE
				CDBL
				CDEC
				CHOOSE
				CHR
				CHR$
				CHRB
				CHRB$
				CHRW
				CINT
				CLNG
				CLNG8
				CLOSE
				COBJ
				COMMAND
				COMMAND$
				CONVERSION
				COS
				CREATEOBJECT
				CSHORT
				CSTR
				CURDIR
				CTYPE
				CVDATE
				DATEADD
				DATEDIFF
				DATEPART
				DATESERIAL
				DATEVALUE
				DAY
				DDB
				DIR
				DIR$
				EOF
				ERROR$
				EXP
				FILEATTR
				FILECOPY
				FILEDATATIME
				FILELEN
				FILTER
				FIX
				FORMAT
				FORMAT$
				FORMATCURRENCY
				FORMATDATETIME
				FORMATNUMBER
				FORMATPERCENT
				FREEFILE
				FV
				GETALLSETTINGS
				GETATTRGETOBJECT
				GETSETTING
				HEX
				HEX$
				HOUR
				IIF
				IMESTATUS
				INPUT$
				INPUTB
				INPUTB$
				INPUTBOX
				INSTR
				INSTRB
				INSTRREV
				INT
				IPMT
				IRR
				ISARRAY
				ISDATE
				ISEMPTY
				ISERROR
				ISNULL
				ISNUMERIC
				ISOBJECT
				JOIN
				LBOUND
				LCASE
				LCASE$
				LEFT
				LEFT$
				LEFTB
				LEFTB$
				LENB
				LINEINPUT
				LOC
				LOF
				LOG
				LTRIM
				LTRIM$
				MID$
				MIDB
				MIDB$
				MINUTE
				MIRR
				MKDIR
				MONTH
				MONTHNAME
				MSGBOX
				NOW
				NPER
				NPV
				OCT
				OCT$
				PARTITION
				PMT
				PPMT
				PV
				RATE
				REPLACE
				RIGHT
				RIGHT$
				RIGHTB
				RIGHTB$
				RMDIR
				RND
				RTRIM
				RTRIM$
				SECOND
				SIN
				SLN
				SPACE
				SPACE$
				SPC
				SPLIT
				STR
				STR$
				STRCOMP
				STRCONV
				STRING$
				STRREVERSE
				SYD
				TAB
				TAN
				TIMEOFDAY
				TIMER
				TIMESERIAL
				TIMEVALUE
				TODAY
				TRIM
				TRIM$
				TYPENAME
				UBOUND
				UCASE
				UCASE$
				VAL
				WEEKDAY
				WEEKDAYNAME
				YEAR
				">
									
								
												ATN
				CALENDAR
				CIRCLE
				CURRENCY
				DEFBOOL
				DEFBYTE
				DEFCUR
				DEFDATE
				DEFDBL
				DEFDEC
				DEFINT
				DEFLNG
				DEFOBJ
				DEFSNG
				DEFSTR
				DEFVAR
				EQV
				GOSUB
				IMP
				INITIALIZE
				ISMISSING
				LET
				LINE
				LSET
				RSET
				SGN
				SQR
				TERMINATE
				VARIANT
				VARTYPE
				WEND
				">
									
								
												#End Region
				Namespace
				">