Profil de deleplace - CodeS SourceS

Text to speech !

Voilà, j'ai fait un programme simple, pour faire parler un ordinateur. Le problème, c'est que le composant déconne beaucoup : à chaque fois que l'on rentre trop de texte, ou alors des caractères spéciaux, tels que "ç" ou "à", il plante ! Alors voilà, comment résoudre ces problèmes ? Je suis passé par le forum aussi pour poser ma question ... Lire la suite

Solution trouvée rapport au plantage sur caractères séciaux remplacer ObjetTts.speak "à bientôt, ça plante" par ObjetTts.speak strconv("à bientôt, ça marche",vbUniCode) c'est tout

CHARGE IMAGES COUCHE ALPHA PNG OU TIF SAUVE EN TIF ET PNG DEPLACEMENT TRANSPAREN

/source/49343-charge-images-couche-alpha-png-ou-tif-sauve-en-tif-et-png-deplacement-transparent

En réponse à Chatou et Schwerdtle L'ET se dedouble, ce n'est pas un Bug L'ET original est opaque, son double est transparent En réponse à Schwerdtle Ce n'est effectivement pas PhotoShop Simplement en regardant bien dans le code on trouve comment charger une image alpha à partir d'un PNG, d'un TIF ou d'un BMP32Bit comment l'utili...

SUPPRESSEUR DE LA DÉPENDACE À VB6FR.DLL REND LES EXES VB6 AUTONOMES

/source/49353-suppresseur-de-la-dependace-a-vb6fr-dll-rend-les-exes-vb6-autonomes

La dernière version proposée ne redirige plus la dépendance à VB6FR.DLL vers MSDMO.DLL mais vers MSVBVM60.DLL c'est plus logique, l'EXE est déja dépendant de MSVBVM60.DLL et surtout cela supprime les problèmes constatés différence avant et après patch: les messages d'erreurs critiques(progamme planté) sont en Anglais au lieu d'être ...

Puisque ma source est devenue un forum je vais m'y mettre aussi Comme je l'ai mis dans mes conclusions j'ai constaté un problème à remplacer VB6FR par MSDMO assez bien identifié ce n'est sans doute pas le seul si j'écrit Chaine$ = 1 'ou n'importe quel nombre 'puis If Chaine Then 'C'est admis et interprété comme IF Val(Chaine)0 The...

ouvrir fichier jpg/exif [Résolu]

bonjour, j'ai un problème pour ouvrir des photos, j'ai essayé avec plusieurs logiciel photo (paint, photobase,sdviewer de panasonic, pictureproject) avec tous j'ai le meme problème les photos sont visible entièrement en tant que vignette mais dès que je veux les ouvrir elles sont masquées à moitié en gris.quelqu'un peut il m'aider ces ph... Lire la suite

il est vraisemblable que tes fichiers soient tronquée auquel cas c'est irrécupérable sinon tu peux toujours essayer de supprimer les métadonnés EXIF par exemple avec Faststone(Free Viewer trés bien) Outils .. Supprimer les métadonnés JPG pour verifier que tes photos soient ou risquent d'être intègres lit les 2 derniers octets des ...

Test de l'utilisation d'un fichier en VB6 [Résolu]

Bonjour, Dans mon application, je reçois des fichers toutes les 2 secondes, et je dois les analyser pour extraire le contenu intéressant et l'afficher à l'utilisateur. J'ai fait une boucle qui regarde périodiquement dans le dossier pour savoir si le fichier existe, et si il existe, je l'ouvre. Le problème est que si j'ouvre le fichi... Lire la suite

Proposition d'un code simple On Error Goto PasFini Name Nomdufichier As Nomdufichier & ".Lu" 'traitement de Nomdufichier & ".Lu" PasFini: exit sub

Detecter l'apparition d'un fichier

Bonjours Je travaille sur une application qui fait l'envoie d'un fichier de données vert une machine l'envoie se fait à traver un patch "Patch.exe", le patch renvoi un fichier resultat d'envoi,dedans indiquant si le transfert et réalisée avec succé ou non. pour lire le resultat, j'utilise un timer qui pointe chaque 10s vers lechemi... Lire la suite

