home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-16  |  5.9 KB  |  202 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Main Menu"
  6.    ClientHeight    =   3840
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   2805
  10.    Icon            =   "Main.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3840
  16.    ScaleWidth      =   2805
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19. Attribute VB_Name = "frmMain"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = False
  22. Attribute VB_PredeclaredId = True
  23. Attribute VB_Exposed = False
  24. Option Explicit
  25. Private WithEvents cmdFntTst As ComboPack.Button
  26. Attribute cmdFntTst.VB_VarHelpID = -1
  27. Private WithEvents cmdSplitFile As ComboPack.Button
  28. Attribute cmdSplitFile.VB_VarHelpID = -1
  29. Private WithEvents cmdCmdCol As ComboPack.Button
  30. Attribute cmdCmdCol.VB_VarHelpID = -1
  31. Private WithEvents cmdStrManip As ComboPack.Button
  32. Attribute cmdStrManip.VB_VarHelpID = -1
  33. Private WithEvents cmdExit As ComboPack.Button
  34. Attribute cmdExit.VB_VarHelpID = -1
  35. Private WithEvents cmdWadProp As ComboPack.Button
  36. Attribute cmdWadProp.VB_VarHelpID = -1
  37. Private Sub cmdCmdCol_Press()
  38. cmdFntTst.HasFocus = False
  39. cmdSplitFile.HasFocus = False
  40. cmdCmdCol.HasFocus = True
  41. cmdStrManip.HasFocus = False
  42. cmdWadProp.HasFocus = False
  43. cmdExit.HasFocus = False
  44. End Sub
  45. Private Sub cmdExit_Press()
  46. cmdFntTst.HasFocus = False
  47. cmdSplitFile.HasFocus = False
  48. cmdCmdCol.HasFocus = False
  49. cmdWadProp.HasFocus = False
  50. cmdStrManip.HasFocus = False
  51. cmdExit.HasFocus = True
  52. End Sub
  53. Private Sub cmdFntTst_Click()
  54. frmFontWindow.Show
  55. Do Until Not frmFontWindow.Visible
  56. DoEvents
  57. Unload frmFontWindow
  58. End Sub
  59. Private Sub cmdFntTst_Press()
  60. cmdFntTst.HasFocus = True
  61. cmdSplitFile.HasFocus = False
  62. cmdCmdCol.HasFocus = False
  63. cmdStrManip.HasFocus = False
  64. cmdWadProp.HasFocus = False
  65. cmdExit.HasFocus = False
  66. End Sub
  67. Private Sub cmdSplitFile_Click()
  68. frmSplit.Show 1
  69. End Sub
  70. Private Sub cmdSplitFile_Press()
  71. cmdFntTst.HasFocus = False
  72. cmdSplitFile.HasFocus = True
  73. cmdCmdCol.HasFocus = False
  74. cmdStrManip.HasFocus = False
  75. cmdWadProp.HasFocus = False
  76. cmdExit.HasFocus = False
  77. End Sub
  78. Private Sub cmdStrManip_Click()
  79. frmStrManip.Show 1
  80. End Sub
  81. Private Sub cmdStrManip_Press()
  82. cmdFntTst.HasFocus = False
  83. cmdSplitFile.HasFocus = False
  84. cmdCmdCol.HasFocus = False
  85. cmdWadProp.HasFocus = False
  86. cmdStrManip.HasFocus = True
  87. cmdExit.HasFocus = False
  88. End Sub
  89. Private Sub cmdWadProp_Click()
  90. frmWadProp.Show 1
  91. End Sub
  92. Private Sub cmdWadProp_Press()
  93. cmdFntTst.HasFocus = False
  94. cmdSplitFile.HasFocus = False
  95. cmdCmdCol.HasFocus = False
  96. cmdStrManip.HasFocus = False
  97. cmdWadProp.HasFocus = True
  98. cmdExit.HasFocus = False
  99. End Sub
  100. Private Sub Form_Load()
  101. Set cmdFntTst = New ComboPack.Button
  102. Set cmdFntTst.Parent = frmMain
  103. cmdFntTst.Left = 270
  104. cmdFntTst.Top = 60
  105. cmdFntTst.Height = 585
  106. cmdFntTst.Width = 2385
  107. cmdFntTst.ForeColor = 0
  108. cmdFntTst.BackColor = -2147483633
  109. cmdFntTst.Name = "cmdFntTst"
  110. cmdFntTst.Caption = "Font Window Example"
  111. cmdFntTst.Redraw
  112. cmdFntTst.Enabled = True
  113. Set cmdSplitFile = New ComboPack.Button
  114. Set cmdSplitFile.Parent = frmMain
  115. cmdSplitFile.Left = 270
  116. cmdSplitFile.Top = 690
  117. cmdSplitFile.Height = 585
  118. cmdSplitFile.Width = 2385
  119. cmdSplitFile.ForeColor = 0
  120. cmdSplitFile.BackColor = -2147483633
  121. cmdSplitFile.Name = "cmdSplitFile"
  122. cmdSplitFile.Caption = "Split File Example"
  123. cmdSplitFile.Redraw
  124. cmdSplitFile.Enabled = True
  125. Set cmdCmdCol = New ComboPack.Button
  126. Set cmdCmdCol.Parent = frmMain
  127. cmdCmdCol.Left = 270
  128. cmdCmdCol.Top = 1320
  129. cmdCmdCol.Height = 585
  130. cmdCmdCol.Width = 2385
  131. cmdCmdCol.ForeColor = 0
  132. cmdCmdCol.BackColor = -2147483633
  133. cmdCmdCol.Name = "cmdCmdCol"
  134. cmdCmdCol.Caption = "Command Button Collections"
  135. cmdCmdCol.Redraw
  136. cmdCmdCol.Enabled = True
  137. Set cmdStrManip = New ComboPack.Button
  138. Set cmdStrManip.Parent = frmMain
  139. cmdStrManip.Left = 270
  140. cmdStrManip.Top = 1950
  141. cmdStrManip.Height = 585
  142. cmdStrManip.Width = 2385
  143. cmdStrManip.ForeColor = 0
  144. cmdStrManip.BackColor = -2147483633
  145. cmdStrManip.Name = "cmdStrManip"
  146. cmdStrManip.Caption = "String Manipulation"
  147. cmdStrManip.Redraw
  148. cmdStrManip.Enabled = True
  149. Set cmdExit = New ComboPack.Button
  150. Set cmdExit.Parent = frmMain
  151. cmdExit.Left = 1020
  152. cmdExit.Top = 3400
  153. cmdExit.Height = 375
  154. cmdExit.Width = 795
  155. cmdExit.ForeColor = 0
  156. cmdExit.BackColor = -2147483633
  157. cmdExit.Name = "cmdExit"
  158. cmdExit.Caption = "Exit"
  159. cmdExit.Redraw
  160. cmdExit.Enabled = True
  161. cmdFntTst.HasFocus = True
  162. Set cmdWadProp = New ComboPack.Button
  163. Set cmdWadProp.Parent = frmMain
  164. cmdWadProp.Left = 270
  165. cmdWadProp.Top = 2590
  166. cmdWadProp.Height = 585
  167. cmdWadProp.Width = 2385
  168. cmdWadProp.ForeColor = 0
  169. cmdWadProp.BackColor = -2147483633
  170. cmdWadProp.Name = "cmdStrManip"
  171. cmdWadProp.Caption = "Doom Wads..."
  172. cmdWadProp.Redraw
  173. cmdWadProp.Enabled = True
  174. End Sub
  175. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  176. cmdFntTst.MouseDown Button, X, Y
  177. cmdSplitFile.MouseDown Button, X, Y
  178. cmdCmdCol.MouseDown Button, X, Y
  179. cmdStrManip.MouseDown Button, X, Y
  180. cmdExit.MouseDown Button, X, Y
  181. cmdWadProp.MouseDown Button, X, Y
  182. End Sub
  183. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  184. cmdFntTst.MouseMove Button, X, Y
  185. cmdSplitFile.MouseMove Button, X, Y
  186. cmdCmdCol.MouseMove Button, X, Y
  187. cmdStrManip.MouseMove Button, X, Y
  188. cmdExit.MouseMove Button, X, Y
  189. cmdWadProp.MouseMove Button, X, Y
  190. End Sub
  191. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  192. cmdFntTst.MouseUp Button, X, Y
  193. cmdSplitFile.MouseUp Button, X, Y
  194. cmdCmdCol.MouseUp Button, X, Y
  195. cmdStrManip.MouseUp Button, X, Y
  196. cmdExit.MouseUp Button, X, Y
  197. cmdWadProp.MouseUp Button, X, Y
  198. End Sub
  199. Private Sub cmdExit_Click()
  200. EndApp
  201. End Sub
  202.