Discussion :

[dakota77]

Bonjour,
Je débute en VB.NET et je convertis mes applis VB6 vers VB.NET.

Je souhaite modifier les propriétés de tous les contrôles d'un formulaire.
Pour ce faire j'ai placé les noms des contrôles dans un tableau.
En VB6 ça fonctionne mais en VB.NET...

Syntaxe VB6 :
NB(1)="BUTTON1"
Me.Controls(NB(1)).BackColor = vbGreen

En VB.Net ? cela me semble nettement plus compliqué...

Merci pour votre aide.
Mario

[OhMonBato]

Prends une feuille, mets y ce que tu veux comme controle, mais au moins un bouton et essaye ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ForEach Ctl As Control InMe.Controls
Try
Ctl.BackColor = Color.Green
Catch ex As Exception
MsgBox("Le controle " & Ctl.Name & " n'a pas de propriete BackColor")
EndTry
Next
EndSub

En VB6, tu pouvais d'ailleurs faire pareil (en dehors du Try, Catch)

[Pol63]

transformer du code vb6 en vb.net n'est pas conseillé
soit l'appli d'origine continu à évoluer en vb6 soit elle est réécrite en .net totalement

car la manière de programmer n'a rien à voir ...

[Danyel]

Effectivement c'est une question qui revient tres souvent.

Et comme l'a si bien dit sperot, soit l'application continue sur le langage d'origine, soit si tu desires passer à .net, il faut repartir de zero.
Inutile aussi de penser au generateur automatique de vs, les resultats sont quasi inexploitables.

Tu trouveras sur le forum, plein de posts sur le sujet, avec les avantages et les inconvenients dans tous les cas.

[dakota77]

Merci pour vos réponses. Mais vous me découragez un peu

Disons je je souhaite refaire l'application en .NET. Et jusqu'à présent cela ne se passe pas trop mal excepté ce problème de contrôles.

Je sais changer les propriétés des contrôles mais ce que je cherche à faire c'est de mettre les noms des contrôles dans un tableau.

au lieu de faire ceci :
button1.backcolor=color.green

je voudrais :
nom(15)="button1"
Me.Controls(NB(15)).BackColor = vbGreen

Merci pour votre aide.