快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

易语言怎么实现编辑框加背景图片

小编给大家分享一下易语言怎么实现编辑框加背景图片,希望大家阅读完这篇文章之后都有所收获,下面让我们一起去探讨吧!

创新互联建站是一家业务范围包括IDC托管业务,网络空间、主机租用、主机托管,四川、重庆、广东电信服务器租用,乐山服务器托管,成都网通服务器托管,成都服务器租用,业务范围遍及中国大陆、港澳台以及欧美等多个国家及地区的互联网数据服务公司。

DLL代码

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

常量表

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

编辑框加背景代码

.版本 2
.程序集 窗口程序集1
.程序集变量 lpOldProc, 整数型
.程序集变量 hBlackBrush, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 图片, 对象
图片框1.可视 = 假
图片.创建图片对象 (图片框1.图片)
hBlackBrush = CreatePatternBrush (图片.读数值属性 (“handle”, ))
lpOldProc = GetWindowLong (取窗口句柄 (), #GWL_WNDPROC)
SetWindowLong (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&WndProc))
.子程序 WndProc, 整数型
.参数 hwnd, 整数型
.参数 umsg, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.如果真 (umsg = #WM_CTLCOLOREDIT)
  SetBkMode (wparam, #TRANSPARENT)
  返回 (hBlackBrush)
.如果真结束
返回 (CallWindowProcA (lpOldProc, hwnd, umsg, wparam, lparam))
.子程序 __启动窗口_可否被关闭, 逻辑型
.如果真 (hBlackBrush > 0)
  DeleteObject (hBlackBrush)
.如果真结束
.子程序 _编辑框1_内容被改变
编辑框1.重画 ()
.子程序 _编辑框1_滚轮被滚动, 逻辑型
.参数 滚动距离, 整数型
.参数 功能键状态, 整数型
编辑框1.重画 ()

运行结果:

易语言怎么实现编辑框加背景图片

看完了这篇文章,相信你对“易语言怎么实现编辑框加背景图片”有了一定的了解,如果想了解更多相关知识,欢迎关注创新互联行业资讯频道,感谢各位的阅读!


分享名称:易语言怎么实现编辑框加背景图片
链接URL:http://6mz.cn/article/gegpjo.html

其他资讯