Tips & Trucos

**Arielo** · 03/12/2007, 09:53

Abro este tema, para subir trucos de programación, tips, y cualquier código que sea útil en nuestros diferentes sistemas, para cualquiera de los lenguajes que utilicemos.
Cualquier aporte, será muy bien recibido, desde luego...

**Arielo** · 03/12/2007, 09:59

Abro con un truco para Visual Basic 6.0

Si en un formulario agregamos un CommandButton, y escribimos esto:

Código:

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

lo que pasará al presionar en el botón, será que se abrirá la ventana de "Agregar o quitar programas"

.

**Arielo** · 05/12/2007, 07:40

Visual Basic 6.0

Para apagar, reiniciar el sistema o reiniciar Windows, hacer lo siguiente:

En un form nuevo, agregar tres botones.
Escribir lo siguiente:

Código:

 Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

 Private Sub Command1_Click()
   Dim Funcion As Integer
   Funcion = ExitWindowsEx(1, 0&) ' Para apagar el equipo
 End Sub

 Private Sub Command2_Click()
   Dim Funcion As Integer
   Funcion = ExitWindowsEx(0, 0&) ' Reinicia el Windows con un nuevo usuario
 End Sub

 Private Sub Command3_Click()
   Dim Funcion As Integer
   Funcion = ExitWindowsEx(2, 0&) ' Para reiniciar el Sistema
 End Sub

**Arielo** · 31/12/2007, 08:12

Truco para crear grupo de programas en Visual Basic 6.0

En un Form, agregar un TextBox, y hacerlo oculto (Propiedad Visible = False). Agregar también un CommandButton.

Supongamos que queremos que nuestro programa se coloque en Inicio -> Programas.

Tipear el siguiente código:

Código:

Private Sub Command1_Click()
   Text1.LinkTopic = "Progman|Progman"
   Text1.LinkMode = 2
   Text1.LinkExecute "[CreateGroup(" + "Nombre_del_Grupo" + ")]"
End Sub

**atenea2** · 07/04/2008, 22:41

espero que en este tema se aprecien los trucos para pc

**Arielo** · 08/04/2008, 08:39

Iniciado por Arielo

Abro este tema, para subir trucos de programación, tips, y cualquier código que sea útil en nuestros diferentes sistemas, para cualquiera de los lenguajes que utilicemos.
Cualquier aporte, será muy bien recibido, desde luego...

creo que está claro ...