亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? form1.frm

?? 這是一個很實用的小型編譯器！簡單實用
?? FRM
?? 第 1 頁 / 共 5 頁
字號: 
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1 
   Caption         =   "編譯器"
   ClientHeight    =   4935
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7395
   LinkTopic       =   "Form1"
   ScaleHeight     =   4935
   ScaleWidth      =   7395
   StartUpPosition =   3  '窗口缺省
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   4935
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7455
      _ExtentX        =   13150
      _ExtentY        =   8705
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   2
      TextRTF         =   $"Form1.frx":0000
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuFileNew 
         Caption         =   "新建(&N)"
         Index           =   1
      End
      Begin VB.Menu mnuFileOpen 
         Caption         =   "打開(&O)"
         Index           =   2
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "關閉(&X)"
         Index           =   3
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
RichTextBox1.Text = ""
End Sub

Private Sub mnuFileExit_Click(Index As Integer)
Unload Form1
End Sub

Private Sub mnuFileNew_Click(Index As Integer)
RichTextBox1.Text = ""
End Sub

Private Sub mnuFileOpen_Click(Index As Integer)

Dim filename As String
Dim filenumber As Integer
Dim filelength As Long
Dim filetext As String



Static myfileshuzu()


Dim i As Long
Dim wordstart As Long
Dim wordlength As Long
Dim mykey As String
Dim mycounter As Long
Dim filewordstart As Long
Dim filewordlength As Long


Static flagb As Boolean
Static flagg As Boolean
Static flags As Boolean



Static flagy As Boolean
Static flagd As Boolean
Static flag As Boolean
Dim counterd As Integer
Dim countery As Integer






filename = InputBox("請輸入文件名：", "打開文件", "e:\text.txt")

filenumber = FreeFile


filelength = FileLen(filename)

Open filename For Input As filenumber

filetext = Input(filelength, filenumber)

Close filenumber

ReDim myfileshuzu(filelength)


For i = 1 To filelength Step 1

myfileshuzu(i) = Mid$(filetext, i, 1)

Next i

RichTextBox1.Text = filetext




For filewordlength = 1 To filelength Step 1








'當檢查到空格或回車時

If (myfileshuzu(filewordlength) = Chr(32) Or myfileshuzu(filewordlength) = Chr(13) Or myfileshuzu(filewordlength) = Chr(9)) 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
mycounter = filewordlength






ElseIf myfileshuzu(filewordlength) = Chr(59) 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(0, 0, 255)
RichTextBox1.SelStart = m


mycounter = filewordlength








ElseIf myfileshuzu(filewordlength) = Chr(44) 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(0, 0, 255)
RichTextBox1.SelStart = m


mycounter = filewordlength






ElseIf myfileshuzu(filewordlength) = Chr(123) 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(0, 0, 255)
RichTextBox1.SelStart = m


mycounter = filewordlength









ElseIf myfileshuzu(filewordlength) = Chr(125) 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



For wordstart = mycounter 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(0, 0, 255)
RichTextBox1.SelStart = m


mycounter = filewordlength









