Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 050 fois - Téléchargée 30 fois
'obtention du Type Color suivant une couleur au hazard Dim oT As Type = System.Drawing.Color.Beige.GetType 'obtention des propriétés du type dans un tableau Dim oProperties() As System.Reflection.PropertyInfo = oT.GetProperties Dim oP As System.Reflection.PropertyInfo 'itération Dim ColorCollection() As couleur For Each oP In oProperties If oP.CanRead Then Try Dim Row As New TableRow Dim Color As Color = CType(oP.GetValue(oT, Nothing), Color) Dim CelluleCouleur As New TableCell CelluleCouleur.BackColor = Color CelluleCouleur.Width = Unit.Pixel(200) Dim CelluleNom As New TableCell CelluleNom.Text = Color.Name CelluleNom.Width = Unit.Pixel(200) Row.Cells.Add(CelluleCouleur) Row.Cells.Add(CelluleNom) Table1.Rows.Add(Row) Catch ex As Exception End Try End If Next
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.