Traducir de C# a VB

[moNTeZIon]

Buenas.
Necesito saber qué hace este código, y cómo traducirlo a VB.
Por favor, no recomendar páginas de traducción de código si no se ha comprobado antes que funcione. Sirven para algunas cosas, pero no para todo.
Este es el código:

Código c#:

private void OnGotFocus(object sender, EventArgs e)
{
 
            TextBox textbox = (TextBox)sender;
 
            EventHandler DoSelectAllOnEnter=null;
            DoSelectAllOnEnter = (EventHandler)delegate(object obj, EventArgs args) {
                textbox.SelectAll();
                textbox.Click -= DoSelectAllOnEnter;
            };
            textbox.Click += DoSelectAllOnEnter;
}
 

Gracias por vuestra ayuda.
Un saludo.

[Peterpay]

bueno un delegate inline se puede cambiar usando AddHandler y definiendo tu delegado por separado pero dependiendo la version de .net que estes usando podria recomendar mas cosas.

[Peterpay]

algo como

AddHandler Objeto.Evento, Function(src, args) Objeto.Propiedad = "Valor" o
AddHandler Objeto.Evento, Function(src, args) Objeto.Metodo()

[moNTeZIon]

Hola Peter!
Gracias por venir al rescate!
Lo he intentado y me ha salido algo así:

Código vb:

Public Shared Sub NumTextBox_Focus(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim miTextBox As TextBox = CType(sender, TextBox)
        AddHandler miTextBox.GotFocus, AddressOf NumTextBox_SeleccionarTodo
    End Sub
 
    Private Sub NumTextBox_SeleccionarTodo(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim miTextBox As TextBox = CType(sender, TextBox)
        miTextBox.SelectAll()
        RemoveHandler miTextBox.GotFocus, AddressOf NumTextBox_SeleccionarTodo
    End Sub
 

Creo que más o menos funciona.
Pero tengo algunas dudas.
Este código, en teoría, sirve para que funcione el evento GotFocus de un TextBox. En principio, si asignas un manejador del TextBox para capturar el evento GotFocus, y en ese manejador haces un TextBox.SelectAll() , parecde ser que no funciona, por algún tema de eventos que se producen luego que anulan el proceso.. No se bien bien.
Y encontré alguien que propone esta forma para que si funcione.
Pero yo veo que solo funciona cuando se hace Click sobre el TextBox.
Y pienso que hay otras formas de que el Foco le llegue al TextBox, a parte de haciendo click sobre él. Por ejemplo, haciendo TABs hasta llegas a ese control. Pues bien, en este caso, no hace el SelectAll().
Vaya lío mental. Cual es la forma correcta de capturar que el control tiene el foco, y en ese caso, hacer un SelectAll()???
Gracias!

[Dradi7]

pero si antes pones

esto
miTextBox.focus()
y luego
miTextBox.SelectAll()

[moNTeZIon]

Hola Dradi7.
Gracias por tu interés. No se si entiendo lo que me quieres decir...
Simplemente que justo antes del SelectAll(), haga un Focus() ? Eso no vuelve a disparar el mismo evento otra vez?
Gracias!

[Dradi7]

intenta con esto

Código vb.net:

dim V as byte = 1
 
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
 
If V = 1 Then
 
V = 0
 
TextBox1.SelectAll()
 
End If
 
End Sub
 
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
 
TextBox1.SelectAll()
 
V = 0
 
End Sub
 
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
 
V = 1
 
End Sub
 
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.gotfocus
 
TextBox1.SelectAll()
 
End Sub
 

[dwaks]

porque pasarlo a VB si C# es tan claro y fácil de leer. (sorry solo escribi mi pensamiento)

[boluart]

Iniciado por dwaks

porque pasarlo a VB si C# es tan claro y fácil de leer. (sorry solo escribi mi pensamiento)

Quizas sea porque encontro esas lineas de codigo en algun sitio y quiere agregarlo a su proyecto que esta en vb.net

[Peterpay]

pero si encuentras codigo neutral q solo recibe objetos pues compilarlo con tu codigo en c# sin problemas esa es la virtud de .net , si es vb.net o es c# o c++ si corre sobre .net reusarlo sin reescribirlo es posible.

[moNTeZIon]

dwaks! Por el motivo más obvio, como comenta boluart.
A parte, no quiero sólo reutilizarlo, si no entenderlo, saberlo hacer yo, y por último hacerle mis retoques para que funcione como yo deseo realmente.
Así que me toca entenderlo y traducirlo a lo que yo si domino (VB)
Ahora también escribo mis pensamientos... Si C# es fácil de leer, VB es un cuento de niños, no?
Personalmente (si, debo ser raro) veo más "legible" VB.NET que C#.
Por cierto Peter! Qué tal con el foco que se quedaba en los decimales, conseguiste averiguar algo?
Un saludo!

[Peterpay]

cambie bastantes cosas para poder mantener la misma funcionalidad y el selectall de los eventos de foco, en cuanto pueda te lo envio al mail.

[GeoAvila]

acá un sitio para traducir de un lenguaje a otro

http://www.developerfusion.com/tools.../vb-to-csharp/

nos vemos.