API tools faq
paste
Advertisement
Nadds

Main Form | Visual Basic VB Proj

Nadds
Sep 5th, 2016
110
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.64 KB | None | 0 0
raw download clone embed print report
  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
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!