Access快速开发平台最新版本:2.6.1.495设置“待处理事项提醒”模块,方便了用户快捷处理数据,具有一定的通用性。原模块设置在主窗体的右侧,背景图被压缩一部分,整体不够美观和协调,放在目录树下方更加美观。
设置思路:
1、在SysFrmMain_HomePage窗体中,把sfrPendingList设置为不显示。
2、在SysFrmMain添加sfrPendingList子窗体,并修改Form_Resize、lblResize_MouseMove程序。
代 码:
Private Sub Form_Resize()
Me.ocxTreeMenu.Height = lngDetailHeight / 2 + lngDetailHeight / 3 '修改该语句
……'添加如下程序
Me.sfrPendingList.width = Me.ocxTreeMenu.width
Me.sfrPendingList.Top = Me.ocxTreeMenu.Top + Me.ocxTreeMenu.Height
Me.sfrPendingList.Height = ValidSize(lngDetailHeight - Me.sfrPendingList.Top)
End Sub
Private Sub lblResize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'添加如下程序
Me.sfrPendingList.width = Me.ocxTreeMenu.width
End Sub
图 示: