Inscription
4 août 2010
Dernière intervention
19 novembre 2019
Interventions
220

Folder qui vient d'être créé n'existe pas ! [Résolu]

Bonjour, J'ai une erreur 76 (Path not found) en essayant de créer un fichier dans un répertoire que je viens de créer, voici mon code Dim fPath As New FileSystemObject TankFolder = App.Path & "\Log Book " & TankNr If Not fPath.FolderExists(TankFolder) Then fPath.CreateFolder (TankFolder) ParFileName = TankFolder & "\Data.par" Open ParF...

Unload Me dans form Load

Bonjour, J'effectue certains contrôles dans Form Load si ce n'est pas correct j'envoie un message d'erreur puis Unload Me j'obtiens évidemment une erreur 364 Form unloaded by itself sur le Exit Sub qui suit. Comment puis-je m'unloader moi-même à partir de Form Load sans provoquer d'erreur ?

Ajouter une flèche à une textbox [Résolu]

Bonjour, Lorsqu'on passe la souris sur un graphique, une légende (une text box en fait) contenant les caractéristiques du point survolé s'affiche, ceci fonctionne très bien, voir cette animation Suivant la position du point la légende peut s'afficher au-dessus ou en dessous, à gauche ou à droite du point. Je voudrais ajouter "qu...

ShellExecute Access Denied

Bonjour, J'utilise ShellExecute pour démarrer un .exe lngReturn = ShellExecute(Me.hwnd, vbNullString, App.Path & "\RVRTupgrade.exe", vbNullString, App.Path, SW_SHOWNORMAL) If lngReturn > 32 Then NewVer = True ' Download OK ET l'exe upgrade existe bien ...

La méthode ~ de l'objet ~ a échoué

Bonjour, De temps en temps en démarrant l'IDE de VB6 j'obtiens ce message Je ferme puis ouvre à nouveau, parfois j'ai à nouveau le même message, puis il disparaît. A quoi est-il du ? Quand ce message apparaît vaut-il mieux quitter et recommencer ou puis-je continuer sans problème ? Merci d'avance pour votre avis.

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

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

WinHttpRequest en http / httpS

Bonjour, Pour obtenir l'adresse IP d'un utilisateur d'un logiciel VB6 j'utilise strURL = "http://www.rudyv.be/GetIP.php" Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objHTTP.Open "GET", strURL objHTTP.Send If objHTTP.Status = 200 Then MyIP = objHTTP.ResponseText Set objHTTP = Nothing GetIP.php fait simplementEcho $_SER...

Copier le contenu d'une partie d'une PicBox ailleurs dans la même PicBox

Bonjour, Je ne parviens pas à copier le contenu d'une partie d'une PicBox ailleurs dans la même PicBox. Alors j'ai fait cet exemple très simple (dans le code définitif j'utiliserai getpixel/setpixel au lieu de point/pset) Graph.Line (0, 0)-(100, 50), Dimensions, BF PixelX = Graph.Width / Screen.TwipsPerPixelX / Graph.ScaleWidth &...

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

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

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

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

364 Object was unloaded

Bonjour, Selon le site Microsoft A form was unloaded from its own _Load procedure Remove the Unload statement from the Form_Load procedure. Il n'y a pas d'Unload dans la procédure Load ! Voici le code qui provoque l'erreur If VerCheck = True Then Load Main Quelle peut être la cause de cette erreur ?

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

Pourquoi PSET est-il si lent ? [Résolu]

Bonjour, Je voudrais modifier une picturebox avec PSET, voici mon code : les variables R, G et B contiennent les valeurs de la couleur à peindre Photo2.DrawMode = vbCopyPenPhoto2.ScaleWidth = Photo2.Width / 15 ' pour travailler en pixelsPhoto2.ScaleHeight = Photo2.Height / 15 ' pour travailler en pixelsFor x = 0 To Photo2.ScaleWidth ...

Gestion du registre [Résolu]

Bonjour, Voici le code que j'utilise pour écrire une valeur dans le registre Dim OpenKey As Long, SetValue As Long, hKey As LongRegKeyRoot = &H80000000 ' HKEY_CLASSES_ROOTRegKeyName = "SOFTWARE\RVReefTools"OpenKey = RegOpenKeyEx(RegKeyRoot, RegKeyName, 0, KEY_ALL_ACCESS, hKey)SetValue = RegSetValueEx(hKey, KeyValueName, 0&, KeyDataType...

13:Type mismatch

Bonjour, Je ne comprends pas pourquoi j'obtiens une erreur 13 sur cet appel Adjust_Click (2) ==> Type Mismatch ... Private Sub Adjust_Click(Index As Integer)

Caractères unicode

Bonjour, Je voudrais utiliser quelques caractères spéciaux (flèche vers le bas, ...) dans une listbox. La police de la listbox est Courier New. Je trouve les caractères que je cherche dans la table des caractères par exemple U+2193. Pour le faire apparaître dans la listbox j'utilise CHRW(&H2193) J'obtiens un point d'interrogation. ...