juego
Publicado por FRANCISCO (162 intervenciones) el 28/08/2009 18:40:02
estoy intentando hacer un juego en net ya que me he cambiado desde visual basic 6
para experimentar y ir adaptandome a los cambios
inicio el programa y cargo 4 botones ya que no se cargar rectangleshape hasta ahi todo bien
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bloques As Integer
For bloques = 0 To 3
bloque = New Button
Me.Controls.Add(bloque)
bloque.Name = ("bloque" & bloques)
bloque.TabStop = False
bloque.Left = bloques * 70
TextBox1.Text = TextBox1.Text & bloque.Name & vbCrLf
bloque.BackColor = Color.Yellow
OvalShape1.FillColor = Color.Red
AddHandler bloque.Click, AddressOf BUTTON_CHANGED
Next
baja = True
izquierda = False
End Sub
'aqui le doy al boton y me responde correcyamente diciendome el nobre del boton
Private Sub BUTTON_CHANGED(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label1.Text = CType(sender, Button).Name
End Sub
EN EL TIMER TENGO LA PELOTA QUE SUBE ,BAJA ,VA A LA IZQUIERDA ,DERECHA
PERO AL PONERLE ESTA INSTRUCCION ME DA ERROR
QUIERO QUE CUANDO OVALSHAPE.TOP QUE ES LA BOLA SEA IGUAL BUTTON.TOP ME
RECONOZCA EL BOTON QUE ES Y CAMBIE VISIBLE=FALSE PERO ME DA ERROR COMO LO HAGO
' ESTA INSTRUCCION VA DENTRO DE UN TIMER
'If OvalShape1.Top < (sender,Button).Top Then
OVALSHAPE.VISIBLE=FALSE
'End If
TENGO QUE PONER UNA FUNCION COMO
para experimentar y ir adaptandome a los cambios
inicio el programa y cargo 4 botones ya que no se cargar rectangleshape hasta ahi todo bien
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bloques As Integer
For bloques = 0 To 3
bloque = New Button
Me.Controls.Add(bloque)
bloque.Name = ("bloque" & bloques)
bloque.TabStop = False
bloque.Left = bloques * 70
TextBox1.Text = TextBox1.Text & bloque.Name & vbCrLf
bloque.BackColor = Color.Yellow
OvalShape1.FillColor = Color.Red
AddHandler bloque.Click, AddressOf BUTTON_CHANGED
Next
baja = True
izquierda = False
End Sub
'aqui le doy al boton y me responde correcyamente diciendome el nobre del boton
Private Sub BUTTON_CHANGED(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label1.Text = CType(sender, Button).Name
End Sub
EN EL TIMER TENGO LA PELOTA QUE SUBE ,BAJA ,VA A LA IZQUIERDA ,DERECHA
PERO AL PONERLE ESTA INSTRUCCION ME DA ERROR
QUIERO QUE CUANDO OVALSHAPE.TOP QUE ES LA BOLA SEA IGUAL BUTTON.TOP ME
RECONOZCA EL BOTON QUE ES Y CAMBIE VISIBLE=FALSE PERO ME DA ERROR COMO LO HAGO
' ESTA INSTRUCCION VA DENTRO DE UN TIMER
'If OvalShape1.Top < (sender,Button).Top Then
OVALSHAPE.VISIBLE=FALSE
'End If
TENGO QUE PONER UNA FUNCION COMO
Valora esta pregunta


0