Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/odosrc/odometer.frm

Visual Basic Form | 1995-05-02 | 7.6 KB | 234 lines

VERSION 2.00
Begin Form Resource
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   ClientHeight    =   1020
   ClientLeft      =   1200
   ClientTop       =   3420
   ClientWidth     =   9990
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   1425
   Icon            =   ODOMETER.FRX:0000
   Left            =   1140
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1020
   ScaleWidth      =   9990
   Top             =   3075
   Width           =   10110
   Begin Timer CaptionTimer
      Interval        =   5000
      Left            =   1560
      Top             =   660
   End
   Begin PictureClip PicClip1
      Cols            =   20
      Location        =   "7200,3300,1440,180"
      Picture         =   ODOMETER.FRX:0302
      Rows            =   10
   End
   Begin SSPanel Panel3D1
      Alignment       =   1  'Left Justify - MIDDLE
      BackColor       =   &H00C0C0C0&
      BevelInner      =   1  'Inset
      BevelWidth      =   2
      Caption         =   "       Sys              GDI             User              Mem                    k   C:                      k  D:                      k"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   555
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9990
      Begin PictureBox Counter6
         Height          =   255
         Left            =   7800
         ScaleHeight     =   225
         ScaleWidth      =   1245
         TabIndex        =   3
         Top             =   150
         Width           =   1275
      End
      Begin PictureBox Picture2
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   240
         Left            =   9510
         ScaleHeight     =   240
         ScaleWidth      =   255
         TabIndex        =   2
         Top             =   105
         Width           =   255
      End
      Begin PictureBox Picture1
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   195
         Left            =   90
         ScaleHeight     =   195
         ScaleWidth      =   255
         TabIndex        =   1
         Top             =   105
         Width           =   255
      End
      Begin PictureBox Counter5
         Height          =   255
         Left            =   6060
         ScaleHeight     =   225
         ScaleWidth      =   1245
         TabIndex        =   4
         Top             =   150
         Width           =   1275
      End
      Begin PictureBox Counter4
         Height          =   255
         Left            =   4470
         ScaleHeight     =   225
         ScaleWidth      =   1065
         TabIndex        =   5
         Top             =   150
         Width           =   1095
      End
      Begin PictureBox Counter3
         Height          =   255
         Left            =   3225
         ScaleHeight     =   225
         ScaleWidth      =   465
         TabIndex        =   6
         Top             =   150
         Width           =   495
      End
      Begin PictureBox Counter2
         Height          =   255
         Left            =   2040
         ScaleHeight     =   225
         ScaleWidth      =   465
         TabIndex        =   7
         Top             =   150
         Width           =   495
      End
      Begin PictureBox Counter1
         Height          =   255
         Left            =   870
         ScaleHeight     =   225
         ScaleWidth      =   465
         TabIndex        =   8
         Top             =   150
         Width           =   495
      End
   End
   Begin Timer Mem_Timer
      Interval        =   10
      Left            =   5100
      Top             =   840
   End
Sub CaptionTimer_Timer ()
    'set info in icon caption
    If Resource.WindowState = 1 Then
      Resource.Caption = "Sys = " & (SysReSrc * 100) & "% " & Format$((GetFreeSpace(&H0) / 1024 / 1024), "##.0") & " meg"
      Else
           Resource.Caption = ""
      End If
End Sub
Sub Form_DblClick ()
    'close
End Sub
Sub Form_Load ()
    left = (Screen.Width / 2 - Width / 2)
    top = (Screen.Height - Screen.Height + 25)
    Height = 555

     picture1.Picture = PicClip1.GraphicCell(0)
     picture2.Picture = PicClip1.GraphicCell(9)
     SetWindowPos Resource.hWnd, HWND_TOPMOST, 0, 0, 0, 0, &H40
     SysReSrc = GetFreeSystemResources(GFSR_SYSTEMRESOURCES) / 100
     Resource.Counter1.Value = SysReSrc
     GdiReSrc = GetFreeSystemResources(GFSR_GDIRESOURCES) / 100
     Resource.Counter2.Value = GdiReSrc
     UserReSrc = GetFreeSystemResources(GFSR_USERRESOURCES) / 100
     Resource.Counter3.Value = UserReSrc
     Resource.Counter4.Value = GetFreeSpace(&H0) / 1024

     z% = 1  ' free space
     Y% = 3  ' drive 0 is default drive drive A is 1 etc.
     x& = DiskInfo&(Y%, z%)
     Resource.Counter5.Value = x& / 1024
     z% = 1  ' free space
     t% = 2 'total space
     Y% = 4  ' drive 0 is default drive drive A is 1 etc.
     x& = DiskInfo&(Y%, z%)
     If x& = -1 Then
      CounterFlag = True
      Panel3D1.Caption = "       Sys              GDI             User              Mem                    k   C:                      k  C:                      total"
      Msg$ = "No Drive D: Detected."
      MsgBox Msg$, 64, "OdoMeter v1.2"
      w& = DiskInfo&(3, t%)
      Resource.Counter6.Value = w& / 1024
      Else
           Resource.Counter6.Value = x& / 1024
      End If
End Sub
Sub Label5_DblClick ()
    End
End Sub
Sub Label6_DblClick ()
    End
End Sub
Sub Label7_DblClick ()
    End
End Sub
Sub Label8_DblClick ()
    End
End Sub
Sub Mem_Timer_Timer ()
     ' Get system resources
     SysReSrc = GetFreeSystemResources(GFSR_SYSTEMRESOURCES) / 100
     Resource.Counter1.Value = SysReSrc
     GdiReSrc = GetFreeSystemResources(GFSR_GDIRESOURCES) / 100
     Resource.Counter2.Value = GdiReSrc
     UserReSrc = GetFreeSystemResources(GFSR_USERRESOURCES) / 100
     Resource.Counter3.Value = UserReSrc
     Resource.Counter4.Value = GetFreeSpace(&H0) / 1024

     z% = 1  ' free space
     Y% = 3  ' drive 0 is default drive drive A is 1 etc.

     x& = DiskInfo&(Y%, z%)
     Resource.Counter5.Value = x& / 1024
     Y% = 4  ' drive 0 is default drive drive A is 1 etc.
     t% = 2 'total space
     If CounterFlag = True Then
      w& = DiskInfo&(3, t%)
      Resource.Counter6.Value = w& / 1024
      ElseIf CounterFlag = False Then
           x& = DiskInfo&(Y%, z%)
           Resource.Counter6.Value = x& / 1024
      End If
End Sub
Sub Picture1_Click ()
     Unload Resource
End Sub
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
     picture1.Picture = PicClip1.GraphicCell(0 + 10)
End Sub
Sub Picture1_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)

     picture1.Picture = PicClip1.GraphicCell(0)
End Sub
Sub Picture2_Click ()
     WindowState = 1
End Sub
Sub Picture2_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)

     picture2.Picture = PicClip1.GraphicCell(9 + 10)
End Sub
Sub Picture2_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)

     picture2.Picture = PicClip1.GraphicCell(9)
End Sub