13518219792
if myreader.getstring(2) "" then
创新互联是一家专业的成都网站建设公司，我们专注成都网站建设、网站建设、网络营销、企业网站建设，买友情链接，广告投放平台为企业客户提供一站式建站解决方案，能带给客户新的互联网理念。从网站结构的规划UI设计到用户体验提高，创新互联力求做到尽善尽美。
else
....
end if
取反 这样可以的 我一直就这样写
对于窗体中的容器控件，比如 GroupBox，Panel 等，它仅仅访问了这些控件本身，而不会去访问它们的子控件。为了实现你所要求的功能，需要将上述代码修改：
Public Sub IterateThroughControls(ByVal parent As Control)
For Each c As Control In parent.Controls
MessageBox.Show(c.ToString())
If c.HasChildern Then
'利用递归实现容器子控件的访问，重复循环遍历控件，调用自身函数
IterateThroughControls(c)
End If
Next
End Sub
调用方法：
IterateThroughControls(TabControl1) 'tabcontrol1为控件名，也可用groupbox1等
此外，判断遍历的控件是不是相应的文本控件，或者combobox控件，可用此代码判断
For Each t As Control In Me.Controls
If TypeOf t Is TextBox Then
MsgBox(t)
End If
Next
第8个字符是个看不见的字符并且不是空格，可以查一下AscⅡ码值和空格值进行比较，如获取AscⅡ码值 Dim a = Asc(Mid("stopped8", 8, 1))
一： 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub
'通过过System.IO.DirectoryInfo对象可以查阅目录信息，下面是遍历一个文件夹下所有层次的子文件夹，如果只检查下一层目录就更简单了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim folder = New System.IO.DirectoryInfo("D:\Documents")
Dim items = getemptyfolder(folder)
For Each item In items
Console.WriteLine(item.FullName)
Next
End Sub
Function getemptyfolder(ByVal folder As System.IO.DirectoryInfo) As System.IO.DirectoryInfo()
Dim items As New List(Of System.IO.DirectoryInfo)
If folder.EnumerateFiles().Count = 0 Then
items.Add(folder)
End If
Dim subfolders = folder.EnumerateDirectories()
For Each subfolder In subfolders
items.AddRange(getemptyfolder(subfolder)) '查询树形目录结构类型数据用递归法实现
Next
Return items.ToArray()
End Function
'还是学c#语言吧，我发觉同样一个数组，c#功能多的多，vb.net没几条方法可用。
