Dim c() As Char = {"1", "2", "3"}

        Dim a() As String = s.Split(c)

        Dim p As String

        For Each p In a

            If p <> "" Then

                MessageBox.Show(p)

            End If

运行时拉伸和移动控件的类 使用递归从数据库读取数据来动态建立菜单

评论 (0) All