ElseIf myfileshuzu(filewordlength) = Chr(91) 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

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
中文字幕一区三区| 亚洲 欧美综合在线网络| 曰韩精品一区二区| 国产在线精品一区二区不卡了| 99国产精品久久| 欧美videossexotv100| 亚洲精品视频在线观看免费| 国产老妇另类xxxxx| 欧美一区二区在线视频| 亚洲人xxxx| av网站免费线看精品| 精品国产污污免费网站入口| 亚洲一区二区三区四区在线| 成人污视频在线观看| 精品女同一区二区| 日韩专区欧美专区| 91久久奴性调教| 亚洲丝袜自拍清纯另类| 国产a视频精品免费观看| 久久综合999| 免费在线观看一区二区三区| 欧美日韩国产乱码电影| 亚洲另类在线视频| 91一区二区三区在线观看| 国产午夜精品久久久久久免费视| 久久91精品国产91久久小草| 欧美另类变人与禽xxxxx| 一区二区三区波多野结衣在线观看| 成人午夜视频在线观看| 国产视频一区在线播放| 国产乱码精品1区2区3区| 欧美成人精品福利| 精品一区二区三区视频| 日韩精品一区在线| 国产伦精品一区二区三区视频青涩| 日韩一区和二区| 精品综合久久久久久8888| 欧美一级二级三级蜜桃| 激情综合一区二区三区| 精品福利一区二区三区免费视频| 经典一区二区三区| 精品久久国产字幕高潮| 国产黄色精品网站| 国产精品免费网站在线观看| av成人免费在线| 亚洲一区视频在线观看视频| 精品污污网站免费看| 丝袜美腿亚洲一区| 欧美v国产在线一区二区三区| 国产麻豆精品在线观看| 国产欧美日韩亚州综合| 91丝袜呻吟高潮美腿白嫩在线观看| 亚洲丝袜制服诱惑| 91麻豆精品国产综合久久久久久| 日本欧美大码aⅴ在线播放| 精品伦理精品一区| 成人综合在线网站| 亚洲电影在线免费观看| 欧美va天堂va视频va在线| 国产成人精品影院| 亚洲激情综合网| 日韩欧美专区在线| 成人综合在线视频| 三级一区在线视频先锋| 国产亚洲精品bt天堂精选| 成人黄色大片在线观看| 亚洲成人黄色小说| 久久综合色综合88| 91久久精品一区二区三| 免费高清在线一区| 亚洲欧美偷拍卡通变态| 91精品一区二区三区久久久久久| 国产伦精一区二区三区| 亚洲宅男天堂在线观看无病毒| 欧美变态口味重另类| www.亚洲在线| 麻豆91在线观看| 亚洲欧美中日韩| 欧美videossexotv100| 欧美性猛交xxxxxx富婆| 黑人精品欧美一区二区蜜桃| 亚洲精品美腿丝袜| 久久精品亚洲精品国产欧美| 欧美日韩在线观看一区二区 | 欧美电影免费提供在线观看| 国产成人鲁色资源国产91色综| 亚洲一区二区影院| 久久久久97国产精华液好用吗 | 91在线观看成人| 麻豆国产精品视频| 亚洲123区在线观看| 中文字幕成人在线观看| 91精品综合久久久久久| 91精品办公室少妇高潮对白| 国产精品一二三在| 久久99精品国产麻豆婷婷洗澡| 亚洲第一av色| 亚洲自拍欧美精品| 亚洲狼人国产精品| 国产精品乱人伦中文| 欧美精品一区二区三区蜜桃视频 | 久久久久久久综合色一本| 欧美日韩不卡一区二区| 日本精品免费观看高清观看| 粉嫩蜜臀av国产精品网站| 一区二区三区国产| 亚洲综合色婷婷| 欧美日精品一区视频| 亚洲国产日韩一区二区| 九九视频精品免费| 日韩一区二区在线观看| 欧美系列一区二区| 在线视频国产一区| 在线观看日产精品| 99久久er热在这里只有精品15| 国产福利一区二区三区视频| 黄色成人免费在线| 国产盗摄精品一区二区三区在线| 国内久久精品视频| 国产高清一区日本| 成人免费高清在线| 波多野结衣欧美| 色成年激情久久综合| 在线欧美小视频| 欧美日韩国产经典色站一区二区三区| 一本久久综合亚洲鲁鲁五月天| 日本高清不卡在线观看| 在线中文字幕不卡| 欧美精品色一区二区三区| 久久九九国产精品| 91精品国产一区二区| 欧美日韩一级二级| 日韩视频中午一区| 国产亚洲污的网站| 国产精品不卡一区| 午夜影视日本亚洲欧洲精品| 日日摸夜夜添夜夜添精品视频| 强制捆绑调教一区二区| 国产精品一区专区| 色噜噜狠狠成人网p站| 欧美麻豆精品久久久久久| 欧美va在线播放| 综合久久久久久久| 三级亚洲高清视频| 国产精品影视在线观看| 色综合欧美在线视频区| 日韩欧美123| 国产精品久线在线观看| 亚洲一区二区三区四区五区黄| 日本sm残虐另类| 丁香亚洲综合激情啪啪综合| 欧美日韩视频在线观看一区二区三区 | 一区二区欧美国产| 琪琪久久久久日韩精品| 成人激情免费电影网址| 在线不卡免费av| 中文乱码免费一区二区| 婷婷激情综合网| 大胆欧美人体老妇| 日韩午夜在线影院| 亚洲欧美日本在线| 国内久久精品视频| 在线观看91精品国产麻豆| 国产精品蜜臀av| 日韩vs国产vs欧美| 在线看国产一区二区| 国产欧美日韩在线| 久久99精品久久久| 欧美三级日韩三级国产三级| 国产拍欧美日韩视频二区| 奇米777欧美一区二区| 色婷婷精品久久二区二区蜜臂av| 精品粉嫩超白一线天av| 天堂蜜桃一区二区三区| 一本色道**综合亚洲精品蜜桃冫| 国产日韩亚洲欧美综合| 免费成人av在线播放| 欧美三级中文字幕在线观看| 国产精品三级av| 国产又黄又大久久| 欧美成va人片在线观看| 日韩一区精品字幕| 欧美日韩国产综合久久| 亚洲综合区在线| 91性感美女视频| 中文字幕在线观看不卡视频| 国产激情偷乱视频一区二区三区| 欧美成人三级电影在线| 美女www一区二区| 337p亚洲精品色噜噜狠狠| 亚洲最快最全在线视频| 色婷婷综合激情| 一区二区三区在线观看网站| 97se亚洲国产综合自在线| 国产精品天干天干在线综合| 国产91丝袜在线观看| 国产精品亲子伦对白| 国产精品18久久久久久vr| 久久久久久**毛片大全| 国产成人亚洲综合a∨婷婷|