Inserer des nombres dans une picturebox [Résolu]

Signaler
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Voila, dans mon programme j'ai une picturebox dans laquel je trace un graphique, et j'aimerais noter l'échelle en insérant des nombres juste en dessous de mes axes... j'ai beau cherche, je ne trouve pas le code permettant d'insérer ces foutus nombres

4 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
36
salut,

très rudimentaire mais fonctionnel, et moins gourmand que les labels :

Option Explicit

Private Sub Form_Load()
    Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    Picture1.FontName = "Courier new"
    Picture1.FontSize = 8
    Picture1.ForeColor = vbRed
    Picture1.ScaleMode = vbPixels
End Sub

Private Sub Picture1_Click()
    Dim S As Single, j As Integer
    Dim h As Long, w As Long
    h = Picture1.Height / Screen.TwipsPerPixelY
    w = Picture1.Width / Screen.TwipsPerPixelX
    
    Picture1.Cls
    j = -1
    For S = h To 0 Step -20
        j = j + 1
        Picture1.CurrentX = 0
        Picture1.CurrentY = S - 20
        Picture1.Print CStr(j)
    Next S
    j = 0
    For S = 20 To w Step 20
        j = j + 1
        Picture1.CurrentX = S
        Picture1.CurrentY = h - 20
        Picture1.Print CStr(j)
    Next S
End Sub


++
[hr]
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut
sers toi de labels pour inserer les nombres
ajoute les labels at runtime
joues avec left et top pour les placer
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013

Merci bien pcpt
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
36
n'oublie pas de valider (réponse acceptée) si la réponse convient à ton problème