Question

急急急！易语言怎么改编辑框输入文字的颜色！我改不了了！我的代码如下，请高手指点

.版本 2

.程序集 窗口程序集1
.程序集变量 lpOldProc, 整数型
.程序集变量 hBlackBrush, 整数型
.程序集变量 HHOOK, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 图片, 对象

图片框1.可视 ＝ 假
图片.创建图片对象 (图片框1.图片)

hBlackBrush ＝ CreatePatternBrush (图片.读数值属性 (“handle”, ))
lpOldProc ＝ GetWindowLong (取窗口句柄 (), #GWL_WNDPROC)
SetWindowLong (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&WndProc))

HHOOK ＝ 设置系统钩子_ (#WH_MSGFILTER, &GetMsgProc, 0, 当前线程标志符_ ())

.子程序 GetMsgProc, 子程序指针
.参数 nCode, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.局部变量 M, MSG

拷贝内存_ (lParam, M, 4)
.如果真 (M.msg ＝ 0)
编辑框1.重画 ()
.如果真结束
返回 (呼叫下一钩子_ (HHOOK, nCode, wParam, lParam))

.子程序 WndProc, 整数型
.参数 hwnd, 整数型
.参数 umsg, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型

.如果真 (umsg ＝ #WM_CTLCOLOREDIT)
SetBkMode (wparam, #TRANSPARENT)
返回 (hBlackBrush)
.如果真结束
.如果真 (umsg ＝ 513)
编辑框1.重画 ()
.如果真结束
返回 (CallWindowProcA (lpOldProc, hwnd, umsg, wparam, lparam))

.子程序 __启动窗口_可否被关闭, 逻辑型

.如果真 (hBlackBrush ＞ 0)
DeleteObject (hBlackBrush)
.如果真结束
释放系统钩子_ (HHOOK)

.子程序 _编辑框1_内容被改变

编辑框1.重画 ()

.子程序 _编辑框1_滚轮被滚动, 逻辑型
.参数 滚动距离, 整数型
.参数 功能键状态, 整数型

编辑框1.重画 ()
我知道又 但是改不了，可能代码哪里出错了

Answer 1

.版本 2

.子程序 __启动窗口_创建完毕

编辑框1.文本颜色 ＝ #红色

Answer 2

编辑框1.文本颜色 ＝ #你需要的颜色

Answer 3

好像在属性里面有个文本颜色选择。难道你的没有吗？