Si tu fait un transfer par Socket Il a faut arriver à les mettre en route tu aura un interruption à la fin du transfert en restant sur ton idée de Timer tu peux tenter de déplacer ou renommer le fichier que tu veux lire si apparait une erreur, c'est qu'il est encore ouvert donc que le transfert n'est pas terminé je ne peux pas te d...

URGENT lancement automatique

salut a tous, j'ai realise une appli et j'aimerais l'integrer a Microsoft Outlook, mais pas comme une macro. En fait j'aimerais qu'elle fonctionne comme si elle faissait parti du code source de Microsoft outlook, (avec sa propre icone...). cela est-il possible? si oui comment faire? merci a tous. Lire la suite

Je viens de déposer une souurce PATCHER LE COMPILATEUR VB6 POUR QU'IL COMPILE DES EXES AUTONOMES Ce n'est pas pas ton sujet Mais tu peux t'en inspirer pour détourner OUTLOOK comme j'ai détourné LINK Si cela peut d'aider

Lire et sauvegarder au format PNG

je cherche un moyen de charger dans un picturebox des images au format png ainsi que sauvegarder des picturebox au format PNG en vb6

Encore Moi Ma source Sur Sauver en PNG avec couche alpha est disponible CHARGE IMAGES COUCHE ALPHA PNG OU TIF DEPLACEMENT TRANSPARENT SAUVE EN TIF ET PNG Si elle conviens ou non tu peux me faire signe

C'est de nouveau Moi sauver en PNG sans perdre la couche alpha sans DLL RESOLU (trés bientôt) je vais écrire une Sub SaveBitmap32asUnCompressedTif(Buffer() as Byte,TifFile$) c'est assez facile, c'est du bitmap tous les 2 avec inversion du rouge et du bleu puis (référence au message précédent) faire AnyFormatToPng TifFile,PngFi...

Voici de quoi faire toutes tes conversions sans DLL additionnelle Sauf une que je cherche encore convertir un Bitmap 32bits avec couche Alpha (Fichier ou tableau) Private Declare Function GdiplusStartup& Lib "gdiplus" (Token&, inputbuf As Any, Optional ByVal outputbuf&) Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal Token&)...

Sauver en gif

Bonjour J'ai un petit problème en vb, c'est à doire que j'arive a sauver une image avec savepicture en bmp mais pas en gif. Quelqu'un connaitrait-il l'API pour sauver une image en gif ? www.vb6team.fr.st

Voici un code qui fonctionne parfaitement sou VB6 Private Function ConvertToGif&(Source$, CibleGIF$) ConvertToGif = Convert(Source, CibleGIF, 2) End Function 'Précision: Pour obtenir Gif 2, 4, 8, 16, 32, 64 ou 128 couleurs ' a partir d'un BMP 'Source doit être un BMP 8Bits avec palette limitée au nombre de couleurs dans un modu...

Extention .png ?

bonjour a tous, J'ai traité des images qui ont une extention (png) et lorsque je voulais l'importer en vb6, il m'as pas accepter cette extention. Le probleme que lorsque j'ai changé l'extention en (jpg) la qualité d'image est changé ce qui a ifluencé l'affichage - Existe t'il un moyen pour qu'il m'accepte les extentions (png)? - E... Lire la suite

