Lunes 23 de Diciembre de 2024, 04:43
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Faq's De Visual Basic 6 Y Anteriores
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Faq's De Visual Basic 6 Y Anteriores (Leído 1639 veces)
ArKaNtOs
Miembro de PLATA
Mensajes: 1253
Nacionalidad:
Faq's De Visual Basic 6 Y Anteriores
«
en:
Domingo 10 de Septiembre de 2006, 06:59 »
0
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
Tweet
solocodigo
el punto de encuentro de los programadores
VB
,
C
,
C++
,
.Net
,
Java
,
Delphi
,
Linux
,
Programacion de Videojuegos
,
ASM
,
Dudas Informaticas
.
ArKaNtOs
Miembro de PLATA
Mensajes: 1253
Nacionalidad:
Re: Faq's De Visual Basic 6 Y Anteriores
«
Respuesta #1 en:
Domingo 10 de Septiembre de 2006, 07:29 »
0
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 Integer
Private Sub Command1_Click()
i = i + 1
Load Text1(i) 'i es el numero de elementos que hay o habra en la matriz
Text1(i).Left = Text1(i - 1).Left + 250
Text1(i).Top = 0
Text1(i).Visible = True 'todo objeto que se crea de esta manera por default tiene este valor en false
End 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 - 1
End 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 CommandButton
Dim i As Integer
Private Sub Label1_Click()
i = i + 1
nombreboton = "NuevoBoton" & i
Set NuevoBoton = Me.Controls.Add("VB.CommandButton", nombreboton)
NuevoBoton.Left = i * 400
NuevoBoton.Top = 120
NuevoBoton.Caption = "Soy un Botón"
NuevoBoton.Visible = True
End 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" & i
x = Me.Controls.Remove(nombreboton)
i = i - 1
End 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
solocodigo
el punto de encuentro de los programadores
VB
,
C
,
C++
,
.Net
,
Java
,
Delphi
,
Linux
,
Programacion de Videojuegos
,
ASM
,
Dudas Informaticas
.
ArKaNtOs
Miembro de PLATA
Mensajes: 1253
Nacionalidad:
Re: Faq's De Visual Basic 6 Y Anteriores
«
Respuesta #2 en:
Domingo 10 de Septiembre de 2006, 07:48 »
0
Faq importante
esta debio ir primero
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
solocodigo
el punto de encuentro de los programadores
VB
,
C
,
C++
,
.Net
,
Java
,
Delphi
,
Linux
,
Programacion de Videojuegos
,
ASM
,
Dudas Informaticas
.
ArKaNtOs
Miembro de PLATA
Mensajes: 1253
Nacionalidad:
Re: Faq's De Visual Basic 6 Y Anteriores
«
Respuesta #3 en:
Domingo 10 de Septiembre de 2006, 08:40 »
0
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 String
commondialog1.Filter = "Imagenes de Mapa de Bits|*.bmp"
commondialog1.ShowSave
If 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, Image
End If
Esto lo pueden poner en un boton o en cualquier evento
solocodigo
el punto de encuentro de los programadores
VB
,
C
,
C++
,
.Net
,
Java
,
Delphi
,
Linux
,
Programacion de Videojuegos
,
ASM
,
Dudas Informaticas
.
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Faq's De Visual Basic 6 Y Anteriores