idea for future builds : toggle menus

[VersionX]

When you click a menu icon (ex: inventory), it opens.
When you click it again, it closes. Basically, the have icons toggle menus on/off.

Or is this programmable on our side? =D

EDIT: Great work so far gentlemen.

[Acruno]

Or is this programmable on our side? =D

Um..how many sides are there?

[Poyzin]

When you click a menu icon (ex: inventory), it opens.
When you click it again, it closes. Basically, the have icons toggle menus on/off.

This is very easy to do.
Other engines have this O.o

[Anthony]

Code:

Private Sub picInventory_click()
If picInv.Visible = True Then
picInv.Visible = False
Else
picInv.Visible = True
End If
End Sub

[Poyzin]

Code:

Private Sub picInventory_click()
If picInv.Visible = True Then
picInv.Visible = False
Else
picInv.Visible = True
End If
End Sub

See?

[Jacob]

Code:

Private Sub picInventory_click()
If picInv.Visible = True Then
picInv.Visible = False
Else
picInv.Visible = True
End If
End Sub

Or

Code:

Private Sub picInventory_click()
picInv.Visible = not picinv.visible
End Sub

[Robin]

Dugor wins one gold star.

[Jacob]

I love Gold Stars.

[Robin]

I love you.

[Poyzin]

I'm terrified.

[VersionX]

Code:

Private Sub picInventory_click()
picInv.Visible = not picinv.visible
End Sub

Is there a better/less-verbose way to toggle the spells, it looks different:

Code:

Dim spellsVisible as Boolean

Private Sub Form_Load()
    frmMirage.Width=10080
    spellsVisible = false
End Sub

Private Sub picSpells_Click()
    If Not spellsVisible Then
        Call SendData("spells" & END_CHAR)
    Else
        Call lblSpellsCancel_Click
    End If
    spellsVisible = Not spellsVisible
End Sub

[Anthony]

You shouldn't need to create a boolean. All you need is picSpells.Visible = not picSpells.Visible.

Dugors code is just using the opposite of it's value which is already there. You shouldn't have to make anything else.

[Rian]

No, he's just saying you don't need to code exery little thing. Pictureboxes have a .Visible property which is already like a Boolean variable.

Code:

Private Sub picSpells_Click()
    picPlayerSpells.Visible = not picPlayerSpells.Visible
    If picPlayerSpells.Visible = True Then
        CallSendData("spells" & END_CHAR)
    End If
End Sub