很簡(jiǎn)單的txt=“”就提示
目前成都創(chuàng)新互聯(lián)公司已為千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站運(yùn)營(yíng)、企業(yè)網(wǎng)站設(shè)計(jì)、麗水網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
If?TextBox1.Text?=""?Then
MsgBox("不能為空",?MsgBoxStyle.OkOnly?+?MsgBoxStyle.Exclamation,?"錯(cuò)誤提示")
'或者這樣
If?TextBox1.Text?=?""?Then?????????????????????????????'錯(cuò)誤提示
ErrorProvider1.SetError(TextBox1,?"用戶名不能為空")
不知道你說(shuō)的空是哪種意思?
有兩種說(shuō)法,一種是String.Empty,例如
Dim s As String = String.Empty 等同于 Dim s As String = ""
這種情況下直接If s = "" Then就可以判斷是不是空.
還有一種是Nothing,必須要用If IsNothing(s) Then來(lái)判斷.
vb.NET有時(shí)很怪,不同版本,或者不同機(jī)器,在操作excel時(shí),判斷單元格是否為空時(shí),會(huì)出現(xiàn)不同的錯(cuò)誤提示。
大多數(shù)情況,xlSheet.Cells(1, 1)="" 就可以判斷這個(gè)單元是否有內(nèi)容。
但是有時(shí)也會(huì)有不同的提示。總結(jié)不同機(jī)器,不同版本,用下面幾種來(lái)試試單元格是否是空白。
xlSheet.Cells(1, 1)=""
xlSheet.Cells(1, 1).value=""
xlSheet.Cells(1, 1).value.tostring=""
如果上面三個(gè)代碼都會(huì)自動(dòng)提示錯(cuò)誤,請(qǐng)用下面終極模式:)
xlSheet.Cells(1, 1).value = Nothing
一: 利用錯(cuò)誤捕獲功能判斷
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "數(shù)組不為空"
End If
Exit Sub
z:
MsgBox "數(shù)組空"
End Sub
二、 Join方法:
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "為空"
Else
MsgBox "不為空"
End If
End Sub