Discussion :

[WBO]

bonjour,

j'ai défini une classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Class Tool
    Public Function IsInteger(ByVal Pstr_Chaine As String) As Boolean
        Try
            Dim nInteger As Integer
            nInteger = Convert.ToInt32(Pstr_Chaine)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function 
    ...

maintenant, je voudrais pouvoir utiliser cet classe dans un formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Imports roset.Tracker.Tool
 
Public Class Form_Principal
    Private Sub Bt_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Exit.Click
        Dim v_bool As Boolean
        v_bool = IsInteger("456")
        Close()
    End Sub
End Class

mais là, il ne reconnait pas ma fonction IsInteger, et m'indique :

Erreur 1 Une référence à un membre non partagé requiert une référence d'objet.

pourquoi cela ?
cela me parait simple quand même.
quelqu'un pour m'aider svp ?

WBO

[jacquesprogram]

Ben... il faut tout simplement créer une instance de ta classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim MyTool as new Tool
v_bool = MyTool.IsInteger("456")

Maintenant, si tu veux avoir accès à ta fonction sans avoir à instancier ta classe, il faut définir ta fonction comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Shared Function IsInteger(ByVal Pstr_Chaine As String) As Boolean

Et ensuite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v_bool = Tool.IsInteger("456")

(le dim n'est plus nécessaire)

Ceci dit, je ne vois pas l'intérêt de déclarer une fonction dans une classe (si c'est la seule chose que contient ta classe).

[WBO]

en fait, je veux faire un regroupement de fonctions, et je pensais que je pouvais faire cela avec un classe (?), un peu comme une library
sinon, le faire dans un module ?

sinon, la solution ca marche bien.

merci beaucoup

[eikeshi]

Salut je ne comprends pas pourquoi tu crée cette fonction qui demande si une variable de type string contient un type integer.

Si ton but final est de savoir si ta chaîne ne contient que des chiffres, tu as une fonction toute faite qui existe :

IsNumeric(Expression As Object) As Boolean

Exemple d'utilisation pour ton cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Bt_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Exit.Click
        Dim v_bool As Boolean
        v_bool = IsNumeric("456")
        Close()
End Sub

[Pol63]

@WBO

le framework est un ensemble de fonctions pour faire tout ou quasiment (il y a des milliers de classes donc des tas de fonctions dejà codées)

avant d'écrire du code, vaut mieux chercher s'il a pas déjà été écrit par microsoft


sinon pour stocker des fonctions, un module est en théorie mieux, sauf si ces fonctions ont un thème en commun avec une classe que tu as codée, auquel cas mettre les fonctions en shared sur la classe pour regrouper les notions

des tas d'infos pratiques ici http://plasserre.developpez.com/vsommair.htm

[WBO]

merci a vous pour ces renseignements.