Mensajes

   ei gentes, me ha surgido otro problemilla qe tiene qe ver con el codigo anterior.
   aver, yo qiero qe cuando el shape toqe un label cualqiera por la parte de arriba, el interruptor Xarr se encienda, y cuando no lo toqe, se apague. El codigo qe uso, aunqe para esto no me sirve es:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 19
If Shape1.Top <= Label1(i).Top + Label1(i).Height And Label1(i).Top <= Shape1.Top Then
  If Label1(i).Left <= Shape1.Left And Label1(i).Left + Label1(i).Width >= Shape1.Left + Shape1.Width Then
  Xarr = True
  else
  Xarr = False
  End If
End If
Next
End Sub
   Esta vez la ecuación qe uso para qe avise cuando se tocan si qe esta bien (xDD, comprovada). El problema de este código es qe el interruptor solo se enciende cuando coinciden el shape el label de index, llamemoslo x. Como los labels estan esparcidos, no puede coincidir el shape con todos a la vez, por tanto el interruptor esta siempre apagado, nose si me explico. Bueno, aver si alguien me puede ayudar un pokillo con esto, porqe me faltan ideas. 

Lo he vuelto a revisar, tenia un problema en la ecuación, para qe salte el mensaje cuando se toqen, tu codigo ya me funciona, qeda así:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
For i = 0 To 15
If Shape1.Top > Label1(i).Top - Shape1.Height + 1 And Label1(i).Top + Label1(i).Height - 1 > Shape1.Top Then
  If Shape1.Left > Label1(i).Left - Shape1.Width + 1 And Label1(i).Left + Label1(i).Width - 1 > Shape1.Left Then
  MsgBox "OK"
  End If
End If
Next
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Move X - 495 / 2, Y - 495 / 2
End Sub

   Pero vamos, qe yo veo un poco chapuza tener qe ir contando todo el numero de labels hasta llegar al qe se toca cada 10 milesima de segundo (le he cambiado el intervalo de tiempo a 10, porqe sino en la 9 ya no saltaba nunca, y en la 8, solo a veces...
De todas formas tiene qe aver algo mas sencillo para hacerlo, pero de todos modos gracias por las respuestas

mmm.... no, no me sirve, no me da error, pero ignora cuando pasa por encima...
el problema del codigo qe me has dado creo qe es qe el timer es unicamente de una milésima de segundo, y en cada milésima tiene qe comprobar los 10 uno a uno, por tanto aparte de qe senota qe se relentiza un poco, cada vex qe pasa una milésima, i pasa a ser 0 otra vez, por tanto no llega a comprobar las 20.

no se puede poner, por ejemplo label1(0 to 19).top , o algo asi?
tiene qe haber una forma mas facil, sin chapuzas...

   Wenas a todos, vereis, eske estaba haciendo un juegecillo, donde un shape qe se mueve, y al tocar un label, "label1" (hay 20, index del 0 al 19) te salte un msgbox. Esto lo comprueba un timer con un interval de 1, y no me apetece escribir 20 codes iguales. Sin matriz, el code (para 1 label) sería:
Código:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
If Shape1.Top >= Label1.Top And Shape1.Top + Shape1.Height <= Label1.Top + Label1.Height Then
If Shape1.Left >= Label1.Left And Shape1.Left + Shape1.Width <= Label1.Left + Label1.Width Then
  MsgBox "OK"
End If
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Move X - 495 / 2, Y - 495 / 2
End Sub

Pero no tengo mucha idea sobre matrices de controles, y nose qe hay qe poner junto con label1 para qe funcione con todos por igual...
Sabeis como se haría?
Gracias

tengo un cd de windows 2000 y lo he puesto iniciando el xp pero no me aparece nada de nada y el xp inicia normal
como hago para iniciar la consola de reparacion del windows 2000 en el xp ?

Cuando inicias el PC, si pulsas supr. entras en la bios, ahí tienes que modificar la "boot secuence", que predeterminadamente te inicia primero la unidad A y luego la C, y tienes que poner que ponet primero el CD-ROM y luego la C.
Luego le das a F10 y se reinicia el PC, y antes de que cargue el HDD, le das a Enter para entrar en la utilidad de instalación de Windows.

ola me gustaria saber como crear un bat k m indike si hay algun virus en el sistema si es posible,si alguien sabe el codigo?????'' k lo ponga plisss.
gracias.

Aver, lo que quieres hacer se llama ANTIVIRUS, y en el mercado están por unos 40 euros (mejor bajarselos crackados, claro), así que dudo mucho que se pudieran con cuatro líneas de el bloc de notas.
   Lo que puedes hacer es decirle a uno que ya esté instalado que se ejecute.



tambien puede postearlo en:
http://foro.elhacker.net/index.php/topic,74832.0.html

   Hola, no sabía muy bien donde postear esto, y me decidí aquí. Mi pregunta es si alguien sabe de algún programa o alguna forma para crear objetos de los sims (*.iff) desde cero, sin usar objetos ya hechos.

    Gracias

   Y como se pueden borrar valores de una klave del registro?
                       
                          Gracias