home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / POS__Curso2103182242008.psc / frmMain.frm < prev    next >
Text File  |  2008-02-23  |  16KB  |  458 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "POS: by Chadworkz.com"
  5.    ClientHeight    =   2790
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4590
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   6.75
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "frmMain"
  19.    Picture         =   "frmMain.frx":0000
  20.    ScaleHeight     =   2790
  21.    ScaleWidth      =   4590
  22.    Begin VB.Timer tmrPOS 
  23.       Enabled         =   0   'False
  24.       Interval        =   1
  25.       Left            =   2880
  26.       Top             =   1260
  27.    End
  28.    Begin VB.Label lblWebsite 
  29.       Alignment       =   2  'Center
  30.       AutoSize        =   -1  'True
  31.       BackStyle       =   0  'Transparent
  32.       Caption         =   "WWW.CHADWORKZ.COM"
  33.       BeginProperty Font 
  34.          Name            =   "Small Fonts"
  35.          Size            =   5.25
  36.          Charset         =   0
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       ForeColor       =   &H003C3C3C&
  43.       Height          =   120
  44.       Left            =   1140
  45.       TabIndex        =   7
  46.       ToolTipText     =   " Click to visit: www.chadworkz.com "
  47.       Top             =   2625
  48.       Width           =   1275
  49.    End
  50.    Begin VB.Shape shapeLight 
  51.       BackColor       =   &H00C0C0C0&
  52.       BackStyle       =   1  'Opaque
  53.       BorderColor     =   &H006E6E6E&
  54.       Height          =   90
  55.       Left            =   3450
  56.       Shape           =   5  'Rounded Square
  57.       Top             =   2535
  58.       Width           =   90
  59.    End
  60.    Begin VB.Label lblExit 
  61.       Alignment       =   2  'Center
  62.       AutoSize        =   -1  'True
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "x"
  65.       ForeColor       =   &H0012129E&
  66.       Height          =   165
  67.       Left            =   4350
  68.       TabIndex        =   6
  69.       Top             =   345
  70.       Width           =   105
  71.    End
  72.    Begin VB.Image btnEnable 
  73.       Height          =   240
  74.       Left            =   3630
  75.       Picture         =   "frmMain.frx":29CB2
  76.       Top             =   2460
  77.       Width           =   840
  78.    End
  79.    Begin VB.Image imgDisableDown 
  80.       Height          =   240
  81.       Left            =   840
  82.       Picture         =   "frmMain.frx":2A774
  83.       Top             =   3270
  84.       Visible         =   0   'False
  85.       Width           =   840
  86.    End
  87.    Begin VB.Image imgDisableHover 
  88.       Height          =   240
  89.       Left            =   840
  90.       Picture         =   "frmMain.frx":2B236
  91.       Top             =   3030
  92.       Visible         =   0   'False
  93.       Width           =   840
  94.    End
  95.    Begin VB.Image imgDisableUp 
  96.       Height          =   240
  97.       Left            =   840
  98.       Picture         =   "frmMain.frx":2BCF8
  99.       Top             =   2790
  100.       Visible         =   0   'False
  101.       Width           =   840
  102.    End
  103.    Begin VB.Image imgEnableDown 
  104.       Height          =   240
  105.       Left            =   0
  106.       Picture         =   "frmMain.frx":2C7BA
  107.       Top             =   3270
  108.       Visible         =   0   'False
  109.       Width           =   840
  110.    End
  111.    Begin VB.Image imgEnableHover 
  112.       Height          =   240
  113.       Left            =   0
  114.       Picture         =   "frmMain.frx":2D27C
  115.       Top             =   3030
  116.       Visible         =   0   'False
  117.       Width           =   840
  118.    End
  119.    Begin VB.Image imgEnableUp 
  120.       Height          =   240
  121.       Left            =   0
  122.       Picture         =   "frmMain.frx":2DD3E
  123.       Top             =   2790
  124.       Visible         =   0   'False
  125.       Width           =   840
  126.    End
  127.    Begin VB.Label lblOffsetY 
  128.       Alignment       =   1  'Right Justify
  129.       AutoSize        =   -1  'True
  130.       BackStyle       =   0  'Transparent
  131.       Caption         =   "0"
  132.       BeginProperty Font 
  133.          Name            =   "Tahoma"
  134.          Size            =   8.25
  135.          Charset         =   0
  136.          Weight          =   700
  137.          Underline       =   0   'False
  138.          Italic          =   0   'False
  139.          Strikethrough   =   0   'False
  140.       EndProperty
  141.       ForeColor       =   &H000000C0&
  142.       Height          =   195
  143.       Left            =   4005
  144.       TabIndex        =   5
  145.       Top             =   1875
  146.       Width           =   105
  147.    End
  148.    Begin VB.Label lblOffsetX 
  149.       Alignment       =   1  'Right Justify
  150.       AutoSize        =   -1  'True
  151.       BackStyle       =   0  'Transparent
  152.       Caption         =   "0"
  153.       BeginProperty Font 
  154.          Name            =   "Tahoma"
  155.          Size            =   8.25
  156.          Charset         =   0
  157.          Weight          =   700
  158.          Underline       =   0   'False
  159.          Italic          =   0   'False
  160.          Strikethrough   =   0   'False
  161.       EndProperty
  162.       ForeColor       =   &H000000C0&
  163.       Height          =   195
  164.       Left            =   4005
  165.       TabIndex        =   4
  166.       Top             =   1665
  167.       Width           =   105
  168.    End
  169.    Begin VB.Label lblFormY 
  170.       Alignment       =   1  'Right Justify
  171.       AutoSize        =   -1  'True
  172.       BackStyle       =   0  'Transparent
  173.       Caption         =   "0"
  174.       BeginProperty Font 
  175.          Name            =   "Tahoma"
  176.          Size            =   8.25
  177.          Charset         =   0
  178.          Weight          =   700
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       ForeColor       =   &H000000C0&
  184.       Height          =   195
  185.       Left            =   4005
  186.       TabIndex        =   3
  187.       Top             =   1455
  188.       Width           =   105
  189.    End
  190.    Begin VB.Label lblFormX 
  191.       Alignment       =   1  'Right Justify
  192.       AutoSize        =   -1  'True
  193.       BackStyle       =   0  'Transparent
  194.       Caption         =   "0"
  195.       BeginProperty Font 
  196.          Name            =   "Tahoma"
  197.          Size            =   8.25
  198.          Charset         =   0
  199.          Weight          =   700
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       ForeColor       =   &H000000C0&
  205.       Height          =   195
  206.       Left            =   4005
  207.       TabIndex        =   2
  208.       Top             =   1245
  209.       Width           =   105
  210.    End
  211.    Begin VB.Label lblCursorY 
  212.       Alignment       =   1  'Right Justify
  213.       AutoSize        =   -1  'True
  214.       BackStyle       =   0  'Transparent
  215.       Caption         =   "0"
  216.       BeginProperty Font 
  217.          Name            =   "Tahoma"
  218.          Size            =   8.25
  219.          Charset         =   0
  220.          Weight          =   700
  221.          Underline       =   0   'False
  222.          Italic          =   0   'False
  223.          Strikethrough   =   0   'False
  224.       EndProperty
  225.       ForeColor       =   &H000000C0&
  226.       Height          =   195
  227.       Left            =   4005
  228.       TabIndex        =   1
  229.       Top             =   1035
  230.       Width           =   105
  231.    End
  232.    Begin VB.Label lblCursorX 
  233.       Alignment       =   1  'Right Justify
  234.       AutoSize        =   -1  'True
  235.       BackStyle       =   0  'Transparent
  236.       Caption         =   "0"
  237.       BeginProperty Font 
  238.          Name            =   "Tahoma"
  239.          Size            =   8.25
  240.          Charset         =   0
  241.          Weight          =   700
  242.          Underline       =   0   'False
  243.          Italic          =   0   'False
  244.          Strikethrough   =   0   'False
  245.       EndProperty
  246.       ForeColor       =   &H000000C0&
  247.       Height          =   195
  248.       Left            =   4005
  249.       TabIndex        =   0
  250.       Top             =   825
  251.       Width           =   105
  252.    End
  253. End
  254. Attribute VB_Name = "frmMain"
  255. Attribute VB_GlobalNameSpace = False
  256. Attribute VB_Creatable = False
  257. Attribute VB_PredeclaredId = True
  258. Attribute VB_Exposed = False
  259. Option Explicit
  260. '_________________________________________________________________________________________________'
  261. '@ H @ T @ T @ P @ : @ / @ / @ W @ W @ W @ . @ C @ H @ A @ D @ W @ O @ R @ K @ Z @ . @ C @ O @ M @'
  262. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  263. '    ..######..##.....##....###....########..##......##..#######..########..##....##.######## TM  '
  264. '    .##....##.##.....##...##.##...##.....##.##..##..##.##.....##.##.....##.##...##.......##.     '
  265. '    .##.......##.....##..##...##..##.....##.##..##..##.##.....##.##.....##.##..##.......##..     '
  266. '    .##.......#########.##.....##.##.....##.##..##..##.##.....##.########..#####.......##...     '
  267. '    .##.......##.....##.#########.##.....##.##..##..##.##.....##.##...##...##..##.....##....     '
  268. '    .##....##.##.....##.##.....##.##.....##.##..##..##.##.....##.##....##..##...##...##.....     '
  269. '    ..######..##.....##.##.....##.########...###..###...#######..##.....##.##....##.########.COM '
  270. '_________________________________________________________________________________________________'
  271. '@ H @ T @ T @ P @ : @ / @ / @ W @ W @ W @ . @ C @ H @ A @ D @ W @ O @ R @ K @ Z @ . @ C @ O @ M @'
  272. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  273. '   This example is part of my ChadworkzÖ Example Series - http://www.chadworkz.com/vb/examples   '
  274. '_________________________________________________________________________________________________'
  275.  
  276. Dim blnEnabled As Boolean, blnHovering As Boolean
  277.  
  278. Private Sub btnEnable_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  279.     
  280.     If blnEnabled = True Then
  281.         btnEnable.Picture = imgDisableDown.Picture
  282.     Else
  283.         btnEnable.Picture = imgEnableDown.Picture
  284.     End If
  285.     
  286.     Call PlayWav(App.path & "\sounds\click.wav")
  287. End Sub
  288.  
  289. Private Sub btnEnable_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  290.     
  291.     blnHovering = True
  292.     
  293.     If blnEnabled = True Then
  294.         btnEnable.Picture = imgDisableHover.Picture
  295.     Else
  296.         btnEnable.Picture = imgEnableHover.Picture
  297.     End If
  298. End Sub
  299.  
  300. Private Sub btnEnable_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  301.     
  302.     If blnEnabled = True Then
  303.         If blnHovering = True Then
  304.             btnEnable.Picture = imgDisableHover.Picture
  305.         Else
  306.             btnEnable.Picture = imgDisableUp.Picture
  307.         End If
  308.         blnEnabled = False
  309.         tmrPOS.Enabled = False
  310.         shapeLight.BackColor = &HC0C0C0
  311.         lblCursorX.Caption = "0"
  312.         lblCursorY.Caption = "0"
  313.         lblFormX.Caption = "0"
  314.         lblFormY.Caption = "0"
  315.         lblOffsetX.Caption = "0"
  316.         lblOffsetY.Caption = "0"
  317.     Else
  318.         If blnHovering = True Then
  319.             btnEnable.Picture = imgEnableHover.Picture
  320.         Else
  321.             btnEnable.Picture = imgEnableUp.Picture
  322.         End If
  323.         blnEnabled = True
  324.         tmrPOS.Enabled = True
  325.         shapeLight.BackColor = &H5858C6
  326.     End If
  327. End Sub
  328.  
  329. Private Sub Form_Load()
  330.     
  331.     Dim lngLoads As Long
  332.  
  333.     Call CenterForm(Me)
  334.     Call FormOnTop(Me, True)
  335.     Call TransparentByColor(Me, 65280)
  336.     Call TransparentByPercent(Me.hwnd, 80&)
  337.     
  338.     blnEnabled = False
  339.     blnHovering = False
  340.     
  341.     If DirExists(App.path & "\data") = False Then Call MkDir(App.path & "\data")
  342.     If DirExists(App.path & "\sounds") = False Then
  343.         Call MkDir(App.path & "\sounds")
  344.         Name App.path & "\click.wav" As App.path & "\sounds\click.wav"
  345.     End If
  346.     
  347.     If FileExists(App.path & "\data\pos.txt") = True Then
  348.         lngLoads& = CLng(ReadData("POS - Total Times Loaded ", "Total Loads: ", App.path & "\data\pos.txt"))
  349.         lngLoads& = lngLoads& + 1&
  350.         Call WriteData("POS - Total Times Loaded ", "Total Loads: ", CStr(lngLoads&), App.path & "\data\pos.txt")
  351.         Call MsgBox("Number of times loaded [" & lngLoads& & "].", vbInformation + vbOKOnly, "Loads")
  352.     Else
  353.         lngLoads& = 0&
  354.         Call WriteData("POS - Date of First Load ", "Loaded Date: ", Date, App.path & "\data\pos.txt")
  355.         Call WriteData("POS - Time of First Load ", "Loaded Time: ", Time, App.path & "\data\pos.txt")
  356.         Call WriteData("POS - Total Times Loaded ", "Total Loads: ", CStr(lngLoads&), App.path & "\data\pos.txt")
  357.         Call WriteData("POS - Last Time Unloaded ", "Unloaded Time: ", Now, App.path & "\data\pos.txt")
  358.         Call MsgBox("Hello! Welcome to another ChadworkzÖ Example!" & vbCrLf & vbCrLf & _
  359.         "Please visit [ http://www.chadworkz.com ] for more examples.", vbInformation + vbOKOnly, "First Load")
  360.     End If
  361. End Sub
  362.  
  363. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  364.     
  365.     Call FormDrag(Me, True)
  366. End Sub
  367.  
  368. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  369.     
  370.     blnHovering = False
  371.     
  372.     If blnEnabled = True Then
  373.         btnEnable.Picture = imgDisableUp.Picture
  374.     Else
  375.         btnEnable.Picture = imgEnableUp.Picture
  376.     End If
  377.     
  378.     lblWebsite.ForeColor = &H3C3C3C
  379.     lblWebsite.FontUnderline = False
  380.     lblExit.ForeColor = &H12129E
  381.     lblExit.FontBold = False
  382. End Sub
  383.  
  384. Private Sub Form_Unload(Cancel As Integer)
  385.     
  386.     Call Pause(0.15)
  387.     End
  388. End Sub
  389.  
  390. Private Sub lblExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  391.     
  392.     lblExit.Top = 360
  393.     lblExit.Left = 4365
  394.     
  395.     Call PlayWav(App.path & "\sounds\click.wav")
  396. End Sub
  397.  
  398. Private Sub lblExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  399.     
  400.     lblExit.ForeColor = &H0
  401.     lblExit.FontBold = True
  402. End Sub
  403.  
  404. Private Sub lblExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  405.     
  406.     lblExit.Top = 345
  407.     lblExit.Left = 4350
  408.     
  409.     Call Unload(Me)
  410. End Sub
  411.  
  412. Private Sub lblWebsite_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  413.     
  414.     lblWebsite.Top = 2640
  415.     lblWebsite.Left = 1155
  416.     
  417.     Call PlayWav(App.path & "\sounds\click.wav")
  418. End Sub
  419.  
  420. Private Sub lblWebsite_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  421.     
  422.     lblWebsite.ForeColor = &H0&
  423.     'lblWebsite.ForeColor = &HFFFFFF
  424.     lblWebsite.FontUnderline = True
  425. End Sub
  426.  
  427. Private Sub lblWebsite_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  428.     
  429.     lblWebsite.Top = 2625
  430.     lblWebsite.Left = 1140
  431.     
  432.     Call ShellExecute(0&, vbNullString, "http://www.chadworkz.com", vbNullString, vbNullString, vbNormalFocus)
  433. End Sub
  434.  
  435. Private Sub tmrPOS_Timer()
  436.  
  437.     Dim lngCursorTop As Long, lngFormTop As Long, lngOffsetTop As Long
  438.     Dim lngCursorLeft As Long, lngFormLeft As Long, lngOffsetLeft As Long
  439.     
  440.     lngCursorTop& = CursorY&
  441.     lngCursorLeft& = CursorX&
  442.     
  443.     lngFormTop& = Me.Top / 15&
  444.     lngFormLeft& = Me.Left / 15&
  445.     
  446.     lngOffsetTop& = (lngCursorTop& - lngFormTop&) * 15
  447.     lngOffsetLeft& = (lngCursorLeft& - lngFormLeft&) * 15
  448.     
  449.     lblCursorY.Caption = Round(lngCursorTop&, 0&)
  450.     lblCursorX.Caption = Round(lngCursorLeft&, 0&)
  451.     
  452.     lblFormY.Caption = Round(lngFormTop&, 0&)
  453.     lblFormX.Caption = Round(lngFormLeft&, 0&)
  454.     
  455.     lblOffsetY.Caption = Round(lngOffsetTop&, 0&)
  456.     lblOffsetX.Caption = Round(lngOffsetLeft&, 0&)
  457. End Sub
  458.