Informix

Trucos Breves

Como crear un grupo de programas:

Muy útil para crear instalaciones por ejemplo:

Añadir un textbox y hacerlo oculto.
Una vez oculto, escribir estas líneas sustituyendo"Nombre del Grupo" por que que se desea crear, y que lo colocamos en Inicio -> Programas.

Private Sub Command1_Click()
Text1.LinkTopic = "Progman|Progman"

Text1.LinkMode = 2Text1.LinkExecute "[CreateGroup(" + "Nombre del Grupo" + ")]"
End Sub

--------------------------------------------------------------------------------

Vaciar la carpeta de Documentos deWindows:

Inicie un nuevo proyecto y añada el siguiente código:

Private Declare Function SHAddToRecentDocs Lib "Shell32"

(ByVal lFlags As Long, ByVal lPv As Long) As Long

Private SubForm_Load()
SHAddToRecentDocs 0, 0
End Sub

--------------------------------------------------------------------------------

Abrir la ventana de Propiedades de agregar o quitaraplicaciones:

Añada el siguiente código:

Private Sub Command1_Click()
X = Shell("Rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl @0")
End Sub--------------------------------------------------------------------------------

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 NumAs 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 lafunció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...