home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hitcou1a / hitcount.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-15  |  3.3 KB  |  112 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Object = "{EF0C3904-392B-11D3-80D9-444553540001}#7.0#0"; "HitCounter.ocx"
  4. Begin VB.Form frmCounter 
  5.    Caption         =   "Hit Counter"
  6.    ClientHeight    =   3210
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   5385
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "HitCounter.frx":0000
  12.    ScaleHeight     =   214
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   359
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin HitCount.HitCounter HitCounter1 
  17.       Height          =   435
  18.       Left            =   900
  19.       TabIndex        =   1
  20.       Top             =   2175
  21.       Width           =   435
  22.       _ExtentX        =   767
  23.       _ExtentY        =   767
  24.    End
  25.    Begin PicClip.PictureClip PicClip 
  26.       Left            =   225
  27.       Top             =   900
  28.       _ExtentX        =   6615
  29.       _ExtentY        =   661
  30.       _Version        =   327681
  31.       Cols            =   10
  32.       Picture         =   "HitCounter.frx":5A72
  33.    End
  34.    Begin VB.PictureBox pctContainer 
  35.       AutoRedraw      =   -1  'True
  36.       BackColor       =   &H00C0C0C0&
  37.       Height          =   690
  38.       Left            =   225
  39.       ScaleHeight     =   42
  40.       ScaleMode       =   3  'Pixel
  41.       ScaleWidth      =   277
  42.       TabIndex        =   0
  43.       Top             =   1425
  44.       Width           =   4215
  45.    End
  46.    Begin VB.Image Numeral 
  47.       Height          =   840
  48.       Index           =   0
  49.       Left            =   225
  50.       Top             =   2175
  51.       Width           =   540
  52.    End
  53. Attribute VB_Name = "frmCounter"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59. Private Sub LoadNumerals()
  60.     For NumCnt = 0 To CHAR_CNT - 1
  61.         ReDim Preserve Numerals(0 To NumCnt)
  62.         Set Numerals(NumCnt) = PicClip.GraphicCell(NumCnt)
  63.     Next NumCnt
  64. End Sub
  65. Private Sub Display()
  66. Dim CharCnt As Integer, NumString As String
  67. Dim i As Integer, CurNum As Integer
  68. Dim X As Integer
  69.     KillBoxes
  70.     NumString = Format(OpenCnt, "000000")
  71.     CharCnt = Len(NumString)
  72.     X = CHAR_SPC
  73.     For i = 1 To CharCnt
  74.         Load Numeral(i)
  75.         CurNum = Val(Right(Left(NumString, i), 1))
  76.         Set Numeral(i).Container = pctContainer
  77.         Numeral(i).Left = X
  78.         Numeral(i).Top = CHAR_SPC
  79.         Numeral(i).Visible = True
  80.         Numeral(i).Picture = Numerals(CurNum)
  81.         X = X + Numeral(i).Width - 1
  82.     Next i
  83. End Sub
  84. Public Sub AddToReg()
  85.     OpenCnt = Val(GetSetting(TITLE, App.TITLE, KEY, 0)) + 1
  86.     SaveSetting TITLE, App.TITLE, KEY, OpenCnt
  87.     Caption = OpenCnt
  88. End Sub
  89. Private Sub KillBoxes()
  90.     For BoxCount = BoxCount To 1 Step -1
  91.         Unload Numeral(BoxCount)
  92.     Next BoxCount
  93. End Sub
  94. Private Sub Form_Click()
  95.     HitCounter1.PerformHit
  96. End Sub
  97. Private Sub Form_DblClick()
  98.     HitCounter1.ResetHits 0
  99. End Sub
  100. Private Sub Form_Load()
  101.     HitCounter1.ResetHits
  102.     AddToReg
  103.     LoadNumerals
  104.     Display
  105. End Sub
  106. Private Sub HitCounter1_Click()
  107.     HitCounter1.PerformHit
  108. End Sub
  109. Private Sub HitCounter1_DblClick()
  110.     Debug.Print "DblClick"
  111. End Sub
  112.