
26/04/2003, 12:33
|
| | Fecha de Ingreso: abril-2003
Mensajes: 6
Antigüedad: 21 años, 10 meses Puntos: 0 | |
Si lo que deseas es crear un boton para guardar lo que haya dentro de una form, textbox,Richbox o lo que sea
puedes utilizar esto
1.-vas aproject > components > y marcas Microsoft common dialog > ahora gregas el commondialog en la form
y le das
2 .- al boton que quieras ke al dar click haga la accion le das
' guarda el archivo con una extencion espexifica
Dim sFichero As String
With CommonDialog1
.DialogTitle = "Guardar Imagen"
.Filter = "Mapa de bits (*.BMP)|*.BMP"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFichero = .FileName
End With
' en este caso guarda una imagen que se encuentra lo calizada en la misma form puede ser cambiado a un archivo de texto
SavePicture Imagen.Picture, sFichero
End Sub
'case2
'es lo mismo ke el anterio solo que aqui se guarda lo que se encuentra en otra form y en un archivo de texto
Dim sFichero As String
With CommonDialog1
.DialogTitle = "Guardar Texto"
.Filter = "Archivo doc (*.Doc)|*.Doc"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFichero = .FileName
End With
' Guarda el contenido del Richtextbox que se encuentra en otra form distinta a donde se encunetra el boton de guardar
Frm1Principar.Richtextbox1.SaveFile sFichero
End sub
Espero y esto te sea de utilidad |