溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

易語(yǔ)言怎么實(shí)現(xiàn)編輯框加背景圖片

發(fā)布時(shí)間:2021-06-16 15:57:12 來(lái)源:億速云 閱讀:969 作者:小新 欄目:編程語(yǔ)言

小編給大家分享一下易語(yǔ)言怎么實(shí)現(xiàn)編輯框加背景圖片,希望大家閱讀完這篇文章之后都有所收獲,下面讓我們一起去探討吧!

DLL代碼

.版本 2
.DLL命令 CreatePatternBrush, 整數(shù)型, "gdi32", "CreatePatternBrush"
  .參數(shù) hBitmap, 整數(shù)型
.DLL命令 GetWindowLong, 整數(shù)型, "user32", "GetWindowLongA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nIndex, 整數(shù)型
.DLL命令 SetWindowLong, 整數(shù)型, "user32", "SetWindowLongA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nIndex, 整數(shù)型
  .參數(shù) dwNewLong, 整數(shù)型
.DLL命令 CallWindowProcA, 整數(shù)型, , "CallWindowProcA"
  .參數(shù) lproc, 整數(shù)型
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) umsg, 整數(shù)型
  .參數(shù) wparam, 整數(shù)型
  .參數(shù) lparam, 整數(shù)型
.DLL命令 DeleteObject, 整數(shù)型, "gdi32", "DeleteObject"
  .參數(shù) hObject, 整數(shù)型
.DLL命令 SetBkMode, 整數(shù)型, "gdi32", "SetBkMode"
  .參數(shù) hdc, 整數(shù)型
  .參數(shù) nBkMode, 整數(shù)型

常量表

.版本 2
.常量 GWL_WNDPROC, "-4"
.常量 WM_CTLCOLOREDIT, "307"
.常量 TRANSPARENT, "1"

編輯框加背景代碼

.版本 2
.程序集 窗口程序集1
.程序集變量 lpOldProc, 整數(shù)型
.程序集變量 hBlackBrush, 整數(shù)型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 圖片, 對(duì)象
圖片框1.可視 = 假
圖片.創(chuàng)建圖片對(duì)象 (圖片框1.圖片)
hBlackBrush = CreatePatternBrush (圖片.讀數(shù)值屬性 (“handle”, ))
lpOldProc = GetWindowLong (取窗口句柄 (), #GWL_WNDPROC)
SetWindowLong (取窗口句柄 (), #GWL_WNDPROC, 到數(shù)值 (&WndProc))
.子程序 WndProc, 整數(shù)型
.參數(shù) hwnd, 整數(shù)型
.參數(shù) umsg, 整數(shù)型
.參數(shù) wparam, 整數(shù)型
.參數(shù) lparam, 整數(shù)型
.如果真 (umsg = #WM_CTLCOLOREDIT)
  SetBkMode (wparam, #TRANSPARENT)
  返回 (hBlackBrush)
.如果真結(jié)束
返回 (CallWindowProcA (lpOldProc, hwnd, umsg, wparam, lparam))
.子程序 __啟動(dòng)窗口_可否被關(guān)閉, 邏輯型
.如果真 (hBlackBrush > 0)
  DeleteObject (hBlackBrush)
.如果真結(jié)束
.子程序 _編輯框1_內(nèi)容被改變
編輯框1.重畫(huà) ()
.子程序 _編輯框1_滾輪被滾動(dòng), 邏輯型
.參數(shù) 滾動(dòng)距離, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
編輯框1.重畫(huà) ()

運(yùn)行結(jié)果:

易語(yǔ)言怎么實(shí)現(xiàn)編輯框加背景圖片

看完了這篇文章,相信你對(duì)“易語(yǔ)言怎么實(shí)現(xiàn)編輯框加背景圖片”有了一定的了解,如果想了解更多相關(guān)知識(shí),歡迎關(guān)注億速云行業(yè)資訊頻道,感謝各位的閱讀!

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI