Toolbar should contain the following tools.
Notepad, Wordpad, Calculator, Windows Explorer, Paint Brush, MS Word, MS PowerPoint, MS Excel.
User will click on any of the tools and related application should open.
Private Sub Toolbar1_ButtonClick(ByVal Button As
MSComctlLib.Button)
Select Case Button.Key
Case "a"
Shell "notepad"
Case "b"
Shell "C: \ Program
Files\WindowsNT\Accessories\Wordpad.exe"
Case "c"
Shell "C:\WINDOWS\system32\calc.exe"
Case "d"
Shell "explorer.exe"
Case "e"
Shell "C:\WINDOWS \system32\mspaint.exe"
Case "f"
Shell "C:\Program Files\Microsoft
office\Office10\Winword.exe"
Case"g"
Shell "C:\Program Filesl\Microsoft Office\Office10\powerpnt.exe"
Case"h"
Shell "C:\Program Filesl\Microsoft Office\Office10\excel.exe"
End Select
End Sub
No comments:
Post a Comment