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 / frmLeft.frm < prev    next >
Text File  |  2007-01-13  |  3KB  |  92 lines
  1. VERSION 5.00
  2. Begin VB.Form frmLeft 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   1575
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   900
  9.    Icon            =   "frmLeft.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "frmLeft.frx":00EA
  12.    ScaleHeight     =   1575
  13.    ScaleWidth      =   900
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Line Line2 
  16.       BorderColor     =   &H00000000&
  17.       X1              =   285
  18.       X2              =   285
  19.       Y1              =   945
  20.       Y2              =   1575
  21.    End
  22.    Begin VB.Line Line1 
  23.       BorderColor     =   &H00000000&
  24.       X1              =   300
  25.       X2              =   300
  26.       Y1              =   45
  27.       Y2              =   555
  28.    End
  29. End
  30. Attribute VB_Name = "frmLeft"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. '*******************************************************************
  36. '**                              Screen Calipers
  37. '**                               Version 4.4.0
  38. '**                               By Ken Foster
  39. '**                               January  2007
  40. '**                     Freeware--- no copyrights claimed
  41. '*******************************************************************
  42. ' Screen zoom was written by Rocky Clark (Kath-Rock Software)
  43. ' see frmRight for more information
  44. '=============================================
  45. Option Explicit
  46.  
  47. Dim OldX As Integer
  48. Dim OldY As Integer
  49.  
  50. Private Sub Form_Load()
  51.     'values and positions for all forms are setup here at startup
  52.     FormOnTop frmLeft
  53.     MakeTransparent Me
  54.     frmLeft.Show
  55.     frmCenter.Show
  56.     frmRight.Show
  57.     'horizontal
  58.     frmLeft.Top = 5000
  59.     frmLeft.Left = 7000
  60.     frmCenter.Left = frmLeft.Left + frmLeft.Width
  61.     frmCenter.Top = frmLeft.Top + 535
  62.     frmCenter.Width = 200
  63.     frmRight.Left = frmLeft.Left + 74     'set to home position (0) for horz
  64.     frmRight.Top = frmLeft.Top + 47
  65.     'vertical
  66.     frmTop.Left = 5000
  67.     frmTop.Top = 5000
  68.     frmMid.Top = frmTop.Top + frmTop.Height
  69.     frmMid.Left = frmTop.Left + 654
  70.     frmMid.Height = 200
  71.     frmBot.Top = frmTop.Top + 74          'set home position (0)for vert
  72.     frmBot.Left = frmTop.Left + 58
  73. End Sub
  74.  
  75. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  76.     OldX = X
  77.     OldY = Y
  78.     FormOnTop frmCenter
  79.     FormOnTop frmRight
  80. End Sub
  81.  
  82. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  83.     If Button = 1 Then
  84.         frmLeft.Left = frmLeft.Left + (X - OldX)
  85.         frmLeft.Top = frmLeft.Top + (Y - OldY)
  86.         frmRight.Left = frmRight.Left + (X - OldX)
  87.         frmRight.Top = frmLeft.Top + 47
  88.         frmCenter.Left = frmLeft.Left + frmLeft.Width
  89.         frmCenter.Top = frmLeft.Top + 535
  90.     End If
  91. End Sub
  92.