易語言編輯框加背景圖片代碼實例

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

今天小編就為大家分享一篇關于易語言編輯框加背景圖片代碼實例，小編覺得內(nèi)容挺不錯的，現(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ù)型
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 圖片, 對象
圖片框1.可視 ＝ 假
圖片.創(chuàng)建圖片對象 (圖片框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)
.如果真結束
返回 (CallWindowProcA (lpOldProc, hwnd, umsg, wparam, lparam))
.子程序 __啟動窗口_可否被關閉, 邏輯型
.如果真 (hBlackBrush ＞ 0)
  DeleteObject (hBlackBrush)
.如果真結束
.子程序 _編輯框1_內(nèi)容被改變
編輯框1.重畫 ()
.子程序 _編輯框1_滾輪被滾動, 邏輯型
.參數(shù) 滾動距離, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
編輯框1.重畫 ()

運行結果：