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

雅鱼体育app 米乐体育app官网怎么修改文本选定背景颜色文本选定背景颜色修改工具使用方法崛起终极王者ex吕布0.1爽充版下载-崛起终极王者(ex吕布内置0.1爽充)1.0.0 送满vText的背景高亮色是蓝色不好看？还是RichTextBox的黑色好看，但Rich打开特殊字符会出错，怎么办呢？改了它即可，而且可以改成任意想要的颜色...

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

文本选定背景颜色修改工具使用方法崛起终极王者ex吕布0.1爽充版下载-崛起终极王者(ex吕布内置0.1爽充)1.0.0 送满v

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

ayx206 万博 英文 亚博地址多少 体育赛事组织者 体育重要赛事