Hola empeze ayer con este lenguaje y me a parecido una maravilla ya que el apartado grafico es sencillo ya buenos resultado.buen o pos queria que me alguien me resuelva unas dudillas ( fijo q os parecen muy tontas pero que le vasmos a acer es lo q ay XD)
¿que comando copia arxivos de un lugar a otro?( como copy o xcopy en batch)
¿como meto una imagen al form?(si se puede claro, es q e visto programas echos en vb que tienen distintos form o le an añladido algo al form no lo se bien xd)
¿para q vale el timer?
weno creo q esto es todo.
Hola JiMmY_hAcK, buen dÃa. Aquà te dejo unos ejemplos básicos:
Agregar 1 control CommandButton, 1 PictureBox, 1 Timer e insertar el siguiente código
Private Sub Command1_Click()
'---------SE CREAN LAS VARIABLES A USAR---------------
Dim Ruta As String, Imagen As String, _
ArchivoOrigen As String, _
ArchivoDestino As String, RutaNueva As String
'-----------------------------------------------------
'------SE ESTABLECEN LOS VALORES PARA VARIABLES-------
Ruta = "C:\"
RutaNueva = "C:\Windows\"
Imagen = "Imagen.jpg"
ArchivoOrigen = "caca1.txt"
ArchivoDestino = "caca2.txt"
'------------------------------------------------------
'---------------PROPIEDADES DE PICTURE1----------------
Picture1.AutoSize = True
'------------------------------------------------------
'----------SE CARGA LA IMAGEN EN PICTURE1--------------
Picture1.Picture = LoadPicture(Ruta & Imagen)
'------------------------------------------------------
'----------SE CARGA LA IMAGEN EN FORM1-----------------
Me.Picture = LoadPicture(Ruta & Imagen)
'------------------------------------------------------
'-------SE COPIA UN ARCHIVO DE C:\ A C:\WINDOWS\-------
FileCopy Ruta & ArchivoOrigen, RutaNueva & ArchivoDestino
'------------------------------------------------------
End Sub
Private Sub Form_Load()
'--------------PROPIEDADES DE TIMER1-------------------
Timer1.Enabled = True
Timer1.Interval = 1
'------------------------------------------------------
End Sub
Private Sub Timer1_Timer()
'---DENTRO DE TIMER1 SE ESTABLECE LA HORA DENTRO DE FORM1---
Me.Caption = Format(Time, "hh:mm:ss AMPM")
'-----------------------------------------------------------
End Sub
Espero te sea de utilidad. Nos vemos.
PD: Procura buscar un poco más, hay mucha información al respecto ; )
Autor