Public sub maken die verschillende functies handles

[StoMMie]

Goedendag,
Ik ben hier nog nieuw en mijn programeer vaardigheden zijn basic te noemen.
Ik wil een soort public sub maken voor onderstaande code.

Private Sub RadioButtonSHAPE_1_MouseHover1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonSHAPE_1.MouseHover
SplashScreenINFO.Size = New Size(PictureBoxINFO.Width * Schaal, PictureBoxINFO.Height * Schaal)
SplashScreenINFO.BackgroundImage = My.Resources.Vorm_1
Timer1.Start()
End Sub

Private Sub RadioButtonSHAPE_2_MouseHover1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonSHAPE_2.MouseHover
SplashScreenINFO.Size = New Size(PictureBoxINFO.Width * Schaal, PictureBoxINFO.Height * Schaal)
SplashScreenINFO.BackgroundImage = My.Resources.Vorm_2
Timer1.Start()
End Sub

Ik weet niet hoe ik bijvoorbeeld in die public sub de .name van de object kan uitlezen om op basis hiervan mee verder te programmeren.

Graag wat eenvoudige uitleg over het uitlezen van dat soort gegevens.

Met vriendelijke Groet,
StoMMie

 

[JoZ1]

Ik denk dat je zoiets bedoelt:

[CPP]Private Sub RadioButtonSHAPEMouseHover1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonSHAPE_1.MouseHover, RadioButtonSHAPE_2.MouseHover
SplashScreenINFO.Size = New Size(PictureBoxINFO.Width * Schaal, PictureBoxINFO.Height * Schaal)
if sender.Name = "RadioButtonSHAPE_1" Then SplashScreenINFO.BackgroundImage = My.Resources.Vorm_1 Else _
SplashScreenINFO.BackgroundImage = My.Resources.Vorm_2
Timer1.Start()
End Sub[/CPP]

 

[StoMMie]

Hoi JoZ1,

Dat klopt, maar die combi had ik al bedacht.
Ik werk in VB2010 express (geen idee of dat hierop van invloed is) , maar ik krijg de na het typen van sender. het keuze menutje en die bestaat uit slechts 5 of 6 keuzes.
Ik zit nu in de tuin en niet meer op het werk, maar "name" state er 100% zeker niet bij!!
Wat heb ik fout/anders gedaan dan jij, zodat bij jouw "name" wel toegestaan/herkend wordt.

Greetz

 

[JoZ1]

Dat komt omdat het type 'Object' dat niet standaard heeft.

Maar de code hoort gewoon te werken, probeer maar.

Als je het toch per se wilt, kun je het zo doen:

[cpp]Dim rb As RadioButton = sender
If rb.Name = "x" Then blabla()[/cpp]

 

[StoMMie]

Hoi JoZ1,

Je laatste oplossing met de "Dim rb As RadioButton = sender" werkt perfect voor mij.
Bedankt!!

 

[JoZ1]

Zet je de vraag dan op opgelost?