Profil de cs_lermite222 - CodeS SourceS

EXCEL : CHIFFRE EN LETTRE ET VIRGULE

/source/54315-excel-chiffre-en-lettre-et-virgule

Bonjour, Pas besoin de courrir sur un autre site alors que c'est à disposition sur CS. http://www.vbfrance.com/codes/NOMBRE-LETTRES_52224.aspx A+

[VB6] MOLETTE SOURIS POUR DATAGRID, MSFLEXGRID ET MSHFLEXGRID

/source/25201-vb6-molette-souris-pour-datagrid-msflexgrid-et-mshflexgrid

Ça fonctionne impec aussi en compiler. J'ai un peu améliorer la sélection, je trouvais dommage de devoir cliquer sur le contrôle pour que le scroll fonctionne. La constante WM_MOUSEFIRST permet de savoir si la souris survole le contrôle, j'ai donc modifié en ce sens... Ajouter 3 variables dans la déclaration de la forme Private mHw...

32767

Votes

Bonjour, Parfait, enfin presque, il faudrait contrôler les valeurs renvoyées aux scroll, tombe très vite en erreur au déplacement de la molette. Mais ça je pense que c'est à la portée de tous. A part ça tu est trop modeste, c’est valable pour tout contrôles ayant un hwnd, y compris la forme. Egalement utile pour détecter tout les bout...

SAVEPICTURE() AU FORMAT PNG, JPG, TIF ETC...

/source/52039-savepicture-au-format-png-jpg-tif-etc

Rectification, je viens de m'apercevoir que le filtre de PictureSave n'est pas bon non plus, si on choisi All tout les fichier sont afficher y compris ceux qui ne sont pas des fichiers image. La syntaxe conforme devrait être... cdg.Filter = ("All picture(*.bmp ; *.jpg ; *.png),*.bmp,*.jpg,*.png") Je n'ai fait que pour trois filtr...

Bonjour à tous, Je fais remonter ce topic parce que j'ai deux petites rectifications à faire. 1°) J'ai changer de PC et c'est probablement comme dis par Jacques Antoine, le codage des fichiers ne fonctionne plus du tout malgré tout mes essais. Mais ce n'est pas fort important j'ai trouver un snippet qui code tout les Png, bmp et jpg sa...

32767

Votes

Bonjour, Ce que je cherchais depuis... Malgré tout, j'ai eu quelques problème pour faire fonctionner cette source et je les expliques pour éventuellement d'autre utilisateur. Au premier lancement, la dll ijl11 introuvable, j'ai suivis la remarque plus haut mais pas de résultat. Etant sous Vista j'ai voulu enrégistré la dll avec RegSvr...

METTRE VOTRE FORM VB.NET EN PLEINE ÉCRAN

/source/53843-mettre-votre-form-vb-net-en-pleine-ecran

Bonjour, Autant pour moi, mais comme je valide la propriété "Masquer automatiquement la barre des tâches" je n'ai pas remarqué la différence. A+

Bonjour, Je pense que tu cherche un peu midi à quatorze heure :-) Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click If Me.WindowState = FormWindowState.Maximized Then Me.WindowState = FormWindowState.Normal Me.FormBorderStyle = Windows.Forms.FormBorderS...

DESACTIVER / ACTIVER LES MISES EN VEILLES PC

/source/53893-desactiver-activer-les-mises-en-veilles-pc

32767

Votes

Bonjour, Un projet VB6 sortit de mes archives :-) http://www.archive-host.com/link/5bc49ff690ffe9dfda36025252525ba8be58a35b.zip Contient d'autre fonctions comme.. Tester si l'User dispose de droit suffisant. Autoriser/interdire les différents modes de mise en veilles. Passer à l'écran de veille. Éteindre ou de redémarer le PC. A+

CONVERTISSEUR HEXAVIGÉSIMAL

/source/53815-convertisseur-hexavigesimal

Bonjour, Pour tes 'option' tu devrais regarder les contrôles indexé. Option1(0)... Option1(1) Et ton code ci-dessous devient inutile, Private Sub Option1_Click() If Option2.Value = True Then Option2.Value = False End If End Sub Private Sub Option2_Click() If Option1.Value = True Then Option1.Value = False End If Essaye ...

NOMBRE EN LETTRES

/source/52224-nombre-en-lettres

Re tous, Pour info, en .Net trouver le séparateur décimale du PC dim Sep As Char Sep = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator A+

Re tous, Si l'ami petchy avais directement préciser qu'il travaillais en VB6 j'aurais directement fait les modif pour VB6, enfin, quoi qu'il en soi, la modification de la fonction EnTexte pour permettre l'affichage des nombres négatif en VB6. Remplacer la fonction EnTexte par... Function EnTexte(Chiffre As Double, Optional Langue As ...

Re tous, Suite à la demande de petchy, modification de la fonction EnTexte pour oermettre l'affichage des nombres négatif. Remplacer la fonction EnTexte par... Function EnTexte(Chiffre As Range, Optional Langue As Byte 0, Optional Devise As Byte 0, Optional Decimale As Byte = 0) As String Dim i As Integer, txt As String Dim strT...

Re, Vu le rythme des remarques et modif, je ne suis plus avec les Maj, donc par pour tout de suite. Limiter à trois décimales ? le code étant dispo, chacun peu le modifier à sa guise, et j'ai choisi l'option base 3 jusqu'au milliardième. Le bug quand il n'y à rien dans le TextBox est déjà résolu dans la modif de mon poste précédant s...

DATES DES FÊTES FIXES ET MOBILES

/source/53581-dates-des-fetes-fixes-et-mobiles

Re, Beh oui, j'ai peut-être été un peu heuuu... mais ta façon de répondre m'a un peu "frictionner les oreilles". Mais comme tu dis, soyons plus constructif. En VB6 Option explicit était une condition obligatoire si l'ont voulait un code optimum (autant que faire se peu), par contre et à ta décharge, cette 'option' n'est plus aussi impé...

32767

Votes

Bonjour, Je n'ai pas regardé le code et de ce fait, pas analyser, mais pour le fait d'avoir poster un code qui à été composer "à l'arrache" je pointerai ton code à ZERO. (Un puisque zéro y à pas) Tu dis.. C'est le tout premier code que je poste !! je pense que tu ferais bien de voir comment les autres code sont "bidouillés" avant de po...

ROTATION IMAGE AVEC GDI+ (EXEMPLES ET QUESTIONS)

/source/39902-rotation-image-avec-gdi-exemples-et-questions

Re, Pas de réponse !! donc je m'y suis remis et finalement cela n'a pas été difficile. A toutes fins utiles.. la fonction qui calcul le rectangle pour inscrire l'image. w = la largeur de l'image et h la hauteur. Private Type LaHa L As Integer H As Integer End Type Dim Retour As LaHa Sub Rapport(ByVal w As Long, ByVal H ...

32767

Votes

Bonjour tous, > Mistern : voir ce snippet http://www.codyx.org/snippet_conversion-images-bmp-jpg-png-avec-gdi_160.aspx > misterN : tu écrit, au début de ta modif.. '-- pour information un peu de trigo basique... N'y aurait-il pas moyen de supprimer le "basique...", je m'explique, dans ton approche le calcul se fait pour avoir la poss...

[VBA] EXCEL - UNE CALCULATRICE SUR UN USERFORM

/source/52925-vba-excel-une-calculatrice-sur-un-userform

Bonjour, Tu tape Alt+F11 pour ouvrir l'éditeur. A+

MINUTERIE ET DIVERS API

/source/52912-minuterie-et-divers-api

Salut Mig, C'est l'un des buts de la démo. Cordialement. Lermite.