kyoutsu01 - vslibrary @ wiki

共通関数

Public Class Kyoutsu
   '----------------
   '数値が0～9の場合はTrue、それ以外はFalse
   '----------------
   Public Function Check(Byval s As String) as Boolean
      If i >= 0 And i <= 9 Then
         Return True
      Else
         Return Flase
      End Ff
   End Function
End Class

呼び出し側

Private Sub TextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp

   Dim K As ProjectXX.YYYY.Kyoutsu   '←共通関数を書いた場所
   K = New ProjectXX.YYYY.Kyoutsu

   If K.check(e.keycode) = True Then
      Messagebox.Show("0～9の値です")
   Else
      Messagebox.Show("0～9以外の値です")
   End If
End Sub