Sub Main

Question

Salut !
voila, mon programme mets un certain temps à afficher la 1ere feuille donc j'aimerais mettre un sub main où il y aurait une petite page qui s'afficherait en attendant
mais comme j'ai pas l'aide de VB et G la flemme de chercher, pourriez vous me dire comment créer ce sub Main, ou , au pire, ou je pe trouver de l'aide ?
D'avance merci

Guidelor

cs_tex · Answer

lu,

dans les menus de VB : Projet\Propriétés (tout en bas)
et ds la fenêtre qui s'affiche tu sélectionne Sub Main com objet de démarrage (ds la list déroulante).

@+ tex

Guidelor · Answer

Pfffff!!!!!!
Bien sûr!
Mais comment je fais pour afficher une image jusqu'a ce que ma  fenêtre principale s'affiche ??
Merci d'avance !

cs_tex · Answer

lu,

reste kool si tu veux être aidé. Tu affiche une autre fenêtre d'abord avec ton image dessus et ds le Form_Load de cet form tu met FormPrincipal.Show
Avec un timer tu enlève ta feuille avec l'image qd tu pense que la principale est chargée, fais d tests.

@+ tex

Guidelor · Answer

Madame, monsieur

Je vous prie d'agréer toutes mes excuses quant à mon message quelque peu déplacé. Cela ne se reproduira plus. Permettez moi cependant de rebondir  sur votre message et de vous demander quel est le rôle du Sub Main, et auriez vous l'obligeance de me montrer un petit exemple ?
( En fait je ve que la fenêtre s'afffiche casch quad on clique sur le prog)
En l'attente d'une réponse, je vous prie madame, monsieur de recevoir mes salutations distinguées.

cs_rene38 · Answer

Dans ton projet, tu ajoutes un MODULE
Dans ce module, tu insères une procédure :
Sub Main
    FormAvecImage.Show
    Load FormPrincipale
End Sub

Private Sub FormPrincipale_Load()
    ........
    ........
    ........
    Unload FormAvecImage
End Sub

Et dans Projet - Propriétés - Objet de démarrage, tu indiques
Sub Main

Guidelor · Answer

Meci bien , je V voir ca ...
------Guidelor-----

Guidelor · Answer

Bah en fait, ca marche pas !!

Je pe te donner un exemple?
Si je fais exactement comme tu m'as dis et dans le form princ, je mets

Private sub Form1_Load ()
   ......
   Open "Fich.text" for ouptput as #1
      For i=1 to 5000
         Print #1, i , i , i		'Histoire de faire ralentir le démarrage
      Next i
   Close #1
   Unload FormImage
End sub
Eh bien pendant que ca charge et écrit, l'image n'est pas affiché si son borderstyle none, et juste le barre de titre est affichée si borderstyle 1 ou 2...

Que faire mon dieu que faire ?

Merci d'avance !

------Guidelor-----

thekissman · Answer

Aide !!!!!!!!!!

Quelq'un peut me dire comment utiliser les modules ?

Voici le topo : je dois faire des statisques des fournisseurs (délai, qualité, coûts).

Par conséquent j'aurais besoins d'utiliser des critères de notations (ex: Délai moyen) et de les paramétrer (ex : ce critère a un coeeficient de 2 et aussi de proposer une notation automatique (ex : si le délai d'un fournisseur est inférieur à 5jours alors ce fournisseur gagne 4 points, coeffcienté de 2, soit 8 points au total)

Merci d'avance

Dieu t'aime

Guidelor · Answer

en tout cas , moi je pe pas t'aider; je suis pas sur que ce soit le bon endroit pour esperer être vu
Fais plutot un nouvo message ( si ce n'est deja fait )

(c koi cette signature ? ) 

 -     -    -   -  - -- GuiDelOr -- -  -   -    -     -

Sub Main

9 réponses

Discussions similaires