Advertisement
Nadds

Main Form | Visual Basic VB Proj

Sep 5th, 2016
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.64 KB | None | 0 0
  1. ' Main Form
  2. Private Sub About_Click()
  3. If About.Value = vbChecked Then
  4. About.Value = vbUnchecked
  5. Exit Sub
  6. End If
  7. Unload Me
  8. AboutPage.Visible = True
  9. End Sub
  10.  
  11. Private Sub ExitBut_Click()
  12. If ExitBut.Value = vbChecked Then
  13. ExitBut.Value = vbUnchecked
  14. Exit Sub
  15. End If
  16. End
  17. End Sub
  18. Private Sub SettingsBut_Click()
  19. If SettingsBut.Value = vbChecked Then
  20. SettingsBut.Value = vbUnchecked
  21. Exit Sub
  22. End If
  23. Unload Me
  24. setasd.Visible = True
  25. End Sub
  26.  
  27. Private Sub Form_Click()
  28. Text.Text = "ENTER NAME"
  29. Text.Enabled = False
  30. Text.Enabled = True
  31. End Sub
  32.  
  33. Private Sub Image1_Click()
  34. Text.Text = "ENTER NAME"
  35. Text.Enabled = False
  36. Text.Enabled = True
  37. End Sub
  38.  
  39. Private Sub Image2_Click()
  40. Text.Text = "ENTER NAME"
  41. Text.Enabled = False
  42. Text.Enabled = True
  43. End Sub
  44.  
  45. Private Sub Image3_Click()
  46. Text.Text = "ENTER NAME"
  47. Text.Enabled = False
  48. Text.Enabled = True
  49. End Sub
  50.  
  51. Private Sub Search_Click()
  52. If Search.Value = vbChecked Then
  53. Search.Value = vbUnchecked
  54. Exit Sub
  55. End If
  56. If Text.Text = "nicholai" Then
  57. Unload Me
  58. Nicholai.Visible = True
  59. ElseIf Text.Text = "nicholai silva" Then
  60. Unload Me
  61. Nicholai.Visible = True
  62. ElseIf Text.Text = "silva" Then
  63. Unload Me
  64. Nicholai.Visible = True
  65. ElseIf Text.Text = "carlos" Then
  66. Unload Me
  67. Carlos.Visible = True
  68. ElseIf Text.Text = "carlos villanueva" Then
  69. Unload Me
  70. Carlos.Visible = True
  71. ElseIf Text.Text = "villanueva" Then
  72. Unload Me
  73. Carlos.Visible = True
  74. ElseIf Text.Text = "gabriel" Then
  75. Unload Me
  76. Gabriel.Visible = True
  77. ElseIf Text.Text = "gabriel garcia" Then
  78. Unload Me
  79. Gabriel.Visible = True
  80. ElseIf Text.Text = "garcia" Then
  81. Unload Me
  82. Gabriel.Visible = True
  83. ElseIf Text.Text = "aspen" Then
  84. Unload Me
  85. Aspen.Visible = True
  86. ElseIf Text.Text = "aspen fernandez" Then
  87. Unload Me
  88. Aspen.Visible = True
  89. ElseIf Text.Text = "fernandez" Then
  90. Unload Me
  91. Aspen.Visible = True
  92. ElseIf Text.Text = "eugene" Then
  93. Unload Me
  94. Eugene.Visible = True
  95. ElseIf Text.Text = "eugene sufrir" Then
  96. Unload Me
  97. Eugene.Visible = True
  98. ElseIf Text.Text = "sufrir" Then
  99. Unload Me
  100. Eugene.Visible = True
  101. ElseIf Text.Text = "adrian" Then
  102. Unload Me
  103. Adrian.Visible = True
  104. ElseIf Text.Text = "adrian fabay" Then
  105. Unload Me
  106. Adrian.Visible = True
  107. ElseIf Text.Text = "fabay" Then
  108. Unload Me
  109. Adrian.Visible = True
  110. ElseIf Text.Text = "andrei" Then
  111. Unload Me
  112. Andrei.Visible = True
  113. ElseIf Text.Text = "andrei go" Then
  114. Unload Me
  115. Andrei.Visible = True
  116. ElseIf Text.Text = "go" Then
  117. Unload Me
  118. Andrei.Visible = True
  119. ElseIf Text.Text = "maria" Then
  120. Unload Me
  121. Rafi.Visible = True
  122. ElseIf Text.Text = "maria ang" Then
  123. Unload Me
  124. Rafi.Visible = True
  125. ElseIf Text.Text = "ang" Then
  126. Unload Me
  127. Rafi.Visible = True
  128. ElseIf Text.Text = "rafaella" Then
  129. Unload Me
  130. Rafi.Visible = True
  131. ElseIf Text.Text = "rafaella ang" Then
  132. Unload Me
  133. Rafi.Visible = True
  134. ElseIf Text.Text = "rafi" Then
  135. Unload Me
  136. Rafi.Visible = True
  137. ElseIf Text.Text = "rafi ang" Then
  138. Unload Me
  139. Rafi.Visible = True
  140. ElseIf Text.Text = "dennese" Then
  141. Unload Me
  142. Dennese.Visible = True
  143. ElseIf Text.Text = "dennese corpuz" Then
  144. Unload Me
  145. Dennese.Visible = True
  146. ElseIf Text.Text = "corpuz" Then
  147. Unload Me
  148. Dennese.Visible = True
  149. ElseIf Text.Text = "keziah" Then
  150. Unload Me
  151. Dennese.Visible = True
  152. ElseIf Text.Text = "keziah corpuz" Then
  153. Unload Me
  154. Dennese.Visible = True
  155. ElseIf Text.Text = "amado" Then
  156. Unload Me
  157. Amado.Visible = True
  158. ElseIf Text.Text = "amado claros" Then
  159. Unload Me
  160. Amado.Visible = True
  161. ElseIf Text.Text = "claros" Then
  162. Unload Me
  163. Amado.Visible = True
  164. ElseIf Text.Text = "ac" Then
  165. Unload Me
  166. Amado.Visible = True
  167. ElseIf Text.Text = "ac claros" Then
  168. Unload Me
  169. Amado.Visible = True
  170. ElseIf Text.Text = "koji" Then
  171. Unload Me
  172. Koji.Visible = True
  173. ElseIf Text.Text = "koji takeuchi" Then
  174. Unload Me
  175. Koji.Visible = True
  176. ElseIf Text.Text = "takeuchi" Then
  177. Unload Me
  178. Koji.Visible = True
  179. ElseIf Text.Text = "svertsen" Then
  180. Unload Me
  181. Svertsen.Visible = True
  182. ElseIf Text.Text = "svertsen merciales" Then
  183. Unload Me
  184. Svertsen.Visible = True
  185. ElseIf Text.Text = "merciales" Then
  186. Unload Me
  187. Svertsen.Visible = True
  188. ElseIf Text.Text = "svert" Then
  189. Unload Me
  190. Svertsen.Visible = True
  191. ElseIf Text.Text = "carl" Then
  192. Unload Me
  193. Carl.Visible = True
  194. ElseIf Text.Text = "carl siscar" Then
  195. Unload Me
  196. Carl.Visible = True
  197. ElseIf Text.Text = "siscar" Then
  198. Unload Me
  199. Carl.Visible = True
  200. ElseIf Text.Text = "margarita" Then
  201. Unload Me
  202. Marga.Visible = True
  203. ElseIf Text.Text = "margarita leong" Then
  204. Unload Me
  205. Marga.Visible = True
  206. ElseIf Text.Text = "leong" Then
  207. Unload Me
  208. Marga.Visible = True
  209. ElseIf Text.Text = "marga" Then
  210. Unload Me
  211. Marga.Visible = True
  212. ElseIf Text.Text = "marga leong" Then
  213. Unload Me
  214. Marga.Visible = True
  215. ElseIf Text.Text = "alyssa" Then
  216. Unload Me
  217. Alyssa.Visible = True
  218. ElseIf Text.Text = "alyssa enero" Then
  219. Unload Me
  220. Alyssa.Visible = True
  221. ElseIf Text.Text = "enero" Then
  222. Unload Me
  223. Alyssa.Visible = True
  224. ElseIf Text.Text = "ashley" Then
  225. Unload Me
  226. Ashley.Visible = True
  227. ElseIf Text.Text = "ashley cacanindin" Then
  228. Unload Me
  229. Ashley.Visible = True
  230. ElseIf Text.Text = "cacanindin" Then
  231. Unload Me
  232. Ashley.Visible = True
  233. ElseIf Text.Text = "charles" Then
  234. Unload Me
  235. Charles.Visible = True
  236. ElseIf Text.Text = "charles navela" Then
  237. Unload Me
  238. Charles.Visible = True
  239. ElseIf Text.Text = "navela" Then
  240. Unload Me
  241. Charles.Visible = True
  242. ElseIf Text.Text = "alexander" Then
  243. Unload Me
  244. Owen.Visible = True
  245. ElseIf Text.Text = "alexander francisco" Then
  246. Unload Me
  247. Owen.Visible = True
  248. ElseIf Text.Text = "francisco" Then
  249. Unload Me
  250. Owen.Visible = True
  251. ElseIf Text.Text = "owen francisco" Then
  252. Unload Me
  253. Owen.Visible = True
  254. ElseIf Text.Text = "owen" Then
  255. Unload Me
  256. Owen.Visible = True
  257. ElseIf Text.Text = "jerzy" Then
  258. Unload Me
  259. Jerzy.Visible = True
  260. ElseIf Text.Text = "jerzy alfaro" Then
  261. Unload Me
  262. Jerzy.Visible = True
  263. ElseIf Text.Text = "alfaro" Then
  264. Unload Me
  265. Jerzy.Visible = True
  266. ElseIf Text.Text = "john" Then
  267. Unload Me
  268. Cliff.Visible = True
  269. ElseIf Text.Text = "john morancil" Then
  270. Unload Me
  271. Cliff.Visible = True
  272. ElseIf Text.Text = "morancil" Then
  273. Unload Me
  274. Cliff.Visible = True
  275. ElseIf Text.Text = "john clifford" Then
  276. Unload Me
  277. Cliff.Visible = True
  278. ElseIf Text.Text = "clifford" Then
  279. Unload Me
  280. Cliff.Visible = True
  281. ElseIf Text.Text = "cliff" Then
  282. Unload Me
  283. Cliff.Visible = True
  284. ElseIf Text.Text = "clifford morancil" Then
  285. Unload Me
  286. Cliff.Visible = True
  287. ElseIf Text.Text = "cliff morancil" Then
  288. Unload Me
  289. Cliff.Visible = True
  290. ElseIf Text.Text = "johnren" Then
  291. Unload Me
  292. Garlo.Visible = True
  293. ElseIf Text.Text = "johnren edol" Then
  294. Unload Me
  295. Garlo.Visible = True
  296. ElseIf Text.Text = "garlo" Then
  297. Unload Me
  298. Garlo.Visible = True
  299. ElseIf Text.Text = "garlo edol" Then
  300. Unload Me
  301. Garlo.Visible = True
  302. ElseIf Text.Text = "beatriz viray" Then
  303. Unload Me
  304. Bea.Visible = True
  305. ElseIf Text.Text = "viray" Then
  306. Unload Me
  307. Bea.Visible = True
  308. ElseIf Text.Text = "beatriz" Then
  309. Unload Me
  310. Bea.Visible = True
  311. ElseIf Text.Text = "bea viray" Then
  312. Unload Me
  313. Bea.Visible = True
  314. ElseIf Text.Text = "bea" Then
  315. Unload Me
  316. Bea.Visible = True
  317. ElseIf Text.Text = "joy viray" Then
  318. Unload Me
  319. Bea.Visible = True
  320. ElseIf Text.Text = "joy" Then
  321. Unload Me
  322. Bea.Visible = True
  323. ElseIf Text.Text = "kayanne" Then
  324. Unload Me
  325. Kayanne.Visible = True
  326. ElseIf Text.Text = "kayanne alfon" Then
  327. Unload Me
  328. Kayanne.Visible = True
  329. ElseIf Text.Text = "alfon" Then
  330. Unload Me
  331. Kayanne.Visible = True
  332. ElseIf Text.Text = "michael" Then
  333. Unload Me
  334. Yuchang.Visible = True
  335. ElseIf Text.Text = "michael rosas" Then
  336. Unload Me
  337. Yuchang.Visible = True
  338. ElseIf Text.Text = "rosas" Then
  339. Unload Me
  340. Yuchang.Visible = True
  341. ElseIf Text.Text = "yuchang" Then
  342. Unload Me
  343. Yuchang.Visible = True
  344. ElseIf Text.Text = "yuchang rosas" Then
  345. Unload Me
  346. Yuchang.Visible = True
  347. ElseIf Text.Text = "prince" Then
  348. Unload Me
  349. Prince.Visible = True
  350. ElseIf Text.Text = "prince barellano" Then
  351. Unload Me
  352. Prince.Visible = True
  353. ElseIf Text.Text = "barellano" Then
  354. Unload Me
  355. Prince.Visible = True
  356. ElseIf Text.Text = "tristan" Then
  357. Unload Me
  358. Tristan.Visible = True
  359. ElseIf Text.Text = "tristan arevalo" Then
  360. Unload Me
  361. Tristan.Visible = True
  362. ElseIf Text.Text = "arevalo" Then
  363. Unload Me
  364. Tristan.Visible = True
  365. Else
  366. MsgBox ("Student cannot be found, please check your spelling. Name must be in lowercase.")
  367. End If
  368. End Sub
  369.  
  370. Private Sub Text_Click()
  371. Text.Text = ""
  372. End Sub
  373.  
  374.  
  375. Private Sub Text_KeyPress(KeyAscii As Integer)
  376. If KeyAscii = 13 Then
  377. Search.Value = vbChecked
  378. End If
  379. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement