module1.vb

来自「教务管理系统 vb写的 界面友好,管用!!!!!!!!!1」· VB 代码 · 共 17 行

Imports System.Data
'引入数据库操作类命名空间
Imports System.Data.OleDb
'引入ADO.NET操作命名空间
Module Module1

    Public Function Testtxt(ByVal txt As String) As Boolean
        '判断字符串是否为空
        If Trim(txt) = "" Then
            Testtxt = False
        Else
            Testtxt = True
        End If
    End Function

End Module