Autor Tema: Faq's De Visual Basic 6 Y Anteriores (Leído 1603 veces)

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

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 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 = &#34;NuevoBoton&#34; & i
Set NuevoBoton = Me.Controls.Add(&#34;VB.CommandButton&#34;, nombreboton)
NuevoBoton.Left = i * 400
NuevoBoton.Top = 120
NuevoBoton.Caption = &#34;Soy un Botón&#34;
NuevoBoton.Visible = True
End Sub
 
Public Sub NuevoBoton_Click()
MsgBox &#34;prueba&#34;
End Sub
 

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

Código: Text

Private Sub Label2_Click()
nombreboton = &#34;NuevoBoton&#34; & 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

ArKaNtOs

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

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 String
commondialog1.Filter = &#34;Imagenes de Mapa de Bits|*.bmp&#34;
commondialog1.ShowSave
If commondialog1.FileName &#60;&#62; &#34;&#34; 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

Autor Tema: Faq's De Visual Basic 6 Y Anteriores (Leído 1603 veces)

ArKaNtOs

Faq's De Visual Basic 6 Y Anteriores

ArKaNtOs

Re: Faq's De Visual Basic 6 Y Anteriores

ArKaNtOs

Re: Faq's De Visual Basic 6 Y Anteriores

ArKaNtOs

Re: Faq's De Visual Basic 6 Y Anteriores