Inserer des nombres dans une picturebox

Résolu
JSilvere
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013
- 28 févr. 2011 à 17:40
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
- 1 mars 2011 à 19:02
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

PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
50
28 févr. 2011 à 19:13
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]
3
cs_ShayW
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
56
28 févr. 2011 à 17:56
Salut
sers toi de labels pour inserer les nombres
ajoute les labels at runtime
joues avec left et top pour les placer
0
JSilvere
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013

1 mars 2011 à 08:59
Merci bien pcpt
0
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
50
1 mars 2011 à 19:02
n'oublie pas de valider (réponse acceptée) si la réponse convient à ton problème
0