Mensajes

Esto servirá?

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=4518&lngWId=10

Ponemos links de lo que encontremos? 

@seazoux
¿Con que tipo de imágen estás testeando?

Los efectos fadein/fadeout no funcionan con imágenes ICO/PNG, lo explico más arriba.

Con el resto de imágenes funciona perfecto.

¿Que problema tienes?, detalles, jeje

EDITO: La app es coomandline, la tienes en la carpeta "debug" o "release"

un saludo

Sobre tu EDITO, ya lo se... La tengo separada...

A ver que debería pasar? La imagen se transforma automaticamente y ya no se ve así desde VB? O que el Splat te crea un Splash? xD

[HtmlElementEventHandler]

Cuando copio el error solo me sale Copy, y no me sale lo que tu dices... e.e

No se a lo mejor esta en otro lado...





Yo me he perdido, que puedo hacer al respecto, sobre el código...

Nuevo código más simplón:

Código (vbnet) [Seleccionar] Expandir

    <System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="ReleaseCapture")> _
    Private Shared Sub ReleaseCapture()
    End Sub

    <System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="SendMessage")> _
    Private Shared Sub SendMessage( _
            ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, _
            ByVal wParam As Integer, ByVal lParam As Integer _
            )
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim document As HtmlDocument = WebBrowser1.Document
        AddHandler document.Body.MouseDown, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseDown)
        AddHandler document.Body.MouseUp, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseUp)
        AddHandler document.Body.MouseMove, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseMove)
    End Sub

    Private Sub moverForm()
        ReleaseCapture()
        SendMessage(Me.Handle, WM_SYSCOMMAND, MOUSE_MOVE, 0)
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
                Handles MyBase.MouseMove, WebBrowser1.MouseMove
        If e.Button = MouseButtons.Left Then
            moverForm()
        End If
    End Sub

Como siempre HtmlElementEventHandler y MouseEventArgs con conflictos... XD

tropezones

Nescafé

La imágen no cambia, pero fíjate en los efectos de entrada y salida (fadein/fadeout)

Pruébalo y ves cambiándole los parámetros para ver lo que te digo.

saludos

Espera, un sec.... A mi la imagen me sigue siendo igual, he ejecutado todo, que se supone que debería pasar?

Si lo ejecuto desde la aplicación esa que me has pasado no se ve nada de eso...

Ahora si lo vuelvo a ejecutar desde .NET no me va

No jodas, que tengo que ejecutar mi app desde ahí?

Estoy ciego, o no noto cambios en la imagen de Street Fighter...  



Espera, un sec.... A mi la imagen me sigue siendo igual, he ejecutado todo, que se supone que debería pasar?

[SyntaxError404]

Como ha dicho SyntaxError404, es que si estas dudas se resuelven por privado a una sola persona entonces las soluciones no le sirven a nadie más.

Un saludo!

Claro, es por eso que cuando pido soporte por MP no me lo dan XD
Ya lo entiendo... xD (hombre, lo suponía)

Pero Elektro mola, porque el te ayuda desde MP y no te obliga a que lo postee, no como otros (Dryv) 

[SU p**a MADRE]

Es que casi todos tus problemas se basan en que no lees nada, nisiquiera los mensajes de error.

ya te he contestado,
saludos.

A ver, soy así, me da mucho palo leer, y si leo, luego me cuesta entenderlo, y tengo que leer como 100 veces la misma cosa para enterarme.

Claro que los hay... solo minimiza la ventana del visual y pon la imagen proyecto en el escritorio y mira  

SU p**a MADRE, es verdad! xDDDDDDD
Pero que cojones XDXDXD

LOL, vaya programa te estás montando... xD

Anda que no tienes suerte Snytax, Elektro haciéndote el code... xD
Que recuerdos...!

No me ha molestado, es más tu llevas razón... Soy fallos muy tontos los míos (bueno, en realidad, yo no me doy cuenta de que está mal, por que soy primerizo bablablablalblalbla), además de siempre como tu sabes, me ha gustado el código ya hecho...  



Tengo que empollar mucho xD

Mirad lo que he hecho:

Código (vbnet) [Seleccionar] Expandir

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim document As HtmlDocument = WebBrowser1.Document
       AddHandler document.Body.MouseDown, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseDown)
       AddHandler document.Body.MouseUp, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseUp)
       AddHandler document.Body.MouseMove, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseMove)
   End Sub

   Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
       If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Left Then
           MsgBox("Botón izquiero presionado")
       End If
   End Sub

   Private Sub WebBrowser1_MouseUp(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
       If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Right Then
           MsgBox("Botón izquiero presionado")
       End If
   End Sub

   Private Sub WebBrowser1_MouseMove(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
       If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Middle Then
           MsgBox("Botón izquiero presionado")
       End If
   End Sub

No me sale ningún error hasta que pulso F5, y volvemos a lo mismo de antes.

http://i.imgur.com/d0kYE1V.png



LELELELELELELELEL!

He quitado este código, y ya si va...

Código (vbnet) [Seleccionar] Expandir

   Private Sub WebBrowser1_MouseDown( _
       ByVal sender As Object, _
       ByVal e As System.Windows.Forms.MouseEventArgs) _
           Handles WebBrowser1.MouseDown

       Me.Cursor = Cursors.Hand
       Mover = True
       ' guarda rl el x e y donde se hizo clic
       p_Mouse.X = e.X
       p_Mouse.Y = e.Y
   End Sub

   Private Sub WebBrowser1_MouseMove( _
       ByVal sender As Object, _
       ByVal e As System.Windows.Forms.MouseEventArgs) _
       Handles WebBrowser1.MouseMove

       If Mover Then
           ' referencia al control
           Dim unControl As Control = CType(sender, Control)

           ' cambiar las coordenadas
           Dim p1 As Point = unControl.PointToScreen(e.Location)

           Dim p2 As Point = unControl.Parent.PointToClient(p1)

           ' asignar el left y el top - laposición del mouse donde se hizo clic
           unControl.Left = p2.X - p_Mouse.X
           unControl.Top = p2.Y - p_Mouse.Y

       End If

   End Sub

   Private Sub WebBrowser1_MouseUp( _
       ByVal sender As Object, _
       ByVal e As System.Windows.Forms.MouseEventArgs) Handles WebBrowser1.MouseUp
       ' cambiar el  cursors
       Me.Cursor = Cursors.Default
       ' flag para mover el control
       Mover = False
   End Sub

Y si me salta en MouseMove, es porque algo hice mal...

Voy a ver...



Estoy editando, con multiples comandos sacados de "por ahí"

Código (vbnet) [Seleccionar] Expandir

    Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.MouseButtonsPressed = MouseButtons.Left Then MoveForm = True : MoveForm_Mouse_Position = e.Location
    End Sub

    Private Sub WebBrowser1_MouseUp(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If MoveForm Then Me.Location = Me.Location + e.Location - MoveForm_Mouse_Position
    End Sub

    Private Sub WebBrowser1_MouseMove(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.Button = MouseButtons.Left Then MoveForm = False
    End Sub

Pero tengo varios errores:

Error   2   'Location' is not a member of 'System.Windows.Forms.HtmlElementEventArgs'.   C:\Users\Alvaro\Documents\IkillLauncher\IkillLauncher\frmMain.vb   40   103   IkillLauncher

Error   4   'Button' is not a member of 'System.Windows.Forms.HtmlElementEventArgs'.   C:\Users\Alvaro\Documents\IkillLauncher\IkillLauncher\frmMain.vb   48   12   IkillLauncher

Si entiendo lo que pone, pero no se como solucionarlo

Segun tu, el EventArgs no es compatible con el Snippet que tu me distes y a su vez e.* no es compatible con HtmlElementEventArgs, que hago?