投稿日 | : 2003/09/16(Tue) 19:50 |
投稿者 | : J |
Eメール | : |
URL | : |
タイトル | : Re: フラグでもいいけど… |
こんな感じですかね。
Dim poPreview As TextBox
Private Sub Command1_Click()
Command1.Enabled = False
poPreview.SetFocus
End Sub
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
Set poPreview = Text1
End Sub
Private Sub Text2_Change()
Command1.Enabled = True
Set poPreview = Text2
End Sub
最終的に変更されたテキストボックスにフォーカス(カーソル?)が移動することに注意してください。