Profil de GEDDi - CodeS SourceS

Combo box qui s'ouvre plus grand ... [Résolu]

Bonjour! Svp, quelqu'un pourrait me dire si on peut avoir une combo box qui à une largeur prédéfinit, mais que le dropdown soit plus large que le combo box lui même. Par exemple : X = le combo box Texte = le texte ' = fin du rectangle du drop down |!!| = la fleche du combo box XXXXXXX|!!| TexteTexteTex... Lire la suite

Le temps n'est pas perdu cher PCPT, mais vu que je ne voyais pas l'utilité primale de l'autre ligne de code, la ligne de commande à base de message CB_SETDROPPEDWIDTH suffit à faire faire ce que l'on souhaite à la combobox, me trompe-je ? A bon entendeur :)

Certes mais je n'ai pas VB d'installé là, que devrais-je 'voir' stp ? Gérôme GUILLEMIN Auteur du langage FBSL

Hello, Un simple SendMessage(.hwnd, CB_SETDROPPEDWIDTH, Width, ByVal 0&) suffit amplement, je ne vois pas pkoi tu rajoutes : SetWindowPos(.hwnd, 0&, 0&, 0&, ObjScale.ScaleX(.Width * Screen.TwipsPerPixelX, vbTwips, vbPixels), Height, SWP_NOMOVE Or SWP_NOACTIVATE) Gérôme GUILLEMIN Auteur du langage FBSL

EXTRACTION AUDIO FLV VERS MP3

/source/45422-extraction-audio-flv-vers-mp3

Hello, Merci pour ton code! Je l'ai adapté au FBSL :) Voici le code pour celles et ceux que ça intéresse : #AppType CONSOLE Dim mnIn As Integer, mnOut As Integer Dim %i, $sBuff, %nPos Flv2Mp3( "Stupeflip - Je fume pu d'shit.flv" ) Function Flv2Mp3(ByVal szFLVFile As String) As Integer mnIn = FileOpen( szFLVFile, BIN...

TROMPER GETPROCADDRESS

/source/43943-tromper-getprocaddress

Hi ! A essayer avec FBSL, comme il est codé en C et qu'il supporte les Threads :) @+ Gerome GUILLEMIN http://www.fbsl.net

Lecture de fichier

Bonjour à tous Je suis à la recherche d'instruction ou de fonction qui me permettrait de lire caractère par caractère un fichier ouvert avec "Open Filename for Random". Exemple pour le contenu d'un fichier qui pourait être ceci : "Il était une fois" je voudrais lire : I l é t a i t etc..... Est-ce quelqu'un aurait une solut... Lire la suite

Essayes ceci, mais avec Binary hein pas random sinon ça ne fonctionnera pas! Dim sChar As String * 1, sLen As Long, x As Long Open "c:\FBSL.txt" For Binary As #1 sLen LOF(1): x 1 While sLen Get #1, x, sChar: MsgBox sChar sLen = sLen - 1 x = x + 1 Wend Close #1 Gérôme GUILLEMIN Auteur du lan...

Appelé du code contenu dans un fichier [Résolu]

Salut à tous. Voilà, j'aurais voulu savoir s'il était possible d'appeler à partir de vb6 du code contenu dans un fichier. exemple: Voilà ce que contiendrai mon fichier, et je voudrai appeler ce bout de code à partir de mon appli vb6 en passant en paramètre ma variable Valeur. dim chaine as string Select Case Valeur Cas... Lire la suite

Hello, Voici du code VBA (VB et portable facilement en VBnet) qui permet de charger FBSL.DLL et donc de jouer du code FBSL à la volée et de récupérer le retour : Option Explicit Private Declare Function FBSL_ExecuteScriptFile Lib "fbsl.dll" (ByVal szScriptfile$) As Long Private Declare Function FBSL_GetReturnValue Lib "fbsl.dll"...

Héhé, En VBA tu peux 'injecter' un module de code dans Excel, Word, PPT par exemple et le jouer dans l'objet CodePane, mais en VB 6 je ne pense pas que tu puisses le faire :) Essayes avec mon langage( FBSL, tres proche du VB (cf dans mon link) ) qui lui le permet tres simplement de cette manière : Exemple tu as un fichier 'Toto.cod...

fichier DBF [Résolu]

bonjour quelqu'un aurait'il le code source qui permettrai de lire et d'extraire des données ce trouvant dans un fichier DBF. merci pour votre aide. je suis dans l'impasse

Bah si tu as ouvert ton DBF depuis Excel, les manips pour lire les champs sont comme si tu faisait une lecture de cellules / ranges de manière classique, je ne vois pas de diffficulté particulière... ? Invoques l'aide de Excel et cherche 'Range', 'Cells', tu verras comment on traite des élements de lignes et de colonnes. Gérôme GUILLE...

J'en ai pas sous le coude là, mais par exemple en VBA sous Excel, tu peux lire ET ecrire dans des fichiers DBase (DBF). Une seule ligne de code en VBA Excel pour lire un DBF : Workbooks.Open Filename:="C:\Classeur1.dbf" Gérôme GUILLEMIN Auteur du langage FBSL

Installation des DLL

Bonjour, Je souhaite copier les DLL et OCX dans le répertoire de l'application. D'après ce que j'avais cru comprendre windows doit aller les chercher automatiquement dans ce répertoire s'il ne les trouve pas dans system32. J'ai essayé.. ça ne marche pas. Que faut-il faire?? Merci

Hello, Simplement manuellement déjà comme çà : Regsvr32 C:\prog\tonOCX Sinon avec InnoSetup que j'utilise depuis de tres nombreuses années avec succès et qui permet simplement de déployer n'importe quel fichier, y compris OCX & co de manière tres simple :) Gérôme GUILLEMIN Auteur du langage FBSL

Chercher une chaîne dans une autre [Résolu]

Bonjour je souhaiterai savoir comment chercher une suite caractères dans une chaîne. Exemple comment trouver le mot "Vide" dans la phrase suivant "Le verre est vide" bien sur ensuite valuer une function à true si Ok ! Merci beaucoup pour vos conseils. Chocolat GC Lire la suite

Bonjour, findWord = CBool(InStr(1, szSentence, szWordToFind)) ou encore findWord = InStr(1, szSentence, szWordToFind) donneront EXACTEMENT LE MEME résultat vu que la fonction dans laquelle ce code se trouve est de type BOOLéenne, la fonction 'caste' pour toi. J'ai juste donné le 'CBool' en guise d'aide à la compréhension f...

Once eugène... Ceci : Sub test() MsgBox findWord("Le verre est vide", "vide") End Sub Public Function findWord(szSentence As String, szWordToFind As String) As Boolean findWord = CBool(InStr(1, szSentence, szWordToFind)) End Function Gérôme GUILLEMIN Auteur du langage FBSL

Bonjour, Essayes ceci : Sub test() MsgBox findWord("Le verre est vide", "vide") End Sub Public Function findWord(szSentence As String, szWordToFind As String) As Boolean Const phrase = "Le verre est vide" findWord = CBool(InStr(1, szSentence, szWordToFind)) End Function Gérôme GUILLEMIN Auteur du langage FBSL

VBA Module de classe

Bonjour, Voila mon problème. Je veux faire une appli en Vba Excel et je souhaiterais utiliser le même principe que les macros complémentaires pour les modules standards mais pour les modules de classes. Je souhaiterais que tous mes classeurs utilisent les mêmes définitions, mais je ne vois pas trop comment le faire. Merci pour vo... Lire la suite

Bonjour, Si tu parles des "Const mavar = mavaleur" alors non dans une classe VBA tu ne peux pas espérer obtenir le contenu de 'mavar' car toutes les const sont obligatoirement Private dans une Classe VBA. Par contre, dans un module VBA tu peux définir tes constantes et tes declarations API ayant un caractère partageable inter-modules ...

Recordset inconnu

Bonjout tout le monde, je suis en train d'étudier un tutoriel que j'ai vu sur ce site, propos de la connection à une base de donnée ACCESS en ADO, et dans le code suivant, "Recordset" se souligne et je ne sait pas du tout comment cela se fait, merci de vos explications et si possible vos solutions. Voici mon code : Private Sub ... Lire la suite

Essayes avec ceci : Dim rs As Object Set rs = CreateObject("ADODB.Recordset") Ca passera surement mieux et en plus cette méthode est un peu plus universelle dans le sens ou elle a pas de bindage à faire avec une version de DLL particulière. Inconvénient, tu perds l'intellisense, mais come tu es un programmeur acharné, tu connait...

VB.net xml -> html ? [Résolu]

Bonjour, J'aimerais savoir si il existe un moyen de générer automatiquement un fichier Html, en vb.net a partir d'un fichier de données Xml ??? J'ai créé une fonction qui genere un fichier Html, mais il y a un probleme avec les accents qui ne passe pas, quelqu'un sait t'il comment remédier a ce probleme ??? ... Lire la suite

Un bon lien : http://www.w3schools.com/xml/ Ya un tuto de croisement XML avec XSL, tu verras c'est relativement simple (enfin la base est simple :) ) @+ Gérôme GUILLEMIN Auteur du langage FBSL

mettre 2 exe dans 1 exe...

Bonjour! Voila je connaissais le flash(actionscript) avant de me mettre au vb et aujourd'hui j'aimerais meler les deux. Je sais comment executer une application VB a l'aide d'un code action script. Parcontre cela me fais deux exe (le exe du flash et le exe de mon appli vb). J'aimerais pouvoir paquer le exe de l'appli VB dans mon exe d... Lire la suite

Hello, Y'a encore plus simple! 1/ Compiles ton code flash en SWF seulement. 2/ Crée une feuille en VB contenant un controle de type WebBrowser. 3/ Ajoutes les lien de ton SWF ( file://" & app.path & "/montruc.swf" ) dans le contenu 'url' de ta page webbrowser :) 4/ Dis moi simplement merci :) J'utilise cette méthode dans mon lan...

Différence VB, VB6, VB 2005, VB.NET [Résolu]

Bonjour à tous, ben je pense que tout est dans le titre, je débute en programmation et je n'arrive pas bien a cerner les différences entre VB, VB 2005, VB6, VB.NET. Cette question peut paraître idiote mais bon, merci de m'éclairer!

La POO paefaite n'existe pas messieurs :) VB 4, 5 & 6 permettent une POO de base mais pas mal efficace quand meme. VB.NET bénéficie des 'évolutions' de la POO un peu plus 'moderne', mais ya pas de quoi casser 3 pattes à un canard non plus, la POO de .NET n'est pas si souple et dynamique que ça, mais ça reste de la POO honorable tout d...

adresse IP vba

Bonjour, j'ai besoin de protéger un fichier excel contre la copie vers un autre ordinateur. Mon idée est la suivante, trouver l'adresse ip de mon pc (celle ci est fixe et ne change pas ) et la comparer a une adresse enregistrée dans une macro a l'ouverture du fichier excel ( en open work ) . En bref il me faut un code qui me permette de ... Lire la suite

Bah, une adresse IP ça se change si tu es en DHCP par exemple :) Pourquoi ne pas utiliser le numéro de série de ton disque C: par exemple ? Gérôme GUILLEMIN Auteur du langage FBSL