home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD80447232000.psc / PSSC1 / frmOpt2Final.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-13  |  7.3 KB  |  226 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpt2Final 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   12000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   9000
  12.    ScaleWidth      =   12000
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.Image Image1 
  17.       Height          =   9015
  18.       Left            =   0
  19.       Stretch         =   -1  'True
  20.       Top             =   0
  21.       Width           =   12015
  22.    End
  23. Attribute VB_Name = "frmOpt2Final"
  24. Attribute VB_GlobalNameSpace = False
  25. Attribute VB_Creatable = False
  26. Attribute VB_PredeclaredId = True
  27. Attribute VB_Exposed = False
  28. Sub pause(interval) 'pause function
  29. current = Timer
  30. Do While Timer - current < Val(interval)
  31. DoEvents
  32. End Sub
  33. Private Sub Form_Click()
  34. ShowCursor (bShow = False) 'show mouse
  35. Me.Hide
  36. frmHMHL.Show
  37. Unload frmOpenPicsForOpt2
  38. frmOpenPicsForOpt2.Text1.Text = "" 'reset all boxes on last form!
  39. frmOpenPicsForOpt2.Text2.Text = ""
  40. frmOpenPicsForOpt2.Text3.Text = ""
  41. frmOpenPicsForOpt2.Text4.Text = ""
  42. frmOpenPicsForOpt2.Text5.Text = ""
  43. frmOpenPicsForOpt2.Text6.Text = ""
  44. frmOpenPicsForOpt2.Text7.Text = ""
  45. frmOpenPicsForOpt2.Text8.Text = ""
  46. frmOpenPicsForOpt2.Text9.Text = ""
  47. frmOpenPicsForOpt2.Text10.Text = ""
  48. frmOpenPicsForOpt2.Command3.Enabled = False
  49. End Sub
  50. Private Sub Form_Load()
  51. Me.Show
  52. hl = frmHMHL.Combo2
  53. If frmOpenPicsForOpt2.Height = 4320 Then GoTo disp2 'if only one pic was selected....
  54. If frmOpenPicsForOpt2.Height = 4680 Then GoTo disp3 'etc...
  55. If frmOpenPicsForOpt2.Height = 5055 Then GoTo disp4
  56. If frmOpenPicsForOpt2.Height = 5415 Then GoTo disp5
  57. If frmOpenPicsForOpt2.Height = 5745 Then GoTo disp6
  58. If frmOpenPicsForOpt2.Height = 6135 Then GoTo disp7
  59. If frmOpenPicsForOpt2.Height = 6480 Then GoTo disp8
  60. If frmOpenPicsForOpt2.Height = 6825 Then GoTo disp9
  61. If frmOpenPicsForOpt2.Height = 7200 Then GoTo disp10
  62. disp2:
  63. For i = 1 To 1000000 'loop one milliom times - i probably should have use a do...loop but im not good at those so for all my loops i just use for i = 1 to 1000000 'cause usually nobody lets it loop that many times.
  64. On Command1.Value GoTo doneX 'this aint really needed - might as well remove it
  65. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  66. pause hl 'pause for specified num# of seconds that user specified.
  67. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  68. pause hl
  69. Next i
  70. disp3:
  71. For i = 1 To 1000000
  72. On Command1.Value GoTo doneX
  73. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  74. pause hl
  75. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  76. pause hl
  77. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  78. pause hl
  79. Next i
  80. disp4:
  81. For i = 1 To 1000000
  82. On Command1.Value GoTo doneX
  83. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  84. pause hl
  85. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  86. pause hl
  87. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  88. pause hl
  89. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  90. pause hl
  91. Next i
  92. disp5:
  93. For i = 1 To 1000000
  94. On Command1.Value GoTo doneX
  95. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  96. pause hl
  97. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  98. pause hl
  99. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  100. pause hl
  101. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  102. pause hl
  103. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text5.Text)
  104. pause hl
  105. Next i
  106. disp6:
  107. For i = 1 To 1000000
  108. On Command1.Value GoTo doneX
  109. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  110. pause hl
  111. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  112. pause hl
  113. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  114. pause hl
  115. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  116. pause hl
  117. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text5.Text)
  118. pause hl
  119. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text6.Text)
  120. pause hl
  121. Next i
  122. disp7:
  123. For i = 1 To 1000000
  124. On Command1.Value GoTo doneX
  125. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  126. pause hl
  127. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  128. pause hl
  129. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  130. pause hl
  131. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  132. pause hl
  133. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text5.Text)
  134. pause hl
  135. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text6.Text)
  136. pause hl
  137. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text7.Text)
  138. pause hl
  139. Next i
  140. disp8:
  141. For i = 1 To 1000000
  142. On Command1.Value GoTo doneX
  143. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  144. pause hl
  145. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  146. pause hl
  147. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  148. pause hl
  149. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  150. pause hl
  151. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text5.Text)
  152. pause hl
  153. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text6.Text)
  154. pause hl
  155. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text7.Text)
  156. pause hl
  157. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text8.Text)
  158. pause hl
  159. Next i
  160. disp9:
  161. For i = 1 To 1000000
  162. On Command1.Value GoTo doneX
  163. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  164. pause hl
  165. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  166. pause hl
  167. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  168. pause hl
  169. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  170. pause hl
  171. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text5.Text)
  172. pause hl
  173. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text6.Text)
  174. pause hl
  175. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text7.Text)
  176. pause hl
  177. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text8.Text)
  178. pause hl
  179. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text9.Text)
  180. pause hl
  181. Next i
  182. disp10:
  183. For i = 1 To 1000000
  184. On Command1.Value GoTo doneX
  185. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text1.Text)
  186. pause hl
  187. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text2.Text)
  188. pause hl
  189. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text3.Text)
  190. pause hl
  191. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text4.Text)
  192. pause hl
  193. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text5.Text)
  194. pause hl
  195. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text6.Text)
  196. pause hl
  197. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text7.Text)
  198. pause hl
  199. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text8.Text)
  200. pause hl
  201. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text9.Text)
  202. pause hl
  203. Image1.Picture = LoadPicture(frmOpenPicsForOpt2.Text10.Text)
  204. pause hl
  205. Next i
  206. doneX:
  207. End Sub
  208. Private Sub Image1_Click()
  209. 'same as above^
  210. ShowCursor (bShow = False)
  211. Me.Hide
  212. frmHMHL.Show
  213. Unload frmOpenPicsForOpt2
  214. frmOpenPicsForOpt2.Text1.Text = ""
  215. frmOpenPicsForOpt2.Text2.Text = ""
  216. frmOpenPicsForOpt2.Text3.Text = ""
  217. frmOpenPicsForOpt2.Text4.Text = ""
  218. frmOpenPicsForOpt2.Text5.Text = ""
  219. frmOpenPicsForOpt2.Text6.Text = ""
  220. frmOpenPicsForOpt2.Text7.Text = ""
  221. frmOpenPicsForOpt2.Text8.Text = ""
  222. frmOpenPicsForOpt2.Text9.Text = ""
  223. frmOpenPicsForOpt2.Text10.Text = ""
  224. frmOpenPicsForOpt2.Command3.Enabled = False
  225. End Sub
  226.