Grabar Label como imagen en disco duro

[pcarvajal]

Necesito grabar el caption de un label como un archivo de imagen (bmp o jpg) en el disco duro?
Se puede?

[luciano]

si se puede, una forma:

Código:

Sub Grabar(ElLabel As Label, path As String)

Dim Pic As PictureBox
Set Pic = Me.Controls.Add("Vb.PictureBox", "Pic1")

With Pic
    
    .BorderStyle = 0
    
    .Width = ElLabel.Width
    .Height = ElLabel.Height
    Set .Font = ElLabel.Font
    .AutoRedraw = True
    
    Pic.Print ElLabel.Caption
    
    Pic.Picture = Pic.Image
    
    SavePicture Pic.Picture, path
    
    Set Pic = Nothing
    
End With

End Sub

Private Sub Command1_Click()
Call Grabar(Label1, "c:\archivo.bmp")
End Sub

Debes pasar el label y el path como parametro

saludos

[luciano]

Me olvide mientras lo hacia, agrega esto en la sub antes de la linea:

Pic.Print ElLabel.Caption

Código:

    .BackColor = ElLabel.BackColor
    .ForeColor = ElLabel.ForeColor

[pcarvajal]

genial, funciona perfecto, gracias luciano!