默認情況下，我們都是用的微軟的記事本，也就是txt文本，文本選中的背景顏色一直都是藍色的，有木有？有很多人可能已經習慣了這種藍色，但是也有人不想拘泥于這種顏色，想換一換、改變下心情。這里，小編給大家帶來一款文本選定背景顏色修改工具，絕對實用。需要的朋友可以下載試試哦！
怎么修改文本選定背景顏色
文本選定背景顏色修改工具使用方法
Text的背景高亮色是藍色不好看？還是RichTextBox的黑色好看，但Rich打開特殊字符會出錯，怎么辦呢？改了它即可，而且可以改成任意想要的顏色。通過測試，發現系統在調用一個SetBkColor的API，于是我們可以在它將要設置textbox的高亮色時吃掉它，改成自己的顏色。 依此類推，可以改變ListView的選定項背景或其它控件的顏色。
可以完美修改成你想要的任意顏色
文本選定背景顏色修改工具核心代碼：
'********************* 改變TextBox選定背景色 *********************
VB代碼，VB學習者可參考！
'frm_Main
Option Explicit
Private CustomColor(0 To 15) As Long
Private Sub Form_Load()
Text1.Text = "這是一個普通的TextBox"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
MyTBox.Text = "這是一個修改后的TextBox，該程序用來測試修改Text高亮背景色"
MyTBox.SelStart = 0
MyTBox.SelLength = Len(MyTBox.Text)
MyTBox.TabIndex = 0
g_TextHwnd = MyTBox.hWnd
g_NewColor = vbBlack
chkHook.Value = 1
Me.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unhook
End Sub
Private Sub chkHook_Click()
g_Hook = chkHook.Value
MyTBox.Refresh
End Sub
Private Sub cmdColor_Click(Index As Integer)
If Index = 0 Then
g_NewColor = vbBlack
ElseIf Index = 1 Then
g_NewColor = vbRed
Else
'custom
Dim uColor&
uColor = ShowColorDialog(Me.hWnd, g_NewColor, CustomColor(0))
If uColor >= 0 Then g_NewColor = uColor
End If
MyTBox.Refresh
End Sub
'mod_Main
Option Explicit
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Declare Function WindowFromDC Lib "user32" (ByVal hdc As Long) As Long
Private MyHook As cls_HookApi '自定義hook
Private HighLightColor As Long
Public g_Hook As Boolean
Public g_TextHwnd As Long
Public g_NewColor As Long
Sub Main()
App.TaskVisible = False
m_InitSysColor '獲取系統高亮顏色值
Set MyHook = New cls_HookApi
MyHook.HookApi "gdi32.dll", "SetBkColor", GetFunAddr(AddressOf SetBkColor_Callback), GetCurrentProcess
Load frm_Main
End Sub
'初始化系統顏色
Sub m_InitSysColor()
HighLightColor = GetSysColor(vbHighlight And &HFF)
End Sub
'回調
Public Function SetBkColor_Callback(ByVal hdc As Long, ByVal crColor As Long) As Long
MyHook.HookStatus False
If g_Hook Then
If WindowFromDC(hdc) = g_TextHwnd And crColor = HighLightColor Then
crColor = g_NewColor
End If
End If
SetBkColor_Callback = SetBkColor(hdc, crColor)
MyHook.HookStatus True
End Function
Public Function GetFunAddr(lngFunAddr As Long) As Long
GetFunAddr = lngFunAddr
End Function
Sub Unhook()
Set MyHook = Nothing
End Sub
- PC官方版
- 安卓官方手機版
- IOS官方手機版
Adobe InDesign 2023中文版v18.0 免費版
Adobe InCopy 2023中文版v18.0 免費版
QOwnNotes(開源Markdown筆記本)22.7.6 綠色版
福昕高級pdf編輯器綠色版12.0.1 精簡版
文件時間修改器綠色版1.5.4 免費版
ePub電子書編輯器2.7.1 免費版
icecream pdf editor破解版2.62 綠色中文版
福昕高級PDF編輯器破解版(Foxit PhantomPDF)10.1.8.37795 免費版
福昕高級PDF編輯器專業版12.0.0.12394 永久授權版
Adobe Bridge CS4綠色版免費版
Adobe Bridge CC 2017官方版7.0.0.93 免費版
Adobe Bridge CS3免費版2.0 中文版
Adobe Bridge CS5綠色版4.0 中文版
Adobe Bridge CS6綠色版5.0 免費版
Adobe Bridge 2018破解版8.0.0.262 免費版
Adobe Bridge 2019中文免費版9.0.0.204 破解版
Adobe Bridge 2022中文破解版12.0.2.252 免費版
Adobe InCopy 2022中文破解版17.2.0.020 免費版
Adobe InDesign 2022中文破解版17.2.1.105 免費版
Adobe InCopy CS6中文版8.0 破解版
Adobe InCopy CC中文版9.0 免費版
騰訊文檔電腦版3.0.5 官方版
Swrite互鏈文檔0.3.9官方版
小黑記事本軟件2.0.4.6 官方版
大師筆記電腦版0.7.0.73129727最新版
睿信數盾共享文件管理系統3.1.10.0官方版
易迅云盤文件管理系統5.5.3.3 官方版【64位】
Just Manager文件管理器0.1.54 中文版
TeamDoc文檔管理系統2.1.40 免費版
PDF貓分割合并軟件1.2.0.3最新官方版
ePUBee電子書庫管理器2.0.7.1023 官方版
文檔分類管理軟件( myBase Desktop )6.3.3 
文件分割合并工具(WinMend File Splitter)1
PDF打印機(GIRDAC PDF Creator)9.2.1.2 免費
dwg文件比較(MoziDiffer)2.1 官網最新版
極速拷貝(文件快速復制軟件)1.0.0.1 官方安
Adobe InCopy 2021中文版16.0 直裝破解版
文件對比工具(conespy)3.21 官方免費版
Visio文件查看器(Free Visio Viewer)14.0.4
星梭U盤低級格式化工具3.85 電腦官方版
百度文庫電腦版客戶端1.1.2 官方pc客戶端