home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Calendar_o2043231182007.psc / frmAlarm.frm < prev    next >
Text File  |  2006-11-12  |  9KB  |  300 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAlarm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  '¿Sª│«╪╜u
  5.    Caption         =   "Name"
  6.    ClientHeight    =   4575
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   3855
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmAlarm.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   4575
  24.    ScaleWidth      =   3855
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   2  '┐├╣⌡ññÑí
  27.    Begin VB.CommandButton Command1 
  28.       Caption         =   "OK"
  29.       Default         =   -1  'True
  30.       Height          =   375
  31.       Left            =   1320
  32.       TabIndex        =   0
  33.       Top             =   4080
  34.       Width           =   1215
  35.    End
  36.    Begin VB.Timer Timer1 
  37.       Interval        =   100
  38.       Left            =   4080
  39.       Top             =   120
  40.    End
  41.    Begin VB.Label Label1 
  42.       BackStyle       =   0  '│z⌐·
  43.       Caption         =   "Alarm Time:"
  44.       Height          =   255
  45.       Index           =   3
  46.       Left            =   120
  47.       TabIndex        =   10
  48.       Top             =   2520
  49.       Width           =   2055
  50.    End
  51.    Begin VB.Label lblItemData 
  52.       BackStyle       =   0  '│z⌐·
  53.       Caption         =   "Time"
  54.       BeginProperty Font 
  55.          Name            =   "Tahoma"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   255
  64.       Index           =   3
  65.       Left            =   120
  66.       TabIndex        =   9
  67.       Top             =   2760
  68.       Width           =   3615
  69.    End
  70.    Begin VB.Label btnDelItem 
  71.       BackStyle       =   0  '│z⌐·
  72.       Caption         =   "Delete Event"
  73.       BeginProperty Font 
  74.          Name            =   "Tahoma"
  75.          Size            =   8.25
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   -1  'True
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       ForeColor       =   &H00FF0000&
  83.       Height          =   255
  84.       Left            =   120
  85.       TabIndex        =   8
  86.       Top             =   4200
  87.       Width           =   1455
  88.    End
  89.    Begin VB.Label lblItemData 
  90.       BackStyle       =   0  '│z⌐·
  91.       Caption         =   "Details"
  92.       BeginProperty Font 
  93.          Name            =   "Tahoma"
  94.          Size            =   8.25
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   615
  102.       Index           =   2
  103.       Left            =   120
  104.       TabIndex        =   7
  105.       Top             =   3360
  106.       Width           =   3615
  107.    End
  108.    Begin VB.Label lblItemData 
  109.       BackStyle       =   0  '│z⌐·
  110.       Caption         =   "Time"
  111.       BeginProperty Font 
  112.          Name            =   "Tahoma"
  113.          Size            =   8.25
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       Height          =   255
  121.       Index           =   1
  122.       Left            =   120
  123.       TabIndex        =   6
  124.       Top             =   2160
  125.       Width           =   3615
  126.    End
  127.    Begin VB.Label lblItemData 
  128.       BackStyle       =   0  '│z⌐·
  129.       Caption         =   "Name"
  130.       BeginProperty Font 
  131.          Name            =   "Tahoma"
  132.          Size            =   8.25
  133.          Charset         =   0
  134.          Weight          =   700
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       Height          =   255
  140.       Index           =   0
  141.       Left            =   120
  142.       TabIndex        =   5
  143.       Top             =   1560
  144.       Width           =   3615
  145.    End
  146.    Begin VB.Label lblItemName 
  147.       Alignment       =   2  '╕mññ╣∩╗⌠
  148.       BackStyle       =   0  '│z⌐·
  149.       Caption         =   "Alarm!"
  150.       Height          =   255
  151.       Left            =   0
  152.       TabIndex        =   4
  153.       ToolTipText     =   "Click to edit this field"
  154.       Top             =   60
  155.       Width           =   3855
  156.    End
  157.    Begin VB.Shape Shape1 
  158.       BorderColor     =   &H00808080&
  159.       Height          =   375
  160.       Index           =   0
  161.       Left            =   0
  162.       Top             =   0
  163.       Width           =   3855
  164.    End
  165.    Begin VB.Shape Shape1 
  166.       BorderColor     =   &H00808080&
  167.       Height          =   495
  168.       Index           =   1
  169.       Left            =   0
  170.       Top             =   0
  171.       Width           =   3855
  172.    End
  173.    Begin VB.Label Label1 
  174.       BackStyle       =   0  '│z⌐·
  175.       Caption         =   "Details:"
  176.       Height          =   255
  177.       Index           =   0
  178.       Left            =   120
  179.       TabIndex        =   3
  180.       Top             =   3120
  181.       Width           =   2055
  182.    End
  183.    Begin VB.Label Label1 
  184.       BackStyle       =   0  '│z⌐·
  185.       Caption         =   "Time:"
  186.       Height          =   255
  187.       Index           =   2
  188.       Left            =   120
  189.       TabIndex        =   2
  190.       Top             =   1920
  191.       Width           =   2055
  192.    End
  193.    Begin VB.Label Label1 
  194.       BackStyle       =   0  '│z⌐·
  195.       Caption         =   "Item Name:"
  196.       Height          =   255
  197.       Index           =   1
  198.       Left            =   120
  199.       TabIndex        =   1
  200.       Top             =   1320
  201.       Width           =   2055
  202.    End
  203.    Begin VB.Image Image1 
  204.       Height          =   735
  205.       Left            =   1560
  206.       Stretch         =   -1  'True
  207.       Top             =   480
  208.       Width           =   735
  209.    End
  210. End
  211. Attribute VB_Name = "frmAlarm"
  212. Attribute VB_GlobalNameSpace = False
  213. Attribute VB_Creatable = False
  214. Attribute VB_PredeclaredId = True
  215. Attribute VB_Exposed = False
  216. Dim NewX As Long, NewY As Long, FormX As Long, FormY As Long
  217.  
  218. Private Sub btnDelItem_Click()
  219. On Error Resume Next
  220. If MsgBox("Are you sure you want to delete this entry?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
  221. frmMain.DeleteItem Val(Me.Tag)
  222. frmMain.FetchItem Val(Me.Tag)
  223. Unload frmDetails
  224. Unload Me
  225. End Sub
  226.  
  227. Private Sub Command1_Click()
  228. On Error Resume Next
  229. Unload Me
  230. End Sub
  231.  
  232. Private Sub Form_Resize()
  233. On Error Resume Next
  234. Shape1(0).Width = Me.ScaleWidth
  235. Shape1(1).Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
  236. End Sub
  237.  
  238. Private Sub Form_Unload(Cancel As Integer)
  239. 'DockingTerminate Me
  240. End Sub
  241.  
  242. Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  243. Form_MouseDown Button, Shift, X, Y
  244. End Sub
  245.  
  246. Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  247. Form_MouseMove Button, Shift, X, Y
  248. End Sub
  249.  
  250. Private Sub lblItemData_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  251. Form_MouseDown Button, Shift, X, Y
  252. End Sub
  253.  
  254. Private Sub lblItemData_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  255. Form_MouseMove Button, Shift, X, Y
  256. End Sub
  257.  
  258. Private Sub lblItemName_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  259. Form_MouseDown Button, Shift, X, Y
  260. End Sub
  261.  
  262. Private Sub lblItemName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  263. Form_MouseMove Button, Shift, X, Y
  264. End Sub
  265.  
  266. Private Sub Timer1_Timer()
  267.     On Error Resume Next
  268.     sndPlaySound GetSet("Alarm Sound", "C:\WINDOWS\Media\ding.wav"), &H1
  269. End Sub
  270.  
  271. Private Sub Form_Load()
  272. On Error Resume Next
  273. Dim I As Integer
  274. If GetSet("Transparent", "1") = "1" Then MakeTransparent Me.hWnd, GetSet("Transparent Value", "200")
  275. If GetSet("OnTop", "0") = "1" Then SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3
  276. If GetSet("Black", "0") = "1" Then
  277.     Me.BackColor = RGB(0, 0, 0)
  278.     lblItemName.ForeColor = RGB(255, 255, 255)
  279.     For I = 0 To 2 Step 1
  280.         Label1(I).ForeColor = RGB(255, 255, 255)
  281.         lblItemData(I).ForeColor = RGB(255, 255, 255)
  282.     Next
  283. End If
  284. DropShadow Me.hWnd
  285. 'DockingStart Me
  286. SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 1
  287. End Sub
  288.  
  289. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  290. On Error Resume Next
  291. NewX = X
  292. NewY = Y
  293. End Sub
  294.  
  295. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  296. On Error Resume Next
  297. If Button = 1 Then Me.Move Me.Left + X - NewX, Me.Top + Y - NewY
  298. End Sub
  299.  
  300.