|
|||||||
|
|
|
|||||
|
|
|||||||
Visual World
|
Visual World presenta una sección especial dedicada a la programación de correo electronico, envia, lee y elimina mensajes de tu correo electronico desde una aplicación hecha en visual basic. Ver detalles... A pedido del público publicaremos una sección dedicada al manejo de bases de datos con la referencia ADO, Ver detalles... |
Pagina 1 - 2 Acceso al panel de control. Crea un formulario exe standard, dibuja un commandbutton y añade el siguiente código. Private Sub Command1_Click() X = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0")") End Sub Bien, para accesar a los otros componentes del sistema debes reemplazar desk.cpl por cualquiera de los siguientes nombres desk = propiedades de la pantalla inetl = internet intl = configuracion regional modem = modem netcpl= Red password = cofigracion de contraseñas powercfg = configuracion de enegia timedate = fecha y hora mmsys = multimedia main = mouse joy = Juego, joystick appwiz = agregar o quiar programas sysdm= propiedades del sistema sticpl = escaneres y camaras findfast = busqueda rapida access = accesibilidad obdccp32= administrador de origenes de datos telephon = propiedades de marcado themes = temas de escrtorio No olvides agregar .cpl a cada uno de los archivos para poder ejecutarlo sin ningún inconveniente. Ejecutar una aplicacion .exe Con este código puedes ejecutar una aplicación externa desde Visual Basic, en este caso ejecutaremos el block de notas(note pad). Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Comando1_Click() Dim lValDev As Long lValDev = ShellExecute(Me.hwnd, "Open", "c:\windows\notepad.exe", "", "", 1) End Sub Pausar un programa Puedes agregar este código a un commandbutton o al control que desees Dim Pausa, Inicio, Final Pausa=3 'Digite los segundos deseados Inicio=Timer do while timer < Inicio + Pausa DoEvents loop Copiar archivo El código es muy simple no tiene mucha ciencia Dim Origen, Destino Origen = "directorio oirgen" Destino = "directorio destino" FileCopy Origen, Destino directorio origen es la ruta y el archivo que se desea copiar directorio destino es la ruta donde se desea copiar el archivo, una nota importante es que debes colocar el nombre del archivo que vas a copiar Convertir mayusculas a minusculas y viceversa Convierte tus caracteres de mayusculas a minusculas y visceversa br> Para conertir de maysculas a minusculas debes utilizar la instrucción Lcase de esta manera: Supongamos que tenemos 2 textbox en el formulario (text1 y text2 respectivamente) además agrergamos 1 commandbutton (command1), Pasaremos los caracteres del text1 al text2, y este debera pasar de mayuscula a minuscula. Private Sub Command1_Click() text2 = LCase(text1) End Sub Ahora haremos el proceso conrtario pasaremos de minusculas a mayusculas, lo haremos desde un segundo commandbutton Private Sub Command2_Click() text2 = UCase(text1) End Sub Sacamos como conclusión que la instrucción Lcase convierte un texto de mayusculas a minusculas, y la instrucción Ucase convierte un texto de minusculas a mayusculas Crea un descansador de pantalla Crear tus propios descansadores de pantalla bajo Visual Basic es fácil. Crea una aplicación normal de visual (lo más lógico es que sea una animación), y guardala normalmente. Ahora debes generar el archivo ejecutable ".exe", pero al colocar el nombre debes agregarle la extensión ".scr" así nombrearchivo.scr y listo pruebalo. Algo que debes tener en cuenta es que para cerrar el programa, debes acerlo con el evento MouseMove del formulario, para darle una verdadera apariencia de ScreenSaver bloquear un archivo Si necesitas bloquear un archivo para que no sea abierto con otra aplicación, puedes utilizar este truco. open "c:\confidencial.doc" for binary access read lock read write as #1 c:\confidencial.doc es solo un ejemplo, debes colocar el nombre y la extensión del archivo que deseas bloquear. cuando una aplicación lo intente abrir el debera formular el error 70: Permiso denegado. Eliminar un archivo Con este truco podrás eliminar un archivo, crea un formulario y escribe el siguiente código. Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Public Sub PapeleraDeReciclaje(ByVal Fichero As String) Dim SHFileOp As SHFILEOPSTRUCT Dim RetVal As Long With SHFileOp .wFunc = FO_DELETE .pFrom = FileName .fFlags = FOF_ALLOWUNDO End With RetVal = SHFileOperation(SHFileOp) End Sub Private Sub Form_Load() Recycle "c:\a.txt" End Subas #1 El programa te preguntara si deseas eliminar el archivo. Cerrar un archivo Puedes hacer que tu aplicación cierre otras aplicaciones con el siguiente código. Private Const WM_CLOSE = &H10 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Sub Command1_Click() Dim hwndAp As Long hwndAp = FindWindow("notepad", vbNullString) ' si no conoces el nombre de la clase y si conoces el título exacto de la 'ventana a cerrar, podrías poner lo siguiente: ' hwndAp = FindWindow(vbNullString, "Titulo de la ventana") PostMessage hwndAp, WM_CLOSE, 0, 0 End Sub Ventana con forma eliptica Solo declara en un módulo lo siguiente Public Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function CreateEllipticRgn Lib "gdi32" Alias "CreateEllipticRgn" (ByVal X1 As Long, _ ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long En el evento click de la ventana: Private Sub Form_Click() Dim Xs as Long, Ys as Long Xs = Me.Width / Screen.TwipsPerPixelX Ys = Me.Height / Screen.TwipsPerPixelY SetWindowRgn hWnd, CreateEllipticRng(0, 0, Xs, Ys), True End Sub Imprimir un documento Con este truco word no se abre, simpelmente imprime el documento, se cierra y libera la memoria. Private Sub Command1_Click() Dim AppWord As Word.Application Dim DocWord As Word.Document 'Asignamos el documento Set AppWord = CreateObject("word.application") Set DocWord = AppWord.Documents.Open("C:\hola.doc") 'Colocamos el texto en el marcador DocWord.Bookmarks("NombreCreador").Select AppWord.Selection.TypeText Text:=Text1.Text 'Imprimimos en segundo plano AppWord.Documents(1).PrintOut Background 'Comprobamos que Word no sigue imprimiendo Do While AppWord.BackgroundPrintingStatus = 1 Loop 'Cerramos el documento sin guardar cambios AppWord.Documents.Close (wdDotNotSaveChanges) 'Liberamos Set DocWord = Nothing 'Nos cargamos el objeto creado AppWord.Quit Set AppWord = Nothing End Sub |