home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Screen_Cal2042371132007.psc / frmCenter.frm < prev    next >
Text File  |  2007-01-13  |  2KB  |  56 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCenter 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   405
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   1185
  9.    Icon            =   "frmCenter.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "frmCenter.frx":00EA
  12.    ScaleHeight     =   405
  13.    ScaleWidth      =   1185
  14.    ShowInTaskbar   =   0   'False
  15. End
  16. Attribute VB_Name = "frmCenter"
  17. Attribute VB_GlobalNameSpace = False
  18. Attribute VB_Creatable = False
  19. Attribute VB_PredeclaredId = True
  20. Attribute VB_Exposed = False
  21. '*******************************************************************
  22. '**                              Screen Calipers
  23. '**                               Version 4.4.0
  24. '**                               By Ken Foster
  25. '**                               January  2007
  26. '**                     Freeware--- no copyrights claimed
  27. '*******************************************************************
  28.  
  29. '=============================================
  30. Option Explicit
  31.  
  32. Dim OldX As Integer
  33. Dim OldY As Integer
  34.  
  35. Private Sub Form_Load()
  36.     FormOnTop frmCenter
  37.     frmCenter.AutoRedraw = True
  38.     StretchBlt frmCenter.hDC, 0, 0, frmCenter.ScaleWidth, frmCenter.ScaleHeight, frmCenter.hDC, 0, 0, 1, frmCenter.ScaleHeight, vbSrcCopy
  39. End Sub
  40.  
  41. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  42.     OldX = X
  43.     OldY = Y
  44. End Sub
  45.  
  46. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  47.     If Button = 1 Then
  48.         frmLeft.Left = frmLeft.Left + (X - OldX)
  49.         frmLeft.Top = frmLeft.Top + (Y - OldY)
  50.         frmCenter.Left = frmLeft.Left + frmLeft.Width
  51.         frmCenter.Top = frmLeft.Top + 535
  52.         frmRight.Left = frmLeft.Left + frmLeft.Width + frmCenter.Width
  53.         frmRight.Top = frmLeft.Top + 47
  54.     End If
  55. End Sub
  56.