Acceso a los trucos ya publicados de Microsoft Visual Basic

27/11/98

Cómo minimizar todas las ventanas

20/11/98

Cómo cerrar conexiones implícitas

13/11/98

Cómo ejecutar como procedimiento el contenido de un string

6/11/98

Cómo establecer los márgenes de la impresora

30/10/98

Cómo testear la línea de comandos

23/10/98

Ejecución de programas con Drag & Drop

16/10/98

Cómo desplazar el cursor hasta el final de una caja de texto

9/10/98

Cómo obtener la operación realizada sobre un formulario modal

2/10/98

Cómo añadir controles dinámicamente en formularios

25/09/98

Cómo desactivar los repintados de una ventana

18/09/98

Cómo registrar/de-registrar servidores EXE

24/07/98

Cómo desplazar bits de forma similar a los comandos > de Visual C

17/07/98

Cómo obtener un puntero a una variable

10/07/98

Cómo registrar/desregistrar controles ActiveX rápidamente

3/07/98

Cómo evitar utilizar variables no declaradas

26/06/98

Cómo rellenar un ComboBox con los meses del año

19/06/98

Cómo evitar múltiples instancias de una misma aplicación

12/06/98

Cómo evitar que los complementos se ejecuten al lanzar VB

5/06/98

Cómo limpiar las cajas de texto y otros controles de un formulario

29/05/98

Cómo especificar la longitud máxima en un ComboBox

22/05/98

Cómo crear pequeños arrays utilizando el tipo Variant

15/05/98

Cómo mostrar un error de forma detallada al llamar a una API

08/05/98

Cómo comprobar la existencia de un fichero determinado

01/05/98

Cómo mostrar colores degradados en un formulario de VB

24/04/98

Cómo implementar la función "Deshacer" en una caja de texto.

17/04/98

Cómo obtener el nombre del equipo.

10/04/98

Cómo determinar que fuentes están instaladas en el sistema

3/04/98

Cómo obtener el nombre corto (MS-DOS) a partir del nombre largo de un fichero

27/03/98

Cómo saber qué DLLs están cargadas en memoria y otra información útil del sistema.

Acceso a los trucos ya publicados de Microsoft Visual Basic

20/03/98

Dónde encontrar los ficheros CABINET que son necesarios cuando se distribuye una aplicación en Internet.

13/03/98

Cómo incluir dos campos en un control DBCOMBO

06/03/98

Cómo añadir bloques de comentarios en el código de forma sencilla en Microsoft Visual Basic 5.0.

27/02/98

Cómo realizar una consulta por PASSTHROUGH en RDO.

20/02/98

Cómo depurar Microsoft Visual Basic Documents (VBDS).

13/02/98

Cómo simular el comportamiento de la barra de herramientas de Microsoft Office 97.

06/02/98

Cómo especificar la posición de un formulario sin necesidad de programar en VB 5.0.

30/01/98

Cómo desarrollar DLLs en C que puedan ser utilizadas por Visual Basic.

23/01/98

Cómo introducir valores en una celda de un control DBGRID.

16/01/98

Dónde encontrar una herramienta que permita crear bases de datos, editar el diseño de bases de datos existentes, asistente de consultas, etc....

09/01/98

Solución a los parpadeos que se producen al descargar un formulario con un control DBGRID.

19/12/97

Cómo implementar en Visual Basic un control similar al Microsoft Calendar de Office.

12/12/97

Tratamiento de DBCOMBO y el registro actual.

05/12/97

Cómo utilizar en Visual Basic 5.0 controles que se incluían en la versión 4.0 y que Visual Basic 5.0 ya no instala.

28/11/97

Tratamiento de SSPANEL y la barra de progreso.

24/10/97

Cómo obtener una lista de los procesos en memoria en Microsoft Windows 95.

17/10/97

Cómo reproducir un CD de Audio.

10/10/97

Cómo saber si un ejecutable es de Windows o MS-DOS.

03/10/97

Visualización de videos AVI con MCI.

26/09/97

Cómo aumentar el rendimiento del control ListView.

19/09/97

Captura de errores del DBGrid en tiempo de ejecución.

12/09/97

Acceso a bases de datos seguras.

05/09/97

Cómo establecer márgenes cuando se imprime con el RichTextBox.

01/08/97

Cómo solucionar el error al establecer la propiedad MatchEntry del DBCombo.

Acceso a los trucos ya publicados de Microsoft Visual Basic

25/07/97

Cómo usar CompactDatabase con un base de datos con contraseña.

18/07/97

Cómo cancelar un AddNew/Edit sin abandonar el registro actual.

11/07/97

Cómo enviar un fichero de Windows 95 a la papelera.

04/07/97

Cómo cambiar el tamaño de la caja de herramientas en Visual Basic.

27/06/97

Preguntando al usuario por un directorio en Windows 95.

20/06/97

Cómo crear accesos directos en Windows 95 desde Visual Basic.

25 DE JUNIO DE 1999 Cómo dibujar letras en tres dimensiones en Visual Basic

