📄 visual basic.xml
字号:
<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
<SyntaxColoring>
<Info>
<General Name="Visual Basic" Extensions="BAS FRM CLS VBS ASP INC" Version="1" Revision="0" Sample="Attribute VB_Name = "Utilities"
' Purpose: Provide a set of utility functions
Option Explicit
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
ByVal pDefault As Long) As Long
Private Const DC_BINS = 6
Private Const DC_BINNAMES = 12
Public Sub EnumPrinterBins(PrinterName As String, cbo As ComboBox)
Dim hPrinter As Long ' Handle of the selected printer
For i = 1 To dwbins
' For each bin number, add its corresponding name
' to our combo box
NameBin = Mid(nameslist, 24 * (i - 1) + 1, 24)
NameBin = Left(NameBin, InStr(1, NameBin, Chr(0)) - 1)
cbo.AddItem NameBin
cbo.ItemData(cbo.NewIndex) = numBin(i)
Next i
Call ClosePrinter(hPrinter)
End Sub
" History=""/>
<Author Name="Vitaly Nevzorov" Mail="nevzorov@yahoo.com" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
</Info>
<Schemes/>
<Editor/>
<MainRules Name="SyntaxColoring" Style="Root">
<Attributes Foreground="clBlack" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<SubRules>
<Range Name="Remarks" CaseSensitive="True" Style="Remarks">
<Attributes Foreground="$00A00000" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnEol="True"/>
<MultiTokens>
<Tokens Open="'"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Strings" CaseSensitive="True" Style="Strings">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open=""" Close="""/>
</MultiTokens>
<SubRules/>
</Range>
<KeyList Name="Functions" Enabled="True" Style="" Words="Abs
Array
Asc
AscB
AscW
Atn
Avg
CBool
CByte
CCur
CDate
CDbl
Cdec
Choose
Chr
ChrB
ChrW
CInt
CLng
Command
Cos
Count
CreateObject
CSng
CStr
CurDir
CVar
CVDate
CVErr
Date
DateAdd
DateDiff
DatePart
DateSerial
DateValue
Day
DDB
Dir
DoEvents
Environ
EOF
Error
Exp
FileAttr
FileDateTime
FileLen
Fix
Format
FreeFile
FV
GetAllStrings
GetAttr
GetAutoServerSettings
GetObject
GetSetting
Hex
Hour
IIf
IMEStatus
Input
InputB
InputBox
InStr
InstB
Int
IPmt
IsArray
IsDate
IsEmpty
IsError
IsMissing
IsNull
IsNumeric
IsObject
LBound
LCase
Left
LeftB
Len
LenB
LoadPicture
Loc
LOF
Log
LTrim
Max
Mid
MidB
Min
Minute
MIRR
Month
MsgBox
Now
NPer
NPV
Oct
Partition
Pmt
PPmt
PV
QBColor
Rate
RGB
Right
RightB
Rnd
RTrim
Second
Seek
Sgn
Shell
Sin
SLN
Space
Spc
Sqr
StDev
StDevP
Str
StrComp
StrConv
String
Switch
Sum
SYD
Tab
Tan
Time
Timer
TimeSerial
TimeValue
Trim
TypeName
UBound
UCase
Val
Var
VarP
VarType
Weekday
Year
">
<Attributes Foreground="clGreen" Background="clWhite"/>
</KeyList>
<KeyList Name="Methods" Enabled="True" Style="" Words="Accept
Activate
Add
AddCustom
AddFile
AddFromFile
AddFromTemplate
AddItem
AddNew
AddToAddInToolbar
AddToolboxProgID
Append
AppendChunk
Arrange
Assert
AsyncRead
BatchUpdate
BeginTrans
Bind
Cancel
CancelAsyncRead
CancelBatch
CancelUpdate
CanPropertyChange
CaptureImage
CellText
CellValue
Circle
Clear
ClearFields
ClearSel
ClearSelCols
Clone
Close
Cls
ColContaining
ColumnSize
CommitTrans
CompactDatabase
Compose
Connect
Copy
CopyQueryDef
CreateDatabase
CreateDragImage
CreateEmbed
CreateField
CreateGroup
CreateIndex
CreateLink
CreatePreparedStatement
CreatePropery
CreateQuery
CreateQueryDef
CreateRelation
CreateTableDef
CreateUser
CreateWorkspace
Customize
Delete
DeleteColumnLabels
DeleteColumns
DeleteRowLabels
DeleteRows
DoVerb
Drag
Draw
Edit
EditCopy
EditPaste
EndDoc
EnsureVisible
EstablishConnection
Execute
ExtractIcon
Fetch
FetchVerbs
Files
FillCache
Find
FindFirst
FindItem
FindLast
FindNext
FindPrevious
Forward
GetBookmark
GetChunk
GetClipString
GetData
GetFirstVisible
GetFormat
GetHeader
GetLineFromChar
GetNumTicks
GetRows
GetSelectedPart
GetText
GetVisibleCount
GoBack
GoForward
Hide
HitTest
HoldFields
Idle
InitializeLabels
InsertColumnLabels
InsertColumns
InsertObjDlg
InsertRowLabels
InsertRows
Item
KillDoc
Layout
Line
LinkExecute
LinkPoke
LinkRequest
LinkSend
Listen
LoadFile
LoadResData
LoadResPicture
LoadResString
LogEvent
MakeCompileFile
MakeReplica
MoreResults
Move
MoveData
MoveFirst
MoveLast
MoveNext
MovePrevious
NavigateTo
NewPage
NewPassword
NextRecordset
OLEDrag
OnAddinsUpdate
OnConnection
OnDisconnection
OnStartupComplete
Open
OpenConnection
OpenDatabase
OpenQueryDef
OpenRecordset
OpenResultset
OpenURL
Overlay
PaintPicture
Paste
PastSpecialDlg
PeekData
Play
Point
PopulatePartial
PopupMenu
Print
PrintForm
PropertyChanged
PSet
Quit
Raise
RandomDataFill
RandomFillColumns
RandomFillRows
rdoCreateEnvironment
rdoRegisterDataSource
ReadFromFile
ReadProperty
Rebind
ReFill
Refresh
RefreshLink
RegisterDatabase
Reload
Remove
RemoveAddInFromToolbar
RemoveItem
Render
RepairDatabase
Reply
ReplyAll
Requery
ResetCustom
ResetCustomLabel
ResolveName
RestoreToolbar
Resync
Rollback
RollbackTrans
RowBookmark
RowContaining
RowTop
Save
SaveAs
SaveFile
SaveToFile
SaveToolbar
SaveToOle1File
Scale
ScaleX
ScaleY
Scroll
Select
SelectAll
SelectPart
SelPrint
Send
SendData
Set
SetAutoServerSettings
SetData
SetFocus
SetOption
SetSize
SetText
SetViewport
Show
ShowColor
ShowFont
ShowHelp
ShowOpen
ShowPrinter
ShowSave
ShowWhatsThis
SignOff
SignOn
Size
Span
SplitContaining
StartLabelEdit
StartLogging
Stop
Synchronize
TextHeight
TextWidth
ToDefaults
TwipsToChartPart
TypeByChartType
Update
UpdateControls
UpdateRecord
UpdateRow
Upto
WhatsThisMode
WriteProperty
ZOrder
">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
</KeyList>
<KeyList Name="Events" Enabled="True" Style="" Words="AccessKeyPress
AfterAddFile
AfterChangeFileName
AfterCloseFile
AfterColEdit
AfterColUpdate
AfterDelete
AfterInsert
AfterLabelEdit
AfterRemoveFile
AfterUpdate
AfterWriteFile
AmbienChanged
ApplyChanges
Associate
AsyncReadComplete
AxisActivated
AxisLabelActivated
AxisLabelSelected
AxisLabelUpdated
AxisSelected
AxisTitleActivated
AxisTitleSelected
AxisTitleUpdated
AxisUpdated
BeforeClick
BeforeColEdit
BeforeColUpdate
BeforeConnect
BeforeDelete
BeforeInsert
BeforeLabelEdit
BeforeLoadFile
BeforeUpdate
ButtonClick
ButtonCompleted
ButtonGotFocus
ButtonLostFocus
Change
ChartActivated
ChartSelected
ChartUpdated
Click
ColEdit
Collapse
ColResize
ColumnClick
Compare
ConfigChageCancelled
ConfigChanged
ConnectionRequest
DataArrival
DataChanged
DataUpdated
DblClick
Deactivate
DeviceArrival
DeviceOtherEvent
DeviceQueryRemove
DeviceQueryRemoveFailed
DeviceRemoveComplete
DeviceRemovePending
DevModeChange
Disconnect
DisplayChanged
Dissociate
DoGetNewFileName
Done
DonePainting
DownClick
DragDrop
DragOver
DropDown
EditProperty
EnterCell
EnterFocus
Event
ExitFocus
Expand
FootnoteActivated
FootnoteSelected
FootnoteUpdated
GotFocus
HeadClick
InfoMessage
Initialize
IniProperties
ItemActivated
ItemAdded
ItemCheck
ItemClick
ItemReloaded
ItemRemoved
ItemRenamed
ItemSeletected
KeyDown
KeyPress
KeyUp
LeaveCell
LegendActivated
LegendSelected
LegendUpdated
LinkClose
LinkError
LinkNotify
LinkOpen
Load
LostFocus
MouseDown
MouseMove
MouseUp
NodeClick
ObjectMove
OLECompleteDrag
OLEDragDrop
OLEDragOver
OLEGiveFeedback
OLESetData
OLEStartDrag
OnAddNew
OnComm
Paint
PanelClick
PanelDblClick
PathChange
PatternChange
PlotActivated
PlotSelected
PlotUpdated
PointActivated
PointLabelActivated
PointLabelSelected
PointLabelUpdated
PointSelected
PointUpdated
PowerQuerySuspend
PowerResume
PowerStatusChanged
PowerSuspend
QueryChangeConfig
QueryComplete
QueryCompleted
QueryTimeout
QueryUnload
ReadProperties
Reposition
RequestChangeFileName
RequestWriteFile
Resize
ResultsChanged
RowColChange
RowCurrencyChange
RowResize
RowStatusChanged
SelChange
SelectionChanged
SendComplete
SendProgress
SeriesActivated
SeriesSelected
SeriesUpdated
SettingChanged
SplitChange
StateChanged
StatusUpdate
SysColorsChanged
Terminate
TimeChanged
TitleActivated
TitleSelected
TitleActivated
UnboundAddData
UnboundDeleteRow
UnboundGetRelativeBookmark
UnboundReadData
UnboundWriteData
Unload
UpClick
Updated
Validate
ValidationError
WillAssociate
WillChangeData
WillDissociate
WillExecute
WillUpdateRows
WithEvents
WriteProperties
">
<Attributes Foreground="$000080FF" Background="clWhite"/>
</KeyList>
<KeyList Name="Statements" Enabled="True" Style="" Words="AppActivate
Base
Beep
Call
Case
ChDir
ChDrive
Const
Declare
DefBool
DefByte
DefCur
DefDate
DefDbl
DefDec
DefInt
DefLng
DefObj
DefSng
DefStr
Deftype
DefVar
DeleteSetting
Dim
Do
Else
ElseIf
End
Enum
Erase
Event
Exit
Explicit
False
FileCopy
For
ForEach
Friend
Function
Get
GoSub
GoTo
If
Implements
Kill
Let
LineInput
Lock
Loop
LSet
MkDir
Name
Next
Not
OnError
On
Option
Private
Property
Public
Put
RaiseEvent
Randomize
ReDim
Rem
Reset
Resume
Return
RmDir
RSet
SavePicture
SaveSetting
SendKeys
SetAttr
Static
Sub
Then
True
Type
Unlock
Wend
While
Width
With
Write
">
<Attributes Foreground="clBlue" Background="clWhite"/>
</KeyList>
</SubRules>
</MainRules>
</SyntaxColoring>
<CodeFolding>
<FoldRegion Name="Function" Type="1">
<OpenToken Symbol="FUNCTION"/>
<CloseToken Symbol="END FUNCTION"/>
<Properties WholeWords="True"/>
<SubRegions/>
</FoldRegion>
<FoldRegion Name="IF" Type="1">
<OpenToken Symbol="IF"/>
<CloseToken Symbol="END IF"/>
<Properties WholeWords="True"/>
<SubRegions/>
</FoldRegion>
<FoldRegion Name="SUB" Type="1">
<OpenToken Symbol="SUB"/>
<CloseToken Symbol="END SUB"/>
<Properties WholeWords="True"/>
<SubRegions/>
</FoldRegion>
<FoldRegion Name="Select" Type="1">
<OpenToken Symbol="SELECT"/>
<CloseToken Symbol="END SELECT"/>
<Properties WholeWords="True"/>
<SubRegions/>
</FoldRegion>
<FoldRegion Name="Do..Loop" Type="1">
<OpenToken Symbol="DO"/>
<CloseToken Symbol="LOOP"/>
<Properties WholeWords="True"/>
<SubRegions/>
</FoldRegion>
<FoldRegion Name="For..Next" Type="1">
<OpenToken Symbol="FOR"/>
<CloseToken Symbol="NEXT"/>
<Properties WholeWords="True"/>
<SubRegions/>
</FoldRegion>
</CodeFolding>
<CustomData/>
</SynUniHighlighter>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -