Curiosidades en winXP

Star Wars Episodio 41. Inicio > Ejecutar
2. Escribe lo siguiente: telnet towel.blinkenlights.nl
3. ¡¡oh!!, Stars Wars en D.O.S.

Nombre Imposible 1. Crea un archivo cualquiera
2. Colocale el nombre: con
3. y..., no aparece el nombre "con", sino de nuevo lo que decía al inicio.

Editor de imagenes oculto
1. Inicio > "Ejecutar"
2. Escribe: eudcedit y les abrira un editor de imagenes oculto, este sirve para crear emoticonos en msn.

Navegador Web Opera v11.01 para Windows

Firefox 4 – Ya disponible para su descarga

  Y por fin la espera terminó. Después de 12 versiones beta y la versión RC (Release Candidate) que salió hace dos semanas, Mozilla ha confirmado que la versión 4 de su navegador Firefox ya está disponible para su descarga.

Como siempre he dicho, la versión 4 del famoso navegador del zorro se ha hecho esperar demasiado tiempo, tanto que los usuarios del navegador y analistas del sector estábamos nerviosos para saber cualquier novedad o noticia relacionada en su lanzamiento mientras veíamos atónitos como Mozilla no paraba de lanzar versiones beta una tras otra.

Mejoras/novedades

Además de las mejoras introducidas en las anteriores versiones beta, Mozilla ha añadido pocas cosas entre la beta 12 y la Release Candidate.

Solamente destacar una mejora en la estabilidad del navegador y mejora del motor Javascript, JägerMonkey

DESCARGAR FIREFOX 4

Extraído de: compunoticias.com/

Pasar de un TextBox a otro al pulsar Enter:

Insertar tres TextBox y escribir el siguiente código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
otra forma:
Insertar tres TextBox, cambiar la propiedad KeyPreview del formulario a True y escribir el siguiente código:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Provocar la trasparencia de un formulario:

Escribir el siguiente código:
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long,
ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim Resp As Long
Resp = SetWindowLong(Me.hwnd, -20, &H20&)
Form1.Refresh
End Sub