Trucos de Visual Basic 6 que se pueden usar también en VBA
5087
post-template-default,single,single-post,postid-5087,single-format-standard,ajax_fade,page_not_loaded,,vertical_menu_enabled,qode-title-hidden,side_area_uncovered_from_content,qode-theme-ver-11.0,qode-theme-bridge,wpb-js-composer js-comp-ver-5.0.1,vc_responsive
Trucos de Visual Basic 6.0

Trucos de Visual Basic 6

Artículo recopilatorio de trucos de Visual Basic 6.0.

microsoft-visual-basicUna par tips para VB 6 y Microsoft Access que pueden ser de utilidad:

Como saber la extensión de un archivo

Esta instrucción tiene en cuenta que en el nombre del archivo pueda haber mas de un punto y que la extensión pueda ser un numero variable de caracteres. Se facilita en formato de Function pero puede ser convertida a una sola instrucción

Function ExtensionArchivo(Archivo As String, Optional Caracter As String = ".") As String
' Con \ devuelve el nombre del archivo completo
On Error Resume Next
ExtensionArchivo = Right(Archivo, Len(Archivo) - InStrRev(Archivo, Caracter))
End Function

Como entrar en un TextBox de Access y que se ponga al final del campo sin seleccionar todo el texto

nombreCampo.SelLength = 0
nombreCampo.SelStart = Len(descripcion_episodio)<span style="font-size: 13px; line-height: 19px;">

Cómo saber el ID de un autonumérico recién creado

Si creamos un nuevo registro en una tabla cuyo índice es un campo autonumérico es posible que necesitemos saber la ID del registro recien creado. Para ello podemos utilizar las siguientes instrucciones:

' Como obtener el último valor autonumérico de una clave
rst.Move 0, rst.LastModified
lngID = rst!ID

Cómo eliminar el último carácter de una cadena

Eliminar el último carácter de una cadena.

dim Texto as string
Texto = "Hola1";
Texto = Left(Texto, Len(Texto) - 1)

Texto valdrá “Hola”

Mantener el control de un bucle

En algunas ocasiones en un bucle Do While o For Next largo queremos hacer un display de algún campo para poder seguir la evolución del mismo sin embargo vemos como al poco rato la visualización se detiene y no responde hasta el final, con lo cual da la sensación de que el proceso se ha quedado colgado.

Para solucionarlo y mantener la visualización de control en el bucle basta con añadir dentro del mismo la instrucción DoEvents.

Do While ...
    ...
    DoEvents
Loop

Leer el contenido de una URL con Visual Basic

Podemos acceder al contenido de una dirección URL con las siguientes instrucciones. Pongo dos ejemplos, uno donde se obtiene el título de la página con una propiedad directa del objeto y otra donde se captura el contenido HTML completo del cuerpo de la URL usando el objeto Document.

 Dim objIE As Object
 Set objIE = CreateObject("InternetExplorer.Application")
 With objIE
   .Visible = False
   .Navigate URLtxt
   Do While .ReadyState <> 4: DoEvents: Loop
   Debug.Print = .LocationName ' Título de la página
   Debug.Print = .Document.Body.InnerHtml ' Contenido HTML de la página
   .Quit
 End With
 Set objIE = Nothing
1 Star2 Stars3 Stars4 Stars5 Stars (1 votes, average: 5,00 out of 5)
Cargando…
Tags:
No Comments

Deja un comentario

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies