Re: Easy toolbar question
|
Here's the code from one of my apps...
<PRE><CODE>
Private Sub tblMain_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.index
Case 1
Screen.MousePointer = vbHourglass
Load FormDailyClose
Screen.MousePointer = vbDefault
Case 3
Screen.MousePointer = vbHourglass
Load FormWeeklyClose
Screen.MousePointer = vbDefault
Case 5
Screen.MousePointer = vbHourglass
Load FormPanpoll
Screen.MousePointer = vbDefault
Case 7
Screen.MousePointer = vbHourglass
Load FormMngRpt
Screen.MousePointer = vbDefault
Case 9
ProfitTrackerForm.Show
ProfitTrackerForm.SetFocus
Case 11
Unload MDIFormMain
End Select
End Sub
</PRE></CODE>
"I have a plan so cunning you could put a tail on it and call it a weasel!" - Edmund Blackadder
|
__________________
"I have a plan so cunning you could put a tail on it and call it a weasel!" - Edmund Blackadder
|