Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: rapbyone en 4 Noviembre 2014, 05:13 AM

Título: Problema al almacenar valor de Checkbox
Publicado por: rapbyone en 4 Noviembre 2014, 05:13 AM
Amigos:

Estoy intentado almacenar el valor de un checkbox de manera muy engorrosa, pero no logra dar con el error, paso a explicar el cogido, así se el form:

(http://i74.servimg.com/u/f74/14/27/29/04/110.png)

así funciona, espero se entienda:

al presionar el checkbox se genera un archivo de texto con el valor marcado:

Código (vb) [Seleccionar]

Private Sub Check1_Click()
If Check1.Value = 1 Then
Dim fnum As Integer

fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "1"
Close fnum 'se cierra el archivo
Else

fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "0"
Close fnum 'se cierra el archivo
End If
End Sub


Luego al iniciar el programa, intento cargar el valor del C:\Archivo.txt en un textbox y luego intento marcar el checkbox leyendo el valor del Text1 y poder marcar el checkbock con este código:

Código (vb) [Seleccionar]

Private Sub Form_Load()
   Dim foo As Integer
   
    foo = FreeFile
    Open "C:\Archivo.txt" For Input As #foo
        Text1.Text = Input(LOF(foo), #foo)
    Close #foo

If Text1.Text = "1" Then
   MsgBox "1"
Check1.Value = 1
    Else
   MsgBox "0"
Check1.Value = 0
    End If
    End Sub


El problema es que siempre me sale el mensaje del valor 0, y no logro hacerlo funcionar.

Alguna idea del por que se genera este error??

gracias amigo :D
Título: Re: Problema al almacenar valor de Checkbox
Publicado por: rapbyone en 4 Noviembre 2014, 13:36 PM
El problema estaba acá:

If Text1.Text = "1" Then

tiene que ser así:

If Text1.Text = 1 Then

Dejo el código, a alguien le puede servir
saludos  ;-)
Título: Re: Problema al almacenar valor de Checkbox
Publicado por: leomoon45 en 6 Enero 2015, 13:12 PM
hola amigos tengo un problema con el treeview busque pero no encontre nada hace horas asique decidi preguntar

estoy manipulando una coleccion de una base de datos y esta todo OK, agrego, edito, muestro
la cosa es cuando quiero eliminar un NODO hijo, puedo borrar el padre pero me borra todo yo solo quiero borrar un hijo.