bsp; P_FilePart = Pattern
P_StarPath = StarPath
P_IsBrow = IsBrow
FrmBrowFile.Show 1
BrowFile = P_FullFileName
End Function
''''
''''显示网上邻居
''''函数:ShowNetWork
''''参数:FrmCap 窗口标题,Labction 提示标签名.
''''返回值:[确定] 所选计算机名称.[取消] 空字符串.
''''例:
Public Function ShowNetWork(Optional FrmCap As String = "网上邻居", _
Optional Labction As String = "选择计算机名称.") As
String
ShowLan.Hide
ShowLan.Caption = FrmCap
ShowLan.LabNNCaption = Labction
ShowLan.Show 1
ShowNetWork = P_NetReturnVal
End Function
上一页 [1] [2] [3] [4] |
