home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_asst / vbassist.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  6.2 KB  |  185 lines
  1. VERSION 2.00
  2. Begin Form VBAssist 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VB Assistant"
  5.    ClientHeight    =   2355
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   3870
  9.    Height          =   2760
  10.    Icon            =   VBASSIST.FRX:0000
  11.    Left            =   1035
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   2355
  16.    ScaleWidth      =   3870
  17.    Top             =   1140
  18.    Width           =   3990
  19.    Begin ListBox lstTextFiles 
  20.       Height          =   1590
  21.       Left            =   1980
  22.       Sorted          =   -1  'True
  23.       TabIndex        =   4
  24.       Top             =   720
  25.       Width           =   1815
  26.    End
  27.    Begin ListBox lstHelpFiles 
  28.       Height          =   1590
  29.       Left            =   60
  30.       Sorted          =   -1  'True
  31.       TabIndex        =   3
  32.       Top             =   720
  33.       Width           =   1815
  34.    End
  35.    Begin CommandButton btnIconEditor 
  36.       Caption         =   "&Icon Editor"
  37.       Height          =   315
  38.       Left            =   1980
  39.       TabIndex        =   2
  40.       Top             =   60
  41.       Width           =   1815
  42.    End
  43.    Begin CommandButton btnSaveNRun 
  44.       Caption         =   "&Save-n-Run"
  45.       Height          =   315
  46.       Left            =   60
  47.       TabIndex        =   1
  48.       Top             =   60
  49.       Width           =   1815
  50.    End
  51.    Begin Label lblTextFiles 
  52.       Caption         =   "Text Files"
  53.       ForeColor       =   &H00FF0000&
  54.       Height          =   195
  55.       Left            =   1980
  56.       TabIndex        =   5
  57.       Top             =   480
  58.       Width           =   1815
  59.    End
  60.    Begin Label lblHelpFiles 
  61.       Caption         =   "Help Files"
  62.       ForeColor       =   &H00FF0000&
  63.       Height          =   195
  64.       Left            =   60
  65.       TabIndex        =   0
  66.       Top             =   480
  67.       Width           =   1815
  68.    End
  69. Dim Result As Integer
  70. Sub btnIconEditor_Click ()
  71.     Screen.MousePointer = 11
  72.     On Error GoTo Error_IconEditor
  73.     Result = Shell("\vb\samples\iconwrks\iconwrks", 1)
  74.     GoTo End_IconEditorSub
  75. Error_IconEditor:
  76.     MsgBox "Error executing icon editor.", 16, "VB Assistant"
  77.     Resume End_IconEditorSub
  78. End_IconEditorSub:
  79.     Screen.MousePointer = 0
  80. End Sub
  81. Sub btnSaveNRun_Click ()
  82.     Screen.MousePointer = 11
  83.     On Error GoTo Error_SaveNRun
  84.     AppActivate "Microsoft Visual Basic [design]"
  85.     SendKeys "%FV{F5}"
  86.     GoTo End_SaveNRunSub
  87. Error_SaveNRun:
  88.     MsgBox "Error executing Save-n-Run.", 16, "VB Assistant"
  89.     Resume End_SaveNRunSub
  90. End_SaveNRunSub:
  91.     Screen.MousePointer = 0
  92. End Sub
  93. Sub Form_Load ()
  94.     'Change mouse to hourglass
  95.     Screen.MousePointer = 11
  96.     'Put it way in the lower left corner
  97.     VBAssist.Left = Screen.Width - VBAssist.Width
  98.     VBAssist.Top = Screen.Height - VBAssist.Height
  99.     'Text Files
  100.     lstTextFiles.AddItem "Q+E/VB DBF's"
  101.     lstTextFiles.AddItem "Q+E/VB Err's"
  102.     lstTextFiles.AddItem "Q+E/VB Hints"
  103.     lstTextFiles.AddItem "PropView"
  104.     lstTextFiles.AddItem "VB Constants"
  105.     lstTextFiles.AddItem "VB Quirks"
  106.     lstTextFiles.AddItem "VBPro Constants"
  107.     lstTextFiles.AddItem "VBPro Help Decs"
  108.     lstTextFiles.AddItem "VBPro HugeArry"
  109.     lstTextFiles.AddItem "VBPro Pen API"
  110.     lstTextFiles.AddItem "VBPro SetupKit"
  111.     lstTextFiles.AddItem "VBPro Win API"
  112.     'Help Files
  113.     lstHelpFiles.AddItem "Visual Basic"
  114.     lstHelpFiles.AddItem "Q+E/VB"
  115.     lstHelpFiles.AddItem "Win API"
  116.     lstHelpFiles.AddItem "API XRef"
  117.     lstHelpFiles.AddItem "Setup Kit"
  118.     lstHelpFiles.AddItem "VB Knowledge"
  119.     lstHelpFiles.AddItem "Control XRef"
  120.     'Restore mouse
  121.     Screen.MousePointer = 0
  122. End Sub
  123. Sub lstHelpFiles_DblClick ()
  124.     Screen.MousePointer = 11
  125.     On Error GoTo Error_HelpFiles
  126.     Select Case lstHelpFiles.Text
  127.         Case "Visual Basic"
  128.             Result = Shell("winhelp \vb\vb", 1)
  129.         Case "Q+E/VB"
  130.             Result = Shell("winhelp \qevb\qevb", 1)
  131.         Case "Win API"
  132.             Result = Shell("winhelp \vbpro\winapi\winsdk", 1)
  133.         Case "API XRef"
  134.             Result = Shell("winhelp \vbpro\winapi\apixref", 1)
  135.         Case "Setup Kit"
  136.             Result = Shell("winhelp \vbpro\setupkit\setupkit", 1)
  137.         Case "VB Knowledge"
  138.             Result = Shell("winhelp \vbpro\vbknowlg", 1)
  139.         Case "Control XRef"
  140.             Result = Shell("winhelp \vbpro\ctrlref", 1)
  141.     End Select
  142.     GoTo End_HelpFilesSub
  143. Error_HelpFiles:
  144.     MsgBox "Error executing WinHelp.", 16, "VB Assistant"
  145.     Resume End_HelpFilesSub
  146. End_HelpFilesSub:
  147.     Screen.MousePointer = 0
  148. End Sub
  149. Sub lstTextFiles_DblClick ()
  150.     Screen.MousePointer = 11
  151.     On Error GoTo Error_TextFiles
  152.     Select Case lstTextFiles.Text
  153.         Case "Q+E/VB DBF's"
  154.             Result = Shell("notepad \qevb\qevbdbf.txt", 1)
  155.         Case "Q+E/VB Err's"
  156.             Result = Shell("notepad \qevb\qevberr.txt", 1)
  157.         Case "Q+E/VB Hints"
  158.             Result = Shell("notepad \qevb\xdb.txt", 1)
  159.         Case "PropView"
  160.             Result = Shell("notepad \win\system\propview.txt", 1)
  161.         Case "VB Constants"
  162.             Result = Shell("notepad \vb\texts\constant.txt", 1)
  163.         Case "VB Quirks"
  164.             Result = Shell("notepad \vb\texts\vbquirk.txt", 1)
  165.         Case "VBPro Constants"
  166.             Result = Shell("notepad \vbpro\const2.txt", 1)
  167.         Case "VBPro Help Decs"
  168.             Result = Shell("notepad \vbpro\hc\winhelp.txt", 1)
  169.         Case "VBPro HugeArry"
  170.             Result = Shell("notepad \vbpro\samples\hugearry\readme.txt", 1)
  171.         Case "VBPro Pen API"
  172.             Result = Shell("notepad \vbpro\samples\pen\vbpenapi.txt", 1)
  173.         Case "VBPro SetupKit"
  174.             Result = Shell("notepad \vbpro\setupkit\readme.txt", 1)
  175.         Case "VBPro Win API"
  176.             Result = Shell("\dos\edit.com /h \vbpro\winapi\winapi.txt", 1)
  177.     End Select
  178.     GoTo End_TextFilesSub
  179. Error_TextFiles:
  180.     MsgBox "Error executing text editor.", 16, "VB Assistant"
  181.     Resume End_TextFilesSub
  182. End_TextFilesSub:
  183.     Screen.MousePointer = 0
  184. End Sub
  185.