Groupe de contrôle et indexation

Soyez le premier à donner votre avis sur cette source.

Vue 9 646 fois - Téléchargée 731 fois

Description

Etant entrain de faire un programme pour la première fois en VB.NET (2005), je galère car je multiplie les lignes de codes. Un point qui est genant par rapport à VB6 c'est la notion d'index sur les contrôles qui n'existe plus en VB.NET (comme bcp le savent déjà). Je n'ai jamais trouvé qqch qui me convenait parmi les différentes alternatives et donc j'ai essayé des choses (notamment les "controlscollection" que je n'ai pas réussi à faire fonctionner) pour arriver à la source que je vous propose ici. C'est tellement court et explicite que je n'ai pas commenté. Me considérant largement comme un débutant je ne sais pas si cette méthode est orthodoxe... en tout cas cela fonctionne, je m'y retrouve par rapport à VB6 et j'espère que cela sera utile à certains.

C'est ici la première source que je dépose, et je ne réclame aucune indulgence!!! Donc n'hésitez pas à dire ce que vous en pensez et s'il y a mieux je suis demandeur.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
drunkmaster Messages postés 3 Date d'inscription jeudi 18 août 2005 Statut Membre Dernière intervention 22 juillet 2008
22 juil. 2008 à 16:56
Ce qui est bizarre c'est qu'en convertissant un prog VB6 avec des index en VB.net on retrouve l'index dans la propriété de l'objet et le même fonctionnement qu'en VB6!!

On trouve dans l'éditeur de code de la form :

Me.NOMDELOBJET.SetIndex(NOMDELOBJET_4, CTYPE(4, Short))
Me.NOMDELOBJET.SetIndex(NOMDELOBJET_3, CTYPE(3, Short))
Me.NOMDELOBJET.SetIndex(NOMDELOBJET_2, CTYPE(2, Short))
Me.NOMDELOBJET.SetIndex(NOMDELOBJET_1, CTYPE(1, Short))

Étrange non?
sgeraud39 Messages postés 1 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 6 janvier 2007
6 janv. 2007 à 06:33
pour ma part j'ai fais ceci.
Public Class Form1
Dim Etiquette(0 To 10) As Button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Etiquette(1) = Button1
Etiquette(2) = Button2


End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Etiquette(1).Text = "oui"
Etiquette(2).Text = "non"

End Sub
End Class
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
22 déc. 2006 à 12:32
Ca fait plaisir de faire plaisir ...

Bonnes fêtes

Afyn - Navedac
Liptipoyon Messages postés 13 Date d'inscription mardi 26 octobre 2004 Statut Membre Dernière intervention 29 janvier 2007
22 déc. 2006 à 11:26
Grand Merci Afyn,

J'ai effectivement touvé une solution à ma question.
=>
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim i As Integer
Dim x As Object

i = 1
For Each x In Me.Controls
If TypeOf x Is Label Then
Etiquette(i) = x
AddHandler Etiquette(i).Click, AddressOf e_click
i = i + 1
End If
Next
End Sub

Private Sub e_click(ByVal sender As Object,ByVal e As System.EventArgs)
''''
End Sub

Il n'est jamais trop tard pour apprendre... ;)

A+
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
22 déc. 2006 à 10:41
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.