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

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

创新互联建站是一家业务范围包括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://bzwzjz.com/article/gegpjo.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站建设 成都品牌网站设计 成都网站设计 网站建设 高端网站设计推广 网站建设推广 成都网站设计 成都网站建设 成都网站建设公司 定制网站建设多少钱 响应式网站建设 企业网站设计 专业网站建设 网站设计公司 成都网站设计制作公司 响应式网站设计 成都商城网站建设 网站制作公司 重庆企业网站建设 专业网站设计 成都网站制作 成都响应式网站建设