Public Sub ReadFrm(FrmName As String) '读窗体文体 Din str As String str=Dir(App.Path & "\Frm\" & FrmName) If str<>"" Then Main.Small.UnloadPanel Main.Small.LoadPanel App.Path & "\Frm" & FrmName Else MsgBox "无窗体文件",VbCritical, "错误" EndIf End Sub ReadFrm "a.frm" '程序中都是通用此函数调用小窗体这段代码如何改才能解决安装后小窗体隐藏的问题呢?
Din str As String
str=Dir(App.Path & "\Frm\" & FrmName)
If str<>"" Then
Main.Small.UnloadPanel
Main.Small.LoadPanel App.Path & "\Frm" & FrmName
Else
MsgBox "无窗体文件",VbCritical, "错误"
EndIf
End Sub
ReadFrm "a.frm" '程序中都是通用此函数调用小窗体这段代码如何改才能解决安装后小窗体隐藏的问题呢?