Actualizado el 9/Abr/1998 (22/Dic/2003)
Las colaboraciones de los años 1997 y 1998:
Colaboración
de Roberto Alvarez (05/Dic/98) Código para generar
información del equipo en el que se ejecuta. Un módulo bas para hacer eso mismo... Este link te llevará a la página explicativa en la que también está el código. |
Colaboración
de Josep Mª Gracia (05/Dic/98) Un control para hacer
degradados en los formularios. Pues eso... con el código del control y un ejemplo. Pulsa aquí para mostrar el comentario y poder acceder al fichero con el código |
Colaboración
de Nacho Cassou (02/Oct/98) Ejecutar programas en equipos
remotos mediante Sockets. Pues eso... tres programillas para "comunicar" programas entre si... Pulsa aquí para mostrar la página con el código y el link a los programas |
Colaboración
de German Oltra (23/Sep/98) Ejemplo de uso de la
librería MP3.dll usando Threads. El título es bastante explícito... Este link te llevará a la página con los listados |
Tres
Colaboraciones de Javier Nieto (24/Ago/98) Pulsa en los siguientes links: Clase para encapsular el objeto Crystal Dar el aspecto de "DISABLE" a los controles contenidos en un frame Teclas rápidas para el control SSTAB |
Colaboración
de Harvey Triana (24/Ago/98) Autobúsqueda en un combo de
sólo lectura Creo que el título lo dice todo... Pulsa en este link para entrar en la página con la explicación y el código |
Colaboración
de Luis Sanz "Hospital Reina Sofia" (24/Ago/98) Sobre
las clases en Vb Una colaboración para que te enteres para que sirven las clases... Pulsa en este link para entrar en la página |
Colaboración
de Guillermo Sieder (08/Jul/98) Add-In elemental Según dice mi tocayo: Para programadores novatos (o profesionales que no quieran comerse mucho el coco...) Sigue este link para ver la página explicativa y el código necesario |
Colaboración
de Nacho Cassou (23/May/98) EnumWindows Un ejemplo de cómo usar AddressOf para indicarle a Windows que use una función nuestra para, en este ejemplo buscar una ventana. Este es el link que te llevará a la página con la explicación y el código |
Colaboración
de Gustavo Vega Bolaños (6/May/98) TocaWavMidi Programa que permite la reproducción de ficheros Wav y Midi seleccionándolos desde el directorio en que se encuentre. Pulsa este link para que se muestre la página. |
Colaboración
de Jose Montaner 'Satelite' (5/May/98) ScrollBars Este ejemplo muestra como manejar con el API, las barras de scroll en aquellos controles que no disponen de la propiedad "ScrollBars" Pinchando aquí verás la página explicativa. |
Colaboración
de Quique (4/May/98) Acceso a bases de datos SQL Server Creo que el título lo dice, todo... Pulsa este link para ir a la página |
Colaboración de
Christian Isla V. y Mauricio Díaz A. (8/Abr/98)
Capturar errores de ODBC Una solución para leer los mensajes generados desde el Servidor Pinchando aquí verás la página explicativa. |
Colaboración de
Agustín Barriada Pereira (20/Mar/98) Distribución
correcta del Crystal Report Todo lo que necesitas saber para una correcta distribución del Crystal Report del VB4. Pulsa este link para ir a la página |
Colaboración de
Jordi Fosch (20/Ene/98) Más sobre
botones 3D en Visual Basic Un segundo repaso al tema de los botones con efecto 3D... de la mano de Jordi Fosch. Este es el link que te llevará a la tercera dimensión... |
>Colaboración de
Jordi Garcia Busquets (21/Dic/97) Limitar
ncho/alto de una ventana y otras cosas... Esta colaboración además de limitar el tamaño de una ventana, tiene otras cosas interesantes: saber la dirección de una variable VB y algo de teoría sobre Subclassing... Si quieres ver este artículo y bajarte el ejemplo, etc, pulsa este link |
Colaboración de Raul
Yepez (15/Dic/97) Microsoft HTML Help Una explicación sobre el nuevo sistema de ayuda de Microsoft. Este link te lleva a la página del artículo |
Colaboración de
Nacho Cassou (11/Dic/97) Multithreading
en VB5 Un ejemplo de cómo "simular" el Multi-Thread en VB5. Link a la página explicativa |
Colaboración de A.
David Garza Marín (11/Dic/97) Cálculo
entre dos fechas Una clase para calcular el tiempo transcurrido entre dos fechas... Este link te lleva a la página explicativa |
Colaboración de
Victor Gonzalez (Maverick) (6/Dic/97) Conversión
a números Romanos Una rutina para convertir los números a notación romana... Pasate por este link y te llevará directo a la página con el código y la explicación... |
Colaboración de
Guillermo de Israel (2/Dic/97) Ajustar
los controles al cambiar el tamaño del form Unas rutinas que más de uno estaba buscando... pues precisamente, para eso es, para cambiar los tamaños de los controles cuando se cambia de resolución. Pulsa este link para mostrar la página con la explicación y el código necesario. |
Colaboración de
Jordi Fosch (2/Dic/97) Dominios y
Categorias de las news Un repasillo a las terminaciones más habituales de los nombres de los dominios y algunas de las categorías de los grupos de noticias (news) Pulsa este link para mostrar la página con las tablas. |
Todos los artículos
de Harvey Triana (26/Oct/97) Una página con los artículos enviados por Harvey Triana hasta la fecha, excepto el de convertir números a letras, ¿se te olvidó Harvey? Hay varios articulos nuevos: Así se Simula la Herencia en Visual Basic Implementando Comandos en Visual Basic (para leer parámetros de la línea de comandos) Solución de Ecuaciones por Técnicas Numéricas Este link te llevará al menú de los artículos de Harvey |
Colaboración de
Manuel Rodríguez López (23/Oct/97) VisorImg Una utilidad para mostrar imagenes y más cosillas, con su ayuda correspondiente y todo. Pulsa este link para mostrar la página explicativa y bajar los listados |
Colaboración de
Jordi Garcia Busquets (23/Oct/97) Procmail Organización del correo electrónico en entorno UNIX con Procmail Pulsa este link para mostrar la página explicativa |
Revisión del
Calendario de Guillermo Llanderas (23/Oct/97) Pulsa en este link para ir a la página. |
Colaboración de
Jordi Garcia Busquets (18/Sep/97) Usar
Cursores en VB Una explicación, con ejemplo, de cómo usar cursores en aplicaciones VB (el código es para 16 bits) Pulsa este link para mostrar la página explicativa y bajar los listados |
Colaboración de A.
David Garza Marín (11/Sep/97) Analiza
(csEvalua) Una clase para analizar/evaluar fórmulas, no la puse antes porque creí que era para que la probara, lo siento) Este link te muestra el documento (convertido a HTML) que me ha enviado David |
Colaboración de
Harvey Triana (31/Ago/97) Seguridad de
Access Un artículo de Harvey sobre la programación de seguridad en Access. Pulsa este link para mostrar la página con el artículo y el código de ejemplo. |
Colaboración de
Raúl Martínez (31/Ago/97) Mostrar
elementos de un ListBox al teclear Rutina para mostrar los elementos de un ListBox mientras se teclea... Pulsa este link para mostrar la página con el código y la explicación. |
Colaboración de
Gerardo Alvarez (31/Ago/97) Validar
Números Otra forma de no permitir que se intruzcan caracteres que no sean numéricos Pulsa este link para mostrar la página con el código. |
Colaboración de Juan
Espinós (31/Ago/97) Localizar elementos
en una cadena Una función para localizar elementos en una cadena que está separada por un mismo carácter o caracteres. Pulsa este link para mostrar la página con el código de la función. |
Colaboración de
Giovanni Antonio Cuadra Reyes (31/Ago/97) Imprimir
un TextBox Multiline Una forma de imprimir un TextBox Multilínea usando el Crystal Report Pulsa este link para mostrar la página. |
Colaboración de JES
(Familia Salgado) (31/Ago/97) VBMail Código de una aplicación para manejar el correo desde Visual Basic (El código es para VB 5) Este link es para que bajes el código del programa. (VBMail.zip 65.1 KB) |
Colaboración de Luis
Gómez (21/Ago/97) Organización del
Código Fuente Creo que no necesita más comentarios... Pulsa este link para mostrar la página. |
Colaboración de
Francisco Bonet (21/Ago/97) Información
de Directorios Una rutina para obtener la información de directorios. Pulsa este link para mostrar la página. |
Colaboración de
Emilio Gordo Lima (21/Ago/97) ToolTip y
JanFirst Otra forma de mostrar los tooltips además de una fucnión para asignar el día 1 de enero del año actual. Pulsa este link para mostrar la página. |
Colaboración de
Harvey Triana (21/Ago/97) Copiando
Archivos Una función para copiar archivos y poder usarla para mostrar una barra de progreso. Pulsa este link para mostrar la página. |
Colaboración de
Jordi Fosch (21/Ago/97) Botones como los
de Office Un ejemplo de cómo implementar una barra de al estilo de Office 97 Este link te muestra la página explicativa y link al código de ejemplo |
Colaboración de
Jordi Fosch (6/Ago/97) Obtener
caracteres no stándard Una "pequeña" explicación de cómo obtener el signo ~ y las formas de usarlo/sustituirlo El link va a esta misma página |
Colaboración de
Anselmo Martín [email protected] (6/Ago/97) A Letra Rutina para convertir números a letras. Este link te bajará los listados (en VB3) de ejemplo |
Colaboración de
Jordi Fosch (24/Jul/97) MidiWav Una rutina de ejemplo de cómo usar el API para tocar archivos WAV o MID El link va a esta misma página |
Colaboración de
Harvey Triana (24/Jul/97) IsBinaryFile Una función para comprobar si un archivo es binario o de texto. Pulsa este link para mostrar la página. |
Colaboración de Jose
Luis Soler (13/Jul/97) Ansi a Ascii Código de ejemplo para convertir cadenas ANSI a ASCII Si quieres ver el código, debes pulsar en este link |
Colaboración de
Guillermo Llanderas (13/Jul/97) Instalar
fuentes TTF Una rutina para instalar/registrar las fuentes TTF La página con la explicación y el código está siguiendo este link |
Colaboración de
Jordi Fosch (13/Jul/97) Emoticones
(Smile) Una gran cantidad de emoticons, ya sabes esos símbolos para expresar... un mogollón de cosas. ¡¡¡ Niños abstenerse !!! Pulsa en este link porque... tienes que verlos... |
Colaboración de
Harvey Triana (10/Jul/97) ValorEnLetras Función para convertir un número en texto. Pulsa este link para mostrar la página. |
Colaboración de
Giovanni Rojas (28/Jun/97) Edit Grid Ejemplo de cómo simular la edición de una celda en un Grid Larilola...larilolo... ¿un link? ¿dónde? Aquí mesmo... |
Colaboración de
Alberto Ortiz (28/Jun/97) Drag &
Drop fácil con VB5 Demo de cómo hacer Drag & Drop con VB5 ¿Sabes para que sirve este link? Pues, usalo, pero ¡¡¡ya!!!... ¡¡¡ vamoooos !!! |
Colaboración de
Jordi García (28/Jun/97) API menus Ejemplo de cómo poner imagenes y otras cosas a tus menús. (Para VB3 y VB4-16bits) El link que te llevará a la 3ª dimensión, está aquí |
Colaboración de
Guillermo Llanderas (26/Jun/97) Calendario Listados para un calendario mensual. Coge el ratón, lo pones en este link, pulsa y verás... |
Colaboración de
Giovanni Rojas (26/Jun/97) Comparar
archivos y mostrar las diferencias Un programa, en VB5, para mostrar las diferencias de dos archivos. Este es el link que te "tele-transportará" hacia el código |
Colaboración de
Ernesto Rodriguez (26/Jun/97) Acelerar
los bucles update Un pequeño truco para acelerar los bucles Update. Este link te lleva a la página explicativa. |
Colaboración Doble
de Carlos Barreira (26/Jun/97) Validar Listados de dos clases: validar número de cuentas bancarias y cálculo de la letra del NIF Pulsa aquí para ver la página con el código |
Colaboración de
Miguel Araguez (23/Jun/97) Parejas Un programa escrito pensando en personas con dificultades motóricas. Pulsa en este link para ir a la página explicativa. |
Colaboración de
Carlos Siu (23/Jun/97) Clip-Info Ejemplos para manejar el Portapapeles (Clipboard) de Windows A que esperas que aún no has linkado con la página... ¡¡¡ vaaamos !!! |
Colaboración de
José C. Sanjuán (23/Jun/97) Efectos Unos efectos interesantes para tus aplicaciones. Este es el camino hacia la página con sus comentarios: ya sabes, pincha! |
Colaboración de
jimerino: (23/Jun/97) Calcular la letra
del NIF. Pues otro método para calcular la letra del NIF. Esta me la mandó en Abril, pero ha sido una de esas "recuperadas" Pincha aquí para mostrarte la página. |
Colaboración de
Harvey Triana: (13/May/97) Otra forma de
rellenar el fondo de un Form. Un "replanteamiento" sobre el código enviado por J.A.C.I. Pero usando el Picture del Form como fondo. Este link te lleva al código y la explicación. Este otro te permite "bajar" los listados de ambos y el de Gerardo, (fondos.zip 5.65 KB) |
Colaboración de
Gerardo Alvarez (asaca): (13/May/97)
Efecto de colores en los forms. Este es un "replanteamiento" (es que me ha gustado la palabreja esta), del enviado por Roberto Ledesma. Pero en este caso permite cambiar los colores según unas selecciones hechas. El listado está en el mismo archivo fondos.zip (ver arriba) |
Colaboración de
José M. Alarcón: (30/Abr/97, me la envió el
21, pero...) Mover un Form sin caption (un método aún más fácil) usando el API de Windows, además de un ejemplo de mover una imagen por el formulario. Este link te llevará a la página con la explicación. |
Colaboración de
J.A.C.I. (30/Abr/97) Rellenar el fondo de
los forms. Pulsa en este link para ver la explicación y los listados. |
|
Una clase interesante
(8/Feb/97) Aportada por Javier Pérez Camino de Tarragona, visitalo en: http://www.fut.es/~jperezc Se trata de una clase para el manejo de los archivos mediante el control de diálogos comunes, no os explico más, porque sólo le he echado un vistazo y no me he adentrado en el código, otro día lo veré con más atención y si veo que necesita aclaración, pues lo explicaré un poco... Pulsa aquí para bajar el archivo comprimido cfiletst.zip 4.7 KB |
TreeTabl
(8/Feb/97) (Para ver el fichero explicativo, pincha
en este link) Enviado por Javier (JM) desde Jaén [email protected] Esto es un programilla que muestra una rutina para pasar un array de datos a un control TreeView formando la jerarquía en base a un campo. Pulsa aquí para bajar el archivo comprimido treetabl.zip 11.9 KB |
Timer y Medianoche
(9/Feb/97) Esta función soluciona el problema del uso de Timer cuando nos pilla la medianoche. Según Joe: Un truco para matar el tiempo "N" segundos. Enviado por Joe LeVasseur, un asiduo colaborador/colega/amigo, puedes ir a sus páginas en: http://www.tiac.net/users/lvasseur La función Timer devuelve los segundos que han pasado desde medianoche. Pulsa aquí para ver el listado. |
Imprime un Text Box
de más de 80 caracteres (23/Feb/97) Esta rutinilla la ha enviado Antonio E. López, según me comenta, la ha probado en VB3 y no le funciona. En VB4 si va bien. Si quieres ver el listado, pulsa aquí. |
Dos Colaboraciones,
Dos de Harvey Triana (14/Mar/97) La primera: Rutina para convertir una cadena al estilo Título La Segunda: Solución de Ecuaciones Lineales |
Joe LeVasseur ataca
de nuevo! (14/Mar) (Revisado el
10/Abr/97) Otro listado / truco de mi buen amigo Pepe En esta ocasión para formatear discos usando código de Visual Basic, con un poco de ayuda del API de Windows |
Jose Ramón
([email protected]) (6/Abr/97) Una rutina para asegurarnos que el formato de las fechas es correcto... Aquí mismo está el código. |
Otra colaboración de
Harvey Triana ([email protected])(12/Abr/97) Una rutina para formatear números. El código está en esta mísma página. |
Un Calendario de
Daniel Arias ([email protected] ) (27/Abr/97) Aplicacion donde puedes ver un calendario y navegar entre años meses y dias y seleccionar un dia.... no es necesario ocxs o vbxs... Todo esta hecho con codigo. Pulsa aquí para bajar el listado y el ejecutable calenda.zip 10.8 KB |
Dos colaboraciones de
Héctor Agea HAM [email protected] (27/Abr/97) Imprimir Grids e Imprimir un TextBox (este link te llevará a la página con los listados) |
Colaboración de
Roberto Ledesma ([email protected]) (27/Abr/97) Escala de Gris como fondo de un form (el listado en esta misma página) |
Colaboración de Josep Mª Gracia <[email protected]>
Fecha envio 25/Nov/98, publicado: 5/Dic/98
CONTROL DEGRADA
Modo de Empleo
Este control rellena el fondo del formulario con un degradado del color inicial al color final deseados y en la dirección también deseada.
Para usar este control bata con incluirlo en el formulario ( no es visible en tiempo de ejecución ) y seleccionar las tres propiedades básicas del mismo que son :
ColorInici : Color inicial
ColorFInal : Color final
Direccio : 0 = Vertical ( De arriba a abajo )
1 = Diagonal ( Desde esquina superior izquierda a inferior derecha )
2 = Horizontal ( De izquierda a derecha )
3 = Circular ( Desde el centro del formulario ).
Es aconsejable situar la ejecución de este control en el evento Resize del formulario de manera que si el usuario cambia el tamaño, al mismo tiempo se repinte el fondo en función del nuevo tamaño. Así mismo, tiene la ventaja de no repintarse cada vez que el formulario gana el foco, cosa que si ocurre al ponerlo en el evento Activate.
Así en el evento Resize basta poner :
Nombre_del_Control.Pinta
Espero que os sea útil.
Para comentarios, quejas y sugerencias : [email protected]
Saludos.Pulsa este link para bajarte el fichero con los listados y el control: Degrada.zip 24.5 KB
Función: CambioFecha por Jose Ramón ([email protected]) (6/Abr)
Una de las dificultades con las que mas frecuentemente nos encontramos al trabajar con fechas es que alguna funciones de VB o bien el propio SQL trabajan con el formato fecha americano es decir MM/DD/AA.
He creado una pequeña función que funciona en lo poco que la he probado que cambia el formato MM/DD/AA a DD/MM/AA y viceversa; eso si el separador tiene que ser "/" aunque es muy sencillo programarla para otro separador.
Tambien funciona con el año en 4 cifras y con el formato D/M/AAAA.Nota (8/Abr): Esta es la función ya "remodelada"
Private Function CambioFecha(Entrada$) As String Dim Posicion As Byte Posicion = InStr(Entrada$, "/") Entrada$ = Trim(Entrada$) CambioFecha$ = Val(Mid(Entrada$, Posicion + 1, InStr(Posicion + 1, _ Entrada$, "/") - Posicion - 1)) & "/" & Val(Left(Entrada$, Posicion - 1)) _ & "/" & Right(Entrada$, Len(Entrada$) - InStr(Posicion + 1, Entrada$, "/")) End Function 'Para comprobarlo: Private Sub Command1_Click() If IsDate(Text1) Then Label1 = CambioFecha(Text1) Else MsgBox "No ha escrito una fecha correcta. Intentelo de nuevo", 48, "Fecha no valida" Text1 = "" Text1.SetFocus End If End Sub
Función: FormatNumber por Harvey Triana ([email protected]) (12/Abr)
Formateando Números La siguiente función la empleo casi como utileria del lenguaje en mis programas. El formato de números puede escribirse de muchas formas, sin embargo esta pequeña función me suministra un código corto y eficiente.
'========================================================================== Formating Fixed '========================================================================== Public Function FormatNumber(ByVal x As Variant, Fixed As Integer, _ Optional Engineer As Variant) As String Static Rtn As String If IsMissing(Engineer) Then If Fixed > 0 Then Rtn = Format$(Val(x), "0." + String$(Fixed, "0")) Else Rtn = Format$(Val(x), "0") End If Else If Engineer Then If Fixed > 0 Then Rtn = Format$(Val(x), "0." + String$(Fixed, "0") + "E+00") Else Rtn = Format$(Val(x), "0") End If End If End If If Val(x) > 0 Then Rtn = " " + Rtn End If FormatNumber = Rtn End Function Ejemplos FormatNumber(-51.3592, 2) = -51.36 FormatNumber(51.3592, 2) = 51.36 FormatNumber(51.3592, 0) = 51 FormatNumber(-51.3592, 3, True) = -5.359E+01
Escala de Gris como fondo de un form de Roberto Ledesma
Se trata de una rutina para cambiar el fondo gris y soso que todos solemos tener en nuestros Forms por una escala de blanco a gris que le da un aire "metalizado". Además, se ahorra tamaño en el .FRX y el ejecutable final, ya que no se utiliza la propiedad picture como imagen de fondo. La rutina es la siguiente:
Sub EscalaGris(frmForma As Form) Dim i As Integer frmForma.ScaleWidth = 128 For i = 255 To 192 Step -1 frmForma.Line (Y, 0)-(Y + 2, frmForma.Height), RGB(i, i, i), BF Y = Y + 2 Next End Sub
Para que se ejecute directamente basta con incluir la llamada dentro del evento Form_Resize, además, cuando se cambie el tamaño del form o se maximice, la escala se ajustará automáticamente al nuevo tamaño.
Tocar música usando el API de Windows de Jordi Fosch
Este es un ejemplo de cómo hacer
que "suene" un archivo WAV o MID.
Es código está modificado, pero la rutina e idea fué enviada
por este artista de los gráficos y seguramente de otras muchas
cosas que es Jordi, el que me está "llenando" mi disco
duro con diseños para ponerlos en mis páginas... gracias Jordi.
'meto todo lo necesario en el módulo (las APIS) Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 'Si lo que quieres es hacer sonar un archivo .MID 'debes declarar la siguiente función de la API: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Sub MidiWav(A As String) Dim vr As Long 'Asegurarnos que está en minúsculas para que no falle la comparación A = LCase$(A) If Len(A) Then If InStr(A, ".wav") Then vr = sndPlaySound(ByVal A, 1) ElseIf InStr(A, ".mid") Then vr = mciExecute("Play " & A) End If End If End Sub
Truco para TARUGOS del teclado de Jordi Fosch
TRUCO PARA TARUGOS DEL TECLADO (lo
de tarugos de buen rollo, que nadie se enfade).
Muchos internautas noveles, han tenido delante de sus narisses
direcciones con simbolillos raros, uno, y el
más temido és el de "~" , llamado VIRGUILLA. Si no
sus quereis complicar la vida intentando buscar por
vuestro magnífico teclado el anterior simbolillo (que por cierto
no lo encontrareis), podeis hacer dos cosas,
la primera, ya evidente para todo "gurú" de la
informática, el pulsar la tecla ALT y acto seguido, (¡ y sin
soltar la ALT !) en el teclado numérico pulsar en el 1 el 2 y,
finalmente el 6, que corresponden, o dan
lugar a la virguilla. Pero, podeis hacer otra cosa, sustituir la
"~" por los siguientes caracteres: %7e que
tiene el mismo efecto: Os explico la historia... la secuencia %7e
significa el 126 en hexadecimal, y la "e"
da igual que sea en mayúsculas como en minúsculas, -¡ Toma !-
, este truquillo funciona con cualquier
servidorl, ¡ a disfrutarlo !.
Unos ejemplos para los que no lo han pillado...
Podreis visitar mi web si meteis en la cajilla del navegador :
http://www.arrakis.es/~jfosch
También podréis ver mi web si en vez de la anterior dirección
si substituís la virguilla por el código
anteriormente dicho, osease:
http://www.arrakis.es/%7ejfosch
Y que el Guille os monte las direcciones como enlaces (URL) y lo
comprobáis.
¡ Saludos a toda la peña !
Lee esto, si quieres colaborar, en mis páginas.