Micro.Info • Consulter le sujet - [VB] Appeler un Public Sub à partir d'un Module

Consulter les messages sans réponse | Consulter les sujets actifs

Index du forum » Informatique » Programmation

Le fuseau horaire est UTC-5 heures [Heure d’été]

[VB] Appeler un Public Sub à partir d'un Module

Modérateur: Membres de 640kb

Page 1 sur 1

[ 4 message(s) ]

Sujet précédent | Sujet suivant

Auteur

Message

Siger

Sujet du message: [VB] Appeler un Public Sub à partir d'un Module

Publié: 23 Jan 2003, 21:12

Fidèle

Inscription : 06 Jan 2003, 19:14
Message(s) : 689

Bonjour, je suis carrément désespéré, ça fait longtemps que je cherche une solution à mon problème.

J'ai fait un module pour pouvoir utiliser des hotkeys, et ca marche très bien. En fait, j'ai fait un Select Case et des MsgBox sont associés.

Code :

Case 1000
       MsgBox "J'ai cliqué sur CTRL + 1"
Case 1001
       MsgBox "J'ai cliqué sur CTRL + 2"
End Select

Ça, ça marche, mais ce n'est pas ça que j'aimerais faire. J'ai du code dans le code de mon Form (ex.: Public Sub bouton1_click()), et j'aimerais pouvoir l'exécuter à partir de mon module, au lieu des "msgbox". Si j'écris :

Code :

Case 1000
       bouton1_click()

je ne sais pas pourquoi, mais ca quitte Visual Basic tout seul.

Une réponse serait très apprécie, merci d'avance !

Haut

Jump

Sujet du message:

Publié: 23 Jan 2003, 22:43

Référence

Inscription : 07 Jan 2002, 00:24
Message(s) : 5834

Si ton form s'appel frmToto, bien normalement dans ton module tu ferais

ftmToto.cmdBouton1_click

Mais je vois pas trop pourquoi mettre ça dans un module. De plus, par habitude je ne met aucun code dans la réponse de mes événements d'un form, je fais des méthodes à côté, comme ça si tu a un bouton, un menu et un bouton de toolbar qui font la même chose, tous ces amis là appèlent la même fonction, donc facile à maintenir.

_________________
This posting is provided "AS IS" with no warranties, and confers no rights!
©2006 - 2014 Jump

Dernière édition par Jump le 24 Jan 2003, 00:09, édité 1 fois.

Haut

Siger

Sujet du message:

Publié: 23 Jan 2003, 23:33

Fidèle

Inscription : 06 Jan 2003, 19:14
Message(s) : 689

Bon, Merci Beaucoup, ça m'a enfin débloqué. C'était pas si difficile finalement

Je ne comprends pas trop ta question, mais je pourrai poster l'adresse du petit programme que je viens de finir pour que vous voyiez mieux.

Haut

Jump

Sujet du message:

Publié: 24 Jan 2003, 10:41

Référence

Inscription : 07 Jan 2002, 00:24
Message(s) : 5834

Ce que je voulais dire c'est ça:

Code :

private const TB_KEY_ACTION1 as String = "ACTION1"
private m_objUnNom as CLogiqueAffaire 'Classe contenant le traitement

' Réponse à un bouton
Private Sub cmdAction1_Click()
  Call Action1()
End sub

' Réponse à un menu
Private Sub mnuAction1_Click()
  Call Action1()
End Sub

' Réponse à un click sur un bouton du toolbar
Private Sub TlbToolbar_ButtonClick(ByVal Button As ComctlLib.Button)
  Select Case Button.Key
    Case TB_KEY_ACTION1:   Call Action1()
    '...
  End Select
End Sub

'Dépendant des besoins Friend, public ou private.
Friend Sub Action1()
  ' Code à exécuter
  ' Pour séparer le code de l'interface, normalement 
  ' c'est un dll que je vais appeler ici ex.:
  call m_objUnNom.Action1()
End Sub

Dans un module je vais mettre soit des déclarations d'API, des constantes utilisées par plusieurs forms, ou des méthodes utilisées par plusieurs forms. Pour le reste je vais mettre ça dans une classe.

Haut

Page 1 sur 1

[ 4 message(s) ]

Index du forum » Informatique » Programmation

Le fuseau horaire est UTC-5 heures [Heure d’été]

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 2 invité(s)

Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum