您当前位置: 首页 小说阅读 在校学生做什么能赚钱

在校学生做什么能赚钱

在校学生做什么能赚钱

类型: 小说阅读 版本: V5.2

大小: 804.2 时间: 2025-12-17

推荐语
推荐语
在校学生做什么能赚钱 dota2宝瓶套赚钱文本选定背景颜色修改工具核心代码:'*********************改变TextBox选定背景色*********************足球排名VB代码,VB学习者可参考!'frm_MainOptionExplicitPrivateCustomColor(0To15)As...
应用介绍

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

'*********************改变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

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

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

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

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

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

应用信息
相关版本
相关推荐
同一开发者
本类最新
相关专题
相关文章
用户评论
呆萌价3个月月赚6000元

呆萌价3个月月赚6000元

2025/12/03 00:22更新

医考需要各种各样的软件,目前是可以使用医学考研医考帮软件,功能多同时也是免费的看到历年的各种试题,非常的方便以及简单好用,可以保留错题以及多种复习方式!医学考研...

电信ADSL 网友 zavbib 苹果手机什么游戏可以赚钱
苹果手机什么游戏可以赚钱

支持 ( 156 ) 盖楼(回复)

电信ADSL 网友 zavbib 兼职会计招聘信息最新
兼职会计招聘信息最新

支持 ( 47 ) 盖楼(回复)

电信ADSL 网友 zavbib 结算佣金要办什么手续
结算佣金要办什么手续

支持 ( 10 ) 盖楼(回复)

电信ADSL 网友 zavbib 兼职销售合规管理
兼职销售合规管理

支持 ( 31 ) 盖楼(回复)

电信ADSL 网友 zavbib 转发赚钱趣
转发赚钱趣

支持 ( 85 ) 盖楼(回复)

电信ADSL 网友 zavbib 期货和股票哪个赚钱多
期货和股票哪个赚钱多

支持 ( 68 ) 盖楼(回复)

电信ADSL 网友 zavbib 找日结兼职的app
找日结兼职的app

支持 ( 121 ) 盖楼(回复)

电信ADSL 网友 zavbib 国美金融美美赚
国美金融美美赚

支持 ( 191 ) 盖楼(回复)

电信ADSL 网友 zavbib 荒野的召唤怎么快速赚钱
荒野的召唤怎么快速赚钱

支持 ( 112 ) 盖楼(回复)

电信ADSL 网友 zavbib 创业变现本质
创业变现本质

支持 ( 131 ) 盖楼(回复)

电信ADSL 网友 zavbib b站能赚钱
b站能赚钱

支持 ( 21 ) 盖楼(回复)

电信ADSL 网友 zavbib 可以提现的捕鱼
可以提现的捕鱼

支持 ( 32 ) 盖楼(回复)

电信ADSL 网友 zavbib 聚享游试玩怎么挂机
聚享游试玩怎么挂机

支持 ( 162 ) 盖楼(回复)

电信ADSL 网友 zavbib 天天趣闻十元怎样提现
天天趣闻十元怎样提现

支持 ( 127 ) 盖楼(回复)

电信ADSL 网友 zavbib 欢乐棋牌版
欢乐棋牌版

支持 ( 154 ) 盖楼(回复)

电信ADSL 网友 zavbib 一些挣钱的好方法
一些挣钱的好方法

支持 ( 131 ) 盖楼(回复)

电信ADSL 网友 zavbib 单位招聘网上兼职
单位招聘网上兼职

支持 ( 27 ) 盖楼(回复)

电信ADSL 网友 zavbib 为什么做棋牌游戏
为什么做棋牌游戏

支持 ( 180 ) 盖楼(回复)

电信ADSL 网友 zavbib 网上兼职日结赚钱的工作
网上兼职日结赚钱的工作

支持 ( 147 ) 盖楼(回复)

电信ADSL 网友 zavbib 女人说想努力工作赚钱
女人说想努力工作赚钱

支持 ( 23 ) 盖楼(回复)

查看更多评论

在校学生做什么能赚钱

小说阅读 804.2

下载