|
 |
|
41) Copiar carpetas y archivos
Bajar los fuentes |
|
Permite copiar archivos aunque estén abiertos o en
uso y también carpetas completas con sus contenidos y demás carpetas
dependientes. Este programa y otros fueron inspirados por la Web
Tutorial Sobre API |
|
42) Extrae nombre o
extensión
Bajar los fuentes |
|
Método para extraer el nombre o la extensión de un
archivo de la ruta completa del mismo. |
|
43) Mira
Bajar los fuentes |
|
Dibuja una mira que se mueve con el mouse. Este
programa y otros fueron inspirados por la Web
Tutorial Sobre API |
|
44) API Vista Previa
Bajar los fuentes |
|
Muestra una previa de una imagen en el cuadro de
diálogo cargar imagen.
Tutorial Sobre API |
|
45) API para Memoria
Bajar los fuentes |
|
Analiza el estado de la memoria de la Pc. Un buena
forma para comprobar el estado de free de ésta, es abrir aplicaciones. Si
vas rellenando una planilla Excel con datos (copias y pegas, verás como
disminuye la memoria a la vez que la Pc se torna cada vez más lenta. Eso
tal vez te aclara muchas cosas. |
|
46) API Transparencia
Bajar los fuentes |
|
Aplicar niveles de transparencia a un Formulario.
Este programa y otros fueron inspirados por la Web
Tutorial Sobre API |
|
47) API Formas Circulares
Bajar los fuentes |
|
Dibuja formas circulares irregulares (gráficas de
torta). Este programa y otros fueron inspirados por la Web
Tutorial Sobre API |
|
48) Quitar Bordes
Bajar los fuentes |
|
Permite quitar los bordes a un Form en tiempo de
ejecución en forma sencilla. |
|
49) API SendMessage() Última
Línea
Bajar los fuentes |
|
Mostrar la última línea de un textbox usando el API
SendMesagge() |
|
50)
LoadPicture() en un array de imágenes Bajar los fuentes |
|
Utilización de un vector tipo Picture de 7
elementos en el que cargo imágenes del disco. Con un control scroll,
permito asignar a un Image para ver la miniatura del la imagen y al hacer
click en este último control, se amplía en otro Image de mayor tamaño. El
ejemplo va acompañado de 7 imágenes bastante buenas. Hay un botón que
permite descargar la imagen del vector. |
|
51)
Injerto de un Formulario Excel para sacarle el Zoom
Bajar los fuentes |
|
Desde Excel, exporto un Form con .los controles que
necesito y lo abro desde el Visual Basic para utilizar el recurso del
Zoom. Es lo que se me ocurre ahora para esto. Luego veremos. |
|
52)
Información de los Discos Bajar los fuentes |
|
Se obtiene toda la información de las unidades de
disco usando FileSystemObject. |
|
53)
Utilitario para Administrar Bases de Datos Bajar los fuentes |
|
Utilizando ADOX (ADODB) logro una interesante
utilidad para Crear, Abrir y Editar bases de datos en Access.
También el programa muestra todos los detalles interiores de una base de
datos; su fecha de creación, modificación, tamaño físico, cantidad de
tablas, mostrando también los nombres de éstas y sus campos e, incluso los
datos que contienen
Se logra renombrar, borrar y crear tablas y campos sin perder los datos
que contienen. Obviamente el problema principal es que si manejamos muchos
datos como el caso de un padrón de ciudadanos, la tarea se tornará muy
lenta por la cantidad de registros que hay que procesar. Eso queda
a criterio del que utilice este programa.
Dentro del
código fuente, hay encerrado muchos secretos que son relevantes para el
manejo de datos en Visual Basic.
Como siempre, el programa está sujeto a mejoras y revisiones y si alguien
detecta algún error, puede comunicarlo.
Mejoras y novedades: El programa actualizado el 21/12/2009, permite
imprimir las estructuras de cada tabla y también los nombres de todas las
tablas contenidas en la Base de Datos. |
|
54)
Convertidor de Bases de Datos Access Bajar los fuentes |
Pequeño programa que permite convertir bases de datos Access a versiones
97, 2000 o 2002 utilizando Access.Application. Trato de mostrar alguna
información sobre la base que se selecciona pero con respecto a la
cantidad de tablas no es muy precisa. Si alguien lo mejora, me avisa y lo
publico a su nombre.
El programa también permite compactar y reparar la base de datos
seleccionada. |
|
55)
API
Reproductor de Waves Bajar los fuentes |
Usando el API PlaySound, controles Drive, Dir y File, he creado un pequeño
programa que permite reproducir archivos de sonido Wav tomados de listas
de los discos.
Para reproducir se pueden emplear dos métodos: Hacer un click en el nombre
del fichero y luego click en el botón reproducir o, mejor, hacer doble
click en el nombre del archivo de la lista. |
|
56)
API
Reproductor de Música Bajar los fuentes |
|
Uso de la Función Api mciExecute para reproducir
archivos de música en formatos Wav, Mid y Mp3.
Además; la función Api GetShortPathName para obtener los paths de los
archivos en formato corto, CreateRoundRectRgn y SetWindowRgn para
redondear el formulario.
Este programa cuenta también para generar un efecto "Fade" en el form y
con un módulo de clase para producir efectos de colores degradados random
en el form. Jejeje; casi nada creo!
 |
