Mensajes

[EsNumerico]

oscarj24, Date una vuelta y vuelves ._.

http://es.wikipedia.org/wiki/Expresi%C3%B3n_regular.

Si se te hace muy dificil entonces:

Código (C#) [Seleccionar] Expandir


            string Comprobar = "Hola";
            long Dft = 0;

            bool EsNumerico = long.TryParse(Comprobar, out Dft);

            MessageBox.Show(Convert.ToString(EsNumerico));

Donde EsNumerico es True si es numero y False si no es.

Si colocas FormBorderStyle en None, tambien trendrás que hacer botones de max, min, y restore de la ventana además deberas crear un sistema para poder moverla, No es tan dificil.

Primero debes de descargar el WinID para saber si el TextBox es Child o Parent y saber cual es su Class y el Class de su Parent si es Child, esto para así saber si debes usar FindWindow o FindWindowEx. Una vez obtenido el Handle el codigo anterior es más facil de usar en Vb.Net:

Código (vb.net) [Seleccionar] Expandir

    Public Const _
    WM_KEYDOWN As Integer = &H100, _
    WM_KEYUP As Integer = &H101, _
    WM_CHAR As Integer = &H102

    Public Sub SendString(ByVal mHandle As IntPtr, ByVal s As String)

        For Each c As String In s
            SendKey(mHandle, System.Text.Encoding.Default.GetBytes(c).First)
            Threading.Thread.Sleep(10)
        Next

    End Sub

    Public Sub SendKey(ByVal mHandle As IntPtr, ByVal key As Keys)
        SendMessage(mHandle, WM_KEYDOWN, key, IntPtr.Zero)
        SendMessage(mHandle, WM_CHAR, key, IntPtr.Zero)
        SendMessage(mHandle, WM_KEYUP, key, IntPtr.Zero)
    End Sub

Y prueba el codigo así:

Debes importar SendMessage, FindWindow y FindWindowEx ( las consigues en pinvoke.net )

Abre un Bloc de Notas y dejalo vacio, en tu Sub Load agrega lo siguiente:

Código (vb.net) [Seleccionar] Expandir

        Dim Notepad As IntPtr = FindWindowEx(FindWindow("Notepad", Nothing), 0, "Edit", Nothing)

        SendString(Notepad, "Enviando String con SendMessage")

Funciona perfecto ^^

[SendMessage]

El API SendMessage tambien sirve para enviar teclas pero a un handle determinado...

Mira este ejemplo en C#

Código (c#) [Seleccionar] Expandir


        [DllImport("user32.dll")]
        public static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);

            public const int WM_KEYDOWN = 0x0100;
            public const int WM_KEYUP = 0x0101;
            public const int WM_CHAR = 0x0102;

        public static void SendString(IntPtr mHandle, string s)
        {
            foreach (var c in s)
                SendKey(mHandle, Convert.ToInt32(c));
            Thread.Sleep(10);
        }

        public static void SendKey(IntPtr mHandle, Int32 key)
        {
            SendMessage(mHandle, WM_KEYDOWN, (int)key, 0);
            SendMessage(mHandle, WM_CHAR, (int)key, 0);
            SendMessage(mHandle, WM_KEYUP, (int)key, 0);
        }

Me referia a esto:


Pero ya le atine a la formula...

Código (vbnet) [Seleccionar] Expandir

Me.Height - 40 - Control.Height + 1

Ese es el valor de Y cuando el control llega al final de la parte inferior del form. Creo que no me explique muy bien al principio. De todas formas gracias.

Como puedo calcular la posicion en Y cuando un control toca el final del from. Me tiene ahorcado.

Gracias.

Realmente bueno el tutorial, aunque hay formas de evitar los debugger en Vb nunca está demás saber como debuggear un ejecutable este tipo.

Bueno estoy haciendo un juego de ajedrez para practicar IA eso va muy bien pero quise hacer efecto de movimiento con un Timer que tambien resulto bueno pero al PictureBox al moverlo por encima de otro control se le ve el fondo y quiero que no se vea, habra alguna forma de que el fondo quede transparente y que solo se vea la imagen cargada en .Image?
La propiedad BackColor ya es Transparent.

Una imagen habla más que 10.000 palabras mias xD



Uso circulos rojos, en vez de piezas mientras calculo los movimientos.

Gracias.

Edite un poco la clase del guille y adapte algunas cosas y funciono perfecto! Gracias.

Lo quiero hacer en el Load de mi Form de inicio.