快捷導(dǎo)航

易語(yǔ)言編輯框加背景圖片代碼實(shí)例

更新時(shí)間：2018年11月20日 15:00:14 作者：易語(yǔ)言源碼教程

今天小編就為大家分享一篇關(guān)于易語(yǔ)言編輯框加背景圖片代碼實(shí)例，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧

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.重畫 ()
.子程序 _編輯框1_滾輪被滾動(dòng), 邏輯型
.參數(shù) 滾動(dòng)距離, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
編輯框1.重畫 ()

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