|
57)
Reproductor de
Vídeo en un picture Bajar los fuentes |
Reproduce vídeos simples de los que abundan en Common\Graphics\Videos del
Visual Studio (C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Videos)
en un controlo Picture usando el control Microsoft Multimedia Control 6.0
(MMControl).
Es algo pobre este control porque no toma cualquier vídeo y encima, sólo
los .AVI, pero es bueno saber que existe y funciona. |
|
58)
Dimensiones de imágenes Bajar los fuentes |
|
Abre una imagen, la muestra e informa sus dimensiones utilizando una
variable IPictureDisp. |
|
59) API
Conversor de imágenes
Bajar los fuentes |
Utilitario que permite convertir imágenes a formato JPG en forma
individual o grupal. Puedes convertir un archivo o un directorio entero.
Los nuevos archivos los traslada a una carpeta incluida en la de la
aplicación denominada \CONVERTIDOS.
Estoy utilizando para esta aplicación la Función API DIWriteJpg y una
librería denominada DIjpg.dll que bajé de Internet desde la Web
Recursos VBasic la cual recomiendo que visiten pues tiene un
valioso material publicado sobre Visual Basic avanzado, pero muy bien
explicado y sencillo. |
|
60)
Visualizador de Gif Animados
Bajar los fuentes |
|
Es un control que te permite visualizar gifs animados en Visual Basic 6.0. |
|
61)
Dibujar, cargar y guardar imágenes
Bajar los fuentes |
|
Sencillo ejemplo de la forma de cargar, dibujar y guardar imágenes con
SavePicture. |
|
62)
DibuROF
Bajar los fuentes |
Utilidad mucha más evolucionada para dibujar con el Mouse con trazos de
diferentes colores en dos planos parecido al Paint del Windows (pero mucho
peor jeje). Puedes cambiar los colores del fondo también, cargar imágenes
y hacerles algunos retoques elementales. Cambiar el brillo y también imprimirlas con Printer.PaintPicture Picture1.Image, 0, 0.
Puedes controlar el grueso del trazo, teniendo medidas estándar con lápiz
y pincel. Puedes borrar pues tienes una goma con diferentes grosores.
Cuenta también con aerosol.
No es una maravilla pues le faltan muchas cosas que iré agregando cuando
sepa cómo y tenga tiempo. En cada modificación que haga, publicaré la
fecha. La fecha de publicación inicial fue 21/03/2007. |
|
63) Api para cambiar el
Papel Tapiz Bajar los fuentes |
|
Te permite cambiar el fondo del escritorio eligiendo el archivo que
quieras con los modos centrado, mosaico y expandido. Puedes visualizar la
imagen que vas a utilizar antes de aplicarla. |
|
64) Ejemplo de Texto
Vertical y Gif Animado
Bajar los fuentes |
|
Un programa que muestra el uso de dos controles caseros. Uno escribe
texto vertical y el otro visualiza Gif animados. Acompaño el
ejemplo con ambos controles. Si no funciona, deberán agregar los controles
de Proyecto - Componentes. Dejo en claro que ninguno de los dos controles
es obra mía y que del texto vertical, tengo los fuentes por si a alguno le
interesa ver o modificar el código. Con tiempo le haré algunas
modificaciones. |
|
65) Multi Reproductor y
Grabador
Bajar los fuentes |
Este programa que he creado, permite grabar audio en wav y convertirlo a
Mp3 durante la grabación, pero esta etapa no siempre funciona bien,
dependiendo de la longitud de la grabación. Sin embargo, sí graba en Wav y
luego es posible convertirlo a Mp3.
También reproduce Wav, Midis, Mp3 y audio desde CD.
La grabación se puede ajustar para bajar o subir la calidad de audio. Un
calidad baja, por ejemplo, permitiría crear archivos de poco peso para
subir o enviar a través de la Web.
Todo lo que graba es vía micrófono (por ahora), esto permite grabar
directamente desde parlantes cualquier sonido ambiental o sea que mientras
reproduces o sintonizas radio, podrás grabar.
El programa funciona bien en Win XP, no en Win 98, pero estoy escribiendo
un código para lograrlo. En cuando lo termine, lo subo.
Actualizado al 30/03/2007, |
|
66) API para invertir
imágenes
Bajar los fuentes |
|
Permite invertir imágenes en forma horizontal y vertical. |
|
67) Anagramas
Bajar los fuentes |
|
Determina si dos palabras son anagramas. |
|
68) Multiplicación Rusa
Bajar los fuentes |
|
Este método se basa en multiplicar y dividir por dos, y luego hacer una
suma final.
Dadas 2 variables A y B que se desean multiplicar. Se divide A sobre 2
tantas veces como se pueda y simultáneamente , se multiplica B por 2.
Omitiendo los restos, los números impares que produce A, se suman al
resultado final que produce B.
Bien hasta aquí, pero en la práctica, el programa no funciona bien pues no
con todos los números hace el cálculo. Debe ser algún problema con el
redondeo de los números. La cuestión es que no funciona, pero al menos
pone el planteo de otro problema algorítmico peculiar.
Por cierto que si alguien resuelve este problema, tendrá mención de
honor en esta Web pudiendo publicar su url y/o su correo. |
|
69) Números Romanos
Bajar los fuentes |
|
Otro ejemplo de conversión de arábigos a romanos hasta 3999. Aquí empleo
vectores y reservo una posición de cada parte del Nº ingresado para que se
ubique como millares, centenas, decenas y unidades. De esta forma, el
esfuerzo se hace al armar los vectores, pero se minimiza el algoritmo para
convertir. Un gran secreto es el de asignar el alfatexto con Format(T,"0000")
para que los segmentos del Nº se sitúen correctamente. |
|
70) Gráficas Estadísticas
Bajar los fuentes |
Utilizando el control Mschart, genero gráficas de un lote de datos. Las
gráficas pueden ser de diferente estilos a elección. Cuando descubra algo
más, lo publico.
Lo bueno es que logro imprimir la gráfica mediante MSChart1.EditCopy para
transferir al clipboard y de allí a un control picture con
Picture1.Picture = Clipboard.GetData(3) que es el que finalmente imprimirá
con PaintPicture(). |
|
71)
Carga desde un DataGrid a un ListView
Bajar los fuentes |
|
A pedido este programa permite cargar registros desde un ListView haciendo
click en un DataGrid. |
|
72)
Texto Capicúa
Bajar los fuentes |
|
Ingresar una palabra de 5 letras y usando InStr() verificar que sea o no
capicúa (palíndromo). |
|
73)
Option Compare Text
Bajar los fuentes |
|
Un interesante recurso para facilitar la comparación entre cadenas de
texto sin importar la exactitud de mayúsculas o minúsculas. |
|
74)
Función Shell() para activar el Explorador
Bajar los fuentes |
|
Mediante la antiquísima función Shell() del Basic, se puede activar
cualquier programa externo (siempre que haya memoria disponible). En este
ejemplo, lo usaremos para activar el Explorador de Windows y poder
recorrer los discos y carpetas de la Pc. |
|
75) Reporte en Visual Basic
Bajar los fuentes |
|
Ejemplo de generación de reportes (listados) usando el Data Report con
el método Ado. Acompaño el ejemplo con un htm tutorial llamado Crear
reporte en VB.htm. Seguro que a muchos esto le será de gran utilidad. |
|
76) Reporte en Visual Basic
simplificado
Bajar los fuentes |
|
Otro ejemplo del uso del Data Report, pero más simple pues uso el control
Adodc. Se trata aquí de un listado de libros. |
|
77) API para
controlar el volumen en Windows
Bajar los fuentes |
Un conjunto de funciones Api's destinadas a controlar el volumen. Aquí se
utiliza un controlHScroll para modificar el volumen con valores entre 0 y
100.
Se utilizan diversas funciones de la librería "winmm.dll" como ser:
mixerOpen, mixerGetLineInfo, mixerGetLineControls, mixerClose,
mixerGetNumDevs, mixerOpen, CopyStructFromPtr, CopyPtrFromStruct y otras
delicias que nos dan algunos ejemplos de l intrincada madeja de las
librerías API. |
|
78) API para controlar el
volumen en Windows con Slider
Bajar los fuentes |
Misma rutina que la anterior pero usando un control Slider (parte de
componentes Microsoft Windows Common Controls). En ninguna se reproduce
sonidos, tan solo se controla el volumen. Pueden constatarlo mirando el
nivel de volumen desde la barra de Estado.
Pueden poner un botón y colocar este código en él para abrir la consola
del volumen de Windows.Dim Vol
Vol = Shell("c:\windows\system32\sndvol32.exe", 1)
Y si desean le agregan esta sentencia para actualizar el Slider.
Slider2.Value = Vol
Pero si usan el HScroll usen esta
HScroll1.Value = Vol |
|
79) Reproductor de CD
Bajar los fuentes |
Haciendo uso de la API para reproducir CD he creado este programa (usando
códigos de otros y mejorándolos) que permite reproducir CD de audio. Más
que nada es para documentar los diferentes comandos de esta librería. Las
funciones están integradas en una librería de clases. Usa las funciones
API mciGetErrorString y mciSendString y varios trucos interesantes.
Tiene barra de progreso, pasa de track en track y al terminar cierra la
reproducción. Permite reproducción continua o al azar y cambia de track
con un scroll. En breve subiré una grabadora de audio que permite grabar
desde micrófono o mixer. Pronto la verán aquí (hoy es 5 de septiembre de
2008). Creo que será un bombazo!! |
|
80) El Buscaminas en Visual Basic
Bajar los fuentes |
|
Este buen código no es mío pero está muy bien realizado por eso lo subo. |
|
|