Mensajes

Los mensajes se ven asi?



Si es asi, solo tienes que sacar la entrada del inicio (fijate en opciones ) y con eso no te espia, solo te manda mensajes

Aunque tambien te diria que actives el firewall de windows, y que pongas un antivirus

[NO JUEGUEN CON SetWindowLong ni SetClassLong]

Buenas!

Y si, resulta que ese lunes del que me quede sin Internet, no solo hice el ucProgressbar, sino que hice otros, pero este.. fue algo especial... se veía como si estuviese en windows 3.1 (si si, el viejisimo, con letras de consola), y espiando (Microsoft Spy++) el que hay en las propiedades de conexión de cualquier placa de red, ponía los mismísimos estilos y nada...  Después de un tiempo pensé en "atarlo con alambres" xD, y le puse la fuente que tiene el formulario y listo! Se veía como un control común y corriente. Pero esto trae un pequeño bug cuando esta en el ID, los labels y otros controles toman una fuente rara (a veces solo Negrita) pero el bug no aparece cuando esta compilado. Trate de agregarle la propiedad fuente, pero... en lugar de afectar al control en si, afectaba a todo el formulario jaja. Por si alguien quiere revisarlo, deje el código de la propiedad Font en el control.

No hay mucho que decir de este control, es para no tener que validar las IP a mano, con posibilidad de poner rangos. Devuelve y pones la ip como un string (ej "127.0.0.1"), en el ejemplo en el textbox "Poner IP" pones una ip y sale, si pones algo invalido no la pone



NO JUEGUEN CON SetWindowLong ni SetClassLong
Si, tuve la desgracia de que buscando que se vea como un control con estilos XP, empeze a usar esas apis y PUM, se tildan la pc en cuanto ejecuta esas lineas "probando cosas", lo peor, es que despues de un tilde, el archivo mismo del control quedo dañado, y lo tuve que reescribir completamente  



Bueno, despues de mi consejito, aca el link de descarga y un screenshot como siempre



Sin mas, Saludos!!!!

novalida, Eso depende del entorno de la conexion que uses. Yo siempre trabajo en entorno desconectado (no enlazo controles, sino que hago una clase que haga las llamadas, la propiedad Text no invoca al evento Change, por lo que no se entra en un ciclo infinito)

De todas formas no es que sea algo "uuuyyy que feo", creeme, hay cosas peores

BlackZeroX, no entendi tu punto   

novalida, el itemdata es un espacio extra (como una variable mas), pongas lo que le pongas, no afecta en nada en absoluto al ComboBox.

Ya sabes que los indices empiezan de 0, lo que puedes hacer es que el item que quieres seleccionar, le restes uno. ej

Código (vb) [Seleccionar] Expandir

ComboBox1.ListIndex = Abs(Val(Text1.Text)) - 1

No te preocupes del -1, en caso de que el text este vacio (o no tenga numeros) el resultado es -1, lo que significa que ningun item se seleccionara (estara vacio, bueno, eso depende del estilo del combo)

Si quieres seleccionar enero poniendo 1, seleccionara el 0. Esto funciona a menos que el combobox este ordenado y el orden afecte el orden de los indices. Para estos casos no queda otra que hace ComboBox1.Text = "Enero" y que windows se encarge de buscarlo

novalida, el ItemData es un espacio extra en el que puedes meter algun dato. no es el index necesariamente

Creo recordar en el metodo Add tienes para poner un index especifico, lo tendrias que hacer asi

Código (vb) [Seleccionar] Expandir

With oComboBox
        Call .AddItem ("Enero", 1)
        Call .AddItem ("Febrero", 2)
        Call .AddItem ("Marzo", 3)
End With

espero que te sirva, si no entiendes me dices, estoy algo apurado y contesto rapido

El de la hormiga esta buenisimo jajaja. Le sigue el primero, conectar otra cosa que no sea del mismo aparato

Haber.... expliquemos.... para obtener un valor, te pase la siguiente funcion en un link

