Inscription
4 août 2010
Dernière intervention
18 septembre 2019
Interventions
204

Copier le contenu d'une Form dans une Picturebox [Résolu]

Bonjour, J'utilise le code que j'ai trouvé ici https://www.codeproject.com/Articles/23234/VB6-Save-Form-Image-To-File?fid=992036 Public Sub SaveFormImageToPictureBox(ByRef ContainerForm As Form, ByRef PictureBoxControl As PictureBox) Dim FormInsideWidth As Long Dim FormInsideHeight As Long Dim PictureBoxLeft As Long Dim Pictu... Lire la suite

Performances : trouver où ça freine [Résolu]

Bonjour, Je constate qu'un de mes programmes en VB6 est particulièrement lent. J'ai bien essayé de mettre des GetTickCount() mais le programme est un peu complexe avec des boucles Do/Loop et des For/next imbriqués ainsi que l'appel à de nombreuses sub : difficile d'exploiter les résultats. Existerait-il un outil ou une méthode permett... Lire la suite

Passer un paramètre d'une forme à l'autre [Résolu]

Bonjour, Je ne comprends pas pourquoi le paramètre ne passe pas. Dans la forme qui appelle je faisPrivate Sub AdjCCT_Click() Load LumAdjust LumAdjust.CCTorig = paramètre à passer et dans la Form appelée (LumAdjust)Public CCTorig As Single Private Sub Form_Load() Me.Show CCT.Text = Str$(CCTorig) & "K" End Sub la valeur passée n... Lire la suite

Redimensionner une image dans une Picturebox

Bonjour, Je voudrais modifier la taille de la Picturebox "ScreenShot" ainsi que celle de l'image qui se trouve dedans d'un facteur "Zoom" J'utilise le code suivant ScreenShot.AutoRedraw = True ScreenShot.Width = ScreenShot.Width * Zoom ScreenShot.Height = ScreenShot.Height * Zoom ScreenShot.PaintPicture ScreenShot.Image,... Lire la suite

Variable not defined

Bonjour, Je ne comprends pas pourquoi cette variable serait indéfinie. Dans un module (.BAS) j'ai Option Explicit Private Type Info X As String Y As Long ... End Type Private Infos() As Info Private Count As Long Public Function GetInfoS() As String Count = GetInfo(Info) GetInfo est une fonction définie dans un autre mo... Lire la suite

Lire une sub-key du registre [Résolu]

Bonjour, Je sais comment lire le contenu d'une clé du registre mais comment faire si on ne connait pas le nom de la sub-key ? Exemple : HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces cette clé contient 3 sous-répertoires aux noms rébarbatifs {77079887-e3a5-4cba-8b9c-015b464834f1} {7f3a3952-db7a-11e... Lire la suite

Merci !

Limite Array [Résolu]

Bonjour, J'aurais besoin d'un Array "fixe" de 1040 éléments. J'ai commencé par coderData = Array("élément1", _"élément2", _"élément3", _..."élément1040")mais j'ai une erreur disant qu'il y a trop de continuations, bon alors Data = Array("élément1", "élément2", "élément3", ... "élément1040") sans aller à la ligne mais IDE fait des nœu... Lire la suite

For ... To ... Next dépassement inexpliqué

Bonjour, Je rencontre parfois une erreur dans une boucle For/Next parce que la valeur de To est dépassée 4730 On Error GoTo Plan_Error...5310 For srcnr = 1 To n(1) * n(2)5320 If Sources(srcnr).Color = SrcColor Then...5510 DoEvents5570 End If5580 Graph(0).Refresh5590 Next srcnr...Plan_Error:7040 ErrHdl ("n(1) =" & S... Lire la suite