home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / remind1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-10-05  |  7.5 KB  |  252 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H80000001&
  4.    Caption         =   "Remind Me"
  5.    ClientHeight    =   3690
  6.    ClientLeft      =   4740
  7.    ClientTop       =   3615
  8.    ClientWidth     =   7200
  9.    ForeColor       =   &H8000000D&
  10.    LinkTopic       =   "Form1"
  11.    Moveable        =   0   'False
  12.    Picture         =   "Form1.frx":0000
  13.    ScaleHeight     =   3690
  14.    ScaleWidth      =   7200
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton Command3 
  17.       Caption         =   "Start over"
  18.       Height          =   495
  19.       Left            =   2280
  20.       TabIndex        =   7
  21.       Top             =   2880
  22.       Width           =   1695
  23.    End
  24.    Begin VB.Timer Timer2 
  25.       Interval        =   100
  26.       Left            =   1800
  27.       Top             =   3000
  28.    End
  29.    Begin VB.Timer Timer1 
  30.       Interval        =   1000
  31.       Left            =   4200
  32.       Top             =   2880
  33.    End
  34.    Begin VB.CommandButton Command2 
  35.       Caption         =   "Back"
  36.       Height          =   495
  37.       Left            =   4680
  38.       TabIndex        =   4
  39.       Top             =   2880
  40.       Width           =   1575
  41.    End
  42.    Begin VB.CommandButton Command1 
  43.       Caption         =   "activate"
  44.       Height          =   495
  45.       Left            =   120
  46.       TabIndex        =   3
  47.       Top             =   2880
  48.       Width           =   1575
  49.    End
  50.    Begin VB.TextBox Text2 
  51.       BeginProperty Font 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   13.5
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   495
  61.       Left            =   120
  62.       TabIndex        =   2
  63.       Top             =   2160
  64.       Width           =   6975
  65.    End
  66.    Begin VB.TextBox Text1 
  67.       BeginProperty Font 
  68.          Name            =   "MS Sans Serif"
  69.          Size            =   24
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   615
  77.       Left            =   120
  78.       TabIndex        =   0
  79.       Top             =   840
  80.       Width           =   2415
  81.    End
  82.    Begin VB.CheckBox Check1 
  83.       Caption         =   "Check1"
  84.       Height          =   195
  85.       Left            =   3000
  86.       TabIndex        =   9
  87.       Top             =   2400
  88.       Width           =   495
  89.    End
  90.    Begin VB.Label Label4 
  91.       BackColor       =   &H80000012&
  92.       BackStyle       =   0  'Transparent
  93.       BeginProperty Font 
  94.          Name            =   "Arial"
  95.          Size            =   39.75
  96.          Charset         =   0
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       ForeColor       =   &H0000FFFF&
  103.       Height          =   855
  104.       Left            =   3480
  105.       TabIndex        =   6
  106.       Top             =   600
  107.       Width           =   3135
  108.    End
  109.    Begin VB.Label Label2 
  110.       BackColor       =   &H00000000&
  111.       BackStyle       =   0  'Transparent
  112.       Caption         =   "Insert a message."
  113.       BeginProperty Font 
  114.          Name            =   "MS Sans Serif"
  115.          Size            =   9.75
  116.          Charset         =   0
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       ForeColor       =   &H0000FFFF&
  123.       Height          =   255
  124.       Left            =   120
  125.       TabIndex        =   5
  126.       Top             =   1800
  127.       Width           =   3375
  128.    End
  129.    Begin VB.Label Label1 
  130.       BackColor       =   &H00000000&
  131.       BackStyle       =   0  'Transparent
  132.       Caption         =   "Insert time."
  133.       ForeColor       =   &H0000FFFF&
  134.       Height          =   375
  135.       Left            =   120
  136.       TabIndex        =   1
  137.       Top             =   360
  138.       Width           =   2415
  139.    End
  140.    Begin VB.Label Label5 
  141.       BackColor       =   &H00000000&
  142.       BackStyle       =   0  'Transparent
  143.       Caption         =   "You must..."
  144.       BeginProperty Font 
  145.          Name            =   "MS Sans Serif"
  146.          Size            =   9.75
  147.          Charset         =   0
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       ForeColor       =   &H0000FFFF&
  154.       Height          =   375
  155.       Left            =   120
  156.       TabIndex        =   8
  157.       Top             =   1800
  158.       Visible         =   0   'False
  159.       Width           =   3135
  160.    End
  161.    Begin VB.Label Label6 
  162.       BackColor       =   &H80000012&
  163.       BackStyle       =   0  'Transparent
  164.       Caption         =   "It's"
  165.       BeginProperty Font 
  166.          Name            =   "MS Sans Serif"
  167.          Size            =   9.75
  168.          Charset         =   0
  169.          Weight          =   400
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       ForeColor       =   &H0000FFFF&
  175.       Height          =   495
  176.       Left            =   120
  177.       TabIndex        =   10
  178.       Top             =   360
  179.       Visible         =   0   'False
  180.       Width           =   2295
  181.    End
  182.    Begin VB.Image Image1 
  183.       Height          =   4320
  184.       Left            =   0
  185.       Top             =   0
  186.       Width           =   9000
  187.    End
  188. Attribute VB_Name = "Form1"
  189. Attribute VB_GlobalNameSpace = False
  190. Attribute VB_Creatable = False
  191. Attribute VB_PredeclaredId = True
  192. Attribute VB_Exposed = False
  193. Private Sub Check1_Click()
  194. Select Case Check1.Value
  195.         Case Checked
  196.             SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
  197.         Case Unchecked
  198.             SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
  199.     End Select
  200. End Sub
  201. Private Sub Command1_Click()
  202. Form1.WindowState = 1
  203.     Timer1.Enabled = True
  204. End Sub
  205. Private Sub Command2_Click()
  206. Label2.Visible = True
  207.         Label5.Visible = False
  208.         Label1.Visible = True
  209.         Label6.Visible = False
  210. Text1.Text = ""
  211. Text2.Text = ""
  212. Form2.Show
  213. Unload Me
  214. End Sub
  215. Private Sub Command3_Click()
  216. Text1.Text = ""
  217. Text2.Text = ""
  218.         Label2.Visible = True
  219.         Label5.Visible = False
  220.         Label1.Visible = True
  221.         Label6.Visible = False
  222. End Sub
  223. Private Sub Form_Load()
  224. Check1.Value = Checked
  225. End Sub
  226. Private Sub Timer1_Timer()
  227. CurrentTime = Format(Time, "hh:mm")
  228.     If CurrentTime = Text1.Text Then
  229.         Beep
  230.         Select Case Check1.Value
  231.         Case Checked
  232.             SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
  233.         Case Unchecked
  234.             SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
  235.     End Select
  236.         Form1.Show
  237.         Label2.Visible = False
  238.         Label5.Visible = True
  239.         Label1.Visible = False
  240.         Label6.Visible = True
  241.         Select Case Check1.Value
  242.         
  243.     End Select
  244.         
  245.         Timer1.Enabled = False
  246.         Form1.WindowState = 0
  247.     End If
  248. End Sub
  249. Private Sub Timer2_Timer()
  250. Label4.Caption = Time
  251. End Sub
  252.