vb.net如果文本框是一個字符串

Question

對不起，因爲我不知道什麼叫標題無論如何我想保存文本框的值，如果它是一個整數到一個配置文件的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 

末級

Answer 1

如果您需要確定一個字符串是否是一個有效的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