GROUPE DE CONTRÔLE ET INDEXATION

Messages postés
260
Date d'inscription
mardi 25 novembre 2003
Statut
Membre
Dernière intervention
6 novembre 2009
- - Dernière réponse : 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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/40794-groupe-de-controle-et-indexation

Afficher la suite 
drunkmaster
Messages postés
3
Date d'inscription
jeudi 18 août 2005
Statut
Membre
Dernière intervention
22 juillet 2008
-
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
-
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
613
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016
-
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
-
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
613
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016
-