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.




Recursos dentro de un Centro de Computo

Un centro de computo representa una entidad dentro de la organización, la cual tiene como objetivo satisfacer las necesidades de informaci...