|
9211
|
Programación / .NET (C#, VB.NET, ASP) / Re: Leer, Guardar, Cargar .INI
|
en: 26 Mayo 2013, 19:39 pm
|
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.
|
|
|
9214
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema con un WebBrowser (II) Ahora arrastrable
|
en: 26 Mayo 2013, 19:20 pm
|
@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í: 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
|
|
|
9215
|
Programación / .NET (C#, VB.NET, ASP) / Re: Leer, Guardar, Cargar .INI
|
en: 26 Mayo 2013, 19:04 pm
|
Dim INI_File As String = ".\Test.ini"
Guardar: Edito: Mejorado ' 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: ' 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
|
|
|
9216
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema con un WebBrowser (II) Ahora arrastrable
|
en: 26 Mayo 2013, 18:58 pm
|
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.
|
|
|
9219
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema con un WebBrowser (II) Ahora arrastrable
|
en: 26 Mayo 2013, 18:29 pm
|
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. 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
|
|
|
9220
|
Programación / .NET (C#, VB.NET, ASP) / Re: [Duda] Imagen en el Form
|
en: 26 Mayo 2013, 18:02 pm
|
@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: #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
|
|
|
|
|
|
|