タイトル : IPアドレス 投稿日 : 2008/06/30(Mon) 10:03 投稿者 : IP
テキストボックスに 0.0.0.0〜255.255.255.255のアドレスだけしか入力させないプログラムを書いたのですが 予想される規定を色々考えて書いていたら、 めちゃくちゃ変数を使い長い文になってしまいました。 Timer1_Timer内で Dim PortCheck1 As Boolean 'ポート名確認 Dim PortCheck2 As Boolean Dim PortCheck3 As Boolean Dim PortCheck4 As Boolean Dim PortCheck5 As Boolean Dim PortCheck6 As Boolean PortCheck1 = PortName.Text Like "*#.*#.*#.*#" PortCheck2 = PortName.Text Like "*.*.*.####" PortCheck3 = PortName.Text Like "*.*.*.#####" PortCheck4 = PortName.Text Like "*.*.*.######" PortCheck5 = PortName.Text Like "*.*.*.#######" PortCheck6 = PortName.Text Like "*.*.*.########" ↑このように定義し(一部です・・・。) If PortCheck1 = True And PortCheck2 = False _ And PortCheck3 = False And PortCheck4 = False _ And PortCheck5 = False And PortCheck6 = False Then ↑このようにいくつもFalseかTrueか判別させ入力させないという文にしました。 このような長い文ではなく下記の ・0.0.0.0〜255.255.255.255まで ・もちろんピリオド "." は3つまで ・特殊記号を使わない ・大文字不可 これらの条件を満たすコーディングを思いついた方、 解答宜しくお願いいたします。 |