• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-方便的剪貼板

AutoIT3 奇跡の海 2年前 (2017-11-24) 665次瀏覽 已收錄 0個評論 掃描二維碼

代碼簡介

AutoIt3(au3)源碼-方便的剪貼板
在用AI中復制文字會將其格式一起復制.經常遇到同字不同樣式,之前是先寫在記事本上再復制,覺得太麻煩.遂用AotoIt寫了如下的小工具.

AU3源碼

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=E:\myoutput\5\大胃王.kxf
$Form1 = GUICreate("大胃王剪貼板", 390, 360, 393, 200)

$Edit1 = GUICtrlCreateEdit("", 0, 8, 217, 48, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_HSCROLL))
GUICtrlSetData(-1, "")

$List1 = GUICtrlCreateList("", 0, 64, 217, 292)

$stradd = GUICtrlCreateButton("添加", 224, 8, 73, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋體-PUA")

$strpaste = GUICtrlCreateButton("粘貼", 304, 8, 65, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋體-PUA")

$copyselect = GUICtrlCreateButton("復制選中", 224, 104, 145, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋體-PUA")

$clear = GUICtrlCreateButton("清空列表", 224, 200, 145, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋體-PUA")

$exit = GUICtrlCreateButton("退出", 224, 312, 153, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋體-PUA")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            ;--代碼開始
        Case $exit;退出
            Exit
        Case $stradd;添加數據
            If GUICtrlRead($Edit1) = "" Then
                MsgBox(0, "提示", "請先輸入數據")
                GUICtrlSetState($Edit1, $GUI_FOCUS)
            Else
                GUICtrlSetData($List1, GUICtrlRead($Edit1));將文本框的數據傳給列表框
                GUICtrlSetData($Edit1, "")
                GUICtrlSetState($Edit1, $GUI_FOCUS)
            EndIf            
        Case $strpaste;將剪貼板的數據傳給文本框,同時對其設置焦點
            GUICtrlSetData($Edit1, ClipGet())
            GUICtrlSetState($Edit1, $GUI_FOCUS)
        Case $copyselect;將列表框內選中的項目傳給剪貼板
            ClipPut(GUICtrlRead($List1))
        Case $clear;清空文本框和列表框內的數據
            GUICtrlSetData($List1, "")
            GUICtrlSetData($Edit1, "")
            GUICtrlSetState($Edit1, $GUI_FOCUS)
            ;--代碼結束
    EndSwitch
WEnd

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-方便的剪貼板!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果