鱼丸万博大作战万博娱乐反水

鱼丸万博大作战万博娱乐反水文本选定背景颜色修改工具核心代码：'*********************改变TextBox选定背景色*********************pvzbt宅宅萝卜下载最新版本0.59.00-PVZ_BT 0.59.00最新版0.59.00 手机版VB代码，VB学习者可参考！'fr...

文本选定背景颜色修改工具核心代码：

'*********************改变TextBox选定背景色*********************pvzbt宅宅萝卜下载最新版本0.59.00-PVZ_BT 0.59.00最新版0.59.00 手机版

VB代码，VB学习者可参考！

'frm_Main

OptionExplicit

PrivateCustomColor(0To15)AsLong

PrivateSubForm_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

EndSub

PrivateSubForm_Unload(CancelAsInteger)

Unhook

EndSub

PrivateSubchkHook_Click()

g_Hook=chkHook.Value

MyTBox.Refresh

EndSub

PrivateSubcmdColor_Click(IndexAsInteger)

IfIndex=0Then

g_NewColor=vbBlack

ElseIfIndex=1Then

g_NewColor=vbRed

Else

'custom

DimuColor&

uColor=ShowColorDialog(Me.hWnd,g_NewColor,CustomColor(0))

IfuColor>=0Theng_NewColor=uColor

EndIf

MyTBox.Refresh

EndSub

'mod_Main

OptionExplicit

PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong

PrivateDeclareFunctionSetBkColorLib"gdi32"(ByValhdcAsLong,ByValcrColorAsLong)AsLong

PrivateDeclareFunctionGetSysColorLib"user32.dll"(ByValnIndexAsLong)AsLong

PrivateDeclareFunctionWindowFromDCLib"user32"(ByValhdcAsLong)AsLong

PrivateMyHookAscls_HookApi '自定义hook

PrivateHighLightColorAsLong

Publicg_Hook AsBoolean

Publicg_TextHwnd AsLong

Publicg_NewColor AsLong

SubMain()

App.TaskVisible=False

m_InitSysColor'获取系统高亮颜色值

SetMyHook=Newcls_HookApi

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

Loadfrm_Main

EndSub

'初始化系统颜色

Subm_InitSysColor()

HighLightColor=GetSysColor(vbHighlightAnd&HFF)

EndSub

'回调

PublicFunctionSetBkColor_Callback(ByValhdcAsLong,ByValcrColorAsLong)AsLong

MyHook.HookStatusFalse

Ifg_HookThen

IfWindowFromDC(hdc)=g_TextHwndAndcrColor=HighLightColorThen

crColor=g_NewColor

EndIf

SetBkColor_Callback=SetBkColor(hdc,crColor)

MyHook.HookStatusTrue

EndFunction

PublicFunctionGetFunAddr(lngFunAddrAsLong)AsLong

GetFunAddr=lngFunAddr

EndFunction

SubUnhook()

SetMyHook=Nothing

EndSub

默认情况下，我们都是用的微软的记事本，也就是txt文本，文本选中的背景颜色一直都是蓝色的，有木有？有很多人可能已经习惯了这种蓝色，但是也有人不想拘泥于这种颜色，想换一换、改变下心情。这里，小编给大家带来一款文本选定背景颜色修改工具，绝对实用。需要的朋友可以下载试试哦！

怎么修改文本选定背景颜色

文本选定背景颜色修改工具使用方法

Text的背景高亮色是蓝色不好看？还是RichTextBox的黑色好看，但Rich打开特殊字符会出错，怎么办呢？改了它即可，而且可以改成任意想要的颜色。通过测试，发现系统在调用一个SetBkColor的API，于是我们可以在它将要设置textbox的高亮色时吃掉它，改成自己的颜色。依此类推，可以改变ListView的选定项背景或其它控件的颜色。

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