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

創(chuàng)新互聯(lián)建站是一家業(yè)務范圍包括IDC托管業(yè)務,網(wǎng)絡空間、主機租用、主機托管，四川、重慶、廣東電信服務器租用,樂山服務器托管，成都網(wǎng)通服務器托管,成都服務器租用,業(yè)務范圍遍及中國大陸、港澳臺以及歐美等多個國家及地區(qū)的互聯(lián)網(wǎng)數(shù)據(jù)服務公司。

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

運行結果：

看完了這篇文章，相信你對“易語言怎么實現(xiàn)編輯框加背景圖片”有了一定的了解，如果想了解更多相關知識，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝各位的閱讀！

標題名稱：易語言怎么實現(xiàn)編輯框加背景圖片
本文URL：http://redsoil1982.com.cn/article20/gegpjo.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供關鍵詞優(yōu)化、、微信公眾號、手機網(wǎng)站建設、軟件開發(fā)、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)