Necesito grabar el caption de un label como un archivo de imagen (bmp o jpg) en el disco duro?
Se puede?
| |||
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
__________________ Recursos visual basic |
| |||
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
__________________ Recursos visual basic |