コントロールのフォーカスを自動移動するには (ID:120896)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どうも舌足らずで失礼しました。 テストに使用したコードを提示いたします。 自分が見たところでは、明らかにココがバグというところを見つけられ ないですが。 よろしくお願いいたします。 ----------------------------------------------------------------- Private lpc As Control Private Sub Command1_Click(Index As Integer) Select Case lpc Case Text1 Set lpc = Nothing Text1.Text = Str(Index) Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Case Text2 Set lpc = Nothing Text2.Text = Str(Index) Text3.SetFocus Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) Case Text3 Set lpc = Nothing Text3.Text = Str(Index) Text3.SetFocus Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Select End Sub Private Sub Text1_GotFocus() Set lpc = Text1 End Sub Private Sub Text2_GotFocus() Set lpc = Text2 End Sub Private Sub Text3_GotFocus() Set lpc = Text3 End Sub -----------------------------------------------------------------