Visual Basic- въпрос за "checked"

[ArminVanBuuren]

Здравейте!

http://img442.imageshack.us/img442/3088/62825644hj6.jpg

Въпросът ми е как може при избор на "квадрат" да се появи shape1(kvadrat), съответно и за правоъгълника-shape2, но и при отмаркирване да изчезва съответната геометрична фигура.Предполагам става с "checked", но при мен винаги ми се отбелязва и не мога да го отмаркирам и да изчезне изображението.

 

Private Sub mnukvadrat_Click()
If mnukvadrat.Checked = False Then
With mnukvadrat
.Checked = True
Shape1.Visible = True
End With
ElseIf mnukvadrat.Checked = Not (mnukvadrat.Checked) Then
mnukvadrat.Checked = False
Shape1.Visible = False
End If
End Sub


Private Sub mnupravoygylnik_Click()
If mnupravoygylnik.Checked = False Then
With mnupravoygylnik
.Checked = True
Shape2.Visible = True
End With
ElseIf mnupravoygylnik.Checked = Not (mnupravoygylnik.Checked) Then

End If
End Sub

 

 

Благодаря!

[VIS]

И аз нямам идея, как може да стане при повторно натискане да се отмаркира. Но можеш да направиш един бутон, който да отмаркира съответно квадрата и правоъгълника, и да направиш също така, като си на квадрат да се показва шейп1, а като си на правоъгълник да се скрива шейп1, и да се показва шейп2, като чека отива на правоъгълник и се премахва на квадрат.

Или нещо такова:

http://img247.imageshack.us/img247/2923/dasdabd1.png

[crio]

Private Sub menuRect_Click()
If menuRect.Checked = False Then
menuSquare.Checked = False
menuRect.Checked = True
Shape1.Visible = False
Shape2.Visible = True
End If
End Sub

Private Sub menuSquare_Click()
If menuSquare.Checked = False Then
menuRect.Checked = False
menuSquare.Checked = True
Shape1.Visible = True
Shape2.Visible = False
End If
End Sub

 

Където Shape1 и Shape2 са съответно квадрата и правоъгълника

[ArminVanBuuren]

Еййй, златни хора!

Стана с начина на Crio, и всичко е ОК!

Много ви благодаря, приятели!

100X!