Programación General > Visual Basic 6.0 e inferiores
Faq's De Visual Basic 6 Y Anteriores
(1/1)
ArKaNtOs:
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
ArKaNtOs:
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 ---Dim i As IntegerPrivate Sub Command1_Click()i = i + 1Load Text1(i) 'i es el numero de elementos que hay o habra en la matrizText1(i).Left = Text1(i - 1).Left + 250Text1(i).Top = 0Text1(i).Visible = True 'todo objeto que se crea de esta manera por default tiene este valor en falseEnd Sub
3.-con esto ya cargamos el objeto, ahora si lo quieres descargar, seria algo asi:
--- Código: Text --- Private Sub Command2_Click()Unload Text1(i)i = i - 1End Sub
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 ---Private WithEvents NuevoBoton As CommandButtonDim i As Integer Private Sub Label1_Click()i = i + 1nombreboton = "NuevoBoton" & iSet NuevoBoton = Me.Controls.Add("VB.CommandButton", nombreboton)NuevoBoton.Left = i * 400NuevoBoton.Top = 120NuevoBoton.Caption = "Soy un Botón"NuevoBoton.Visible = TrueEnd Sub Public Sub NuevoBoton_Click()MsgBox "prueba"End Sub
para remover el boton anteriormente agregado solo se necesita algo asi:
--- Código: Text ---Private Sub Label2_Click()nombreboton = "NuevoBoton" & ix = Me.Controls.Remove(nombreboton)i = i - 1End Sub
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
ArKaNtOs:
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?showtopic=3559
http://www.elguille.info/vb/cursos_vb/basico/indice.htm 'de Principiantes y Avanzados
http://visualbasic.alldocs.info/es/003.p3.htm 'Una gran serie de capitulos de un tutorial muy bueno :)
ArKaNtOs:
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 ---Dim rutaaguardar As Stringcommondialog1.Filter = "Imagenes de Mapa de Bits|*.bmp"commondialog1.ShowSaveIf commondialog1.FileName <> "" Then rutaaguardar = commondialog1.FileName 'MSChart.EditCopy ' Para el caso del MSChart 'SavePicture Clipboard.GetData, rutaaguardar 'si es para el mschart SavePicture Picture1.picture, rutaaguardar 'Para el caso de un Picture, ImageEnd If
Esto lo pueden poner en un boton o en cualquier evento :P :kicking:
Navegación
Ir a la versión completa