Código (vb) [Seleccionar] Expandir


Public Function IsAutoRun() As Boolean

   Dim Path          As String
   Dim Handle        As Long
   Dim Data          As String
   Dim cch           As Long

   Path = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34)

   RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle
   RegQueryValueExNULL Handle, App.Title, 0&, 0&, 0&, cch

   If cch > 0 Then
       Data = String(cch - 1, 0)
       RegQueryValueExString Handle, App.Title, 0&, 0&, Data, cch
       IsAutoRun = Path = Data
   End If

   RegCloseKey Handle

End Function


Vamos por partes (dijo jack el destripador)

Se declaran e inicalizan las variables

Código (vb) [Seleccionar] Expandir

RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle
Ahi decimos a windows que nos "abra" una "conexion" al registro, en HKEY_CURRENT_USE (en la parte de arriba estan las constantes para las demas ramas), despues le pasamos la ruta de lo que queramos obtener (RAMA_RUN_WINDOWS tambien esta declarado arriba), despues KEY_ALL_ACCESS se explica a si mismo y por ultimo la API guarda el numero de conexion en Handle (es importante esa variable, no debe cambiar hasta que se cierre la conexion, no es bueno dejar cosas abiertas a medida que se ejecuta el programa

Código (vb) [Seleccionar] Expandir

RegQueryValueExNULL Handle, App.Title, 0&, 0&, 0&, cch
En esta linea vemos si esta vacia la entrada App.Title (puede ser cualquier nombre, pero es el nombre de la clave que queremos obtener) y si no lo esta, devuelve la longitud del valor de la clave App.Title. Como antes, el resultado se guarda en cch (te preguntaras porque lo guarda ahi y no lo devuelve la funcion? Si, es medio lioso la API de windows cuando apenas entra. Lo hace porque la funcion devuelve un codigo de error o si todo esta bien, cosa que si la funcion devolviera FALSO por ejemplo, no sabrias si no existe o si existe o tiene contenido, o si el windows no te dio permiso para comprobar si existe, etc)
Compruebas si cch es mayor que 0, por lo tanto EXISTE y pasamos a obtener el valor con

Código (vb) [Seleccionar] Expandir

RegQueryValueExString Handle, App.Title, 0&, 0&, Data, cch que le pasamos el numero de conexion, el nombre de la cadena, y un string vacio (de longitud "cch")
Y listo, tienes el valor de la cadena que buscas!!!

Y por ultimo cierras la cadena con RegCloseHandle

Espero que te sirva

Bueno bueno che, era una aclaración, no todos nacen sabiendo

Aunque la respuesta de PsYkE1 (a.k.a Mr. Frog, cambio su nick para que el FBI no lo encuentre ) funciona, lo probe aunque esta linea

Código (vb) [Seleccionar] Expandir

Call SetWindowPos(Me.hWnd, 0&, 0&, 0&, 0&, 0&, SWP_FlAGS)
es completamente innecesaria, esa linea pone el form encima de todo y no es lo que se pide

Saludos!

Bueeenas!

El lunes me quede sin internet porque se cayo un cuadro desde 2m directo en la cajita de linea telefonica y la partio al medio. Estuve un dia sin internet, y justo un poco antes habia bajado el SDK de windows 7. Me puse a leerlo y encontre documentacion sobre las API de windows para controles. E hize este para practicar



Costo un poco (en especial poner el Maximo y minimo xD) pero salio al final

Cuidado cuando compilan, hay algunos windows XP que no iniciaba el ejecutable, no se si sera culpa del uc o algun descuido mio (aunque no es la primera vez que pasa)

y aca el source

http://www.mediafire.com/?aca222781ij7jqh

Saludos!
(PD: Por ahi traiga mas controles )

INICIO DE APLICACIÓN CON WINDOWS - Leandro Ascierto

El que busca encuentra, miralo, modificalo, toquetealo (?) y APRENDE a tu gusto