Discussion :

[matamat59]

Salut à tous ;

Je suis nouvelle utilisateur de VB2010 express .

Je suis occupé de monter un projet et je but sur quelque chose.

Voici la description :

J'ai créer une fenetre avec des boutons clic ( 1 .2 .3 4 . 5 ....... ) jusqu'à 150 plus ou moins .( voir photo )


Et quand je clic desssus , j'ai une autre fenêtre qui s'ouvre avec 3 choix possible ; en fonction du choix que je choisie ( libre, occupé,travaux ) voir photo .


La couleur de mon numéro de case change ( vert , rouge ou orange )

J'ai réussi à créer le script pour une case mais y a t'il moyen de créer un seul script pour les 150 cases?

je précise que chaque cases est indépendante et que le choix choisi ( couleur ) doit rester enregistrer à la fermeture du logiciel .

Merci d'avance pour votre aide .

D'ailleur étant nouveau sur visual basic , j'ai plein de question mais on verra après lol chaque chose en sont temps .

A+ matthieu

[wallace1]

bonjour,

- concernant l' evenement click declenché pour chaque bouton, il te faut associer le handle de tes boutons a une seule procedure :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Button1234_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
 
Dim clickedButton as button = TryCast(sender, button)
msgbox(clickedButton.name)
 
'fais ce que tu veux ici avec le bouton qui a été cliqué. A toi de prevoir tes clauses conditionnelles (if ou select case....) !
 
End Sub

- Pour ce qui est de sauvegarder tes paramètres, nous avons déjà traités plusieurs fois ce sujet sur ce forum : a savoir choix du type de fichiers (xml, ini, etc....) selon le volume d informations a sauvegarder....

Enfin, saches que conformement à la charte nous echangerons au travers de qq snippets de codes que lorsque tu nous montreras ce que tu as tentés de faire.....

@+

[Pol63]

dans le principe on ne pose pas les boutons à la main mais avec du code, et on relit l'event clic de tous les boutons vers la même sub


https://www.developpez.net/forums/d1698587/dotnet/langages/vb-net/declaration-dynamique-d-objets/#post9291351
+ le flowlayoutpanel

[matamat59]

Je dois avouer que j'ai du mal à vous suivre .

Pour le moment , j'ai refait 3 boutons et un bouton exit:

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Class liste_chambre
 
    Private Sub Button166_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button166.Click
        My.Settings.Save()
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        etatchambre.Show()
        My.Settings.Save()
    End Sub
 
End Class]

et mes 3 boutons de choix :

et le code actuelle :

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
17
18
19
Public Class etatchambre
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Travaux.Click
        liste_chambre.Button1.BackColor = Color.Orange
        Me.Close()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Libre.Click
        liste_chambre.Button1.BackColor = Color.GreenYellow
        Me.Close()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Occupée.Click
        liste_chambre.Button1.BackColor = Color.Red
        Me.Close()
    End Sub
End Class

je suis pas sur que vous m'ayez compris ,
le but est de savoir si une case est occupé ou pas ou en travaux
donc chaques cases doit etres independant et au final il y aura 150 cases .

ou c'est moi qui ne sait pas utiliser vos solutions ?

merci de vos retours .
matthieu

[wallace1]

@matamat59 :

Ce que pol63 t'invite à suivre comme bonne pratique de programmation concerne la création dynamique de contrôles. En somme quel est l'un des avantages de faire de la programmation :

--> Eviter les actions répétitives ! à savoir dans ton cas tu as posés 150 boutons sur un formulaires et paramétrés chacun de ses boutons ....WtF...o_O quel calvaire pour un développeur....
Alors qu'en moins de 10 lignes de codes tes boutons pourraient étre créés puis paramétrés.....

Secondo : je te suggère de bien lire le contenu de nos réponses et d'éviter de nous dire que nous n'avons rien compris de ton problème. Merci.

++

[Pol63]

je confirme qu'on a bien compris ta problématique, qui est une demande courante ici, mais on t'a envoyé dans une autre direction, qui demande moins de code, moins de temps, et apporte plus d'évolutivité et de maintenabilité

on ne pose pas 150 boutons qui font à peu près la même chose à la main pour plusieurs raisons
- c'est long
- au mieux tu vas avoir handles btn1.click, btn2.click ... sur plusieurs lignes
- en général un programme est lié à une base de données (ou tout enregistrement en mémoire dure) donc on préfère du code dynamique pour que le jour où on rajoute un élément (un chambre dans ton cas) on ait rien à modifier dans le code
- et surement plein d'autres raisons

il est possible d'écrire du code qui va ajouter les x boutons et comme le dit wallace1 et mon exemple ca prend une dizaine de ligne, soit moins de temps qu'il t'as surement fallu pour poser les quelques premiers boutons, les aligner etc... (enfin pour nous, la première que tu vas écrire ce code tu vas peut être galérer ^^)

