⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 form1.frm

📁 这是一个很实用的小型编译器！简单实用
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 

'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变=的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength

















ElseIf myfileshuzu(filewordlength) = Chr(43) And flag = False And flagy = False And flagd = False Then

'检查到+号


'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变+的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength




ElseIf myfileshuzu(filewordlength) = Chr(45) And flag = False And flagy = False And flagd = False Then

'检查到-号


'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变-的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength







ElseIf myfileshuzu(filewordlength) = Chr(37) And flag = False And flagy = False And flagd = False Then

'检查到%号


'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变%的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength












ElseIf myfileshuzu(filewordlength) = Chr(94) And flag = False And flagy = False And flagd = False Then

'检查到%号


'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变^的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength







ElseIf myfileshuzu(filewordlength) = Chr(126) And flag = False And flagy = False And flagd = False Then

'检查到~号


'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变~的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength






ElseIf myfileshuzu(filewordlength) = Chr(38) And flag = False And flagy = False And flagd = False Then

'检查到&号



If myfileshuzu(filewordlength - 1) = Chr(38) Then


'改变&的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(171, 171, 172)
RichTextBox1.SelStart = m


mycounter = filewordlength

Else



'改变字体颜色
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelStart = m

wordstart = mycounter + 1

For wordstart = wordstart To filewordlength Step 1
If (myfileshuzu(wordstart) >= "a" And myfileshuzu(wordstart) <= "z") Or (myfileshuzu(wordstart) >= "A" And myfileshuzu(wordstart) <= "Z") Or (myfileshuzu(wordstart) >= "0" And myfileshuzu(wordstart) <= "9") Then
Exit For
End If

Next wordstart


If wordstart > filewordlength Then
wordstart = filewordlength
End If


flagb = biaoshifu(myfileshuzu(), wordstart, filewordlength)


'改变表示符的颜色
If flagb = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(240, 171, 5)
RichTextBox1.SelStart = m

End If

flags = shuzi(myfileshuzu(), wordstart, filewordlength)




 '改变数字的颜色
 
If flags = True Then

m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(36, 36, 100)
RichTextBox1.SelStart = m

End If

mykey = Mid$(filetext, wordstart, filewordlength - wordstart)

flagg = guanjianzi(mykey)

If flagg = True Then
m = RichTextBox1.SelStart
RichTextBox1.SelStart = mycounter
RichTextBox1.SelLength = filewordlength - mycounter
RichTextBox1.SelColor = RGB(45, 21, 125)
RichTextBox1.SelStart = m

mycounter = filewordlength


End If


'改变&的颜色

m = RichTextBox1.SelStart
RichTextBox1.SelStart = filewordlength - 1
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -