SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ArKaNtOs en Domingo 10 de Septiembre de 2006, 06:59

Título: Faq's De Visual Basic 6 Y Anteriores
Publicado por: ArKaNtOs en Domingo 10 de Septiembre de 2006, 06:59
Hola iniciando con las nuevas dispocisiones del foro empiezo con las FAQ (Preguntas Frecuentes) sobre este lenguaje que es VB, si mas adelante quieres o deseas aportar una, puedes hacerlo de la siguiente manera:

P: para establecer la pregunta.
R: para establecer la respuesta.

no olvides aportar un codigo de ejemplo que sustente tu FAQ, Gracias :D
Título: Re: Faq's De Visual Basic 6 Y Anteriores
Publicado por: ArKaNtOs en Domingo 10 de Septiembre de 2006, 07:29
P: ¿Como crear objetos en Tiempo de Ejecución?

R: Hay dos maneras, ambas simples, empecemos con la primera, esta es crear una matriz del objeto y clonarlo :) la cual se hace de la siguiente manera:

MODO 1
1.- Creas el control y estableces la propiedad index=0
2.- ahora que ya creaste el control en el evento donde quieres que se cree el objeto pondrias algo asi:

Código: Text
  1. Dim i As Integer
  2. Private Sub Command1_Click()
  3. i = i + 1
  4. Load Text1(i) 'i es el numero de elementos que hay o habra en la matriz
  5. Text1(i).Left = Text1(i - 1).Left + 250
  6. Text1(i).Top = 0
  7. Text1(i).Visible = True 'todo objeto que se crea de esta manera por default tiene este valor en false
  8. End Sub
  9.  

3.-con esto ya cargamos el objeto, ahora si lo quieres descargar, seria algo asi:
Código: Text
  1.  
  2. Private Sub Command2_Click()
  3. Unload Text1(i)
  4. i = i - 1
  5. End Sub
  6.  

PD en este ejemplo estamos creando varios Textbox en tiempo de ejecucion, y como ya habia mencionado antes tiene que haber un objeto principal previamente creado.

MODO 2

Código: Text
  1. Private WithEvents NuevoBoton As CommandButton
  2. Dim i As Integer
  3.  
  4. Private Sub Label1_Click()
  5. i = i + 1
  6. nombreboton = "NuevoBoton" & i
  7. Set NuevoBoton = Me.Controls.Add("VB.CommandButton", nombreboton)
  8. NuevoBoton.Left = i * 400
  9. NuevoBoton.Top = 120
  10. NuevoBoton.Caption = "Soy un Botón"
  11. NuevoBoton.Visible = True
  12. End Sub
  13.  
  14. Public Sub NuevoBoton_Click()
  15. MsgBox "prueba"
  16. End Sub
  17.  

para remover el boton anteriormente agregado solo se necesita algo asi:

Código: Text
  1. Private Sub Label2_Click()
  2. nombreboton = "NuevoBoton" & i
  3. x = Me.Controls.Remove(nombreboton)
  4. i = i - 1
  5. End Sub
  6.  

con este codigo, no se necesita tener previamente creado ningun objeto, eso si te tienes que saber el nombre de los objetos segun VB, como en este caso se crea un boton o varios a partir de darle click a un Label y el nombre del objeto boton es VB.CommandButton, Espero y esto les sea de utilidad :) pronto posteare mas
Título: Re: Faq's De Visual Basic 6 Y Anteriores
Publicado por: ArKaNtOs en Domingo 10 de Septiembre de 2006, 07:48
Faq importante :P esta debio ir primero :P

P: ¿alguien conoce un buen tutorial sobre Visual Basic?
R:
http://foros.solocodigo.com/index.php?showforum=10 (http://foros.solocodigo.com/index.php?showforum=10)
http://foros.solocodigo.com/index.php?showtopic=3559 (http://foros.solocodigo.com/index.php?showtopic=3559)
http://www.elguille.info/vb/cursos_vb/basico/indice.htm (http://www.elguille.info/vb/cursos_vb/basico/indice.htm) 'de Principiantes y Avanzados
http://visualbasic.alldocs.info/es/003.p3.htm (http://visualbasic.alldocs.info/es/003.p3.htm) 'Una gran serie de capitulos de un tutorial muy bueno :)
Título: Re: Faq's De Visual Basic 6 Y Anteriores
Publicado por: ArKaNtOs en Domingo 10 de Septiembre de 2006, 08:40
P: ¿Como guardar una imagen de un Picture, Image, o MsChart?
R: Copiando al ClipBoard(Portapapeles) la imagen y luego mandando a llamar a la función SavePicture

Ejemplo:

Código: Text
  1. Dim rutaaguardar As String
  2. commondialog1.Filter = "Imagenes de Mapa de Bits|*.bmp"
  3. commondialog1.ShowSave
  4. If commondialog1.FileName <> "" Then
  5.     rutaaguardar = commondialog1.FileName
  6.     'MSChart.EditCopy ' Para el caso del MSChart
  7.     'SavePicture Clipboard.GetData, rutaaguardar 'si es para el mschart
  8.     SavePicture Picture1.picture, rutaaguardar 'Para el caso de un Picture, Image
  9. End If
  10.  

Esto lo pueden poner en un boton o en cualquier evento :P :kicking: