[RESOLVED] Problem with visibility

[ajames]

Public Sub Form_Load()
If Label1.Visible = True Then
    lvl = 1
    stre = 10
    dex = 2
    hp = 10
End If
level.Caption = lvl
strength.Caption = stre
dexterity.Caption = dex
health.Caption = hp
End Sub

Why aren't the labels getting the variables lvl, stre, dex and hp assigned to them? If anyone has a solution, please tell me.

[Static]

my guess would be that label1 is not visible...
if u do this does it work?

Public Sub Form_Load()
'If Label1.Visible = True Then
    lvl = 1
    stre = 10
    dex = 2
    hp = 10
'End If
level.Caption = lvl
strength.Caption = stre
dexterity.Caption = dex
health.Caption = hp
End Sub

[bushmobile]

nothing is visible at Form_Load because the form isn't visible

[ajames]

Yes, but the label in question is visible, so shouldn't it work?

[Shuja Ali]

nothing is visible at Form_Load because the form isn't visible

Thats right to some extent. Theoritically they are visible unless their Visible property is not set to false.

Yes, but the label in question is visible, so shouldn't it work?

The only thing that comes to my mind is that the Label1's visible property is either set to false or the visible property of other labels is set false.

[shakti5385]

Private Sub Command1_Click()
If Label1.Visible = True Then
A = "SHAKTI"
Label1.Caption = A
End If
End Sub

[bushmobile]

Thats right to some extent. Theoritically they are visible unless their Visible property is not set to false.

If Form.Visible = False then all controls .Visible = False

there's nothing theoretical about it.

[Hack]

If Form.Visible = False then all controls .Visible = False

there's nothing theoretical about it.

That is completely, 100%, totally correct and the Form will not be visible until ALL code in the Form_Load has executed.

This is why errors are generated when you try to SetFocus to a control in the Form_Load.

Move your code to the Form_Activate event instead of Form_Load and you should be fine.

[ajames]

Thanks for all of your help
[RESOLVED]

[Shuja Ali]

If Form.Visible = False then all controls .Visible = False

there's nothing theoretical about it.

Lets do a small test then. Open a new project in VB, put a label (Label1) on the Form and write this code in Form Load Event

Private Sub Form_Load()
    If Label1.Visible Then
        MsgBox "Lable is visible"
    Else
        MsgBox "Label is not visible"
    End If
End Sub

Now run the code and see yourself what is happening.

[bushmobile]

Well it appears that we're all wrong.

Controls with hWnd are Visible = False at form load
Controls without hWnd are Visible = True at form load

Probably best just err on the side of everything isn't visible.

[Shuja Ali]

Thats right. Probably because the controls with the HWND have the Form as their owner so when owner is not visible the controls will also not be visible.

This is just a wild guess.