Claro para cambiar el fondo solo tienes que establecer la propiedad de los botones en este caso:
Saludos.
Citarb1.text = "Texto 1"
b2.text = "Texto 2"
Saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarb1.text = "Texto 1"
b2.text = "Texto 2"
CitarPublic Class Form1
Sub menu()
Dim b1 As New button
Dim b2 As New button
b1.width = 100 : b1.height = 30
b2.width = 100 : b2.height = 30
b1.top = 0 : b2.top = 0
b1.left = 0 : b2.left = b1.width + 10
Me.controls.add(b1)
Me.controls.add(b2)
AddHandler b1.click, AddressOf mensaje
AddHandler b2.click, AddressOf agrega
End Sub
Sub mensaje(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("Este es elmensaje")
End Sub
Sub agrega(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim obj As New Button
obj = CType(sender, Button)
Dim tt As Integer = obj.Top + obj.Height + 10
Dim b1 As New Button
Dim b2 As New Button
b1.Width = 100 : b1.Height = 30
b2.Width = 100 : b2.Height = 30
b1.Top = tt : b2.Top = tt
b1.Left = 0 : b2.Left = b1.Width + 10
Me.Controls.Add(b1)
Me.Controls.Add(b2)
AddHandler b1.Click, AddressOf mensaje
AddHandler b2.Click, AddressOf agrega
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
menu()
End Sub
End Class
Cita de: Scratz en 8 Marzo 2008, 22:34 PM
Gracias. Lo he solucionado declarando la variable como Public en vez de Dim.
Si posteo en el foro de .Net no responde nadie =P (básicamente por que no entra nadie). He posteado aquí por que he imaginado que era una pregunta que valía también para VB6. Yo he programado en los dos y no me parece que cambien tanto.
Citar