home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / child.frm < prev    next >
Text File  |  1994-12-14  |  2KB  |  71 lines
  1. VERSION 2.00
  2. Begin Form Child 
  3.    Caption         =   "MDIChild"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   3480
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Child"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   268
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   232
  15.    Top             =   1140
  16.    Width           =   3600
  17. End
  18. ' It is important to ensure that the ScaleMode of this
  19. ' Form be set to the same ScaleMode of CRYSTAL.VBX, Twips.
  20.  
  21. Sub Form_Activate ()
  22.  
  23.     'Main!StatusBar.Caption = " Active Window :- " & Me.Caption
  24.  
  25. End Sub
  26.  
  27. Sub Form_Load ()
  28. Main!MenuFileClose.Enabled = True
  29. End Sub
  30.  
  31. Sub Form_Paint ()
  32.     
  33.     hWndChild = GetWindow(hWnd, GW_CHILD)
  34.     If (hWndChild <> 0) Then
  35.        MoveWindow hWndChild, ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight, 1
  36.     End If
  37.  
  38. End Sub
  39.  
  40. Sub Form_Resize ()
  41.     
  42.     hWndChild = GetWindow(hWnd, GW_CHILD)
  43.     If (hWndChild <> 0) Then
  44.        MoveWindow hWndChild, ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight, 1
  45.     End If
  46.  
  47. End Sub
  48.  
  49. Sub Form_Unload (Cancel As Integer)
  50.     'Hide print Controls when closing Child Window
  51.  
  52.      
  53.      
  54.      
  55.      
  56.      Main.Command3D17.Visible = False
  57.      Main.Panel3D1.Visible = False
  58.      
  59.      
  60.  
  61.     ' Window may be unloaded from SystemMenu or F4
  62.     ' so Main MenuFileClose needs to be updated
  63.     If Forms.Count = 1 Then
  64.         Main.MenuFileClose.Enabled = False
  65.         Main!StatusBar.Caption = " Ready"
  66.     End If
  67.     Unload Me
  68.  
  69. End Sub
  70.  
  71.