Programación General > Visual Basic 6.0 e inferiores

 Archivos .ini

(1/2) > >>

Bluebird:
Hola que tal a todos....Tengo problemas para crear archivo ini  a partir de esta línea´s de código....


--- Código: Text --- Private Sub RandTema()Dim rec1 As ADODB.RecordsetDim Ntemas As IntegerDim nroTem As IntegerDim rnLabel8(0).Caption = ""Label8(1).Caption = "" Pasa_Pago = FalseSet rec1 = New ADODB.Recordsetrec1.Open "select * from temas", Constri, adOpenStatic, adLockReadOnlyNtemas = rec1.RecordCountRandomizern = Int((Ntemas * Rnd))   ' Genera valores aleatorios entre 1 y 6.'rn = Int(Ntemas / 60 * Second(Time))rec1.MoveFirstrec1.Move rnnroTem = rec1(0)rec1.CloseSet rec1 = Nothing'Mp1.StopMp3.Controls.StopTMRTema.Enabled = True'Mp1.Volume = -2700 ------------------------> ¿Como Hacer un .ini para manejar este valor externamente?'Mp1.Open "c:\mp3\" & nroTem & ".mp3"Mp3.settings.volume = 4Mp3.URL = "c:\mp3\" & nroTem & ".mp3"   

Jose Arriagada:
Si es solo este valor, entonces lo mas facil es...

'Para crear el ini
ArchivoIni=App.path & "\ARCHIVO.INI"
open ArchivoIni for output as #1
print #1, Valor
close(1)


'Para leer el ini
ArchivoIni=App.path & "\ARCHIVO.INI"
open ArchivoIni for input as #1
input #1, Valor
close(1)

RadicalEd:
Para crear archivos .ini puedes usar las api's:

--- Código: Text ---Private 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    Private 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 Son mucho más confiables que hacerlo a mano.

Ojala te sirva.
Chao

Bluebird:
Hola José y RadicalEd...

Para José:

En donde Marque donde va el valor del Volumen...."Mp3.Volume= (Valor del Ini)...¿ahi tengo que colocar el mombre del archivo ini que yo creo?....


Gracias...
 :hola:
Para Radical:

Ademas de esas instrucciones api como lo llamo desde la línea que menciono más arriba.

Gracias a los dos :comp:

Salu2 :hola:

RadicalEd:

--- Cita de: "Bluebird" --- Hola José y RadicalEd...

Para José:

En donde Marque donde va el valor del Volumen...."Mp3.Volume= (Valor del Ini)...¿ahi tengo que colocar el mombre del archivo ini que yo creo?....


Gracias...
 :hola:
Para Radical:

Ademas de esas instrucciones api como lo llamo desde la línea que menciono más arriba.

Gracias a los dos :comp:

Salu2 :hola:
--- Fin de la cita ---
1) Creas una variable que va sera un String que contendra el path de donde guardas el archivo .ini.

2) Con GetPrivateProfileString, puedes obtener datos de un item que tu le digas del archivo.ini

Navegación

[0] Índice de Mensajes

[#] Página Siguiente