home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / glassForm204092142007.psc / frmBlank.frm < prev    next >
Text File  |  2006-09-07  |  4KB  |  115 lines
  1. VERSION 5.00
  2. Begin VB.Form frmBlank 
  3.    Appearance      =   0  'Flat
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00F8F8F8&
  6.    ClientHeight    =   4365
  7.    ClientLeft      =   60
  8.    ClientTop       =   60
  9.    ClientWidth     =   6285
  10.    ControlBox      =   0   'False
  11.    DrawMode        =   6  'Mask Pen Not
  12.    DrawWidth       =   2
  13.    FillColor       =   &H00FFFFFF&
  14.    FillStyle       =   0  'Solid
  15.    ForeColor       =   &H00FFFFFF&
  16.    Icon            =   "frmBlank.frx":0000
  17.    KeyPreview      =   -1  'True
  18.    LinkTopic       =   "Form2"
  19.    ScaleHeight     =   4365
  20.    ScaleWidth      =   6285
  21.    ShowInTaskbar   =   0   'False
  22.    StartUpPosition =   3  'Windows Default
  23.    Begin VB.PictureBox pcaption 
  24.       Align           =   1  'Align Top
  25.       AutoRedraw      =   -1  'True
  26.       BackColor       =   &H00F8F8F8&
  27.       BorderStyle     =   0  'None
  28.       Height          =   255
  29.       Left            =   0
  30.       ScaleHeight     =   255
  31.       ScaleWidth      =   6285
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   6285
  35.    End
  36. End
  37. Attribute VB_Name = "frmBlank"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Option Explicit
  43. Dim CurrX, CurrY As Single
  44. Private Sub Form_Activate()
  45. If frmGlass.WindowState <> 1 Then
  46. frmGlass.Caption = ""
  47. End If
  48. frmGlass.SetFocus
  49. End Sub
  50.  
  51. Private Sub Form_Load()
  52. RedondearEsquinaForm Me, 15
  53. ProcOld = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WindowProc)
  54. End Sub
  55. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  56.  frmGlass.SetFocus
  57. End Sub
  58. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  59. If frmGlass.Tag = "maximizado" Then
  60. frmGlass.picmin.Picture = frmGlass.Picminn.Picture
  61. frmGlass.Picsal.Picture = frmGlass.picsaln.Picture
  62. frmGlass.Picres.Picture = frmGlass.picresmax.Picture
  63. Else
  64. frmGlass.picmin.Picture = frmGlass.Picminn.Picture
  65. frmGlass.Picsal.Picture = frmGlass.picsaln.Picture
  66. frmGlass.Picres.Picture = frmGlass.picresn.Picture
  67. End If
  68.  frmGlass.SetFocus
  69. End Sub
  70. Private Sub Form_Unload(Cancel As Integer)
  71. Call SetWindowLong(Me.hWnd, GWL_WNDPROC, ProcOld)
  72. End Sub
  73.  
  74. Public Sub pcaption_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  75. CurrX = x
  76. CurrY = y
  77. frmGlass.SetFocus
  78. End Sub
  79. Public Sub pcaption_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  80. If frmGlass.Tag = "maximizado" Then
  81. frmGlass.picmin.Picture = frmGlass.Picminn.Picture
  82. frmGlass.Picsal.Picture = frmGlass.picsaln.Picture
  83. frmGlass.Picres.Picture = frmGlass.picresmax.Picture
  84. Else
  85. frmGlass.picmin.Picture = frmGlass.Picminn.Picture
  86. frmGlass.Picsal.Picture = frmGlass.picsaln.Picture
  87. frmGlass.Picres.Picture = frmGlass.picresn.Picture
  88. End If
  89. Call DragWindow(Button, x, y)
  90. frmGlass.SetFocus
  91. End Sub
  92.  
  93. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  94.  frmGlass.SetFocus
  95. End Sub
  96. Public Function DragWindow(Button As Integer, x As Single, y As Single)
  97. If Me.WindowState = 2 Then Exit Function
  98. If Button = 1 Then
  99. Me.Left = Me.Left + (x - CurrX)
  100. Me.Top = Me.Top + (y - CurrY)
  101. frmGlass.Move frmBlank.Left + 150, frmBlank.Top, frmBlank.Width - 200, frmBlank.Height - 100
  102. End If
  103. frmGlass.SetFocus
  104. End Function
  105. Private Sub Form_Resize()
  106. If frmBlank.WindowState = 1 Then Exit Sub
  107. RedondearEsquinaForm Me, 15
  108. frmGlass.Move frmBlank.Left + 150, frmBlank.Top, frmBlank.Width - 200, frmBlank.Height - 100
  109. frmGlass.Label2.Width = frmGlass.Width - 100: frmGlass.Label2.Height = frmGlass.Height - 400
  110. frmGlass.Text1.Width = frmGlass.Label2.Width - 250
  111. frmGlass.Text1.Height = frmGlass.Label2.Height - 800
  112. frmGlass.SetFocus
  113. End Sub
  114.  
  115.