[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/04/19(Tue) 13:07
投稿者名：いち
Ｅメール：
ＵＲＬ　：
タイトル：テキストボックスに数値のみ入力可能にするには？
よろしくお願いします。
VB6.0　WIN2000Pro　

テキストボックスに数値のみ入力したいのですが、テキストボックスを何個か作ったので配列になっ
ていま
す。この配列で実行するとエラーになってしまいます。
何か良い方法は無いでしょうか？よろしくお願いします。
text1(0)〜text1(10)まであります。

Private Sub text1_KeyPress(KeyAscii As Integer)

　　If Asc(KeyAscii) >= 48 And 57 <= Asc(KeyAscii) Or Asc(KeyAscii) = 8 Then
    　　Exit Sub
　　Else
　　End If

KeyAscii = 0
End Sub

投稿時間：2005/04/19(Tue) 14:58
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: テキストボックスに数値のみ入力可能にするには？
> text1(0)〜text1(10)まであります。

配列なら下記のようなイベントは、無いはずですが。正しいイベントに書いてください。
> Private Sub text1_KeyPress(KeyAscii As Integer)

投稿時間：2005/04/19(Tue) 15:52
投稿者名：いち
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: テキストボックスに数値のみ入力可能にするには？
早速ご返事ありがとうございます。

> 配列なら下記のようなイベントは、無いはずですが。正しいイベントに書いてください。

そうなんです、無いので「コンパイルエラー」が出ます。
なにぶんわからないことが多く、どう記述したらよいのでしょうか？

よろしくお願いします。

投稿時間：2005/04/19(Tue) 15:56
投稿者名：いな
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: テキストボックスに数値のみ入力可能にするには？
わからないではなく、おそらく引数が足りてないだけでは？
他のイベントでも(Index)ってのがついたような気がしますが・・・。

自分で消さない限り、そこって意識しないような気がしますが・・・。

投稿時間：2005/04/19(Tue) 16:09
投稿者名：いち
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: テキストボックスに数値のみ入力可能にするには？
花ちゃんさん　ありがとうございます。

すいません。引数が足りなかったです。

結果
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
で上手くいきました。

ありがとうございました。

> わからないではなく、おそらく引数が足りてないだけでは？
> 他のイベントでも(Index)ってのがついたような気がしますが・・・。
>
> 自分で消さない限り、そこって意識しないような気がしますが・・・。