テキストボックスにカーソルを合わせた時に数字を消すには？

解決

---

テキストボックスに数字を入力する画面を表示した時に、表示直後０を入れておき
、もしテキストボックスの数字を変更したいのならそのテキストボックスに
カーソルをもっていくと自動的に０が選択され、数字を入力すると０がかってに
消えるということをしたいのですが・・・
普通のソフトでよくあるやつです。
初心者なのでどうやってすればいいのかわかりません。
知っている人がいたら教えてください。

編集 削除

---

GotFocus イベントを追加するだけです。

Private Sub Text1_GotFocus()
    With Text1
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

編集 削除

---

とろさん返答ありがとうございました。レスが遅れて申し訳ありません
でした。
テキストボックスがコントロール配列で１０個並んでいるのですが
そういった場合はどうやって宣言させてあげればいいのでしょうか？
お願いいたします。

編集 削除

---

宣言というのが意味分からないのですが、
For文などでコントロール配列の位置を変えれば実現可能です。

編集 削除

---

> 宣言というのが意味分からないのですが、
ホントですよねぇ．．． (^ ^)
宣言ってなんでしょう．．．？

まっ、同じようにするならば、次のような感じですか。

Private Sub Text1_GotFocus(Index As Integer)
    With Text1(Index)
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

編集 削除

---

あんちゃんさんありがとうございます。
宣言というのはここではソースの書き方の意味です。意味不明な言葉を
使ってしまい申し訳ありませんでした。
コントロール配列の位置を変えるとは具体的にどんな感じにすればいいので
しょうか？
VBまったくの初心者なもので、申し訳ありませんがお願いします。

編集 削除

---

とろさんありがとうございました。
書いてくださった通りにしたらできました。
まだはじめたばかりなのでコントロール配列などについてまったく
知らないもので・・・お騒がせしました。
また何かありましたらお願い致します。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。