Mensajes

aunque en uno no muy lejano el VB.NET estara obsoleto y abran mejores programas 

No lo creo, VB lleva décadas evolucionando, quizás dentro de 10 años hagan un nuevo lenguaje basado en vbnet, pero solo cambiarán unas cuantas cosas pudiéndose traducir fácilmente los códigos, a menos que el Framework ya no existiese en ese futuro, entonces el nuevo lenguaje se basaría en otros métodos y todo sería absolútamente diferente xD.

Yo diría que la evolución de VB no va a morir hasta que Microsoft deje de existir.

Saludos.

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

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

[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!

@Seazoux
Dale a "copy exception to clipboard", y así lees la versión extendida, y ves lo que ocurre.

De todas formas quizás los tiros puedan ir por aquí:

Código (vbnet) [Seleccionar] Expandir

AddHandler document.Body.KeyPress, New HtmlElementEventHandler(AddressOf WebBrowser1_KeyPress)

Private Sub WebBrowser1_KeyPress(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
    If e.KeyPressedCode = Keys.A Then
        MsgBox("Tecla "A" pulsada")
    End If
End Sub

No he conseguido que funcione con las teclas "F", imagino que poque son especiales del control y... bueno, no sé como se hará la verdad.

Saludos

Código (vbnet) [Seleccionar] Expandir

Dim INI_File As String = ".\Test.ini"

Guardar:
Edito: Mejorado

Código (vbnet) [Seleccionar] Expandir

   ' Save INI Settings
   Private Sub Save_INI_Settings()

       Dim Current_Settings As String = _
           "File=" & TextBox_File.Text & Environment.NewLine & _
           "SaveFile=" & CheckBox_SaveFile.Checked

       My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)

   End Sub

Cargar:

Código (vbnet) [Seleccionar] Expandir

    ' By Elektro H@cker

   ' Load INI Settings
   Private Sub Load_INI_Settings()

       Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
       Dim Line As String = String.Empty
       Dim Delimiter As String = "="
       Dim ValueName As String = String.Empty
       Dim Value As Object

       ' Example content of Test.ini:
       '
       ' File=C:\File.txt
       ' SaveFile=True

       Do Until xRead.EndOfStream

           Line = xRead.ReadLine().ToLower
           ValueName = Line.Split(Delimiter).First
           Value = Line.Split(Delimiter).Last

           If ValueName = "File".ToLower Then TextBox_File.Text = Value
           If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value

           Application.DoEvents()

       Loop

       xRead.Close() : xRead.Dispose()

   End Sub

[ByVal sender As Object, ByVal e As HtmlElementEventArgs]

Y como hago que las firmas coincidan? xD

Que son las firmas?

Lo del puntero seguro, el delegado, no me ha quedado muy claro...
Esto es mas difícil que vete tu a saber que cosa... xD

Aunque no manejo mucho sobre delegados, si no recuerdo mal cuando sucede un evento se crea un delegado oculto automáticamente, y puedes acceder a el con un nombre especial dentro del sub, que no recuerdo como era el nombre.

Lo de "las firmas" se refiere al contenido que he marcado en rojo:

   Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)

  End Sub

...si tu cambias HtmlElementEventArgs por MouseEventArgs, no es compatible la firma, el evento no existe.

Perdona si te ha sentado un poco mal, pero me ha molestado bastante porque solo con leer ya se sabe lo que pasa, no hay que ser un experto en el tema, y yo no lo soy.

Saludos.

Pero ayúdame con mi topic no? xDDD

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

ya te he contestado,
saludos.

[Lee los eventos disponibles del webbrowser]

Me gustaría citarte algo que te dije, pero para lo que me va a servir...

Lee los eventos disponibles del webbrowser, ¿Ves alguno que se llame MouseMove, MouseDown, o MouseUp?, No Seazoux, no todos los controles tienen los mismos eventos.

Es más, con haber invertido 10 segundos para leer el mensaje de la excepción, habrías leido lo mismo que te acabo de explicar.

Código (vbnet) [Seleccionar] Expandir

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("http://google.com")
   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)
   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

@Seazoux
MyBase = Me (más o menos)

http://msdn.microsoft.com/en-us/library/20fy88e0%28v=vs.80%29.aspx




@SyntaxError404

No está muy perfeccionado el código, ¿Que pasa si mantienes pulsado botón central o botón derecho sobre el form?, no creo que quieras moverlo con esos botones.

Además imagino que tendrás controles en el form, y también querrás mover el Form al mantener presionado click izquierdo sobre un picturebox, aquí tienes mi versión:

Código (vbnet) [Seleccionar] Expandir

#Region " Move Form "

   ' [ Move Form ]
   '
   ' // By Elektro H@cker

   Public MoveForm As Boolean
   Public MoveForm_Mouse_Position As Point

   Public Sub MoveForm_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
       MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)

       If e.Button = MouseButtons.Left Then MoveForm = True : MoveForm_Mouse_Position = e.Location
   End Sub

   Public Sub MoveForm_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
       MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)

       If MoveForm Then Me.Location = Me.Location + e.Location - MoveForm_Mouse_Position
   End Sub

   Public Sub MoveForm_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
       MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)

       If e.Button = MouseButtons.Left Then MoveForm = False
   End Sub

#End Region

PD: ¿Y si te miras mi librería de snippets? hay códigos para todo lo que has necesitado hasta ahora: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html