et donc en plus de créer un bouton, de le "poser" par code, on peut s'abonner à un event, pour faire comme si on avait écrit x fois handles btnx.click
dans la sub clic on récupère quel bouton a été cliqué (vu que tous les bouton.click pointent vers la même sub) et on fait le traitement selon



après idéalement il faudrait partir sur de l'objet, en windows forms il y a plusieurs possibilités, lier un bouton à une instance de chambre (via button.tag ou dictionary), ou faire un customcontrol chambre (qui hérite de bouton) avec des propriétés

[matamat59]

Désolé de vous avoir peut être froissé .

Mais je suis vraiment débutant ( en gros , j'ai télécharger VB 2010 express il y a 1 semaine ) et je ne connait vraiment rien en programmation "développement" )

mais j'ai de bonne basse en programmation automate ... qui n'ait pas la même logique.

Et là je m'aventure dans un domaine que je ne connais pas et je souhaites créer un soft pour aider ma femme ds son boulot ...

vos réponses ont beau être très clair, je n'arrive pas à savoir quoi créer et par ou commencer pour cette page .

si vous avez un exemple concret où je peux copier le code et le coller en changeant certain élément je suis preneur .

en attendant je vais déjà essayer avec vos infos , mais je me gratte la tête .

Comment je peux vous montrer l'avancement de ce projet en globale ? est ce qu'en vous envoyant uniquement le .exe çà ira ?

A+ matthieu

[matamat59]

Bon j'ai réussi pour les boutons 1.2.3.4.5 ... il s'ouvre tous la bonne page ( état chambre )
voici mon code : ( plus simple en effet )

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
Public Class liste_chambre
 
    Private Sub Button166_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button166.Click
        My.Settings.Save()
        Me.Close()
    End Sub
 
 
    Private Sub Button12345678910_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click
 
        Dim clickedButton As Button = TryCast(sender, Button)
        etatchambre.Show()
 
 
    End Sub

Par contre dans l'autre page ( état chambre )
voici mon code :

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
17
18
19
Public Class etatchambre
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Travaux.Click
        liste_chambre.Button1.BackColor = Color.Orange
        Me.Close()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Libre.Click
        liste_chambre.Button1.BackColor = Color.GreenYellow
        Me.Close()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Occupée.Click
        liste_chambre.Button1.BackColor = Color.Red
        Me.Close()
    End Sub
End Class

lorsque je clique sur 1 ou 2 ou 5 ou 10

c'est uniquement la case N°1 qui change de couleur ( normal parce que mon code dit Button1 )

mais je ne vois pas comment faire pour lier çà avec la case que j'ai cliqué auparavant .

çà avance lol

[Pol63]

Désolé de vous avoir peut être froissé .

pas du tout

Mais je suis vraiment débutant ( en gros , j'ai télécharger VB 2010 express il y a 1 semaine ) et je ne connait vraiment rien en programmation "développement" )
mais j'ai de bonne basse en programmation automate ... qui n'a pas la même logique.

en effet, il faudrait idéalement commencer par la base et la programmation orientée objet, qui n'a rien à voir avec la programmation procédurale qu'on peut trouver sur la plupart des automates

Comment je peux vous montrer l'avancement de ce projet en globale ? est ce qu'en vous envoyant uniquement le .exe çà ira ?

le code source serait mieux pour pouvoir le remettre en cause, le résultat n'est pas la seule chose à obtenir en développement

lorsque je clique sur 1 ou 2 ou 5 ou 10
c'est uniquement la case N°1 qui change de couleur ( normal parce que mon code dit Button1 )
mais je ne vois pas comment faire pour lier çà avec la case que j'ai cliqué auparavant .

il faut donner au form qui s'ouvre une référence vers le bouton cliqué
là tu fais .button1.backcolor, donc c'est le bouton 1
avec une référence (variable qui contient le bouton) ca sera générique

après quand on programme bien en .net on ne travaille pas sur des boutons, mais sur des classes, et on fait la liaison entre les instances de classes et l'interface
au passage que sauvegardes tu ?

[matamat59]

Re bonjour,

J'ai remarqué un problème quand j'ouvre mon projet avec le .exe
J'ai ce message d'alarme , si je fais ignorer çà marche jusqu'au prochain clic...



Connaissez vous ce problème ? quand j'effectue le débogage ds visualbasic , j'ai aucune erreur et tout fonctionne correctement.

ce problème se produit sur une seul page .

dois je testé le .exe sur un autre PC ?

Merci de votre retour .

Matthieu

[Pol63]

quand un programme rencontre une erreur en .net il lève une exception qui contient un message d'erreur, un type d'erreur, la pile des appels etc...
c'est ce qui t'arrive ici, un bug dans ton code
l'erreur remonte alors à l'appelant et à son appelant etc... jusqu'à qu'elle trouve un catch
quand l'erreur n'est pas catchée le programme s'arrête (et l'utilisateur râle ^^)
aussi il faut donc une gestion d'erreur un peu partout

pour comprendre le problème il suffit de lire le message et la pile des appels (on ne voit pas la suite mais ca te dira à quel endroit de ton code ca a planté)
la ligne la plus haute est le dernier endroit atteint au moment du plantage, et en dessous il y a les appelants, donc à un moment il doit y avoir du code à toi (nomclasse.nom_membre)
ici c'est une erreur de binding ... mais ca vient de ton code donc on ne peut pas savoir ce qu'il en est réellement

[matamat59]

Je ne vois pas mon code d'erreur:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Consultez la fin de ce message pour plus de détails sur l'appel du débogage
juste-à-temps (JIT) à la place de cette boîte de dialogue.
 
************** Texte de l'exception **************
System.ArgumentException: Impossible d'effectuer une liaison à la propriété ou la colonne test sur le DataSource.
Nom du paramètre*: dataMember
   à System.Windows.Forms.BindToObject.CheckBinding()
   à System.Windows.Forms.BindToObject.SetBindingManagerBase(BindingManagerBase lManager)
   à System.Windows.Forms.Binding.SetListManager(BindingManagerBase bindingManagerBase)
   à System.Windows.Forms.ListManagerBindingsCollection.AddCore(Binding dataBinding)
   à System.Windows.Forms.BindingsCollection.Add(Binding binding)
   à System.Windows.Forms.BindingContext.UpdateBinding(BindingContext newBindingContext, Binding binding)
   à System.Windows.Forms.Control.UpdateBindings()
   à System.Windows.Forms.Control.OnBindingContextChanged(EventArgs e)
   à System.Windows.Forms.Control.set_BindingContextInternal(BindingContext value)
   à System.Windows.Forms.ContainerControl.set_BindingContext(BindingContext value)
   à System.Windows.Forms.ContainerControl.get_BindingContext()
   à System.Windows.Forms.Control.UpdateBindings()
   à System.Windows.Forms.Control.OnBindingContextChanged(EventArgs e)
   à System.Windows.Forms.ContainerControl.OnCreateControl()
   à System.Windows.Forms.Form.OnCreateControl()
   à System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   à System.Windows.Forms.Control.CreateControl()
   à System.Windows.Forms.Control.WmShowWindow(Message& m)
   à System.Windows.Forms.Control.WndProc(Message& m)
   à System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   à System.Windows.Forms.ContainerControl.WndProc(Message& m)
   à System.Windows.Forms.Form.WmShowWindow(Message& m)
   à System.Windows.Forms.Form.WndProc(Message& m)
   à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   à System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
 
 
************** Assemblys chargés **************
mscorlib
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Projet gériagestion
    Version de l'assembly*: 1.0.0.0
    Version Win32*: 1.0.0.0
    CodeBase*: file:///C:/Users/Maison/Documents/Visual%20Studio%202010/Projects/Projet%20g%C3%A9riagestion/Projet%20g%C3%A9riagestion/bin/Debug/Projet%20g%C3%A9riagestion.exe
----------------------------------------
Microsoft.VisualBasic
    Version de l'assembly*: 10.0.0.0
    Version Win32*: 11.0.50709.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
mscorlib.resources
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_fr_b77a5c561934e089/mscorlib.resources.dll
----------------------------------------
System.Configuration
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
Accessibility
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll
----------------------------------------
System.Windows.Forms.resources
    Version de l'assembly*: 4.0.0.0
    Version Win32*: 4.0.30319.17929 built by: FX45RTMREL
    CodeBase*: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_fr_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
 
************** Débogage JIT **************
Pour activer le débogage juste-à-temps (JIT), le fichier de configuration pour cette
application ou cet ordinateur (machine.config) doit avoir la valeur
jitDebugging définie dans la section system.windows.forms.
L'application doit également être compilée avec le débogage
activé.
 
Par exemple*:
 
<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>
 
Lorsque le débogage juste-à-temps est activé, les exceptions non gérées
seront envoyées au débogueur JIT inscrit sur l'ordinateur
plutôt que d'être gérées par cette boîte de dialogue.

c'est pas très clair tout çà lol

[Pol63]

ici l'erreur ne remonte pas jusqu'à ton code car c'est un rappel lors de l'affichage et ca plante dans le framework
mais ca vient de te configuration du binding je pense, il ne doit pas trouver une colonne ou un truc dans le genre ...

[matamat59]

J'ai testé mon projet ( .exe ) sur une autre machine et j'ai la même erreur .

où je dois chercher car je ne sait pas

configuration du binding je pense, il ne doit pas trouver une colonne ou un truc dans le genre

c'est dans mon code de cette page là ?

[Pol63]

Ca parle de binding, tu as fait du binding quelque part ? Défini la propriété datamember sur un contrôle ?

[matamat59]

çà y est , j'ai trouvé .

j'avais créer en test un data binding sur une page.

la page était effacer mais pas le data test et il n'arrivait pas à faire le lien .

j'ai tout suprimer le data test et c'est bon OUF .

Maintenant , je dois m'attaquer au formulaire ...

A+ matthieu