PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 680 | 98/02/25 14:16:08 | RE(6):Ｅｎｔｅｒキーで移動することができましたが(3) By M.M |
| 679 | 98/02/25 14:12:28 | RE(5):Ｅｎｔｅｒキーで移動することができましたが(2) By M.M |
| 678 | 98/02/25 14:04:59 | RE(4):Ｅｎｔｅｒキーで移動することができましたが(1) By M.M |
カテゴリ：旧電子会議室
日付：1998年02月25日 14:12 発信者：M.M
題名：RE(5):Ｅｎｔｅｒキーで移動することができましたが(2)
(1)の続き
????????????????????????????????????????
//現在フォーカスのあるコントロールのタブ値を取得
currentControl = GetFocus( )
currentWindowObject = currentControl
currentControlTaborder = currentWindowObject.taborder
//タブ値の最大値、最小値、現在のコントロールの前のタブ値、次のタブ値を取得
minControlNumber = 0
maxControlNumber = 0
prevControlNumber = 0
nextControlNumber = 0
minControlTaborder = 32767 /* Int型の最大値 */
maxControlTaborder = 0
prevControlTaborder = maxControlTaborder
nextControlTaborder = minControlTaborder
For i=1 to cmax
tempWindowObject = this.control[i]
If tempWindowObject.taborder>maxControlTaborder Then
maxControlTaborder = tempWindowObject.taborder
maxControlNumber = i
End If
If (tempWindowObject.taborder
minControlTaborder = tempWindowObject.taborder
minControlNumber = i
End If
If (tempWindowObject.taborder>currentControlTaborder) and
(tempWindowObject.taborder
nextControlTaborder= tempWindowObject.taborder
End If
If (tempWindowObject.taborder
prevControlNumber = i
prevControlTaborder= tempWindowObject.taborder
End If
Next
????????????????????????????????????????
(続く)
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.