[DUDA] Hacer frase aleatoria

[vivachapas]

sobre manejo de archivos mira este link... (lo es todo para mi xD) jja

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm

SALUDOS

[CesarTkgo69]

incrustarlo en el code lo hallo inexistente
para darte nuevas ideas, otros caminos,
igual de interesante te dejo el codigo
de como leer y escribir archivos INI 

En un Modulo inserta el siguiente codigo:

Código (vb) [Seleccionar] Expandir


Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function ReadINI(strSection As String, strSetting As String, strDefault As String, strRuta As String)
    Dim lngReturn As Long, strReturn As String, lngSize As Long
    lngSize = 255
    strReturn = String(lngSize, 0)
    lngReturn = GetPrivateProfileString(strSection, strSetting, strDefault, strReturn, lngSize, strRuta)
    If strReturn = "" Then
        ReadINI = strDefault
        WriteINI strSection, strSetting, strDefault
    Else
        ReadINI = LeftOf(strReturn, Chr(0))
    End If
End Function

Function WriteINI(strSection As String, strLValue As String, strRValue As String, strRuta As String)
    Dim lngReturn As Long
    lngReturn = WritePrivateProfileString(strSection, strLValue, strRValue, strRuta)
End Function

Function LeftOf(strData As String, strDelim As String) As String
    Dim intPos As Integer
   
    intPos = InStr(strData, strDelim)
    If intPos Then
        LeftOf = Left(strData, intPos - 1)
    Else
        LeftOf = strData
    End If
End Function


En el Form:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
' Esta es la funcion para guardar el tip en el ini

WriteINI "Tips", "ID", Text1, App.Path & "Tips.ini"

End Sub

Private Sub Command2_Click()
' Y con este boton obtenemos los datos en el Text1

Text1 = ReadINI("Tips", "ID", "1", App.Path & "Tips.ini")

End Sub


Ahi para que te entretengas adaptandolo jajajaja
duro trabajo xD

Suerte, Chauuuuuz