日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

東坡下載:內容最豐富最安全的下載站!

幫助|文件類型庫|最新更新|下載分類|排行榜

搜索查詢電子工業辦公軟件壓縮解壓轉換翻譯時鐘日歷文檔管理電子閱讀漢字輸入文字處理刪除恢復計算器

首頁應用軟件文檔管理 → 文本選定背景顏色修改工具 1.0 綠色版

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

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

  • 大小:6KB
  • 語言:中文
  • 平臺:WinAll
  • 更新:2015-12-22 20:54
  • 等級:
  • 類型:文檔管理
  • 網站:http://www.nlktpj.cn
  • 授權:免費軟件
  • 廠商:
  • 產地:國產軟件
好用好玩 50%(0)
坑爹 坑爹 50%(0)
軟件介紹軟件截圖相關軟件軟件教程網友評論下載地址

默認情況下,我們都是用的微軟的記事本,也就是txt文本,文本選中的背景顏色一直都是藍色的,有木有?有很多人可能已經習慣了這種藍色,但是也有人不想拘泥于這種顏色,想換一換、改變下心情。這里,小編給大家帶來一款文本選定背景顏色修改工具,絕對實用。需要的朋友可以下載試試哦!

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

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

Text的背景高亮色是藍色不好看?還是RichTextBox的黑色好看,但Rich打開特殊字符會出錯,怎么辦呢?改了它即可,而且可以改成任意想要的顏色。通過測試,發現系統在調用一個SetBkColor的API,于是我們可以在它將要設置textbox的高亮色時吃掉它,改成自己的顏色。 依此類推,可以改變ListView的選定項背景或其它控件的顏色。

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

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

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

VB代碼,VB學習者可參考!

'frm_Main

Option Explicit

Private CustomColor(0 To 15) As Long


Private Sub Form_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

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 '獲取系統高亮顏色值

        Set MyHook = New cls_HookApi

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

        Load frm_Main

End Sub


'初始化系統顏色

Sub m_InitSysColor()

        HighLightColor = GetSysColor(vbHighlight And &HFF)

End Sub


'回調

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

        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官方
安卓官方手機版
IOS官方手機版

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

下載地址

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

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)

編輯推薦

報錯

請簡要描述您遇到的錯誤,我們將盡快予以修正。

轉帖到論壇
輪壇轉帖HTML方式

輪壇轉帖UBB方式

主站蜘蛛池模板: 黄录象| 陈昱| 幻乐森林演员表| 杰西卡·布朗·芬德利| 快乐读书吧1-6年级推荐书目| 韩红个人资料| 水咲ローラ| 幻想电影在线播放完整版| 命运简谱| 男同操视频| 大学生搜| 电车男| 大奉打更人电视剧在线观看全集免费播放| 工业硫酸| 在线电影免费| 有档期是有空还是没空| 今天上午拳王争霸赛直播| 秋天不回来吉他谱扫弦| 哥也要| 幸福花园在线观看| 浙江卫视直播在线观看高清电视台| 我的快乐歌词| 范艳华| wet pussy| 电影《德拉夫人》在线观看 | 江南style之我的白日梦| 痛风能吃豆腐吗| 威虎山黑话大全口令| chinesehd国语话对白| 娇喘视频在线观看| 《生命中有你》赞美诗歌| 永井大| 画画的视频| 《美之罪》在线观看| cctv16体育节目表今天目表| 三晶变频器| 花式特殊符号可复制| 好医生5| 港股开户测试答案2024年| 贾冰又出新的喜剧电影| 欧美成熟|