Discussion :

[Gualino]

Bonsoir,

Je cherche à faire une fonction qui sert à renvoyer l'objet selectionné par un radiobutton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Function SelectedTire() As Object
        If Tire_LF_radbut.Checked = True Then
            Return Tire_LF
 
        ElseIf Tire_RF_radbut.Checked = True Then
            Return Tire_RF
 
        ElseIf Tire_LR_radbut.Checked = True Then
            Return Tire_LR
 
        ElseIf Tire_RR_radbut.Checked = True Then
            Return Tire_RR
        End If
    End Function

J'ai ce warning:

Warning 1 Function 'SelectedTire' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used. E:\YMD - 09.20\YMD\SetupForm.vb 320 5 YMD

Après je voudrais faire quelque chose comme çà:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetupForm.pCx1_tbox.Text = SelectedTire.pCx1.value

Avec pCx1 une propriété de l'instance SelectedTire, issue de la fonction...

[BenoitM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function SelectedTire() As Tire
        If Tire_LF_radbut.Checked = True Then
            Return Tire_LF
 
        ElseIf Tire_RF_radbut.Checked = True Then
            Return Tire_RF
 
        ElseIf Tire_LR_radbut.Checked = True Then
            Return Tire_LR
 
        Else Tire_RR_radbut.Checked = True Then
            Return Tire_RR
        End If
    End Function

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Function SelectedTire() As CheckBox
        If Tire_LF_radbut.Checked = True Then
            Return Tire_LF
 
        ElseIf Tire_RF_radbut.Checked = True Then
            Return Tire_RF
 
        ElseIf Tire_LR_radbut.Checked = True Then
            Return Tire_LR
 
        ElseIf Tire_RR_radbut.Checked = True Then
            Return Tire_RR
        Else 
            Throw New ApplicationException("checkbox non géré") ' ou Return Nothing
        End If
    End Function

j'aurais plutot dit ca

as object si tu retourne un checkbox autant mettre as checkbox (sinon il suffit de caster le retour de la fonction sur checkbox)

et pour le "ne retourne pas une valeur sur tous les chemin" c'est qu'avec ton code de départ, si aucun des elseif est vrai tu te retrouves en fin de fonction sans avoir fait un return
il faut alors choisir (via le else ou alors après le end if) quoi faire, déclencher une erreur ou retourner nothing

si tu as plein de checkbox tu peux aussi faire quelque chose de plus générique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

return (from c as checkbox in me.controls.oftype(of checkbox) where c.checked = true select c).firstordefault

[Gualino]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function SelectedTire() As TireClass
        If Tire_LF_radbut.Checked = True Then
            Return Tire_LF
 
        ElseIf Tire_RF_radbut.Checked = True Then
            Return Tire_RF
 
        ElseIf Tire_LR_radbut.Checked = True Then
            Return Tire_LR
 
        Else
            Return Tire_RR
        End If
    End Function

Merci!

A la différence de TireClasse, Object ne supporte que les classes d'origines et pas celles que je crée, c'est çà?

[BenoitM]

tout les objets que tu crées sont dérivé Objet

Part contre si tu retourne un Objet , tu n'as access qu'au méthodes de la class Objet (tu dois effectuer un cast)

donc pour ne pas caster l'objet en TireClasse , tu dis que ta fonction retourne un TireClasse

sinon la méthode de Pol63 est plus jolie

[Gualino]

tout les objets que tu crées sont dérivé Objet

Part contre si tu retourne un Objet , tu n'as access qu'au méthodes de la class Objet (tu dois effectuer un cast)

donc pour ne pas caster l'objet en TireClasse , tu dis que ta fonction retourne un TireClasse

sinon la méthode de Pol63 est plus jolie

OK!

Oui j'essaierai la methode de Pol.

[Gualino]

Bonjour Pol,

Non ce n'est pas pour créer une check box.


En fait, je crée 4 pneu avec des propriétés par défaut.
Un pneu à plus de 100 propriétés.
J'ai 4 radiobutton : pneu avant-droit, avant-gauche...et 100textbox pour les propriété.

un bind comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Tire_LF As New TireClass
    Dim Tire_RF As New TireClass
    Dim Tire_LR As New TireClass
    Dim Tire_RR As New TireClass
    Private Sub CreatesFourDefaultTires()
 
        Call Tire_LF.TireBinding(Tire_LF)
....
 
Public Sub TireBinding(ByVal Tire_xx As TireClass)
 
'Pure Longitudinal
        Dim PCx1 As New Binding("Text", Tire_xx, "PCx1", True, DataSourceUpdateMode.OnValidation, 0)
        PCx1.ControlUpdateMode = ControlUpdateMode.Never
        SetupForm.pCx1_tbox.DataBindings.Add(PCx1)
end sub

Les textboxs sont remplis par defaut.Je voudrais que pour chaque radiobutton on retrouve les propriétés du pneu sélectionné.

D'où quelque chose comme çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetupForm.pCx1_tbox.Text = SelectedTire.pCx1.value

[Pol63]

Non ce n'est pas pour créer une check box.

là n'est pas la question, mon code est une explication générique
et j'avais pas fait gaffe que tu parlais de radiobutton (pourtant avec les elseif ca parrait évident)
enfin suffit de remplacer checkbox par radiobutton et la fonction retournera la radiobutton qui est checked

100 textbox

s'il y a 100 textbox à l'écran ca peut vouloir dire que l'interface est mal conçue ...
et je ne suis pas expert en binding windows forms donc je ne pourrais guère t'aider plus là dessus
enfin à vu de nez si tu veux pouvoir accéder à ton binding, il faut le déclarer au même endroit que tes 4 pneus (et tu peux les initialiser dans ta méthode quand même)
et si tu as 100 bindings, mets les dans une collection genre un dictionary(of tireclasse, dictionary(of string, binding))
tireclass => nom propriété => binding associé

[Gualino]

Ces 100 textbox sont réparti sur plusieurs tab...

Pour le dictionnaire, j'y ai pensé, mais on m'a dit que c'était compliqué.