如果您輸入第一個「」，文本框將不會接受「」

我有2個問題。首先，我有一個名爲Student Name的TextBox。我的問題是，當我按空間我的TextBox中的值將是" "。然後當我按保存按鈕它保存在我的數據庫。如果您輸入第一個「」，文本框將不會接受「」

那麼我在我的文本框中的條件是它不會保存，如果theres沒有文字，但因爲它有一個值" "其接受。第二個是你不能輸入"space first before letter"。例如，如果你輸入" John"它會顯示一個消息，說："Theres no name that starts with space!"以及類似的東西...

來源

2014-03-05 user3367973

這個簡單，如果循環會做什麼，如果Textbox1是" "，它會警告你，如果文本只是一個空間，否則它會執行一個動作

Private Sub SaveBtn_Click(sender As System.Object, e As System.EventArgs) Handles SaveBtn.Click 

    Dim _string As String = TextBox1.text 
    If _string = " " Then 
     ' do nothing 
    ElseIf _string.Substring(0, 1) = " " Then 
     MessageBox.Show("Theres no name that starts with space!") 
    Else 
     'save to database code 
    End If 


End Sub

來源

2014-03-05 09:57:15 TylerDurden

@ user3367973你得到這個工作自動化像這樣使每個輸入將被修正甚至空間 – TylerDurden

你想使用Trim()函數。

yourTextBox.Text.Trim()

您可以使用下面的代碼：

If String.IsNullOrWhiteSpace(TextBox1.Text.Trim()) Then 
     'incorrect input 
    Else 
     'correct input 
    End If

我建議你不要回來服務器只說，第一個字符不能爲空格。您只需使用Trim()函數並刪除前導空格和尾隨空格。

來源

2014-03-05 09:57:32

'check for empty strings or only whitespace 
if string.isnullorwhitespace(textbox1.text) then 
    Messagebox.show("You have entered a blank name") 

elseif textbox1.text(0) = " " then 'First letter is a space 
    Messagebox.show("Theres no name that starts with space!") 
else 
    'all requirements have been met, put your update to database code here 
end

來源

2014-03-05 10:00:57 5uperdan

你可以只在最後

If TextBox1.Text.Trim(" ") = String.Empty Then 
     MessageBox.Show("You have entered a blank name") 
    Else 
     Dim inputstring As String = TextBox1.Text 

     inputstring = TextBox1.Text.TrimEnd(ControlChars.NewLine.ToCharArray) 
     inputstring = inputstring.TrimStart(" ") 
     inputstring = inputstring.TrimEnd(" ") 
     inputstring = inputstring.Replace(vbNewLine, " ") 
     TextBox1.Text = inputstring 
    End If

這部作品在單一和多行文本框

來源

2014-03-05 19:00:51 Nocturnal

如果您輸入第一個「」，文本框將不會接受「」

回答

相關問題