如何能控制 GUICtrlCreateEdit 滚动条,移动到最顶或者最底 内有图

病毒专收员

请教下,如何能控制 GUICtrlCreateEdit 滚动条,移动到最顶或者最底.如下图!

maxkingmax

帮顶一下
焦点
CTRL+HOME 开关
CTRL+END 结尾

病毒专收员

有没更精确的办法?

afan

貌似最简单就这样

bing614

使用
_GUICtrlRichEdit_ScrollToCaret
_GUICtrlRichEdit_ScrollLines
_GUICtrlRichEdit_ScrollLineOrPage

水木子

楼上的UDF函数更方面。

afan

我这没这富文本操作的udf，不知道是否方便

水木子

嘿嘿！随便写了一个

#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScrollBarConstants.au3>

$Form1 = GUICreate("Form1", 320, 300)
$List1 = GUICtrlCreateEdit("", 10, 10, 300, 200)
$Button1 = GUICtrlCreateButton("向上翻滚", 20, 230, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("向下翻滚", 120, 230, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("暂停", 220, 230, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

For $i = 1 To 100        
        _GUICtrlEdit_AppendText($List1 ,$i&@LF)
Next
Send("^{HOME}")

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $Button1
                        AdlibUnRegister( "xia" )
                        AdlibRegister('shang' ,100)
                Case $Button2
                        AdlibUnRegister( "shang" )
                        AdlibRegister('xia' ,100)                
                Case $Button3
                        AdlibUnRegister( "shang" )
                        AdlibUnRegister( "xia" )
        EndSwitch
WEnd

Func shang()        
        _GUICtrlEdit_Scroll($List1, $SB_LINEUP)
EndFunc        

Func xia()        
        _GUICtrlEdit_Scroll($List1, $SB_LINEDOWN)
EndFunc        

病毒专收员

感谢大家的支持,问题解决.!

styledream

有趣的提问！
学习了！

zhenglei

GUICtrlCreateEdit 滚动条,移动到最顶或者最底

ragnada

還有這一招喔

a13701512730

学习了，，