编辑框。把光标设置到最右侧。
编辑框设置文本("编辑框0", "abcdefg") //这句代码带有缺陷.
执行后,编辑框光标,会跳到最左侧,而不是留在最右侧。
var edit_hwnd = 控件获取句柄("编辑框0")
窗口设置焦点(edit_hwnd)
// 全选.
键盘按下(17) //Ctrl
窗口发送按键(edit_hwnd, 65) //A
键盘弹起(17)
// 编辑框光标,设置到最右侧.
键盘按下(17) //Ctrl
窗口发送按键(edit_hwnd, 35) //End
键盘弹起(17)
//我是这样做的,我只是想问,有没有大神教下,
//用像API之类的方式,用一行命令.就能实现出来
=======================================================
var hThread
功能 执行(下标)
var WM_GETTEXTLENGTH = #e
//14,得到与一个窗口有关的文本的长度.
var EM_SETSEL = #b1 //177
var edit_hwnd = 控件获取句柄("编辑框0")
窗口设置焦点(edit_hwnd)
if(下标 == 1)
windowsendmessage(edit_hwnd, EM_SETSEL, 0, -1) //选中全部
//0 表示第一个字符, -1 表示尾部最后一个字符.
elseif(下标 == 2)
var len = windowsendmessage(edit_hwnd, WM_GETTEXTLENGTH, 0, 0)//获取文本长度
windowsendmessage(edit_hwnd, EM_SETSEL, len + 1, -1)//选中尾部0个字符.
//len+1 表示超出最右侧.1个字符, -1 表示尾部最后一个字符.
end
结束
功能 按钮0_点击()
var bool = 线程获取状态(hThread)
if(bool == 0)
hThread = 线程开启("执行", 1)
end
结束
功能 按钮1_点击()
var bool = 线程获取状态(hThread)
if(bool == 0)
hThread = 线程开启("执行", 2)
end
结束
编辑框设置文本("编辑框0", "abcdefg") //这句代码带有缺陷.
执行后,编辑框光标,会跳到最左侧,而不是留在最右侧。
var edit_hwnd = 控件获取句柄("编辑框0")
窗口设置焦点(edit_hwnd)
// 全选.
键盘按下(17) //Ctrl
窗口发送按键(edit_hwnd, 65) //A
键盘弹起(17)
// 编辑框光标,设置到最右侧.
键盘按下(17) //Ctrl
窗口发送按键(edit_hwnd, 35) //End
键盘弹起(17)
//我是这样做的,我只是想问,有没有大神教下,
//用像API之类的方式,用一行命令.就能实现出来
=======================================================
var hThread
功能 执行(下标)
var WM_GETTEXTLENGTH = #e
//14,得到与一个窗口有关的文本的长度.
var EM_SETSEL = #b1 //177
var edit_hwnd = 控件获取句柄("编辑框0")
窗口设置焦点(edit_hwnd)
if(下标 == 1)
windowsendmessage(edit_hwnd, EM_SETSEL, 0, -1) //选中全部
//0 表示第一个字符, -1 表示尾部最后一个字符.
elseif(下标 == 2)
var len = windowsendmessage(edit_hwnd, WM_GETTEXTLENGTH, 0, 0)//获取文本长度
windowsendmessage(edit_hwnd, EM_SETSEL, len + 1, -1)//选中尾部0个字符.
//len+1 表示超出最右侧.1个字符, -1 表示尾部最后一个字符.
end
结束
功能 按钮0_点击()
var bool = 线程获取状态(hThread)
if(bool == 0)
hThread = 线程开启("执行", 1)
end
结束
功能 按钮1_点击()
var bool = 线程获取状态(hThread)
if(bool == 0)
hThread = 线程开启("执行", 2)
end
结束