スクロールバーを制御したい

スクロールバーを制御したいのですが、方法がわかりません。最後までスクロールしたり、最初にスクロールする方法を教えてください
SETSLIDER、GETSLIDERの関数を使うことによって解決します。

GETSLIDER
スライダーの状態を取得

SETSLIDER
スライダーの状態を設定

//スクロールする元となるメモ帳を立ち上げる
 LF = ""
FOR A = 1 TO 100
 LF = LF + "あ<#CR>"
NEXT
ID = EXEC("notepad")
SENDSTR(ID,LF)

//スライダーの値を取得
vMIN = GETSLIDER(ID,1,SLD_MIN)
vMAX = GETSLIDER(ID,1,SLD_MAX)

//視覚的に分かりやすいように待機時間をはさみながらスクロール制御
FOR A = vMIN TO vMAX STEP 2
SETSLIDER(ID,A,1)
SLEEP(0.1)
NEXT

FOR A = vMAX TO vMIN STEP -2
SETSLIDER(ID,A,1)
SLEEP(0.1)
NEXT

SETSLIDERやGETSLIDERは関数の説明に詳細がありますのでご参考ください。

タグ

2012年12月3日 | コメントは受け付けていません。 |

カテゴリー:Q&A

SETSLIDER

SETSLIDER関数

スライダー、トラックバー、スクロールバーの値を設定する
戻値 = SETSLIDER( ウィンドウのID, 値 [,番号] )

引数  ID: Windowを識別するID
 値: 設定する値
 番号: 左上からのコントロールの順番
番号は1から指定 戻値
TRUE:正常
FALSE:正常以外 

メモ帳のスクロールバーの位置をセットする

メモ帳を起動し、改行を800回送信、
最後に、真ん中の位置にスクロールバーをセットする。
最初と、改行後と、最後にスクロールバーの位置を取得し、
出力する。

ID = exec("notepad")
PRINT "最初の位置:" + GETSLIDER(ID)
LF = ""
FOR A = 1 TO 800
LF = LF + "<#CR>"
NEXT
SENDSTR(ID,LF)
PRINT "最後の位置:" + GETSLIDER(ID)
SETSLIDER(ID,(GETSLIDER(ID)/2))
PRINT "中央の位置:" + GETSLIDER(ID)

タグ

2012年3月18日 | コメントは受け付けていません。 |

カテゴリー:関数一覧

このページの先頭へ