Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Clock! - FrmOggetti.frm

FrmOggetti.frm

 Caricato da: Roberto VB
Scarica il programma completo

  1. Private Sub Command1_Click()
  2. FrmOrologio.Height = 4755
  3. End Sub
  4.  
  5. Private Sub Command2_Click()
  6. FrmOrologio.Height = 2565
  7. End Sub
  8.  
  9. Private Sub Form_Load()
  10. Image1.Visible = True
  11. Image2.Visible = False
  12. Image3.Visible = False
  13. Image4.Visible = False
  14. Image5.Visible = False
  15. Image6.Visible = False
  16. Image7.Visible = False
  17. Image8.Visible = False
  18. Timer1.Enabled = False
  19. lbltime.ZOrder
  20.  
  21. Text1.Text = Day(Now)
  22. Text2.Text = Month(Now)
  23. Text3.Text = Year(Now)
  24. Timer1.Enabled = True
  25.  
  26. Move Screen.Width - Width, Screen.Height - Height
  27.  
  28. End Sub
  29.  
  30.  
  31.  
  32. Private Sub mnuHelpInfo_Click()
  33.  
  34. End Sub
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44. Private Sub mnuFileAggiorna_Click()
  45. Text1.Text = Day(Now)
  46. Text2.Text = Month(Now)
  47. Text3.Text = Year(Now)
  48. Timer1.Enabled = True
  49. End Sub
  50.  
  51. Private Sub mnuFileEsci_Click()
  52. End
  53. End Sub
  54.  
  55. Private Sub mnuFileFulmine_Click()
  56. Image1.Visible = False
  57. Image2.Visible = False
  58. Image3.Visible = False
  59. Image4.Visible = False
  60. Image5.Visible = False
  61. Image6.Visible = True
  62. Image7.Visible = False
  63. Image8.Visible = False
  64. lbltime.ForeColor = &H80FFFF
  65. Text1.BackColor = &HFFFFC0
  66. Text2.BackColor = &HFFFFC0
  67. Text3.BackColor = &HFFFFC0
  68. Text1.ForeColor = vbBlack
  69. Text2.ForeColor = vbBlack
  70. Text3.ForeColor = vbBlack
  71.  
  72. End Sub
  73.  
  74.  
  75.  
  76. Private Sub mnuGiochiScova_Click()
  77. frmGioco.Show
  78. End Sub
  79.  
  80. Private Sub mnuInfo_Click()
  81. FrmOrologio.Hide
  82. frmInfo.Show
  83. End Sub
  84.  
  85. Private Sub mnuModAuto_Click()
  86. Image1.Visible = False
  87. Image2.Visible = False
  88. Image3.Visible = False
  89. Image4.Visible = False
  90. Image5.Visible = False
  91. Image6.Visible = False
  92. Image7.Visible = False
  93. Image8.Visible = True
  94. lbltime.ForeColor = vbBlack
  95. Text1.BackColor = black
  96. Text2.BackColor = black
  97. Text3.BackColor = black
  98. Text1.ForeColor = &H80FFFF
  99. Text2.ForeColor = &H80FFFF
  100. Text3.ForeColor = &H80FFFF
  101. End Sub
  102.  
  103. Private Sub mnuModCielo_Click()
  104. Image1.Visible = False
  105. Image2.Visible = False
  106. Image3.Visible = False
  107. Image4.Visible = True
  108. Image5.Visible = False
  109. Image6.Visible = False
  110. Image7.Visible = False
  111. Image8.Visible = False
  112. lbltime.ForeColor = black
  113. Text1.BackColor = &HFF0000
  114. Text2.BackColor = &HFF0000
  115. Text3.BackColor = &HFF0000
  116. Text1.ForeColor = black
  117. Text2.ForeColor = black
  118. Text3.ForeColor = black
  119. End Sub
  120.  
  121. Private Sub mnuModCuori_Click()
  122. Image1.Visible = False
  123. Image2.Visible = True
  124. Image3.Visible = False
  125. Image4.Visible = False
  126. Image5.Visible = False
  127. Image6.Visible = False
  128. Image7.Visible = False
  129. Image8.Visible = False
  130. lbltime.ForeColor = vbBlack
  131. Text1.BackColor = &HFF&
  132. Text2.BackColor = &HFF&
  133. Text3.BackColor = &HFF&
  134. Text1.ForeColor = vbBlack
  135. Text2.ForeColor = vbBlack
  136. Text3.ForeColor = vbBlack
  137. End Sub
  138.  
  139. Private Sub mnuModGalassia_Click()
  140. Image1.Visible = True
  141. Image2.Visible = False
  142. Image3.Visible = False
  143. Image4.Visible = False
  144. Image5.Visible = False
  145. Image6.Visible = False
  146. Image7.Visible = False
  147. Image8.Visible = False
  148. lbltime.ForeColor = &H80FFFF
  149. Text1.BackColor = black
  150. Text2.BackColor = black
  151. Text3.BackColor = black
  152. Text1.ForeColor = &H80FFFF
  153. Text2.ForeColor = &H80FFFF
  154. Text3.ForeColor = &H80FFFF
  155. End Sub
  156.  
  157. Private Sub mnuModLuna2_Click()
  158. Image1.Visible = False
  159. Image2.Visible = False
  160. Image3.Visible = False
  161. Image4.Visible = False
  162. Image5.Visible = True
  163. Image6.Visible = False
  164. Image7.Visible = False
  165. Image8.Visible = False
  166. lbltime.ForeColor = &H80FFFF
  167. Text1.BackColor = black
  168. Text2.BackColor = black
  169. Text3.BackColor = black
  170. Text1.ForeColor = &H80FFFF
  171. Text2.ForeColor = &H80FFFF
  172. Text3.ForeColor = &H80FFFF
  173. End Sub
  174.  
  175. Private Sub mnuModPlayboy_Click()
  176. Image1.Visible = False
  177. Image2.Visible = False
  178. Image3.Visible = False
  179. Image4.Visible = False
  180. Image5.Visible = False
  181. Image6.Visible = False
  182. Image7.Visible = True
  183. lbltime.ForeColor = &H0&
  184. Text1.BackColor = vbBlack
  185. Text2.BackColor = vbBlack
  186. Text3.BackColor = vbBlack
  187. Text1.ForeColor = &H80FFFF
  188. Text2.ForeColor = &H80FFFF
  189. Text3.ForeColor = &H80FFFF
  190. End Sub
  191.  
  192. Private Sub mnuModTorre_Click()
  193. Image1.Visible = False
  194. Image2.Visible = False
  195. Image3.Visible = True
  196. Image4.Visible = False
  197. Image5.Visible = False
  198. Image6.Visible = False
  199. Image7.Visible = False
  200. Image8.Visible = False
  201. lbltime.ForeColor = &HC00000
  202. lbltime.Font = arial
  203. lbltime.BackColor = &HFFFFFF
  204. Text1.BackColor = &HFFC0FF
  205. Text2.BackColor = &HFFC0FF
  206. Text3.BackColor = &HFFC0FF
  207. Text1.ForeColor = vbBlack
  208. Text2.ForeColor = vbBlack
  209. Text3.ForeColor = vbBlack
  210. End Sub
  211.  
  212.  
  213. Private Sub optColore_Click(Index As Integer)
  214. 'Scelta del colore
  215. Select Case Index
  216.         Case 0:     Text1.BackColor = vbBlack
  217.                     Text2.BackColor = vbBlack
  218.                     Text3.BackColor = vbBlack
  219.                     lbltime.BackColor = vbBlack
  220.         Case 1:     Text1.BackColor = vbRed
  221.                     Text2.BackColor = vbRed
  222.                     Text3.BackColor = vbRed
  223.                     lbltime.BackColor = vbRed
  224.         Case 2:     Text1.BackColor = vbYellow
  225.                     Text2.BackColor = vbYellow
  226.                     Text3.BackColor = vbYellow
  227.                     lbltime.BackColor = vbYellow
  228.         Case 3:     Text1.BackColor = vbGreen
  229.                     Text2.BackColor = vbGreen
  230.                     Text3.BackColor = vbGreen
  231.                     lbltime.BackColor = vbGreen
  232. End Select
  233. End Sub
  234.  
  235. Private Sub Option1_Click(Index As Integer)
  236. Select Case Index
  237.         Case 0:     Text1.ForeColor = vbBlack
  238.                     Text2.ForeColor = vbBlack
  239.                     Text3.ForeColor = vbBlack
  240.                     lbltime.ForeColor = vbBlack
  241.         Case 1:     Text1.ForeColor = vbRed
  242.                     Text2.ForeColor = vbRed
  243.                     Text3.ForeColor = vbRed
  244.                     lbltime.ForeColor = vbRed
  245.         Case 2:     Text1.ForeColor = vbYellow
  246.                     Text2.ForeColor = vbYellow
  247.                     Text3.ForeColor = vbYellow
  248.                     lbltime.ForeColor = vbYellow
  249.         Case 3:     Text1.ForeColor = vbGreen
  250.                     Text2.ForeColor = vbGreen
  251.                     Text3.ForeColor = vbGreen
  252.                     lbltime.ForeColor = vbGreen
  253. End Select
  254. End Sub
  255.  
  256. Private Sub Timer1_Timer()
  257. lbltime.Caption = Time$
  258. End Sub