MSG GENERATOR V 1.0
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
14 juin 2010 à 10:14
darkteam Messages postés 46 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 18 juin 2010 - 20 juin 2010 à 11:21
darkteam Messages postés 46 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 18 juin 2010 - 20 juin 2010 à 11:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/51908-msg-generator-v-1-0
https://codes-sources.commentcamarche.net/source/51908-msg-generator-v-1-0
20 juin 2010 à 11:21
Mais bon pour une deuxième source c'est pas si mal!
18 juin 2010 à 10:38
Quoi dire sur VBS ? Si tu connais le VBA ou VB6, alors tu connais quasiment VBS... Tous ont une syntaxe presque identique (hors quelques très petites différences). On adapte sans peine un code de VBA en VBS... Sauf en ce qui concerne les Forms... où la VBS n'est pas adapté. Sur VBF tu trouveras des nombreux codes...
(PAR ailleurs, je pense que ces posts deviennent de plus en plus hors sujet. IL me semble qu'il serait bon d'arrêter ici.)
Amicalement,
Us.
18 juin 2010 à 09:24
18 juin 2010 à 06:25
17 juin 2010 à 20:02
Pour ton site oui ici dasn ton profil.
Pour VBS oui aussi mais nan j'aime poa.
quote : quand en est au collège
ah ouai je comprend ton point de vue.
17 juin 2010 à 19:21
17 juin 2010 à 19:18
au fait c'est ou que j'ai mentionné mon site web car je me souviens plus...
17 juin 2010 à 18:18
note que j'ai testé la version démo à mon taff et c'est plutot bien fichu comme truc.
17 juin 2010 à 18:03
17 juin 2010 à 17:50
Si tu ne veux pas que l'on aille voir les trucs bizzarres que tu propose ne le renseigne pas dans ton profil ;)
Pour l'anglais ce n'était pas un reproche au contraire, juste que lorsque tu écris en francais tu ne fais pas toujours d'éffort de rédaction ^_^
Quote : ... tu pouvais faire mieux en ten que debutan a ta deuxieme source : bravo
sinon : verifie le nivo avans d'ecrire un truc pareil
Encore une fois rien contre toi, mais si ce site veux rester un bon site il faut que chacun fasse un petit effort, non ?
@ Bouv, tu as vu le prix d'une licence WINDEV ? trés bon produit, mais pas pour les débutants ^^ (ou alors les riches)
17 juin 2010 à 16:11
17 juin 2010 à 15:25
Et ne connais-tu pas WinDev ? Pour developper en FRANCAIS...
17 juin 2010 à 15:11
2°)oui je parle tres bien anglais puisque je vis au botswana un pays anglophone
3°)et je te ferais remarquer que TOUS les outils de developement utilise un language universel (l'anglais)
16 juin 2010 à 19:50
c'est trop simple de remplir une messagebox ou msgbox.
source à désactiver pour le bien de ce site (sans aucune haine contre son hauteur bien sûr)
c'est juste trop :
simple pour ce site
déja fait pour ce site
poluant sur les recherches de 'bon' code
bonne prog à toi ThePH267 et vraiment n'y vois rien de personnel.
16 juin 2010 à 18:19
Bonne amélioration, et si tu veux tu peux ajouter un truc pour les "InputBox"...
16 juin 2010 à 18:09
Le code obtenu ne marche pas pour les guillemets. Une amélioration possible serait de mettre :
Titre = Replace(Titre,"""","""""") 'Corrige les "" du titre
Msg = Replace(Msg,"""","""""") 'Corrige les "" du message
Et aussi je te conseille de remplacer le ComboBox par une ListBox avec toutes les propositions déjà mises (sinon quand tu met "vbcritical" à la place de "vbCritical" ça ne marche pas).
15 juin 2010 à 21:01
15 juin 2010 à 18:03
15 juin 2010 à 07:46
Tiens d'ailleur je viens de tenir ma promesse ;) @++
15 juin 2010 à 00:27
Amicalement,
Us.
15 juin 2010 à 00:00
Les gars, vous passez plus de temps à créer des "générateurs" de MsgBox que le temps qu'ils sont supposer vous faire gagner (ça reste évidemment à prouver)
Bonne prog les amis
14 juin 2010 à 22:43
Euh... ben, oui je suis en plein dedans... dans l'anglais je veux dire... et accessoirement dans la merde... oupsss... cela m'a échappé.
Ensuite, j'espère que j'ai réussi à faire sourire avec 3 bouts ficelles... je sais qu'il ne faut pas trop tirer sur la corde...
"je ressors de ton site woueb et voila quoi.... bon bref........"
euh... tu sous-entends quoi en définitive ? J'ai du mal à cerner ton propos...
Si tu veux me faire part de tes remarques, je suis tout ouï... mais il faudrait trouver un espace de discussion plus approprié...
D'ailleurs, je reviens aussi de ton site, na ! ... et... et... bon bref, et toc !
Très amicalement,
Us.
14 juin 2010 à 20:20
tu te destine à quoi ?
je suis curieux voir inquisiteur, mais c'est pour ton bien.
je ressors de ton site woueb et voila quoi....
bon bref........
14 juin 2010 à 19:42
14 juin 2010 à 19:24
Chemin = Environ$("CommonProgramFiles") & "\Microsoft Shared\MSInfo\msinfo32.exe"
au lieu de :
Chemin = Right(Environ(4), Len(Environ(4)) - InStr(1, Environ(4), "=")) & "\Microsoft Shared\MSInfo\msinfo32.exe"
En plus c'est plus joli -:);
Merci Renfield,
Amicalement,
Us.
14 juin 2010 à 18:52
Environ(4)
chez moi cela donne :
?Environ(4)
CDSROOT=H:\Z\Install\Orcad
il faut utiliser le nom...
14 juin 2010 à 17:25
Enfin, moi j'aurai d'écrire simplement le module frmAbout, comme ceci :
Option Explicit
Private Sub cmdSysInfo_Click()
Call StartSysInfo
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Caption = "About " & App.Title
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblTitle.Caption = App.Title
End Sub
Public Sub StartSysInfo()
Dim Chemin As String
On Error GoTo SysInfoErr
Chemin = Right(Environ(4), Len(Environ(4)) - InStr(1, Environ(4), "=")) & "\Microsoft Shared\MSInfo\msinfo32.exe"
Call Shell(Chemin, vbNormalFocus)
Exit Sub
SysInfoErr:
MsgBox "System Information Is Unavailable At This Time", vbOKOnly
End Sub
... et je crois qu'on a la même généralité que ton code...
Amicalement,
Us.
14 juin 2010 à 17:01
Amicalement,
Us.
14 juin 2010 à 16:53
sinon : verifie le nivo avans d'ecrire un truc pareil
mis a part ca ve vais y repenser
14 juin 2010 à 11:27
Du code pour manipuler la base de registre ? C'est quoi cette horreur ?!
Amicalement,
Us.
Vraiment pas normal...
14 juin 2010 à 10:14
Combo1_Click, Command3_Click, Text1_Change et Text2_Change ont le même code !
et buggé...
que se passe-t'il si je rentre une guillemet " dans la zone de texte du message ?
On ne peux pas dans ton exemple combiner les flags :
boutons, icone, bouton par default, etc.