Tengo un formulario el cual contiene 2 "Textbox"
Nombre.Text
Apellido.Text
(http://i.imm.io/17nYk.png)
Lo que quiero hacer es que al abrir el programa, éste cree el archivo .INI con el nombre y apellido automáticamente.
(http://i.imm.io/17nYV.png)
Luego poder cambiar esos valor y al darle clic en el botón 'Guardar' y se guarden esos datos.
(http://i.imm.io/17nZh.png)
Al cerrar el programa y volverlo a abrir Cargue esos datos ya guardados en los mismos Textbox.
(http://i.imm.io/17nZz.png)
Agradezco de antemano cualquier tipo de ayuda.
Dim INI_File As String = ".\Test.ini"
Guardar:
Edito: Mejorado
' Save INI Settings
Private Sub Save_INI_Settings()
Dim Current_Settings As String = _
"File=" & TextBox_File.Text & Environment.NewLine & _
"SaveFile=" & CheckBox_SaveFile.Checked
My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)
End Sub
Cargar:
' By Elektro H@cker
' Load INI Settings
Private Sub Load_INI_Settings()
Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
Dim Line As String = String.Empty
Dim Delimiter As String = "="
Dim ValueName As String = String.Empty
Dim Value As Object
' Example content of Test.ini:
'
' File=C:\File.txt
' SaveFile=True
Do Until xRead.EndOfStream
Line = xRead.ReadLine().ToLower
ValueName = Line.Split(Delimiter).First
Value = Line.Split(Delimiter).Last
If ValueName = "File".ToLower Then TextBox_File.Text = Value
If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value
Application.DoEvents()
Loop
xRead.Close() : xRead.Dispose()
End Sub
LOL, vaya programa te estás montando... xD
Anda que no tienes suerte Snytax, Elektro haciéndote el code... xD
Que recuerdos...! :)
Cita de: Seazoux en 26 Mayo 2013, 19:08 PM
LOL, vaya programa te estás montando... xD
Anda que no tienes suerte Snytax, Elektro haciéndote el code... xD
Que recuerdos...! :)
Es que le pregunte por mp porque tenia duda.. y entonces encontre unos tutoriales y le dije que ya no era necesaria la ayuda.. tonces me dijo que el tenia un mejor codigo y que lo publicaba para que todos los vieran fue por eso que cree el tema
Como ha dicho SyntaxError404, es que si estas dudas se resuelven por privado a una sola persona entonces las soluciones no le sirven a nadie más.
Un saludo!
Cita de: EleKtro H@cker en 26 Mayo 2013, 19:22 PM
Como ha dicho SyntaxError404, es que si estas dudas se resuelven por privado a una sola persona entonces las soluciones no le sirven a nadie más.
Un saludo!
Claro, es por eso que cuando pido soporte por MP no me lo dan XD
Ya lo entiendo... xD (hombre, lo suponía)
Pero Elektro mola, porque el te ayuda desde MP y no te obliga a que lo postee, no como otros
(Dryv) :¬¬
Genial, tu codigo funciona a la perfeccion..
solo que cambie unas pequeñas cosas y ya :)
Gracias por tu ayuda.. todas estas pequeñas cosas que me explican me servira para un futuro.. aunque en uno no muy lejano el VB.NET estara obsoleto y abran mejores programas :xD :laugh: :laugh: :laugh:
Cita de: SyntaxError404 en 26 Mayo 2013, 19:28 PMaunque en uno no muy lejano el VB.NET estara obsoleto y abran mejores programas :xD :laugh: :laugh: :laugh:
No lo creo, VB lleva décadas evolucionando, quizás dentro de 10 años hagan un nuevo lenguaje basado en vbnet, pero solo cambiarán unas cuantas cosas pudiéndose traducir fácilmente los códigos, a menos que el Framework ya no existiese en ese futuro, entonces el nuevo lenguaje se basaría en otros métodos y todo sería absolútamente diferente xD.
Yo diría que la evolución de VB no va a morir hasta que Microsoft deje de existir.
Saludos.