4Fang财务软件

Public MyUI As Object ''当前的主界面UI对象，包含以下属性和方法：

Public Function Create(objApp As Object, Optional objParam As Object) As Object
On Error Resume Next
Set MyApp = objApp
''加载进销存全局变量
Call LoadISYS
intModMain = Val(MyApp.GetXValue(objParam, "modMain"))
If objFrm Is Nothing Then
Set objFrm = New frmMain
Load objFrm
MyApp.ShowForm objFrm, 0, False, True ', , , True
Else
objFrm.Show
End If
If intModMain = 0 Then intModMain = 1
Call objFrm.SUItab_Click(objFrm.SUITab(intModMain))
Set Create = Me
End Function
''============================================================================================================
''以下四个函数接口是用于主程序(Skin.dll)调用通知您的主界面相应的窗口事件,一般用户MDI（多文档窗口）的实现
Public Function EventFormShow(myForm As Object, ByVal Modal As Long) As Long
End Function
Public Sub EventFormUnload(ByVal hwnd As Long)
End Sub
Public Sub EventFormCaptionChanged(ByVal hwnd As Long)
End Sub
Public Sub EventFormActivate(ByVal hwnd As Long)
End Sub
''============================================================================================================
''以下内容用于界面管理器来读取你这个界面DLL的信息
Public Property Get Version() As String
Version = "2012.7.17"
End Property
Public Property Get Name() As String
Name = "默认长条型界面"
End Property
Public Property Get Description() As String
Description = "长条型的主界面，会计人员操作比较简单方便，而且不占据整个桌面，给其他软件应用留出较多自由空间，缺点：不够大气，其他模块切换不太顺手。建议新手选用。"
End Property
''MainForm属性把UI的主窗口公开出来，供报表设计器组件（GridDesigner）调用，
''GridDesigner保存模板后会自动刷新主界面的Public Sub XCellReflashCall(Optional objProp As Object)
Public Property Get MainForm() As Object
On Error Resume Next
Set MainForm = objFrm
End Property

Public Function Create(objApp As Object, Optional objParam As Object) As Object
    On Error Resume Next
   
   
    Set MyApp = objApp
    
    ''加载进销存全局变量
    Call LoadISYS
    
    intModMain = Val(MyApp.GetXValue(objParam, "modMain"))
    
    If objFrm Is Nothing Then
        Set objFrm = New frmMain
        Load objFrm
        MyApp.ShowForm objFrm, 0, False, True ', , , True
    Else
        objFrm.Show
    End If
    If intModMain = 0 Then intModMain = 1
    Call objFrm.SUItab_Click(objFrm.SUITab(intModMain))
    Set Create = Me
End Function
''============================================================================================================
''以下四个函数接口是用于主程序(Skin.dll)调用通知您的主界面相应的窗口事件,一般用户MDI（多文档窗口）的实现
Public Function EventFormShow(myForm As Object, ByVal Modal As Long) As Long

End Function

Public Sub EventFormUnload(ByVal hwnd As Long)

End Sub

Public Sub EventFormCaptionChanged(ByVal hwnd As Long)

End Sub

Public Sub EventFormActivate(ByVal hwnd As Long)

End Sub
''============================================================================================================

''以下内容用于界面管理器来读取你这个界面DLL的信息
Public Property Get Version() As String
    Version = "2012.7.17"
End Property

Public Property Get Name() As String
    Name = "默认长条型界面"
End Property

Public Property Get Description() As String
    Description = "长条型的主界面，会计人员操作比较简单方便，而且不占据整个桌面，给其他软件应用留出较多自由空间，缺点：不够大气，其他模块切换不太顺手。建议新手选用。"
End Property

''MainForm属性把UI的主窗口公开出来，供报表设计器组件（GridDesigner）调用，
''GridDesigner保存模板后会自动刷新主界面的Public Sub XCellReflashCall(Optional objProp As Object)
Public Property Get MainForm() As Object
  On Error Resume Next
  Set MainForm = objFrm
End Property

2012年08月13日 17:05

回复(0)分类(1)转发(0)

文档中心