📄 coloringsrc.html
字号:
<HTML><TITLE>Source Code</TITLE><BODY><FONT COLOR="#007F00">'This is the Module that Colorizes the contents of a</FONT><br><FONT COLOR="#007F00">'richtextbox - defined by keywords</FONT><br><FONT COLOR="#007F00">'I did not write or modify this so if you use this</FONT><br><FONT COLOR="#007F00">'please give VBDiamond the credit</FONT><br><FONT COLOR="#00007F">Private</FONT> gsBlackKeywords <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">String</FONT><br><FONT COLOR="#00007F">Private</FONT> gsBlueKeyWords <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">String</FONT><br><br><FONT COLOR="#00007F">Public</FONT> <FONT COLOR="#00007F">Sub</FONT> ColorizeWords(rtf <FONT COLOR="#00007F">As</FONT> RichTextBox)<br> <FONT COLOR="#007F00">'VBDiamond</FONT><br> <FONT COLOR="#007F00">' * Web Site : www.geocities.com/ResearchTriangle/6311/</FONT><br> <br> <FONT COLOR="#00007F">Dim</FONT> sBuffer <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">String</FONT><br> <FONT COLOR="#00007F">Dim</FONT> nI <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">Long</FONT><br> <FONT COLOR="#00007F">Dim</FONT> nJ <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">Long</FONT><br> <FONT COLOR="#00007F">Dim</FONT> sTmpWord <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">String</FONT><br> <FONT COLOR="#00007F">Dim</FONT> nStartPos <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">Long</FONT><br> <FONT COLOR="#00007F">Dim</FONT> nSelLen <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">Long</FONT><br> <FONT COLOR="#00007F">Dim</FONT> nWordPos <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">Long</FONT><br> <br> <FONT COLOR="#007F00">'Dim cHourglass As class_Hourglass</FONT><br> <FONT COLOR="#007F00">'Set cHourglass = New class_Hourglass</FONT><br> <br> sBuffer = rtf.Text<br> sTmpWord = ""<br> <FONT COLOR="#00007F">With</FONT> rtf<br> <FONT COLOR="#00007F">For</FONT> nI = 1 <FONT COLOR="#00007F">To</FONT> Len(sBuffer)<br> <FONT COLOR="#00007F">Select</FONT> <FONT COLOR="#00007F">Case</FONT> Mid(sBuffer, nI, 1)<br> <FONT COLOR="#00007F">Case</FONT> "A" <FONT COLOR="#00007F">To</FONT> "Z", "a" <FONT COLOR="#00007F">To</FONT> "z", "_"<br> <FONT COLOR="#00007F">If</FONT> sTmpWord = "" <FONT COLOR="#00007F">Then</FONT> nStartPos = nI<br> sTmpWord = sTmpWord & Mid(sBuffer, nI, 1)<br> <br> <FONT COLOR="#00007F">Case</FONT> Chr(34)<br> nSelLen = 1<br> <FONT COLOR="#00007F">For</FONT> nJ = 1 <FONT COLOR="#00007F">To</FONT> 9999999<br> <FONT COLOR="#00007F">If</FONT> Mid(sBuffer, nI + 1, 1) = Chr(34) <FONT COLOR="#00007F">Then</FONT><br> nI = nI + 2<br> <FONT COLOR="#00007F">Exit</FONT> <FONT COLOR="#00007F">For</FONT><br> <FONT COLOR="#00007F">Else</FONT><br> nSelLen = nSelLen + 1<br> nI = nI + 1<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> <FONT COLOR="#00007F">Next</FONT><br> <br> <FONT COLOR="#00007F">Case</FONT> Chr(39)<br> .SelStart = nI - 1<br> nSelLen = 0<br> <FONT COLOR="#00007F">For</FONT> nJ = 1 <FONT COLOR="#00007F">To</FONT> 9999999<br> <FONT COLOR="#00007F">If</FONT> Mid(sBuffer, nI, 2) = vbCrLf <FONT COLOR="#00007F">Then</FONT><br> <FONT COLOR="#00007F">Exit</FONT> <FONT COLOR="#00007F">For</FONT><br> <FONT COLOR="#00007F">Else</FONT><br> nSelLen = nSelLen + 1<br> nI = nI + 1<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> <FONT COLOR="#00007F">Next</FONT><br> .SelLength = nSelLen<br> .SelColor = RGB(0, 127, 0)<br> <br> <FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Else</FONT><br> <FONT COLOR="#00007F">If</FONT> <FONT COLOR="#00007F">Not</FONT> (Len(sTmpWord) = 0) <FONT COLOR="#00007F">Then</FONT><br> .SelStart = nStartPos - 1<br> .SelLength = Len(sTmpWord)<br> nWordPos = InStr(1, gsBlackKeywords, "*" & sTmpWord & "*", 1)<br> <FONT COLOR="#00007F">If</FONT> nWordPos <> 0 <FONT COLOR="#00007F">Then</FONT><br> .SelColor = RGB(0, 0, 0)<br> .SelText = Mid(gsBlackKeywords, nWordPos + 1, Len(sTmpWord))<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> nWordPos = InStr(1, gsBlueKeyWords, "*" & sTmpWord & "*", 1)<br> <FONT COLOR="#00007F">If</FONT> nWordPos <> 0 <FONT COLOR="#00007F">Then</FONT><br> .SelColor = RGB(0, 0, 127)<br> .SelText = Mid(gsBlueKeyWords, nWordPos + 1, Len(sTmpWord))<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> <FONT COLOR="#00007F">If</FONT> UCase(sTmpWord) = "REM" <FONT COLOR="#00007F">Then</FONT><br> .SelStart = nI - 4<br> .SelLength = 3<br> <FONT COLOR="#00007F">For</FONT> nJ = 1 <FONT COLOR="#00007F">To</FONT> 9999999<br> <FONT COLOR="#00007F">If</FONT> Mid(sBuffer, nI, 2) = vbCrLf <FONT COLOR="#00007F">Then</FONT><br> <FONT COLOR="#00007F">Exit</FONT> <FONT COLOR="#00007F">For</FONT><br> <FONT COLOR="#00007F">Else</FONT><br> .SelLength = .SelLength + 1<br> nI = nI + 1<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> <FONT COLOR="#00007F">Next</FONT><br> .SelColor = RGB(0, 127, 0)<br> .SelText = LCase(.SelText)<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br> sTmpWord = ""<br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Select</FONT><br> <FONT COLOR="#00007F">Next</FONT><br> .SelStart = 0<br> <br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">With</FONT><br> <br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><FONT COLOR="#00007F">Public</FONT> <FONT COLOR="#00007F">Sub</FONT> InitColorize()<br> <br> gsBlackKeywords = "*Abs*Add*AddItem*AppActivate*Array*Asc*Atn*Beep*Begin*BeginProperty*ChDir*ChDrive*Choose*Chr*Clear*Collection*Command*Cos*CreateObject*CurDir*DateAdd*DateDiff*DatePart*DateSerial*DateValue*Day*DDB*DeleteSetting*Dir*DoEvents*EndProperty*Environ*EOF*Err*Exp*FileAttr*FileCopy*FileDateTime*FileLen*Fix*Format*FV*GetAllSettings*GetAttr*GetObject*GetSetting*Hex*Hide*Hour*InputBox*InStr*Int*Int*IPmt*IRR*IsArray*IsDate*IsEmpty*IsError*IsMissing*IsNull*IsNumeric*IsObject*Item*Kill*LCase*Left*Len*Load*Loc*LOF*Log*LTrim*Me*Mid*Minute*MIRR*MkDir*Month*Now*NPer*NPV*Oct*Pmt*PPmt*PV*QBColor*Raise*Randomize*Rate*Remove*RemoveItem*Reset*RGB*Right*RmDir*Rnd*RTrim*SaveSetting*Second*SendKeys*SetAttr*Sgn*Shell*Sin*Sin*SLN*Space*Sqr*Str*StrComp*StrConv*Switch*SYD*Tan*Text*Time*Time*Timer*TimeSerial*TimeValue*Trim*TypeName*UCase*Unload*Val*VarType*WeekDay*Width*Year*"<br> gsBlueKeyWords = "*#Const*#Else*#ElseIf*#End If*#If*Alias*Alias*And*As*Base*Binary*Boolean*Byte*ByVal*Call*Case*CBool*CByte*CCur*CDate*CDbl*CDec*CInt*CLng*Close*Compare*Const*CSng*CStr*Currency*CVar*CVErr*Decimal*Declare*DefBool*DefByte*DefCur*DefDate*DefDbl*DefDec*DefInt*DefLng*DefObj*DefSng*DefStr*DefVar*Dim*Do*Double*Each*Else*ElseIf*End*Enum*Eqv*Erase*Error*Exit*Explicit*False*For*Function*Get*Global*GoSub*GoTo*If*Imp*In*Input*Input*Integer*Is*LBound*Let*Lib*Like*Line*Lock*Long*Loop*LSet*Name*New*Next*Not*Object*On*Open*Option*Or*Output*Print*Private*Property*Public*Put*Random*Read*ReDim*Resume*Return*RSet*Seek*Select*Set*Single*Spc*Static*String*Stop*Sub*Tab*Then*Then*True*Type*UBound*Unlock*Variant*Wend*While*With*Xor*Nothing*To*"<br><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -