martes, 15 de septiembre de 2015

¿Cómo retornar valor en una función de Visual Basic 6.0 (VB 6.0)


Private Function RetornarTotal(numero As Integer) As Integer
    Dim Suma As Integer

    Suma = numero + 1

    RetornarTotal = Suma

End Function

---------------------------------------------------------------------------------------------------------------------

La función de tipo Integer (entero), es igualada al total de la Suma para retornarla. Es decir en lugar de ser "Return Suma" es "RetornarTotal = Suma".

Leer un archivo de texto en Visual Basic 6.0 (VB 6.0)

Abre el archivo: Open "C:\Prueba.txt" for input as A

Lo lee con:

Declara variables: Dim Linea as String, Total as String

do until eof(1)
MsgBox (Linea)
Todas = Todas + Linea + vbcrlf
MsgBox (Todas)
loop

Cierra el archivo: close A

Crear carpeta o directorio en Visual Basic 6.0 (VB 6.0)

Agrega una referencia a la librería (¿Cómo agregar librerías?): Microsoft Scripting Runtime 

Luego declaras una variable: Dim p As New FileSystemObject 
Y para crear carpetas usas: p.CreateFolder "c:\tucarpeta"

Añadir / Agregar referencias (librerias) en Visual Basic 6.0 (VB 6.0)

Menú Proyecto / Referencias...

--------------------------------------------------------------------------------------------------------------------------

Se van al menú superior y hacen clic donde dice Proyecto, y luego hacer clic donde dice Referencias...

Una vez ahí podrá ver las librerías disponibles en su VB 6, y podrá agregar las que usted necesite.




Deprecated: mysql_select_db(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in

¿Les ha sucedido que intentan, hacer un query de conexión y les sale un mensaje de que la extensión que están usando es obsoleta? Les pon...