ce n'est pas l'extention du fichier qui gène loadpicture mais le contenu du fichier voici un code assez simple utilisant GdiPlus if te permettra en plus de convertir de BMP,JPG,PNG,GIF,TIF ou RLE vers BMP,JPG,PNG,GIF voici le code: Private Declare Function GdiplusStartup& Lib "gdiplus" (Token&, inputbuf As Any, Optional ByVal outputbu...

Format PNG

Com

Si tu programme en VB6, voici un code qui peut te sauver Si tes PNG n'ont pas de transparence c'est directement utilisable Sinon si tu veux placer les image à un endroit fixe tu peux cherche sur ce site EXEMPLE-UTILISATION-GDI-DANS-VB6 (bon exemple simple) Si tu veux pouvoir déplacer ton objet transparent sur une autre image Tu peux ...

edition d'image png

Bonjour, j'essaie de faire un petit éditeur de png en VB6. le but étant de charger un png, de modifier l'image, et de l'enregitrer en png donc j'ai récupérer freeimage.dll sur : http://freeimage.sourceforge.net/download.html avec des module pour l'utiliser sous VB sur : http://www.constantthought.com/tiki-list_file_gallery.php?... Lire la suite

Je bute exactement sur le même problème (perte de la couche alpha) par contre je fait toutes mes conversion sans dll additionnelles je n'utilise que GdiPlus.dll présente sur tous les PC depuis longtemps Si tu trouve la solution de sauver en PNG sans perdre la couche alpha, fait moi signe je te donne mes codes de conversion: ...

LIRE LES INFOS ET TAGS MP3 ET WMA AVEC LE WINDOWS MEDIA PLAYER

/source/17415-lire-les-infos-et-tags-mp3-et-wma-avec-le-windows-media-player

C'est exactement ce que je charchait

Détecter un clic de souris dans tout l'écran (non seulement le form) ? [Résolu]

Bonjour, Je suis en train de développer une petite application qui lance un chrono et qui enregistre le temps du chrono a chaque clic de souris. Le problème est que je n'arrive pas a récupérer le clic quand la souris n'est pas dans le form. (le but serrai de lancer le chrono et de réduire la fenêtre, affin de pouvoir continuer a uti... Lire la suite

Je n'ai pas la solution pour VB2008 je programme en VB6 Il y a deux solutions la meilleure pas la plus simple c'est le créer un HOOK su la souris (détournement des interruptions souris par ton programme) la plus simple lancer un Timer qui lira l'état des boutons 64 fois pae seconde dans les 2 cas il faudra faire appel au ...

copier des fichier appartir d'un CD

bonjour, svp, j'ai plusieurs fichiers à copier appartir d'un CD autorun, à déstinations défirantes j'ai fait un petit programe en vb2005 mais il ne peux pas être lanser de CD directement je peux faire avec un fichier bat mais le probleme que j'ai plusieurs fichiers chaque fois, est ce que c'est possible de les copier par une magnaire fac... Lire la suite

Je ne comprend pas le pb que ce soit par un explorateur ou par programme ce copient exactement comme à partir le n'mporte qulle unité Disquette, Dirques durs,périphériques USB et autres au détail important prés les fichier sur CDRom ou DVDRom on toujours l'attrbut ReadOnly qu'il faut enlever si l'on veut modifier ces fichier En V...

converrsion

jveux passer de binaire en hexa es qu'il ya une fonction qui fais sa comme hex ou un tous programme comment le realiser merci

Il y a la Function Hex$ Malheuresement la lageur de sortie est variable 1 ou 2 cararctères pour du binaire Tu peux t'écrire une founctio Hex2$ qui renverra tjs 2 cararctères pour du binaire Private Function Hex2$(B) Hex2 = Right(Hex(256+B),2) End Function Supposons un tableau binaire B les Codes suivant vont Convertir B en un...

Retrouver une couleur : teinte avec nombre décimal

Bonjour, J'ai un soft qui pour des couleur données web HEXA les stock sous forme de nombre à décimal exemple : #000066 donneés stockée : blue : 0.4117189347743988 green : 0.0 red : 0.019974060356616974 pourriez vous m'aider à faire l'inversion des données ? afin que par les données je puisse composer la couleur au form... Lire la suite

Je suppose qu'il suffit de faire RVBColor = RGB(256*rouge,256*vert,256*blue) si les valeurs peuvent être égales à 1 remplacer 256 par 255 si c'est c'est pour utiliser avec SetDibits tu peux inverser rouge et bleu dans l'équation