Inserer des nombres dans une pictureboxRésolu

Question

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

PCPT · Accepted Answer

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]

cs_ShayW · Answer

Salut
sers toi de labels  pour inserer les nombres
ajoute les labels at runtime 
joues avec left et top pour les placer

JSilvere · Answer

Merci bien pcpt

PCPT · Answer

n'oublie pas de valider (réponse acceptée) si la réponse convient à ton problème

Inserer des nombres dans une picturebox

4 réponses

Votre réponse

Discussions similaires