修改TextBox选定背景色-文本选定背景颜色修改工具1.0 绿色版

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

文本选定背景颜色修改工具使用方法千云货主端1.15.7 安卓版

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

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

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

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

'*********************改变TextBox选定背景色*********************

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

    EndIf

    SetBkColor_Callback=SetBkColor(hdc,crColor)

    MyHook.HookStatusTrue

EndFunction

PublicFunctionGetFunAddr(lngFunAddrAsLong)AsLong

    GetFunAddr=lngFunAddr

EndFunction

SubUnhook()

    SetMyHook=Nothing

EndSub