vbAccelerator - Contents of code file: SubFrms.frm

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form SubFrms 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "SubForm - Values"
   ClientHeight    =   3195
   ClientLeft      =   1320
   ClientTop       =   5040
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   213
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   ShowInTaskbar   =   0   'False
   Tag             =   "SubForm -"
   Begin ComctlLib.ListView Lv 
      Height          =   2535
      Left            =   0
      TabIndex        =   1
      Top             =   600
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   4471
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      _Version        =   327682
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   2
      BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
         Key             =   ""
         Object.Tag             =   ""
         Text            =   "Property"
         Object.Width           =   2381
      EndProperty
      BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
         SubItemIndex    =   1
         Key             =   ""
         Object.Tag             =   ""
         Text            =   "Value"
         Object.Width           =   2646
      EndProperty
   End
   Begin VB.ComboBox Cb 
      Height          =   315
      Left            =   120
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   0
      Width           =   3495
   End
End
Attribute VB_Name = "SubFrms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public SubForm As Object

Public Sub UpDateLv(ByVal Indx As Integer)
 Static BeenHere As Boolean
 
 Dim ItmX As ListItem
 
 If Not BeenHere Then
  BeenHere = True
  Lv.ListItems.Clear
  Set ItmX = Lv.ListItems.Add(, , "Child Form Draw Pos")
  
  Set ItmX = Lv.ListItems.Add(, , "Sub Form Caption")
  
  Set ItmX = Lv.ListItems.Add(, , "Sub Form Visible")
  
  Set ItmX = Lv.ListItems.Add(, , "Sub Form MaxState")
  
  Set ItmX = Lv.ListItems.Add(, , "Sub Form Hwnd")
  
  Set ItmX = Lv.ListItems.Add(, , "Parent Alignment")
  
 End If
 
  
 Lv.ListItems(1).SubItems(1) = DkForms(Indx).SubForm.Pos
 Lv.ListItems(2).SubItems(1) = DkForms(Indx).SubForm.Caption
 Lv.ListItems(3).SubItems(1) = DkForms(Indx).SubForm.Visible
 Lv.ListItems(4).SubItems(1) = DkForms(Indx).SubForm.MaxState
 Lv.ListItems(5).SubItems(1) = DkForms(Indx).SubForm.hwnd
 
 Select Case DkForms(Indx).SubForm.DockPos
   Case vbAlignTop
    Lv.ListItems(6).SubItems(1) = "Top"
   Case vbAlignBottom
    Lv.ListItems(6).SubItems(1) = "Bottom"
   Case vbAlignLeft
    Lv.ListItems(6).SubItems(1) = "Left"
   Case vbAlignRight
    Lv.ListItems(6).SubItems(1) = "Right"
  End Select
 
 
 Lv.Refresh
  
End Sub

Private Sub Cb_Click()
 UpDateLv Cb.ItemData(Cb.ListIndex)
End Sub


Private Sub Form_Load()
 Left = -30000
End Sub

Private Sub Form_Resize()
 Cb.Move -2, -2, ScaleWidth + 4
 If ScaleHeight >= 8 + Cb.Height Then
 Lv.Move -3, Cb.Height, ScaleWidth + 6, Abs((ScaleHeight - Cb.Height) + 2)
 End If
 
End Sub