TextBox默认无法设置不同文字颜色，今天我们来强制改变它，为TextBox增加不同颜色以及底纹效果，着色速度比RichTextBox快N倍。

[无效] http://pan.baidu.com/s/1sjY1lgD

太棒了！

前段时间在写一个文本编辑器，谁知最后着色成了问题，richtextbox实在太慢，和EverEdit差太远了，无奈换成TextBox，后来发现改造后的Text控件居然速度堪比EverEdit，或许EverEdit和原理和我的一样，也是重绘文本，除此之外，实在想不到再快的办法。

稍.后.将.公.布.源.码

支持

顶

这种东西，玩玩可以，实际谁敢使用呢？关键是稳定性不行。--未测试之前的断言。

先上核心代码，稍后会打包
Private Sub Form_Load()
m_InitKeyWord
VBCode = MyTBox.Text
g_TextHwnd = MyTBox.hwnd
'复制文本框的字体，注意不能用Font属性，另外个别英文字体可能不支持，需进行编码转换
Me.FontName = MyTBox.FontName
Me.FontSize = MyTBox.FontSize
Me.FontBold = MyTBox.FontBold
Me.FontItalic = MyTBox.FontItalic
Me.ScaleMode = vbPixels
g_LineHeight = Me.TextHeight("0")
optColor(0).Value = True
Me.Show
SetHook
chkHook.Value = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unhook
End Sub
Private Sub chkHook_Click()
g_Hook = chkHook.Value
MyTBox.Refresh
End Sub
'VB关键字
Sub m_InitKeyWord()
g_KeyWord = Array("
#Const", "#
If", "#Else", "Let", "Const", "Dim", "Private", _
"Public", "New", "Static", "Option", "Not", "And", "Or", "Xor", "Eqv", "Imp", _
"Mod", "Like", "Is", "Error", "Raise", "On", "GoTo", "Resume", "Do", "Loop", "For", _
"Next", "Each", "While", "Wend", "With", "If", "Then", "Else", "ElseIf", "Select", _
"Case", "Switch", "Call", "Function", "Sub", "End", "Exit", "Get", "Set", "Property", _
"Open", "Close", "As", "Print", , "Input", "Line", "Put", "Seek", "TypeOf", "Nothing", _
"AddressOf", "ByRef", "ByVal", "Empty", "False", "Friend", _
"Optional", "Lock", "Step", "To", "True", "WithEvents", "Explicit", "Base", "Declare", _
"Type", "Lib", "Alias", "Enum", "ReDim", "Preserve", "Write", "Begin", "Erase", "GoSub", _
"Return", "Stop", "RaiseEvent", "Compare", "Debug", _
"CBool", "CByte", "CCur", "CDate", "CDbl", "CDec", "CInt", "CLng", _
"CSng", "CStr", "CVar", "LBound", "UBound", _
"Long", "Integer", "Single", "Double", "String", "Boolean", "Date", _
"Byte", "Currency", "Decimal", "Object", "Variant", "Any")
g_KeyLength = UBound(g_KeyWord) + 1
End Sub

发出去的代码空格都没了，忘了网页限制了
if 1=1 then
    aaaa=1
end if

顶起！这么好的贴不能让伸手贴给淹没了

不错，不错，正好新的vb7没有代码显示界面。

很好很强大！