[VB.Net] Image cliquable dans un Flexgrid Control

cs_flash007 Messages postés 11 Date d'inscription mercredi 19 mars 2003 Statut Membre Dernière intervention 21 septembre 2006 - 17 janv. 2006 à 10:40
cs_flash007 Messages postés 11 Date d'inscription mercredi 19 mars 2003 Statut Membre Dernière intervention 21 septembre 2006 - 20 janv. 2006 à 08:33
Bonjour;



Je travaille actuellement sur un projet .Net consistant à créer un
fichier de données compatible staad, mais voilà je suis bloqué sur la
génération d'un tableau de données dans un formulaire. J'ai importé le
Flexgrid Control v6 dans Visual Studio 2003 pour l'utiliser et je
voulais savoir s'il était possible de créer des images cliquables dans
le tableau permettant de modifier certaines valeurs du tableau.



Par exemple, une fois le tableau généré, je me retrouve avec 3 colonnes
: Tronçons, Images, Mailles. Quand je clique dans la colonne "images",
une sorte de combobox s'ouvre pour sélectionner une autre image que
celle affichée par défaut, si l'image change, la valeur de la colonne
"Mailles" se modifie automatiquement, est-ce possible ?

Voici mon code :



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



Dim i As Integer

Dim valString As String



MSHFDetailStructure.Cols = 3

MSHFDetailStructure.CellForeColor = Color.White





MSHFDetailStructure.Rows = MdDonnees.iNbStump + 1

MSHFDetailStructure.RowHeightMin = "800"

MSHFDetailStructure.Row = 0

MSHFDetailStructure.Col = 0

MSHFDetailStructure.Text = "Tronçons"

MSHFDetailStructure.Col = 1

MSHFDetailStructure.Text = "Image"

'col 1 - Tronçons

MSHFDetailStructure.Col = 2

MSHFDetailStructure.Text = "Mailles"



For i = MdDonnees.iNbStump To 1 Step -1



MSHFDetailStructure.Row = MdDonnees.iNbStump - i + 1

MSHFDetailStructure.Col = 0

MSHFDetailStructure.CellForeColor = Color.White

valString = CStr(MdDonnees.iNbStump - i + 1)



MSHFDetailStructure.Text = valString

Next i



'col 2 - Stump picture

For i = MdDonnees.iNbStump To 1 Step -1



MSHFDetailStructure.Row = MdDonnees.iNbStump - i + 1

MSHFDetailStructure.Col = 1

MSHFDetailStructure.CellPictureAlignment = 4



Dim iNbStumpUnderRight1 As Integer


iNbStumpUnderRight1 = (MdDonnees.iWidthRightStump * MdDonnees.iNbStump)
/ MdDonnees.iPylWidth



If i <= iNbStumpUnderRight1 Then

MSHFDetailStructure.CellPicture = Me.ImageList1.Images(0)

Else

MSHFDetailStructure.CellPicture = Me.ImageList1.Images(1)

End If



Next i



'col 3 - Mailles

For i = MdDonnees.iNbStump To 1 Step -1

MSHFDetailStructure.Row = MdDonnees.iNbStump - i + 1

MSHFDetailStructure.Col = 2



Dim iNbStumpUnderRight As Integer


iNbStumpUnderRight = (MdDonnees.iWidthRightStump * MdDonnees.iNbStump)
/ MdDonnees.iPylWidth

If i <= iNbStumpUnderRight Then

MSHFDetailStructure.Text = 1

Else

MSHFDetailStructure.Text = 2

End If

iNbMailles = MSHFDetailStructure.Text

Next i



End Sub



Je récupère des données pour générer le tableau, j'ai bien réussi à
générer des images mais je n'arrive pas à les mettre dans une combobox
:(



De même est-il possible de centrer les données dans la colonne, la fonction CellAlignment n'a pas l'air de fonctionner ?



Merci pour votre aide

1 réponse

cs_flash007 Messages postés 11 Date d'inscription mercredi 19 mars 2003 Statut Membre Dernière intervention 21 septembre 2006
20 janv. 2006 à 08:33
C'est réglé pour le CellAlignment.



Pas de solutions pour l'autre problème...
0
Rejoignez-nous