Salut les amis,
j'ai un souci dont je désire soliciter votre coup de pouce. je suis entrain d'écrire une librairie (dll) réutilisable.c'est-à-dire qu'elle ne sera pas forcement seulement utilisée dans ma propre application.je voudrais enfin la partager à qui la veut.Mais en ce moment je rencontre quelques difficultés.elles
sont de deux ordres:
je veux en premier lieu pouvoir mettre en place des exceptions personnalisées afin
que quiconque utilise ma librairie puisse faire appel à mes exceptions en vue d'éviter quelque anormalies.
Exemple d'utilisation de quelques classes de ma dll:

Code Visual Basic :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Try
 'ici l'appel des instruction de ma librairie et d'autres choses...
 catch ex_personal as mytype
 
'ici message ou autres
End Try

En deuxième lieu:
je dispose d'une classe nommée "joypak" dans ma librairie qui possède deux constructeurs et des membres. Un aperçu de cette classe est:

Code Visual Basic :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Public Class joypak
 Private _A,_B as string
 Private _X,_Y as double
 Private _K as double
 
 Sub new (ByVal x as double,ByVal y as double) ' Constructeur1
  _X = x: _Y = y
 End sub
 
 Sub new (ByVal a as string,ByVal b as string,ByVal k as Double) ' Constructeur2
  _A = a: _B = b
  _K=k
 End sub
 
 Public Sub proc1()
 
 End sub
 
 Public Sub proc2()
 
 End sub
 
 Public Sub proc3()
 
 End sub
 
End Class
Ma préoccupation est ceci: je voudrais que lorsque je crée une instance Var1 de la classe joypak avec le constructeur 1, que je ne puisse qu'avoir accès uniquement aux méthodes Proc1 et Proc2.donc l'appel de la methode proc3 avec cette variable devrait généré une erreur et ensuite lorsque j'instancie Var2 avec le constructeur 2, que je ne puisse avoir accès uniquement qu'à la méthode public Proc3.

Illustration:
Code Visual Basic :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim Var1 as new joypak(12.5, 15.0)
 Messagebox.show (var1.proc1)
 Messagebox.show (var1.proc2)
 Messagebox.show (var1.proc3) 'si tout va bien 'une erreur doit etre générée.
Messagebox.show (var2.proc3) 'par contre cette 'instruction doit marcher.

Merci d'avance pour les essais de solutions.
Best Regards.