2023年3月22日发(作者:孕妇能吃哪些食物螳臂当车歇后语
)
Public Function GetUrInfo() 张贴英语
'获取用户信息
Dim sUrID As String
Dim sUrName As String
Dim sGroupName As String
UrInfo sUrID, sUrName, sGroupName
tValue = sGroupName
tValue = sUrName
tValue = sUrID
End Function
Public Sub CloPic(Text As String, Length As Integer) '关闭所有画面 (注:Length为文件名的前几个字母个数,Text必须为大写字母)
Dim草根鱼
i As Integer
Dim Ob奶油蘑菇汤的做法
jPic As Object
F英语朗诵
or Each ObjPic In nts
If Left(UCa(), Leng日记六年级
th) = Text Then
CloPicture
End If
Next
End Sub
注销钮脚本
If tValue = "GUEST" Then
If n = True Then
Cmd_n = "注销"
End If
El
out
MsgBox "用户注销成功!", vbOKOnly + vbCrit残疾证申请书范文
ical, "提示。。。"
in "GUEST", ""
Call rInfo
Cmd_n = "登陆"
End If