Profil de cs_lermite222 - CodeS SourceS

[VBA] Récupérer le hModule (ou hInstance) à partir du hWnd ?

Salut ta tou(e)s Dans un projet sous Word 2003, j'utilise des MsgBox. Hélas, les MsgBox ont la mauvaise habitude de se placer au centre de l'écran. Pour des raisons personnelles (et matérielles), je voudrais déplacer cette MsgBox là où je le souhaite. J'ai donc recourt au SubClassement (cher à Manu) pour détecter l'apparition et ident... Lire la suite

Bonjour tou(te)s Merci à ce fil qui m'a bien aidé. En fait, quand on a en VB6 xx = App.hInstance En VBA, il n'y a que de la remplacer par... xx = GetCurrentThreadId() Du moins, chez moi ça roule... Cdlt.

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...

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...

Pointeur souris animé avec VB6 [Résolu]

Bonjour tous, J'ai déjà suivi un tas d'exemple pour un curseur souris animé mais je constate qu'aucun ne fonctionne. L'API SetClassLongA ne réagit pas à ses paramètres bien que divers sources disent que cela fonctionne. Je précise que je suis sous Windows Vista. Faut-il employer une autre API avec Vista. Je précise aussi que j'ai ten... Lire la suite

Re, Entendu également NHenry, Si les "visiteurs" teste ma sub et que ça plante et beh y dirons.. ce lermie quel con. Et si ça plante pas y dirons..... A bon entendeur.

Salut dieu (sans majuscule) FOUT MOI LA PAIX

Bonjour NHenry, tu dis, changer les paramètres systèmes a tendance à décourager les utilisateurs. Je te ferais remarquer que ça ne change rien au système, cela s'adresse juste à la configuration du détenteur du hwnd. Le seul risque éventuel est de planter l'appli et certainement pas le système. Mais quand le curseur précédant es...

Re, En fait ma sub fonctionnait très bien pour des curseurs couleur, je détruit le handel directement mais l'image reste dans la mémoire. Je n'ai donc pas chercher plus loin quand j'ai créé cette sub, ce n'est qu'avec la recherche pour les curseurs animés que je butais. Résolu, fallait juste mettre la dernière ligne un peu plus haut, l...

Salut Ucfoutu, Humm, je vois que tu change pas et que tu est toujours aussi rustre et que tu te prend pour le nombril du monde avec la science infuse. Et c'est plutôt toi qui à rien compris ChangeCurseur fonctionne parfaitement depuis plusieurs années et contrairement aux dire de ta grande connaissance, sans aucun plantage. Je veux j...

Re, Précision, En w7 j'ai un PC en 32 et un en 64 bits. Merci d'avance de vos conseils éclairés.

Salut Ucfoutu et merci de ton intérêt. Je me sert de... Public Sub ChangeCurseur(mHwnd As Long, Curs As Integer) Dim SysCursHandle As Long, CursHandel As Long Dim Ret As Long If Curs = -1 Then CursHandel = LoadCursorFromFile(CheminCurs & "aero_busy_l.ani") Else CursHandel = LoadCursorFromFile(CheminCurs & "LN" & ...

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...

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

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 ...

WORD publipostage le 0 des CP ne s'imprime pas

Bonjour à tous, étant nouveau sur ce forum, j'espère que je poste au bon endroit et que j'arriverai à m'expliquer correctement. Je fais un publipostage WORD à partir d'une base de donnée EXCEL comportant: Civilité, Nom, Prénom, Adresse, Quartier, CP et Ville. Le publipostage se passe bienn sauf que les CP commençant par 0 (exemple : ... Lire la suite

Bonjour, Changer le format Code postal par du format texte. A+

Etendre le range (plage) tant que la cellule est non vide ou jusqu'à ce que la 1

Bonjour, table.tableizer-table {border: 1px solid #CCC; font-family: Arial, Helvetica, sans-serif; font-size: 12px;} .tableizer-table td {padding: 4px; margin: 3px; border: 1px solid #ccc;} .tableizer-table th {background-color: #104E8B; color: #FFF; font-weight: bold;} Type |Name | ---- BIDULE, , ---- MACHIN, , ----... Lire la suite

Pour le 0 remplacer MyVar = 0 par MyVar = "" Pour comprendre le code et éventuellement rectifier tu n'a pas l'air de connaître le pas à pas ! Mettre le curseur sur For e = ... Taper F9 taper F5 , le code démarre, la ligne concernée se met en surbrillance jaune. Chaque appui sur F8 fait avancer d'un pas. Mettre le curseur sur une var...

En relisant ton poste précédant, il semblerai que ce n'est pas la SOMME que tu recherche mais à concaténer les cellules. Si oui, il faut remplacer MyVar as Double et mettre MyVar As String et dans la boucle e, myVar = myVar & Cells(e, "A").Value Tu dis.