Subプロシージャについて教えてください。 (ID:126541)

名前

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

本文 これだと動くよ。 Sub Limit(intKey As Integer) Select Case intKey Case Asc("0") To Asc("9") Case Asc("-") Case vbKeyBack Case Else intKey = 0 End Select End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Call Limit(KeyAscii) End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Call Limit(KeyAscii) End Sub