Ja/Nee optie

[sanma]

Hallo,

Ik ben pas bezig met Visual Basic dus wil even een standaard iets maken.

Gewoon een vraag bijvoorbeeld:
Geslacht: o Man o Vrouw

Nu wil ik dat ik één optie kan aanvinken en dan dat er wat gebeurt. Dus bijvoorbeeld komt dan in cel A1 wanneer man is aangevinkt een 1 te staan en wanneer vrouw is aangevinkt komt er in cel A1 een 2 te staan.

Ik weet nu wel hoe ik optionbuttons moet toevoegen maar ik kan ze niet aanvinken etc. Ik krijg zoiets:

Private Sub Ja_Click()

End Sub

Private Sub Nee_Click()

End Sub


Hoop dat iemand me kan helpen, is vrij simpel lijkt me maar kom er niet aan uit

 

[vanschagen]

voorbeeld
http://msdn.microsoft.com/en-us/library/kd7e4yte(VS.80).aspx

 

[sanma]

voorbeeld
http://msdn.microsoft.com/en-us/library/kd7e4yte(VS.80).aspx

Hallo,

Bedankt voor de snelle reactie.

Ik kan nu inderdaad 2 optievelden aanmaken maar ik kom er nog niet helemaal uit hoe ik moet instellen dat er wat moet gebeuren als optie 1 of 2 is "gecheckt".

Weet iemand misschien ook een handige site voor beginners?

 

[Pizara]

Je hebt t over optionbuttons .. dus vb6 begrijp ik ?

Mocht het toch .net zijn , dan kan je onderstaande code gebruiken

Public Class Form1

    Dim OptionMan As New RadioButton
    Dim OptionVrouw As New RadioButton

    Public Enum Geslacht
        Man
        Vrouw
    End Enum

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        OptionMan.Text = Geslacht.Man.ToString
        OptionMan.Size = New Point(100, 15)
        OptionMan.Location = New Point(100, 100)
        AddHandler OptionMan.Click, AddressOf OptionClicked
        Me.Controls.Add(OptionMan)

        OptionVrouw.Text = Geslacht.Vrouw.ToString
        OptionVrouw.Size = New Point(100, 15)
        OptionVrouw.Location = New Point(100, 150)
        AddHandler OptionVrouw.Click, AddressOf OptionClicked
        Me.Controls.Add(OptionVrouw)
    End Sub

    Private Sub OptionClicked(ByVal sender As Object, ByVal e As MouseEventArgs)
        If sender.Text = Geslacht.Man.ToString Then
            MsgBox("U klikte " & Geslacht.Man.ToString)
            '{run de man code hier} 
        Else
            MsgBox("U klikte " & Geslacht.Vrouw.ToString)
            '{run de vrouw code hier} 
        End If
    End Sub


End Class

 

[sanma]

Ik gebruik Microsoft Visual Basic V 6.3, dit zit in mijn excel.

Wanneer ik nu naar extra > macro > visual basic editor ga en op werkblad 1 klik, de bovenstaande code kopieer en afsluit zie ik niks gebeuren

 

[Pizara]

Omdat je ook in het verkeerde forum zit te posten

VBA vragen graag hier

 

[henkhoogerbrug]

via de toolbar Forms (in excel) kun je option buttons invoegen in je werkblad. Deze kun je dan via format ook weer koppelen aan een cel en/of macro.

 

[sanma]

Hallo,

Ik weet nu dus hoe ik de keuzerondjes moet maken.

Ik heb een bijlage toegevoegd.

Wanneer je nu de rondjes aanvinkt komt er een waarde van 1 t/m 6 te staan in cel E3. Dit werkt goed, maar.

Ik wil dat in cel D20 komt te staan man/vrouw
En dat in cel D21de leeftijd komt te staan.

Je kunt nu ook niet de opties los van elkaar kiezen dus je kunt maar 1 hokje aanvinken.

 

[henkhoogerbrug]

zie bijlage.
Je kunt de option buttons groeperen. De groupbox kun je ook opmaken (als je bijv. geen lijn wilt zien).

 

[sanma]

Bedankt dit is inderdaad wat ik bedoelde super:thumb: