Dessiner une ligne en VB6 - VB/VBA/VBS - Programmation
MarshPosté le 22-06-2009 à 16:24:06
Bonjour à tous. J'ai conscience de la simplicité de la tâche mais je galère pour simplement ajouter une ligne sur mon image "pict1" sous VB6. Je suis un habitué de Java et je débute en VB. J'ai parcouru pendant des heures des forums de discussion je n'en puis plus :
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" ( _ ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Marsh Posté le 22-06-2009 à 16:24:06
Bonjour à tous.
J'ai conscience de la simplicité de la tâche mais je galère pour simplement ajouter une ligne sur mon image "pict1" sous VB6.
Je suis un habitué de Java et je débute en VB.
J'ai parcouru pendant des heures des forums de discussion je n'en puis plus :
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" ( _
ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Const DT_WORDBREAK = &H10
Private Const DT_CENTER = &H1
Private Sub bColor_Click()
Dim rct As RECT
With commandPanel
With .pict1
.AutoRedraw = True
.Height = 400
.Width = 2000
.BorderStyle = vbSBNone
.ForeColor = RGB(255, 100, 255)
.BackColor = RGB(0, 0, 0)
.Font = "Tahoma"
.FontSize = 10
.ScaleMode = vbPixels
End With
End With
With rct
.Left = 0
.Right = pict1.ScaleWidth
.Top = 0
.Bottom = pict1.ScaleHeight
End With
DrawText pict1.hDC, "lorem ipsum", -1, rct, DT_CENTER
Dim pen As pen
pict1.DrawLine(pen, 1, 2, 3, 4)
pict1.Picture = pict1.Image
End Sub
Qu'est ce qui ne va pas avec mon code ?
Désolé si je ne suis pas assez précis et merci d'avance