日本xxxx色视频在线观看,日本无卡无吗二区三区入口,国内自拍真实伦在线观看

默認(rèn)情況下，我們都是用的微軟的記事本，也就是txt文本，文本選中的背景顏色一直都是藍(lán)色的，有木有？有很多人可能已經(jīng)習(xí)慣了這種藍(lán)色，但是也有人不想拘泥于這種顏色，想換一換、改變下心情。這里，小編給大家?guī)?lái)一款文本選定背景顏色修改工具，絕對(duì)實(shí)用。需要的朋友可以下載試試哦！

怎么修改文本選定背景顏色

文本選定背景顏色修改工具使用方法

Text的背景高亮色是藍(lán)色不好看？還是RichTextBox的黑色好看，但Rich打開(kāi)特殊字符會(huì)出錯(cuò)，怎么辦呢？改了它即可，而且可以改成任意想要的顏色。通過(guò)測(cè)試，發(fā)現(xiàn)系統(tǒng)在調(diào)用一個(gè)SetBkColor的API，于是我們可以在它將要設(shè)置textbox的高亮色時(shí)吃掉它，改成自己的顏色。依此類推，可以改變ListView的選定項(xiàng)背景或其它控件的顏色。

可以完美修改成你想要的任意顏色

文本選定背景顏色修改工具核心代碼：

'********************* 改變TextBox選定背景色 *********************

VB代碼，VB學(xué)習(xí)者可參考！

'frm_Main

Option Explicit

Private CustomColor(0 To 15) As Long

Private Sub Form_Load()

Text1.Text = "這是一個(gè)普通的TextBox"

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

MyTBox.Text = "這是一個(gè)修改后的TextBox，該程序用來(lái)測(cè)試修改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 '獲取系統(tǒng)高亮顏色值

Set MyHook = New cls_HookApi

MyHook.HookApi "gdi32.dll", "SetBkColor", GetFunAddr(AddressOf SetBkColor_Callback), GetCurrentProcess

Load frm_Main

End Sub

'初始化系統(tǒng)顏色

Sub m_InitSysColor()

HighLightColor = GetSysColor(vbHighlight And &HFF)

End Sub

'回調(diào)

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

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官方版

安卓官方手機(jī)版

IOS官方手機(jī)版

文本選定背景顏色修改工具1.0 綠色版

相關(guān)軟件

文本替換專家5.1 綠色免費(fèi)版

文本轉(zhuǎn)換精靈 V1.2 免費(fèi)版

TXT文本文件分割合并器免費(fèi)版下載

磁盤背景設(shè)置

BluffTitler.DX9 V7.6.1 漢化綠色版 3D文本動(dòng)畫(huà)的工具輸出結(jié)果可播放

右鍵背景美化器

Unix文本編輯器(gVim)9.0 官方最新版

桌面飄雪 ┊支持播放背景音樂(lè)、支持開(kāi)機(jī)自啟等┊簡(jiǎn)體中文綠色免費(fèi)版V1.1 Beta

SX-Color 1.0┊在做網(wǎng)頁(yè)設(shè)計(jì)和程序界面的時(shí)候拾取下顏色

ColorSucker(顏色吸管)V1.1.2最新版

怎么修改文本選定背景顏色

文本選定背景顏色修改工具核心代碼：

文本選定背景顏色修改工具截圖

文本選定背景顏色修改工具 1.0 綠色版

擴(kuò)展閱讀

本類最新軟件

本類軟件推薦