Discussion :

[guimo26]

Bonjour, il faut que je fasse un jeu de pendu pour un cour et j'aurais besoins d'un peu d'aide SVP

dans le fond j ai 26 bouton A à Z plus un menu Lettre qui contient aussi les lettres A à Z. Je fais une fonction rend enabled les lettre que je frappe (par exemple si je pese sur le Bouton "Q", il sera enabled et celui du sous menu "Q" le sera aussi. C'est la que ca se corse voici mon code pour juste enabled les boutons et menuitem:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim invisiblelettreboutton As Object
    Dim invisiblelettremenu As New MenuItem
 
Private Sub CliqueSurBoutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABT.Click, BBT.Click, CBT.Click, DBT.Click, EBT.Click, FBT.Click, GBT.Click, HBT.Click, IBT.Click, JBT.Click, KBT.Click, LBT.Click, MBT.Click, NBT.Click, OBT.Click, PBT.Click, QBT.Click, RBT.Click, SBT.Click, TBT.Click, UBT.Click, VBT.Click, WBT.Click, XBT.Click, YBT.Click, ZBT.Click, ATSMI.Click, BTSMI.Click, CTSMI.Click, DTSMI.Click, E.Click, FTSMI.Click, GTSMI.Click, HTSMI.Click, ITSMI.Click, JTSMI.Click, KTSMI.Click, LTSMI.Click, MTSMI.Click, NTSMI.Click, OTSMI.Click, PTSMI.Click, QTSMI.Click, RTSMI.Click, STSMI.Click, TTSMI.Click, UTSMI.Click, VTSMI.Click, WTSMI.Click, XTSMI.Click, YTSMI.Click, ZTSMI.Click
 
        Lettre2 = sender.text
        invisiblelettremenu.Name = Lettre2 & "TSMI"
        invisiblelettreboutton = Lettre2 & "BT"
 
        invisiblelettremenu.Enabled = False
        invisiblelettreboutton.enabled = False

le invisiblelettreboutton.enabled = False semble passer sans probleme car quand je fa un msgbox(invisiblelettremenu.Name) il me met le bon nom de bouton mais il grise pas la touche que j ai pese et le invisiblelettreboutton ne fonctionne tout simplement pas. Dans le fond, si je fait lettre2 = sender.name et lettre2.Enabled = False, le bouton que je clique se grise mais je ne peux pas faire ca car si je choisis par le menu la lettre il faudra procede par le invisiblelettreboutton = Lettre2 & "BT".

Merci de l aide

Guimo

[Danyel]

Il faut faire comme cela :

Code :

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

TaForm.Controls(Lettre2 & "BT").Enabled = False

Idem pour le menu.

[guimo26]

Merci beaucoup
tu peux pas savoir comment je suis content mais pour le Menu j'ai marqué ca

Code :

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

Controls(Lettre2 & "TSMI").Enabled = False

et puis il fait un erreur... j'imagine que ca doit parce qu'il est déclaré en MenuItem. En tout cas je vais regarder de mon bord si vous le savez je serais bien content.

[Danyel]

Quelle erreur ?

[guimo26]

Quand le programme arrive à la ligne "Controls(Lettre2 & "TSMI").Enabled = False" elle devient jaune et il marque :

"La référence d'objet n'est pas définie à une instance d'un objet."

Merci

[Danyel]

L'erreur signale qu'il ne trouve pas l'objet
2 solutions :
- soit le nom de l'objet est incorrect
- soit le chemin de l'objet est incorrect

[guimo26]

Alors qu'est ce qu'il faudrait que j'ajoute dans

Code :

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

Controls(Lettre2 & "TSMI").Enabled = False

pour indiquer le bon chemin car le nom j'ai fait un MsgBox(blabla) et il est indentique au nom.

en sachant que Lettre2 = sender.text

Merci

[Danyel]

Je viens de faire une batterie d'essais et de tests, et je me demande si c'est possible pour les menus car je n'y suis pas arrive (meme en directcastant)

Qq a peut-etre une autre solution pour le faire.

[guimo26]

Finalement j'ai trouvé une combinaisons gagnant a mon probleme meme si c'est pas ce que je voulais elle fait l'affaire. C'est :

Code :

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

LettresTSMI.DropDownItems.RemoveByKey(Lettre2 & "TSMI")

Cette commande supprime les lettres dans le menu.

Merci encore de m'avoir aidé Danyel

[guimo26]

Encore Mieux j'ai trouvé la commande que je recherche depuis 2 jour

Code :

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

LettresTSMI.DropDownItems(Lettre2 & "TSMI").Enabled = False

En tout cas, bonne chance pour ceux que ca l'a aidé aussi

[Danyel]

Code :

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

LettresTSMI.DropDownItems(Lettre2 & "TSMI").Enabled = False

C'est ce que je cherchais à faire.
Donc les items d'un menu ne sont pas pris en compte comme des controls à part entiere.