module1.bas

来自「office ppt考试系统 通过vb界面调用office接口进行ppt模拟考试」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module1"
Option Explicit

Public i As String
Public fso As New FileSystemObject
Public path As String
Public txtfile

 Public username As String
  Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function