Galeria De Imgenes
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Galeria De Imgenes as PDF for free.
More details
- Words: 58
- Pages: 2
AHI LO FORMÁS CON DIFERENTE ESTILO!!!! Private Sub Command1_Click() Image1.Picture = LoadPicture(Text1.Text) End Sub
Private Sub Dir1_Change() File1.Path = Dir1 End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1 End Sub
Private Sub File1_Click() Text1.Text = Dir1 + "\" + File1 End Sub
Private Sub HScroll1_Change() Image1.Width = HScroll1.Value End Sub
Private Sub VScroll1_Change() Image1.Height = VScroll1.Value End Sub
Private Sub Dir1_Change() File1.Path = Dir1 End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1 End Sub
Private Sub File1_Click() Text1.Text = Dir1 + "\" + File1 End Sub
Private Sub HScroll1_Change() Image1.Width = HScroll1.Value End Sub
Private Sub VScroll1_Change() Image1.Height = VScroll1.Value End Sub
Related Documents
Galeria De Imgenes
May 2020 22
Galeria De Imagenes Automovilesantiguos
November 2019 26
Imgenes Mixtures.docx
May 2020 22
Galeria De Bogota
June 2020 10
La Galeria
April 2020 11