iBienvenido a wedmasterayuda!

  Este pequeño codido consigue Grabar el contenido de un textbox en un archivo de texto txt. Solo debemos de crear en un formulario el textbox y un boton, por default este boton se llamará Command1 Hay que tener cuidado con el archivo de texto que utilicemos, puesto que sobreescribirá el contenido.
<-- --> Private Sub Command1_Click() Dim mitexto As Integer mitexto = FreeFile Open "c:ejemplo.txt" For Output As #mitexto Print #mitexto, Text1 Close #mitexto End Sub



Creacion de un directorio
El ejemplo muestra como crear un directorio. Debemos modificar la linea 2 con el path y nombre del directorio que queremos crear

Private Sub Form_Load() MkDir "c:midirectorio" End Sub

Abrir y cerrar reproductor de Cd
 
Tal y como el titulo indica con esta aplicacion controlamos el reproductor de Cd´s. El ejemplo consta de dos botones, abrir y cerrar. En principio debemos crear un modulo Proyecto > Agregar modulo e introducir la primera parte del codigo. Postriormente debemos introducir en nuestro formulario 2 botones, que en este caso lo hemos llamado command1 ( abrir cd )y command2 ( cerrar Cd ) Archivo descargable !!

' ----------- MODULO Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long ' ----------- FORMULARIO Private Sub Command1_Click() retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0) End Sub Private Sub Command2_Click() retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0) End Sub


Modificar la imagen del escritorio - wallpaper
 
Para modificar la imagen del escritorio o wallpaper debemos crear un modulo con el primer codigo y un boton command1 en un formulario donde introduciremos el segundo codigo.
 
' ---------- MODULO Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Public Const SPI_SETDESKWALLPAPER = 20 ' ---------- FORMULARIO ( accion desde: boton command1 ) Private Sub Command1_Click() Dim lngSuccess As Long Dim strBitmapImage As String strBitmapImage = "c:carpetaimagen.bmp" lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0) End Sub



Abrir ventana dialogo de Fecha y Hora de Windows
Al hacer click sobre el boton Command1 conseguimos abrir la ventana de dialogo de Fecha y Hora de Windows.

Private Sub Command1_Click() Dim dblReturn As Double dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 5) End Sub

 

 

Configura Tamaño del Texto

Configura la Fecha

---

Quieres ver mas opciones oprime aqui