フォーカスの制御

質問

VB6.0について質問です。
現在フォームが大きいのでピクチャーにスクロールバーをつけて対応しています。
それにフォーム上をクリックすることでも上下の移動を可能にしています。
しかし入力中(テキストボックス等)に誤ってフォームをクリックしてしまうと
フォーカスがピクチャーに移ってしまいます。
TabStopプロパティをEnableにしても変わりません；
どのようにしたらフォーカスが固定できますか？
現在のコードは以下のようになっています。

Picture1.TabStop = False
If Form.ScaleHeight / 2 - Y < 0 Then
Picture1.Top = Form.ScaleHeight / 2 - Y
If Picture1.Top < -14500 Then
Picture1.Top = -14500
End If
Else
Picture2.Top = 0
End If

回答No.2

noname#187541 · ベストアンサー

すみません。確認途中でアップしてしまいました。
サンプルコードは無視してください。書き直します。

Public Class Form1
Dim Flag As Integer

Private Sub Form1_Load(ByVal sender As _
Object, ByVal e As System.EventArgs) Handles Me.Load
Flag = 1
End Sub

Private Sub Form1_Click(ByVal sender As _
Object, ByVal e As System.EventArgs) Handles Me.Click
If Flag = 2 Then Exit Sub
処理
End Sub

Private Sub TextBox1_Enter(ByVal sender As _
Object, ByVal e As System.EventArgs) _
Handles TextBox1.Enter, TextBox2.Enter
Flag = 2
End Sub

Private Sub TextBox1_Validated(ByVal sender As _
Object, ByVal e As System.EventArgs) _
Handles TextBox1.Validated, TextBox2.Validated
Flag = 1
End Sub
End Class

回答No.1

noname#187541

こんばんは。

フラグを用意しておいて、フォームのクリックイベントでフラグを利用してキャンセルできるようにするというのはどうでしょうか。

Public Class Form1
Private Sub Form1_Click(ByVal sender As _
Object, ByVal e As System.EventArgs) Handles Me.Click
MsgBox("Click!")
End Sub

Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter
Me.t()
End Sub

Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated, TextBox2.Validated
Me.CausesValidation = True

End Sub
End Class