banner de las colaboraciones

Colabora VB clásico (uno)

Actualizado el 9/Abr/1998 (22/Dic/2003)

Pulsa este link si quieres Colaborar en mis páginas



Las colaboraciones de los años 1997 y 1998:

 

 


Colaboraciones del año 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...


Colaboraciones del año 1997
 

>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.


Nota:
Las colaboraciones que siguen, están relacionadas por fecha de menor a mayor, es decir, las más antiguas al principio.
El resto está al revés, es decir, las más recientes al principio.
 

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.


ir al índice