-1

am 悪いタイトルでごめんなさい とにかくタイトルを何と呼ぶべきかわからなかった テキストボックスの値が整数の場合は IP という名前の設定ファイルに保存し、文字列の場合は DNS という名前に保存したい これがコード :

Public Class ServerSettings

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
    If IPHostInfo.Text = "" Then ' here if it's a string save it to my.settings.dns
        My.Settings.DNS() = IPHostInfo.Text

    Else : IPHostInfo.Text = ""
        My.Settings.IP() = IPHostInfo.Text 'and if it's an integer
    End If
    My.Settings.PORT() = IPInfo.Text
    My.Settings.TOut() = TOut.Text
    IPHostInfo.Text = IPHostInfo.Text
    IPInfo.Text = IPInfo.Text
    TOut.Text = TOut.Text
    Me.DialogResult = System.Windows.Forms.DialogResult.OK
    Me.Close()
End Sub

Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
    Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.Close()
End Sub

クラス終了

4

1 に答える 1

0

文字列が有効な IP アドレスかどうかを判断する必要がある場合、最も簡単な方法は単純に を呼び出すことだと思いIPAddress.TryParseます。たとえば、次のようにします。

If IPAddress.TryParse(IPHostInfo.Text, Nothing) Then
    ' It's an IP Address
    My.Settings.IP() = IPHostInfo.Text
Else
    ' It's not an IP Address, so it must be a DNS name
    My.Settings.DNS() = IPHostInfo.Text
End If
于 2012-09-12T13:13:16.930 に答える