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

Como desplegar la lista de un ComboBox automáticamente:

Insertar un ComboBox y un Botón en un nuevo proyecto y escribir el siguiente código:

Private Declare Function SendMessageLong Lib "user32" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Objeto 1"
Combo1.AddItem "Objeto 2"
Combo1.AddItem "Objeto 3"
Combo1.AddItem "Objeto 4"
Combo1.AddItem "Objeto 5"
Combo1.AddItem "Objeto 6"
Combo1.AddItem "Objeto 7"
Combo1.Text = "Objeto 1"
End Sub

Private Sub Command1_Click()
'ComboBox desplegado
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub
Nota: Resp = SendMessageLong(Combo1.hwnd, &H14F, False, 0) oculta la lista desplegada de un ComboBox, aunque esto sucede también cuando cambiamos el focus a otro control o al formulario.

Uso de Random:

La función Rnd o Random posee la virtud de obtener números aleatorios entre 0 y 1:

El único inconveniente a la hora de usar Rnd, es que hay que inicializarlo, en otro caso, el resultado de la función Rnd, será siempre el mismo dentro de un determinado ordenador. Por ejemplo, el código:

Private Sub Form_Load()
  Dim Num As Double
  Num = Rnd
  MsgBox Num
End Sub

Nos daría como resultado siempre el mismo número.

Para solucionar este problema, debemos escribir la sentencia Randomize antes de llamar a la función Rnd. De esta manera, la función Rnd actuará correctamente.

El código quedaría así:

Private Sub Form_Load()
  Dim Num As Double
  Randomize
  Num = Rnd
  MsgBox Num
End Sub