Fonction qui renvoie un objet?

Version imprimable

Bonsoir,

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

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:

Citation:

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:

SetupForm.pCx1_tbox.Text = SelectedTire.pCx1.value

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

Code:

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

Code:

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:

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

Code:

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 çà?

21/09/2011, 09h32
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 :cry:

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:

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:

SetupForm.pCx1_tbox.Text = SelectedTire.pCx1.value

21/09/2011, 09h42
Gualino

Citation:

Envoyé par 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 :cry:

OK!

Oui j'essaierai la methode de Pol.
21/09/2011, 09h46
Pol63

Citation:

Envoyé par Gualino

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

Citation:

Envoyé par Gualino

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é
21/09/2011, 10h15
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é.

il n'y a rien de vraiment compliqué dans un dictionnaire, c'est une des classes essentiels du framework
c'est comme un dictionnaire papier qui pour un mot donne une définition
Code:

1 2 3 4 5 6 dim d as new dictionary(of long, string) d.add(5,"le nombre 5") dim s as string = d(5) 'retourne "le nombre 5" d(5) = "maintenant c'est autre chose la valeur" d.remove(5) 'etc...
ca permet plein de choses
si par exemple tu dois génerer 5 textbox avec un bouton à côté de chacun d'eux et qu'ils soient liés tu peux faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 private _dico_txt_btns as new dictionary(of button, textbox) private sub creationcontrols for i as integer = 1 to 5 dim t as new textbox me.controls.Add(t) dim b as new button me.controls.Add(b) addhandler b.click, addressof buttonclick _dico_txt_btns.add(b,t) next end sub private sub buttonclick (sender as object, e as system.eventargs) dim boutoncliqué as button = directcast(sender, button) dim textboxlié as textbox = _dico_txt_btns(boutoncliqué) end sub
il est après possible de faire des dictionnaire de dictionnaire
si par exemple pour un pneus tu as x propriétés (et donc x valeurs) tu peux faire
dim dico as new dictionary(of pneu, dictionary(of propriété, valeur)) (enfin il faut les types)
et après
dico.add(unpneu, new dictionary(of propriété, valeur))
dico(unpneu).add(une propriété, sa valeur)
et la valeur est accessible via dico(unpneu)(une propriété)

le dictionnaire n'est pas utiliser dans tous les cas, souvent la POO est plus pratique

21/09/2011, 11h18
Gualino

Merci pour ces explications.:ccool:

Je veux absolument réussir à faire çà.

Je recrée un post pour çà: http://www.developpez.net/forums/d11...g/#post6252056