Cómo dibujar letras en tres dimensiones en Visual Basic Aplicable a Microsoft Visual Basic 6 Para dibujar letras en tres dimensiones en Visual Basic lo único que hay que hacer crear un formulario e introducir en él un Command Button con el siguiente código: Private Sub Command1_Click() Dim I As Integer, X As Integer, Y As Integer ForeColor = &HFF0000: X = CurrentX: Y = CurrentY CurrentX = X: CurrentY = Y: FontSize = 14 For I = 1 To 50 Print "Texto en tres dimensiones" X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y Next I ForeColor = &HFF00& Print "Texto en tres dimensiones" End Sub Donde en vez de "Texto en tres dimensiones" pondremos el texto que queramos. Truco originalmente publicado en http://www.somser.com/

18 DE JUNIO DE 1999 Cómo obtener el directorio desde donde estamos ejecutando nuestro programa en Visual Basic

Cómo obtener el directorio desde donde estamos ejecutando nuestro programa Aplicable a Microsoft Visual Basic 6 Para obtener el directorio desde donde estamos ejecutando nuestro programa lo único que hay que hacer es utilizar este código: Private Sub Form_Load() Dim Directorio as String ChDir App.Path ChDrive App.Path Directorio = App.Path If Len(Directorio) > 3 Then Directorio = Directorio & "\" End If Text1.Text = Directorio End Sub En este ejemplo el directorio aparecerá en el cuadro de texto Text1. Función creada por Eduardo Fórneas. Originalmente publicada en http://www.arrakis.es/~eforneas/breves.htm

11 DE JUNIO DE 1999 Cómo colocar la hora y la fecha en la barra de título de una MDI Form en Visual Basic

Cómo colocar la hora y la fecha en la barra de título de una MDI Form Aplicable a Microsoft Visual Basic 6 Para colocar la hora y la fecha en la barra de título de una MDI Form siga estos pasos: 1. Coloque un objeto timer en el formulario MDI. 2. El valor de la propiedad Interval del objeto timer debe ser 1000. 3. Elimine el valor de la propiedad caption de la forma MDI. 4. En el procedimiento Timer del objeto escriba el siguiente código: .Caption = "" & Format(Date, "dd-mm-yyyy") & " " & Format(Now, "h:nn:ss AM/PM") Donde NombreForm el el nombre de su formulario MDI y Nombre de la aplicación es el nombre que le quiere dar. 5. En el procedimiento Load del formualario escriba el siguiente código: timer1.Enabled = true Función originalmente publicada en http://www.compuconsult.com.ve/

4 DE JUNIO DE 1999 Cómo pasar de números romanos a árabes en Visual Basic

Cómo pasar de números romanos a árabes Aplicable a Microsoft Visual Basic 5, Visual Basic 6 Para pasar de números romanos a árabes utilice la siguiente función, que coge el número en forma de cadena y devuelve el número árabe. Function ConvertirArabe(Romano As String) As Integer Dim Numero As Integer, Valor1 As Integer Dim Valor2 As Integer, Cadena As String If Len(Romano) = 0 Then ConvertirArabe = 0: Exit Function Cadena = Trim(Romano) Numero = 0 Do Valor1 = VerValor(left(Cadena, 1)) Cadena = Right$(Cadena, Len(Cadena) - 1) Valor2 = VerValor(left(Cadena, 1)) If Valor1 >= Valor2 Then Numero = Numero + Valor1 Else Numero = Numero - Valor1 End If Loop Until Len(Cadena) = 0 ConvertirArabe = Numero End Function Function VerValor(Simbolo Select Case Simbolo Case "I" VerValor = Case "V" VerValor = Case "X" VerValor = Case "L" VerValor = Case "C" VerValor = Case "D" VerValor = Case "M" VerValor = Case "Q" VerValor = Case "H" VerValor = End Select End Function

As String) As Integer 1 5 10 50 100 500 1000 5000 10000

Función creada por Maverick. Originalmente publicada en http://www.programando.com/visualbasic/crazy/FAQ.htm

http://www.microsoft.com/spain/support/trucos/vbasic/vb040699.htm [01/03/2001 1:10:00]

28 DE MAYO DE 1999 Cómo pasar de números árabes a romanos en Visual Basic

Cómo pasar de números árabes a romanos Aplicable a Microsoft Visual Basic 5, Visual Basic 6 Para pasar de números árabes a romanos utilice la siguiente función, que coge el número y devuelve una cadena con el número en romano. Function Dim Dim Dim Dim Dim

ConvertirRomano(Numero As Integer) As String Romano As String I As Integer, Digito As Integer, x As Integer Cadena As String, CadenaTmp As String Simbolo1 As String * 1, Simbolo2 As String * 1 Simbolo3 As String * 1

Cadena = CStr(Numero) For x = 1 To Len(Cadena) If Len(Cadena) = 4 Then Simbolo1 = "M" Simbolo2 = "Q" Simbolo3 = "H" Digito = CInt(left$(Cadena, 1)) Cadena = Right$(Cadena, 3) ElseIf Len(Cadena) = 3 Then Simbolo1 = "C" Simbolo2 = "D" Simbolo3 = "M" Digito = CInt(left$(Cadena, 1)) Cadena = Right$(Cadena, 2) ElseIf Len(Cadena) = 2 Then Simbolo1 = "X" Simbolo2 = "L" Simbolo3 = "C" Digito = CInt(left$(Cadena, 1)) Cadena = Right$(Cadena, 1) ElseIf Len(Cadena) = 1 Then Simbolo1 = "I" Simbolo2 = "V" Simbolo3 = "X" Digito = CInt(left$(Cadena, 1)) Cadena = "" End If If Digito