FLEXGRID COM DADOS ARQUIVO.INI

Private Declare Function GetPrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]GetPrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

   

Function GetIni(setor As String, chave As String, warq As String) As String
Dim wval As String
Dim rr As Integer
    wval = String$(255, 0)
    rr = GetPrivateProfileString(setor, chave, [Ô][Ô], wval, Len(wval), warq)
    GetIni = [Ô][Ô]
    If rr <> 0 Then GetIni = Left(wval, InStr(wval, Chr(0)) - 1)
End Function

Sub ler_INI()

On Error GoTo Rotina_Erro


    SERVIDOR = GetIni([Ô]MySQL_Connect[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    PORTA = GetIni([Ô]MySQL_Connect[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    USUARIO = GetIni([Ô]MySQL_Connect[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    SENHA = GetIni([Ô]MySQL_Connect[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    BASE = GetIni([Ô]MySQL_Connect[Ô], [Ô]BASEDEDADOS[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    Exit Sub
Rotina_Erro:

End Sub

   
Private Sub Form_Load()
    Dim Entry, i, Msg
        Msg = _
        [Ô]Choose OK to add 100 items to your MSFlexGrid.[Ô]
        MsgBox Msg
    MSFlexGrid1.Cols = 3
    For i = 1 To 100
            Entry = [Ô]Entry [Ô] & vbTab & Format(i, [Ô]0.00[Ô]) & vbTab & Format(i * 5, [Ô]0.00[Ô]) [ô] Create entry.
    MSFlexGrid1.AddItem Entry
    Next i
End Sub