Mensajes

hola Hendrix.  mira , no entendi mucho tu explicacion. me lo podrias explicar un poco mojor

saludos

hola gente toy haciendo el juego de los ladrillos pero me trave en una parte , que es en la que tengo que hacer que la bola rebote en la plataforma , hice que rebote en las paredes pero o se como hacer que rebote en la plataforma , la pataforma se mueve.

bola se llama = bola
el cuadrado , bue paredes = shape1
plataforma = linea
timer= timer 1
---------------------------------------

Código [Seleccionar] Expandir

    Dim xx As Integer
    Dim yy As Integer
    Dim x As Integer
    Dim y As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 97 And linea.Left > 240 Then
linea.Left = linea.Left - 300
End If
If KeyAscii = 100 And linea.Left < 9840 Then
linea.Left = linea.Left + 300
End If
If KeyAscii = 119 And linea.Top > 4560 Then
linea.Top = linea.Top - 300
End If
If keyaascii = 115 And linea.Top < 4620 Then
linea.Top = linea.Top + 300
End If
End Sub

Private Sub Form_Load()
    xx = 50
    yy = 35
   
End Sub

Private Sub KBRD_Timer()

End Sub

Private Sub Timer1_Timer()
    Dim i#
    For i = 0 To bola.Count - 1
        bola(i).Left = bola(i).Left + xx
        bola(i).Top = bola(i).Top + yy
    Next
    For i = 0 To bola.Count - 1
        If bola(i).Left < Shape1.Left Or bola(i).Left + bola(i).Width > Shape1.Left + Shape1.Width Then
            xx = -xx
        End If
    Next
    For i = 0 To bola.Count - 1
        If bola(i).Top < Shape1.Top Or bola(i).Top + bola(i).Height > Shape1.Top + Shape1.Height Then
            yy = -yy
        End If
    Next
   
End Sub



imagen :

hola , to haciendo un ping pong y no se como hacer para que la pelota rebote en la paleta y cuando cambnie la lapeta de pocision siga rebotando


saludos

pero ahi me estas poninedo que me muestre las posiciones de un mouse , y yo quiero otra cosa
saludos

hola gente , como ago para move run onjeto alrededor de un form , es decir tengo un timer y label . yo quiero que el label se mueva  por todo el form en random y que choque en los vordes , es decir que  no pase tal cordenadas

hola gente estoy haciendo un juego en vb y le quiero agregar musica alguien save com ohacerlo ?

saludos y gracias

y para que un label siga las pociciones de mouse es decir que lo siga al mouse , y que al mover la ruedita del mouse se nueva el fondo del form

hola gente como hago para que un label siga las posiciones de lmouse en vb6 , es asi?

Código [Seleccionar] Expandir

mosemove x, y

o asi?

Código [Seleccionar] Expandir

move x, y

porque cuando poingo el primer codigo me tira error y cuando pongo el segundo sooo se muve y se dirije a la esquina del form y no se mueve mas como si ese fuera el piunto x, y

y para poner un fondo en un form pero que es fondo se mueca al mover las ruedita del mouse??


alguien sabe ?

saludos y gracias

si me ayudo , gracias .

otra pegunta , para poner un fonde en un form y que ese fondo se mueva ? y para hacer que una imagen no se pase de donde termina el form , es decir el form termina en la posicion (x;y)  y que la imagen no se pase de (x;y)


saludos y gracias por responder

tengo un amigo que en las vacaciones solo en un mes se hizo un juego programado en vb  , que era muy pareceido al AGE OF EMPIRE , los graficos los hizo en rhino y todo lo demas en vb6 y ta muy bueno pero no me quiere dar el codigo de fuente