1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
Private Sub CommandButton1_Click()
i = i + 1
e = e + 100
Set imageplus = Me.Controls.Add("forms.image.1")
With imageplus
.Name = "MonImage" & i
.Left = e
.Top = 30
.Width = 200
.Height = 60
.BackColor = 123654
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
a = .Width / 3.3
End With
MsgBox imageplus.Name & " ajouté dans l'UserForm."
Set o = New ClGdiPlus
o.DrawSmooth = True
' Creation bitmap
nom = "MonImage" & i
Call o.CreateBitmap(o.PointsToPixelsX(Me.Controls(nom).Width), o.PointsToPixelsY(Me.Controls(nom).Height))
' Fond blanc
o.FillColor vbWhite
' Crayon a l'interieur
'o.PenAlignMode = PenAlignmentInset
' Ajout des textures
o.TextureAddFromControl "filltext1", Me.ImgCiel
o.ImageListDel "text"
' Ecrit un texte
o.FillTexture = ""
o.FillTexture = "filltext1"
o.DrawText "montext", a, "Arial", 0, 0, o.ImageWidth - 2, o.ImageHeight, 1, , 0, 0, -1, 50, True, True, True, True, True
o.RepaintControl Me.Controls(nom)
End Sub |
Partager