投稿日 | : 2004/02/05(Thu) 14:27 |
投稿者 | : ak |
Eメール | : |
URL | : |
タイトル | : Re^2: サンプル(改) |
> InputManでは・・・・やはり難しいのでしょうか?
InputManでしたらすごく簡単に実現できます。
下記サンプルを試してみてください。
'(*.Frm)フォームにimTextを配列で数個配置してください。(imText1(0)〜imText1(n))
Option Explicit
Private Sub Form_Load()
Dim ii As Integer
For ii = imText1.LBound To imText1.UBound
With imText1(ii)
.MaxLength = ii + 2
.EditMode = imOverwrite
.Key.NextCtrl = "{Enter}"
.Key.PrevCtrl = "+{Enter}"
End With
Next ii
End Sub
Private Sub imText1_Change(Index As Integer)
If imText1(Index).SelStart = imText1(Index).MaxLength Then SendKeys "{TAB}"
End Sub