Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21096

[RESOLVED] invaild property value in mdi

$
0
0
hey

very starnge thing happens

when i try to open a form in mdi child i get a error invaild property value
when i press debug i see this:

Code:

Private Sub Form_Resize()
If MDImain.WindowState <> 2 Then Exit Sub
   
    With LsVw
        .Width = Me.Width - 500
        .Height = Me.Height - 1800
        .Left = ((Me.Width - .Width) / 2) - 50
        For I = 1 To 9
          .ColumnHeaders(I).Width = .Width / 9 - 50 this is the error marked
        Next
      FrCust.Left = LsVw.Left + .Left + .Width + 200
    FrCust.Height = .Height
        FrCmds.Top = .Top + .Height - 7
        LblName.Top = FrCmds.Top + 100
        TxtFind.Top = .Top + .Height + 50
        vkLabel1.Top = .Top + .Height + 600
        Label1.Top = .Top + .Height + 600
        Label3.Top = .Top + .Height + 600
        FrCmds.Left = .Left + .Width - 8000
        Image1.Top = .Top + .Height + 75
 
    End With
    DoEvents
End Sub


Viewing all articles
Browse latest Browse all 21096

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>