Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 03:27:21

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

+ de logiciels à télécharger

1 467 621 membres
40 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 671 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BITRATE CALCULATOR

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 17/01/2004 Date de mise à jour : 19/01/2004 21:09:53 Vu / téléchargé: 1 926 / 151

Auteur : Bl0tCh

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Bitrate_Calculator.vbp 1 076 octets
Bitrate_Calculator.vbw 256 octets
Form1.frm 26 818 octets
Form1.frx9 122 octets
Form2.frm 1 984 octets
Form3.frm 1 960 octets
Form4.frm 919 octets
Form4.frx10 264 octets
Form5.frm 921 octets
Form5.frx10 776 octets

Télécharger le zip

Sources du même auteur

CONVERTISSEUR DEGRÉS CELSIUS-->DEGRÉS FAHRENHEIT ET INVERSEM...

Toutes les sources de Bl0tCh

Sources de la même categorie

TABLEAU PÉRIODIQUE SIMPLIFIÉ par VBsearch

UN REGSVR PLUS SIMPLE par VBsearch

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de guifr le 18/01/2004 19:24:00

Du moins pour les grandes lignes :

With CD
        .Filter = "Fichier texte|*.txt"
        .DialogTitle = "Enregistrer sous"
        .Flags = cdlOFNOverwritePrompt + cdlOFNHideReadOnly
        'cdlOFNOverwritePrompt pour la confirmation de l'écrasement si un fichier prééxiste; cdlOFNHideReadOnly pour enlever la case "lecture seule"
        'Appel de la fenêtre :
        .ShowSave

        'La procédure de sauvegarde ici, le nom du fichier est dans .filename
End With

où CD est un objet CommonDialog

Commentaire de Bl0tCh le 18/01/2004 20:16:58

Merci, mais etant un gros noob, j'arrive bien a appelé la fenêtre de sauvegarde mais cela ne sauve rien, je suppose que c'est pasrce que je n'ai rien mis pour la procédure de sauvegarde mais le truc, c'est que je ne sais pas qu'est-ce que je doi mettre dans la procédure de sauvegarde : directement ce que je veux écrire ou précédé d'une "balise" ?

Commentaire de guifr le 18/01/2004 20:34:19

Pour être franc g pas du tout regardé ton code, donc je sais pas comment tu sauvegardes... Mais, dans ta procédure de sauvegarde, j'aimagine qu'à un moment tu mentionnes le nom et l'emplacement du fichier, par exemple "c:\Mes documents\fichier.txt", et bien tu remplaces ce morceau de code par ".filename", .filename est la propriété du CommonDialog qui stocke la valeur retournée par la fenêtre = dans ce cas l'endroit où sauver...
Tu peu mettre la procédure se sauvegarde en dehors du With... End With, mais il ne faut alors pas oublier de préciser CD.Filename
Je sais pas si j'ai été très clair...

Commentaire de Bl0tCh le 18/01/2004 21:11:58

j'ai effectivement remplacer dans ma procédure de sauvegarde l'endroit du fichier par CD.FileName, mais cela ne marche pas!

Commentaire de guifr le 18/01/2004 21:34:07

bon, j'ai donc jeté un coup d'oeuil à ton code et, deux points,

le premier est en rapport avec ta question, remplace le nom du fichier lors de l'ouverture du fichier;

Open CD.filename for output as #1

Le second, concerne la "mise en forme" du code j'ai du le lire et j'ai trouvé cela assez pénible, je sais pas si ça vient du transfert où si c'est ta manière de coder, mais le code est beaucoup trop "compact", peu de saut de ligne, et aucune utilisation des tabs, ce qui rend pourtant le code vraiment beaucoup plus lisible !

Commentaire de Bl0tCh le 18/01/2004 22:00:31

c bon g résussi

Commentaire de Bl0tCh le 18/01/2004 22:02:31

effectivement, je ne saute pas du tt de ligne, je débute, et je ne pense pas à le faire. Peut tu m'expliquer ce que sont les tabs ?

Commentaire de guifr le 18/01/2004 22:18:28

tabs = tabulations; regarde un peu les sources de ce site, tout le monde l'utilise, le principe est simple, pour chaque bloc tu met une tabulation avant la ligne, par exemple

Function Machin()
   Dim Entier as Integer

   With CD
      select case .Filename
         case ...
            if ... then
               open ... for binary as #1

               close
         case ...
      end select
   end with
end function

Bon là, y'a en a un peu beaucoup, mais c'est pour l'exemple, c'est terriblement pratique pour relire des sources, chaque partie formant un bloc cohérent, et aussi pour les créer, on voit très bien les blocs qu'on a oublié de fermer, on évite ainsi pas mal d'erreur...