USAR UM ARQUIVO.INI PARA O IDIOMA

ALTAIR148 28/10/2012 15:47:21
#413016

Boa tarde,

Amigo, vamos pesquisar um pouco antes de postar, na net tem muito material falando sobre isso, abaixo tem um link que utilizei para usar arquivos INI e funcionar perfeitamente, basta adaptar.

http://fast.livre-forum.com/t4-como-ler-arquivos-ini-em-vbnet

JCMAFIOZO 28/10/2012 20:40:27
#413024 Resposta escolhida

Obss: Voce vai ter que adaptar esse codigo, para as suas funcionalidades.
Eh... Vai Dar um Poco de trabalho, mais voce vai conseguir!

[ô]Delaraçoes

Private Declare Auto Function GetPrivateProfileString Lib [Ô]Kernel32[Ô] (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Private Declare Auto Function WritePrivateProfileString Lib [Ô]Kernel32[Ô] (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

[ô]Retorna o Arquivo INI
Public Function nomeArquivoINI() As String
Dim nome_arquivo_ini As String = GNP.My.Application.Info.DirectoryPath
Return nome_arquivo_ini & [Ô]\config\config.ini[Ô]
End Function

[ô]Ler o Arquivo INI
Private Function LeArquivoINI(ByVal file_name As String, ByVal section_name As String, ByVal key_name As String, ByVal default_value As String) As String
Const MAX_LENGTH As Integer = 500
Dim string_builder As New StringBuilder(MAX_LENGTH)
GetPrivateProfileString(section_name, key_name, default_value, string_builder, MAX_LENGTH, file_name)
Return string_builder.ToString()
End Function

[ô]Carrega os Valores Nas Variaveis
Public Sub CRG_INI()
Dim nome_arquivo_ini As String = nomeArquivoINI()
UsuarioMySQl = LeArquivoINI(nome_arquivo_ini, [Ô]MySQL[Ô], [Ô]User[Ô], [Ô][Ô])
SenhaMySQL = LeArquivoINI(nome_arquivo_ini, [Ô]MySQL[Ô], [Ô]Senha[Ô], [Ô][Ô])
HostMySQL = LeArquivoINI(nome_arquivo_ini, [Ô]MySQL[Ô], [Ô]Servidor[Ô], [Ô][Ô])
DBMySQL = LeArquivoINI(nome_arquivo_ini, [Ô]MySQL[Ô], [Ô]DB[Ô], [Ô][Ô])
End Sub
[ô]Grava No Arquivo Ini.
Private Sub gravaArquivoini()
Dim nome_arquivo_ini As String = nomeArquivoINI()

WritePrivateProfileString([Ô]MySQL[Ô], [Ô]User[Ô], usertxt.Text, nome_arquivo_ini)
WritePrivateProfileString([Ô]MySQL[Ô], [Ô]Senha[Ô], senhatxt.Text, nome_arquivo_ini)
WritePrivateProfileString([Ô]MySQL[Ô], [Ô]Servidor[Ô], servertxt.Text, nome_arquivo_ini)
WritePrivateProfileString([Ô]MySQL[Ô], [Ô]DB[Ô], [Ô]everygames[Ô], nome_arquivo_ini)

End Sub

http://pastebin.com/T3hyU6iy --- Site Com O Codigo Colorido