home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aclock / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-04  |  9.4 KB  |  324 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form1 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   4200
  7.    ClientLeft      =   312
  8.    ClientTop       =   612
  9.    ClientWidth     =   7848
  10.    BeginProperty Font 
  11.       Name            =   "Arial"
  12.       Size            =   7.8
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Form1.frx":0000
  20.    KeyPreview      =   -1  'True
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   4200
  24.    ScaleWidth      =   7848
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin VB.Timer Timer1 
  27.       Interval        =   1000
  28.       Left            =   120
  29.       Top             =   960
  30.    End
  31.    Begin MSComDlg.CommonDialog CMDialog1 
  32.       Left            =   120
  33.       Top             =   480
  34.       _ExtentX        =   677
  35.       _ExtentY        =   677
  36.       _Version        =   393216
  37.       Max             =   36
  38.       Min             =   8
  39.    End
  40.    Begin VB.Label cap2 
  41.       AutoSize        =   -1  'True
  42.       Caption         =   "Date:"
  43.       Height          =   192
  44.       Left            =   120
  45.       TabIndex        =   5
  46.       Top             =   2280
  47.       Width           =   372
  48.    End
  49.    Begin VB.Label Label2 
  50.       BackColor       =   &H80000014&
  51.       BorderStyle     =   1  'Fixed Single
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   36
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H80000007&
  62.       Height          =   1920
  63.       Left            =   600
  64.       TabIndex        =   1
  65.       Top             =   2160
  66.       Width           =   7164
  67.    End
  68.    Begin VB.Label Label1 
  69.       BackColor       =   &H80000014&
  70.       BorderStyle     =   1  'Fixed Single
  71.       BeginProperty Font 
  72.          Name            =   "Arial"
  73.          Size            =   36
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H80000007&
  81.       Height          =   1920
  82.       Left            =   600
  83.       TabIndex        =   0
  84.       Top             =   120
  85.       Width           =   7164
  86.    End
  87.    Begin VB.Label Label3 
  88.       BackColor       =   &H80000014&
  89.       BorderStyle     =   1  'Fixed Single
  90.       BeginProperty Font 
  91.          Name            =   "Arial"
  92.          Size            =   36
  93.          Charset         =   0
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H000000FF&
  100.       Height          =   1920
  101.       Left            =   600
  102.       TabIndex        =   2
  103.       Top             =   120
  104.       Width           =   7164
  105.    End
  106.    Begin VB.Label Label4 
  107.       BackColor       =   &H80000014&
  108.       BorderStyle     =   1  'Fixed Single
  109.       BeginProperty Font 
  110.          Name            =   "Arial"
  111.          Size            =   36
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H80000007&
  119.       Height          =   1920
  120.       Left            =   600
  121.       TabIndex        =   3
  122.       Top             =   2160
  123.       Width           =   7164
  124.    End
  125.    Begin VB.Label cap 
  126.       AutoSize        =   -1  'True
  127.       Caption         =   "Time:"
  128.       Height          =   192
  129.       Left            =   120
  130.       TabIndex        =   4
  131.       Top             =   120
  132.       Width           =   384
  133.    End
  134.    Begin VB.Menu File 
  135.       Caption         =   "&File"
  136.       Begin VB.Menu cmdQuit 
  137.          Caption         =   "Quit"
  138.          Shortcut        =   ^Q
  139.       End
  140.    End
  141.    Begin VB.Menu Options 
  142.       Caption         =   "&Option's"
  143.       Begin VB.Menu Font 
  144.          Caption         =   "&Font"
  145.          Begin VB.Menu Font1 
  146.             Caption         =   "Time Font"
  147.          End
  148.          Begin VB.Menu Font2 
  149.             Caption         =   "Date Font"
  150.          End
  151.       End
  152.       Begin VB.Menu Color 
  153.          Caption         =   "&Color's"
  154.          Begin VB.Menu timec 
  155.             Caption         =   "Time"
  156.             Begin VB.Menu Color1 
  157.                Caption         =   "Background"
  158.             End
  159.             Begin VB.Menu Color3 
  160.                Caption         =   "Foreground"
  161.             End
  162.          End
  163.          Begin VB.Menu Datec 
  164.             Caption         =   "Date"
  165.             Begin VB.Menu Color2 
  166.                Caption         =   "Background"
  167.             End
  168.             Begin VB.Menu Color4 
  169.                Caption         =   "Foreground"
  170.             End
  171.          End
  172.       End
  173.    End
  174.    Begin VB.Menu Show 
  175.       Caption         =   "&Show"
  176.       Begin VB.Menu Option1 
  177.          Caption         =   "Show Time"
  178.       End
  179.       Begin VB.Menu Option2 
  180.          Caption         =   "Show Date"
  181.       End
  182.       Begin VB.Menu Option3 
  183.          Caption         =   "Show Both"
  184.       End
  185.       Begin VB.Menu Option4 
  186.          Caption         =   "Show None"
  187.       End
  188.    End
  189.    Begin VB.Menu About 
  190.       Caption         =   "&About"
  191.       Begin VB.Menu cmdAbout 
  192.          Caption         =   "&About Clock"
  193.       End
  194.    End
  195. Attribute VB_Name = "Form1"
  196. Attribute VB_GlobalNameSpace = False
  197. Attribute VB_Creatable = False
  198. Attribute VB_PredeclaredId = True
  199. Attribute VB_Exposed = False
  200. Private Sub cmdAbout_Click()
  201. frmAbout.Show
  202. End Sub
  203. Private Sub cmdQuit_Click()
  204.     Dim Msg, Response   ' Declare variables.
  205.     Msg = "Are you sure you want to quit?"
  206.     Response = MsgBox(Msg, vbQuestion + vbYesNo, "KF4ZPB Clock")
  207.     Select Case Response
  208.         Case vbNo
  209.             Cancel = -1
  210.             Msg = "Quit has been canceled."
  211.         Case vbYes
  212.         Unload Form1
  213.         Unload frmAbout
  214.         Unload frmSupport
  215. End Select
  216. End Sub
  217. Private Sub Color3_Click()
  218. On Error Resume Next
  219. CMDialog1.Flags = &H1&
  220. CMDialog1.Action = 3
  221. Label1.ForeColor = CMDialog1.Color
  222. Label3.ForeColor = CMDialog1.Color
  223. End Sub
  224. Private Sub Color4_Click()
  225. On Error Resume Next
  226. CMDialog1.Flags = &H1&
  227. CMDialog1.Action = 3
  228. Label2.ForeColor = CMDialog1.Color
  229. Label4.ForeColor = CMDialog1.Color
  230. End Sub
  231. Private Sub Font1_Click()
  232. On Error Resume Next
  233. CMDialog1.Flags = &H1&
  234. CMDialog1.Action = 4
  235. Label1.FontName = CMDialog1.FontName
  236. Label1.FontSize = CMDialog1.FontSize
  237. Label1.FontBold = CMDialog1.FontBold
  238. Label1.FontItalic = CMDialog1.FontItalic
  239. Label1.FontUnderline = CMDialog1.FontUnderline
  240. Label1.FontStrikethru = CMDialog1.FontStrikethru
  241. Label3.FontName = CMDialog1.FontName
  242. Label3.FontSize = CMDialog1.FontSize
  243. Label3.FontBold = CMDialog1.FontBold
  244. Label3.FontItalic = CMDialog1.FontItalic
  245. Label3.FontUnderline = CMDialog1.FontUnderline
  246. Label3.FontStrikethru = CMDialog1.FontStrikethru
  247. End Sub
  248. Private Sub Font2_Click()
  249. On Error Resume Next
  250. CMDialog1.Flags = &H1&
  251. CMDialog1.Action = 4
  252. Label2.FontName = CMDialog1.FontName
  253. Label2.FontSize = CMDialog1.FontSize
  254. Label2.FontBold = CMDialog1.FontBold
  255. Label2.FontItalic = CMDialog1.FontItalic
  256. Label2.FontUnderline = CMDialog1.FontUnderline
  257. Label2.FontStrikethru = CMDialog1.FontStrikethru
  258. Label4.FontName = CMDialog1.FontName
  259. Label4.FontSize = CMDialog1.FontSize
  260. Label4.FontBold = CMDialog1.FontBold
  261. Label4.FontItalic = CMDialog1.FontItalic
  262. Label4.FontUnderline = CMDialog1.FontUnderline
  263. Label4.FontStrikethru = CMDialog1.FontStrikethru
  264. End Sub
  265. Private Sub Color1_Click()
  266. On Error Resume Next
  267. CMDialog1.Flags = &H1&
  268. CMDialog1.Action = 3
  269. Label1.BackColor = CMDialog1.Color
  270. Label3.BackColor = CMDialog1.Color
  271. End Sub
  272. Private Sub Color2_Click()
  273. On Error Resume Next
  274. CMDialog1.Flags = &H1&
  275. CMDialog1.Action = 3
  276. Label2.BackColor = CMDialog1.Color
  277. Label4.BackColor = CMDialog1.Color
  278. End Sub
  279. Private Sub Form_Unload(Cancel As Integer)
  280.     Dim Msg, Response   ' Declare variables.
  281.     Msg = "Are you sure you want to quit?"
  282.     Response = MsgBox(Msg, vbQuestion + vbYesNo, "KF4ZPB Clock")
  283.     Select Case Response
  284.         Case vbNo
  285.             Cancel = -1
  286.             Msg = "Quit has been canceled."
  287.         Case vbYes
  288.         Unload Form1
  289.         Unload frmAbout
  290.         Unload frmSupport
  291. End Select
  292. End Sub
  293. Private Sub Option1_Click()
  294. Option2.Enabled = True
  295. Option1.Enabled = False
  296. Label1.Visible = True
  297. Label1.Caption = Time
  298. Label2.Caption = ""
  299. End Sub
  300. Private Sub Option2_Click()
  301. Option1.Enabled = True
  302. Option2.Enabled = False
  303. Label2.Visible = True
  304. Label1.Visible = False
  305. Label2.Caption = Date
  306. End Sub
  307. Private Sub Option3_Click()
  308. Option1.Enabled = True
  309. Option2.Enabled = True
  310. Label2.Visible = True
  311. Label1.Visible = True
  312. Label1.Caption = Time
  313. Label2.Caption = Date
  314. End Sub
  315. Private Sub Option4_Click()
  316. Option1.Enabled = True
  317. Option2.Enabled = True
  318. Label1.Visible = False
  319. Label2.Visible = False
  320. End Sub
  321. Private Sub Timer1_Timer()
  322. Label1.Caption = Time
  323. End Sub
  324.