Comment énumérer les types Int32, String, Boolean ?

Bonjour à tous,
Je suis surpris de voir qu'il n'y pas d'énumération pour les types dans le Framwork ou alors j'ai pas trouvé.
(En ADOX il y a les DataTypeEnum mais j'utilise ADO)

j'aurais besoin de cette énumeration créer des procédures de construction de DataColomn et j'aimerais que cela fonctionne de cette manière :
- Retrouver cette enumération dans l’éditeur VB (pour éviter les risques d'erreurs)
- Pouvoir passer le type en tant qu'argument à ma procédure de construction.

Par exemple :

Code:

---

1 2 3 4

Private sub BuildMaColonne (TableName as string, ColonneName as string, ColonneType as ColonneType) Dim MaTable As New DataTable(TableName) MaTable.Columns.Add(ColonneName, Type.GetType(ColonneType)) End Sub

---

j'ai pensais à utiliser des structures dans ce style mais je trouve ça étrange de devoir faire cela :

Code:

---

1 2 3 4 5

Public Structure ColonneType Const TypeInt32 as String = "System.int32" Const TypeString as String = "System.string" ..... End Structure

---

EDIT : Rajouté 'As String'

Vous pensez que j'ai raté quelques choses ou je peux continuer en suivant cette technique ?

Hello,

Si j'ai bien compris ce que tu veux faire, je pense que tu peux le faire en utilisant la généricité (je te le fais en Csharp pour être sure de ne pas faire d'erreur de syntaxe, mais en VB.Net ça se fait aussi) :

Code:

---

1 2 3 4 5

private void BuildMaColonne<T> (string tableName, string colonneName) { DataTable maTable = new DataTable(tableName); maTable.Columns.Add(colonneName, typeof(T)) }

---

ca n'apporte rien de plus que de faire gettype(integer) car pour déterminer T il faut écrire (of integer)

J'ai pas trop compris ton problème... il y a des enum en .NET
http://msdn.microsoft.com/en-us/libr...vs.100%29.aspx

Cela dit ça ne correspond pas vraiment à ton besoin ; pourquoi ne pas passer directement un Type en paramètre de ta méthode ?

Code:

---

1 2 3 4 5 6 7 8

Private sub BuildMaColonne (TableName as string, ColonneName as string, ColonneType as Type) Dim MaTable As New DataTable(TableName) MaTable.Columns.Add(ColonneName, ColonneType) End Sub   ...   BuildMaColone("UneTable", "UneColonne", GetType(Int32))

---

(soit dit en passant, ta méthode ne sert à rien... Elle ajoute une nouvelle colonne dans une nouvelle table, et vu que tu ne récupères jamais cette table, elle est perdue...)

Oui mais ça permet d'avoir une seule fonction pour différents types et non une fonction par type. Après je ne sais pas si c'est ce qui est souhaité, vu qu'il n'y a pas le contexte d'utilisation...

il y a bien une utilité, c'est d'avoir moins de chose à écrire grace à l'intellisense, pratique quand on doit souvent faire appel à une méthode
ca sert aussi à restreindre le type depuis l'écriture du code plutot que de vérifier le type et de thrower

je vois 2 possibilités
la 1ère c'est une enum

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

public enum Types integer = 1 booleen = 2 etc...   public sub add(..., t as types) dim vbtype as system.type select case t case integer vbtype = gettype(integer) case booleen vbtype = gettype(boolean) ... case else throw ... end select

---

la 2ème que je viens de trouver alors que ca fait 2 ans que je me demande comment on fait c'est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

''' <summary> ''' ''' </summary> ''' <remarks></remarks> ''' <completionlist cref="colType"/> Public NotInheritable Class colType   Private Sub New(vbtype As System.Type) _VbType = vbtype End Sub     Private _VbType As System.Type Public ReadOnly Property VbType As System.Type Get Return _VbType End Get End Property       Private Shared _integer As New colType(GetType(Integer)) Public Shared ReadOnly Property [Integer] As colType Get Return _integer End Get End Property     Private Shared _bool As New colType(GetType(Boolean)) Public Shared ReadOnly Property [Boolean] As colType Get Return _bool End Get End Property     ... End Class

---

Code:

---

1 2 3 4 5 6

Sub a(tn As String, cn As String, t As colType) Dim dt As New DataTable(tn) dt.Columns.Add(cn, t.VbType)   End Sub

---

ca fonctionne via l'aide xml qui permet de préciser quelle classe utiliser, puis les shared property sont proposées par défaut dans l'intellisense (comme pour system.drawing.color et autres)
il y a des chances que cette solution ne fonctionne pas en c#

Désolée, mais je ne comprends pas trop la subtilité de ta 2ème solution.
Franchement j'ai beau me creuser la tête, je n'arrive pas à comprendre pour quelle utilisation c'est approprié (et mieux que de la généricité), sachant que tu es obligé de définir explicitement les types que tu vas gérer...

je ne sais pas si le datatable permet de gérer tous les types possibles ...

enfin il cherche à énumérer les types, or pour énumérer il faut une liste finie du moins avec une enum
la solution 2 est la même que la solution 1 mais en différent :aie:
elle permet de déporter le code de manière plus réutilisable, et ca fait le même effet qu'une enum au niveau de l'intellisense
elle est utilisée par microsoft dans certains cas, comme pour les drawing.color, brush et quelques autres classes ...

Merci beaucoup pour vos réponses,
Très interressant comme solution Pol63, je la garde sous le coude pour m'en resservir.
Finalement j'utilise les structures pour rester le plus simple possible.
Ce n'est pas vraiment une énumération mais l'intellisense fonctionne (dès que je tape ColonneType, il me propose la liste de tout mes types).
Par contre j'ai fait une erreur dans ma procédure, il faut remplacer le type ColonneType par un type String.

Code:

---

1 2 3 4

Private sub BuildMaColonne (TableName as string, ColonneName as string, ColonneType as String) Dim MaTable As New DataTable(TableName) MaTable.Columns.Add(ColonneName, Type.GetType(ColonneType)) End Sub

---

Pourquoi une structure plutôt qu'une classe ?

La seule raison pour laquelle il peut être utile de choisir une structure est si tu veux une sémantique de valeur lors du passage de paramètre, mais en l'occurrence tu ne vas jamais créer d'instance de cette structure, donc ça n'a pas de sens. Crée plutôt une classe statique (ou un module, vu qu'en fait les classes statiques n'existent pas en VB.NET...)