软件界面窗口修改方案

软件界面窗口修改方案

2017/1/6

窗体属性修改

• MaxButton = True
• MinButton = True
• MDIChild = True

工具栏中的按钮

// 可以设置是否启用的按钮 
新建  New     tbAddNew
编辑  Edit    tbEdit
打开  Open    tbOpen
保存  Save    tbSave
撤销  Cancel  tbCancel
删除  DelRow  tbDelRow
刷新  Refresh tbRefresh
打印  Print   tbPrint
导出  Export  tbExport
查找  Find    tbFind
表单  ShowForm    tbForm
帮助  Help    tbHelp

// 工具栏可以修改Visual属性有：
编辑  Edit    tbEdit  
打开  Open    tbOpen  
保存  Save    tbSave  
撤销  Cancel  tbCancel
删除  DelRow  tbDelRow

前部增加

Implements iForm 
Private Const mcstrMod$ = "frmBaseStore" '窗体名称
Private m_EnableAttr As ToolBarItems 
Private m_FindSubTools As cFindSubTools 

在Form三个事件Load、Activate、Unload中增加代码

Private Sub Form_Load() 
    '增加行代码 
        Me.Icon = Nothing
       m_Toolbar.Attach Me, Name
End Sub 

Private Sub Form_Activate()
'增加一行代码
m_Toolbar.Activate Name
End Sub


Private Sub Form_Unload(Cancel As Integer)
    m_Toolbar.Detach Name
End Sub

增加一个方法

Private Sub EnableToolbar(ByVal Dirty As Boolean)
    On Error Resume Next
    If Not Dirty Then   'Dirty = False
        m_EnableAttr = 0
    Else
        m_EnableAttr = tbEdit + tbOpen + tbSave + tbCancel + tbDelRow
    End If
    m_Toolbar.RefreshEnabledState
End Sub

实现接口 iForm 方法

'实现接口iForm方法
Private Sub iForm_AddNew()

End Sub
'在此属性中实现要显示的按钮
Private Property Get iForm_Attributes() As ToolBarItems
    iForm_Attributes = tbEdit + tbAddNew + tbDelRow _
        + tbRefresh + tbPrint + tbExport
End Property

Private Sub iForm_Cancel()

End Sub

Private Sub iForm_CloseMe()
    Unload Me
End Sub

Private Sub iForm_DeleteRow()

End Sub

Private Sub iForm_Edit()

End Sub

Private Property Get iForm_EnableAttributes() As ToolBarItems
    iForm_EnableAttributes = m_EnableAttr
End Property

Private Sub iForm_Export()

End Sub

Private Sub iForm_Find(ByVal Key As String)

End Sub

Private Sub iForm_FindForm()

End Sub

Private Property Get iForm_FindSubTools() As cFindSubTools
    Set iForm_FindSubTools = m_FindSubTools
End Property

Private Sub iForm_HelpAbout()
    frmAbout.Show
End Sub

Private Sub iForm_MainMenu()
    fMainForm.mtMenus.Visible = Not fMainForm.mtMenus.Visible
End Sub

Private Function iForm_OpenDB() As Boolean

End Function

Private Sub iForm_OpenForm()

End Sub

Private Sub iForm_PrintOut()

End Sub

Private Sub iForm_Refresh()

End Sub

Private Function iForm_Save() As Boolean

End Function