Mensajes

¿Cuál es la finalidad del articulo?, decir que facebook sacará algo nuevo o que YO pienso que el botón like esta pasado de moda y se necesita renovar, esto ultimo me suena como una idea empírica sobre el tema y simplemente es el pensamiento de alguien, y sinceramente no podemos predecir lo que facebook pueda hacer con cada cambio que esta haciendo últimamente. A mi en lo personal me gusta el botón "Me gusta" para casi cualquier publicación, si no va de acuerdo a la publicación simplemente comento ya que para eso esta la opción comentar 

Gracias seba, y Tenient.. el mensaje "OK!" saldra SOLAMENTE si el la condicion es verdadera, y como dices es falsa entonces obvio que no entra, lo que estamos diciendo es que sea True o False la condicion, pasara uno por uno, en este caso tiene que mirar todos obligado por el xor que pusiste pero deciamos en caso como if true or true or true or true or true or true or true..., con el primero ya da True la condicion y no necesitaria comprobar todos los otros, pero si lo hace, pero en .net como dice seba existe el OrElse que no va a verificar el resto de las condiciones ya que no cambiaran el resultado.

Exactamente... solo con los OR pasa, y no con todas las condiciones o que sea algo común del VB, salu2 

Solo por registarte en adsense? 

Tienes que sacar las medidas de la resolución del monitor y en base a ellas acomodar tus controles, solo es proporción  

Me imagino que ha de comprobar las demas condiciones por si hay otro operador logico que pueda comprobar, como un XOR, ejemplo:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Function OrTest(ByVal bReturn As Boolean) As Boolean
   '// Imprimo un texto para saber que he pasado por la función.
   Debug.Print Time$, "Función con el argumento " & bReturn & " llamada."
   OrTest = bReturn
End Function

Private Sub Form_Load()

   '// Aquí lo logico sería comprobar las dos ya que
   '// si la primera no es true, lo puede ser la segunda.
   If OrTest(False) Or OrTest(False) Then
       '// Nothing
   End If

   Debug.Print String$(75, "=")

   If OrTest(True) Or OrTest(False) Xor OrTest(True) Then
       Debug.Print "OK!"
       '// Nothing
   End If
End Sub

Como dicen ustedes con la primera comparación tendria que salirse e imprimir "OK!", pero como el XOR da false no lo imprime, salu2 !

no, me refiero a algo como que busques en google o bing

Me cague de risa con tu respuesta 

@egeres
http://tinyurl.com/3s6nwtu

[GetCursorPos()]

* GetCursorPos() deberia llamarse solo si se requiere...
* las variables con prefijo InitialX... imagina que meto -888...
* P = (DY / DX)  sustituye / por \ y quita la funcion Round()... y asi declara a P como long...

1.- Lo pensé pero por que no es un codigo que se necesite eficiencia en rapidez lo deje asi 
2.- No tira error si meten numeros negativos, y si hago la comparación de que es un numero negativo tendria que compara si X o Y esta en el rango de las medidas del monitor por si estas son menores
3.- Al usar \ con la variable long se redondea antes de hacer la multiplicación de la proporcion y esto hace que se coma unos decimales y pierda el rumbo de donde deberia ir

Gracias por los datos, salu2 !

en la funcion pide los datos en una pointapi
me parece que seria mas comodo

Ok, gracias por el punto.


Salu2! 

Bueno... estaba un poco aburrido y decidi crear esta funcion para mover el puntero arrastrandolo de una coordenada a otra, el uso... ps ustedes se lo dan 

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function MoveMouse(ByVal FinalX As Long, ByVal FinalY As Long, _
Optional ByVal InitialX As Long = -1, Optional ByVal InitialY As Long = -1, Optional ByVal TimeToWait As Long = 5) As Boolean
On Error GoTo err

Dim PosActual           As POINTAPI
Dim I                   As Long
Dim DX                  As Long
Dim DY                  As Long
Dim P                   As Double
Dim StepVal             As Integer

            GetCursorPos PosActual

            If InitialX = -1 Then InitialX = PosActual.X
            If InitialY = -1 Then InitialY = PosActual.Y
           
            DX = (FinalX - InitialX)
            DY = (FinalY - InitialY)
           
            P = (DY / DX)

            If (DX < 0) Then StepVal = -1 Else StepVal = 1
           
            For I = 1 To DX Step StepVal
                SetCursorPos InitialX + I, InitialY + Round((I * P))
                Sleep TimeToWait
            Next

            MoveMouse = True
Exit Function
err:
End Function

Ejemplo de uso:

Código (vb) [Seleccionar] Expandir

MoveMouse Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, 0, 0



Salu2!!

votaciones... simples clickeadores de paginas warras