home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD39753142000.psc / Demo / Form2.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-03-14  |  1.5 KB  |  49 lines

  1. VERSION 5.00
  2. Object = "*\A..\..\..\CREATE~1\CONTRO~2\MDIActiveX.vbp"
  3. Begin VB.Form Form2 
  4.    Caption         =   "Editor ohne eigenen Men
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    KeyPreview      =   -1  'True
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   3195
  12.    ScaleWidth      =   4680
  13.    StartUpPosition =   3  'Windows-Standard
  14.    Begin sMDIinActiveX.MDIActiveX MDIActiveX1 
  15.       Left            =   2640
  16.       Top             =   120
  17.       _ExtentX        =   847
  18.       _ExtentY        =   794
  19.    End
  20.    Begin VB.TextBox Text1 
  21.       Height          =   825
  22.       Left            =   0
  23.       MultiLine       =   -1  'True
  24.       ScrollBars      =   3  'Beides
  25.       TabIndex        =   0
  26.       Text            =   "Form2.frx":0000
  27.       Top             =   0
  28.       Width           =   1590
  29.    End
  30. Attribute VB_Name = "Form2"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  36. Private Type RECT
  37.     Left As Long
  38.     Top As Long
  39.     Right As Long
  40.     Bottom As Long
  41. End Type
  42. Private Sub Form_Resize()
  43. Dim r As RECT
  44. Debug.Print "Resize!!!"
  45.   GetClientRect Me.hwnd, r
  46.   Me.Text1.Width = Me.ScaleX(r.Right, vbPixels, Me.ScaleMode)
  47.   Me.Text1.Height = Me.ScaleY(r.Bottom, vbPixels, Me.ScaleMode) - Me.Text1.Top
  48. End Sub
  49.