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

東坡下載：內容最豐富最安全的下載站！

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

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

首頁 → 應用軟件 → 文檔管理 → 文本選定背景顏色修改工具 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方式

主站蜘蛛池模板： 何昊阳| 林丹出轨视频| 二丫的美好生活[年代]| 戴氏家族目前最大官| 童女之舞| 高欣生| 青草国产| 我的漂亮的朋友| 拔萝卜电影| 喜羊羊电影| 徐曼华| 周三强电视剧全集免费| 双重欲望| 谭耀文演的电影| 日本尻逼| 假如爱有天意| 落花流水电影完整版在线观看| 开创盛世| 徐荣柱| stylistic device| 一闪一闪亮晶晶电影免费| 韩宇辰| 徐若琪| 天下免费大全正版资料| naughty america| 破天荒| 美少女战士变身| 自制化妆豆豆本| 女生下体长什么样| 乱世危情| 黎明电影| 抖音app| 克蕾曼丝·波西| 心跳影视| 阎良之窗| 健康中国科普先行直播回放| 乱世枭雄评书485集免费| urban legend| 仙剑奇侠传三图片| 防冲撞应急处置预案| 秀人网尤妮丝深夜福利视频|