MyUI -- 对象
（创建时间：2012年08月13日 17:05:00）
Jangogo ： 

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


 

VB
  1. Public Function Create(objApp As Object, Optional objParam As Object) As Object  
  2.     On Error Resume Next  
  3.       
  4.       
  5.     Set MyApp = objApp   
  6.        
  7.     ''加载进销存全局变量   
  8.     Call LoadISYS   
  9.        
  10.     intModMain = Val(MyApp.GetXValue(objParam, "modMain"))   
  11.        
  12.     If objFrm Is Nothing Then  
  13.         Set objFrm = New frmMain   
  14.         Load objFrm   
  15.         MyApp.ShowForm objFrm, 0, False, True ', , , True   
  16.     Else  
  17.         objFrm.Show   
  18.     End If  
  19.     If intModMain = 0 Then intModMain = 1   
  20.     Call objFrm.SUItab_Click(objFrm.SUITab(intModMain))   
  21.     Set Create = Me  
  22. End Function  
  23. ''============================================================================================================   
  24. ''以下四个函数接口是用于主程序(Skin.dll)调用通知您的主界面相应的窗口事件,一般用户MDI（多文档窗口）的实现   
  25. Public Function EventFormShow(myForm As Object, ByVal Modal As Long) As Long  
  26.   
  27. End Function  
  28.   
  29. Public Sub EventFormUnload(ByVal hwnd As Long)   
  30.   
  31. End Sub  
  32.   
  33. Public Sub EventFormCaptionChanged(ByVal hwnd As Long)   
  34.   
  35. End Sub  
  36.   
  37. Public Sub EventFormActivate(ByVal hwnd As Long)   
  38.   
  39. End Sub  
  40. ''============================================================================================================   
  41.   
  42. ''以下内容用于界面管理器来读取你这个界面DLL的信息   
  43. Public Property Get Version() As String  
  44.     Version = "2012.7.17"  
  45. End Property  
  46.   
  47. Public Property Get Name() As String  
  48.     Name = "默认长条型界面"  
  49. End Property  
  50.   
  51. Public Property Get Description() As String  
  52.     Description = "长条型的主界面，会计人员操作比较简单方便，而且不占据整个桌面，给其他软件应用留出较多自由空间，缺点：不够大气，其他模块切换不太顺手。建议新手选用。"  
  53. End Property  
  54.   
  55.   
  56. ''MainForm属性把UI的主窗口公开出来，供报表设计器组件（GridDesigner）调用，   
  57. ''GridDesigner保存模板后会自动刷新主界面的Public Sub XCellReflashCall(Optional objProp As Object)   
  58. Public Property Get MainForm() As Object  
  59.   On Error Resume Next  
  60.   Set MainForm = objFrm   
  61. End Property  
2012年08月13日 17:05
回复(0)分类(1)转发(0)全文打开
文档中心