problema con checkbox (me tiene de cabeza)

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

problema con checkbox (me tiene de cabeza)

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: problema con checkbox (me tiene de cabeza) (Leído 2,129 veces)

rapbyone

Desconectado

Mensajes: 173

problema con checkbox (me tiene de cabeza)

« en: 27 Abril 2014, 00:37 am »

Amigos les cuento, tengo un problema, no logro hacer funcionar lo que quiero, es algo complejo de explicar, les cuento:

tengo un checkbox que:
1. cuando se marca cambia el nombre de una carpeta
2. cuando se desmarca cambia por el nombre anterior

El tema es que quiero que el programa detecte el nombre que tiene para marcar o no marcar el checkbox, trate de hacer lo siguiente. Cuando se inicie el programa haga una comprobación del nombre que tiene la carpeta y marque o desmarque el checkbox.

este es el código:

Código:

Private Sub Check1_Click()
If Check1.Value = 1 Then
   Name "C:\activo" As "C:\inactivo"
Else
   Name "C:\inactivo" As "C:\activo"
End If
End Sub

Private Sub Form_Load()
If Len("C:\activo") = 0 Then
   Check1.Value = 0
   Else
   Check1.Value = 1
End If
End Sub

mas que nada quiero saber como hacer para que cuando se marque una opción al volver a iniciar el programa aparezca la opción marcada.

Difícil de explicar, espero alguien entienda.

dejo el proyecto por si alguien me da una mano por favor

https://mega.co.nz/#!2MZjGJRQ!aCjfA5BJFmhi1_qzh4eqVaWX8-xV198JfNNoFFccWH0


« Última modificación: 27 Abril 2014, 00:40 am por rapbyone »	En línea

abkanis

Desconectado

Mensajes: 34

Re: problema con checkbox (me tiene de cabeza)

« Respuesta #1 en: 28 Abril 2014, 02:53 am »

jejejejeje XD , recuerdo que una vez tube el mismo problema, no soy un profesional en vb6 , pero lo resolvi de esta forma , mira el error ante todo se produce, porque al cargar el formulario, envia la señal de volver a activar el checkbox , y al hacerlo , intenta repetir la misma orden , y como la orden ya ha sido echa, no encuentra el archivo . bueno en mi caso lo resolvi asi:

primero puse una variable global

Código:

Dim X As Integer

luego para detectar el archivo activo puse en el form_load :

Código:

X = 0
Set Carpeta = New FileSystemObject
If Not Carpeta.Folderexists("C:\activo") Then
Check1.Value = 0
Else
Check1.Value = 1
End If

y para que no ejecute una accion repetida creé una condicion if con " X " no con el checkbox , de tal forma que si x= 1 entonces se ejecute recien la condicion:

Código:

If X = 1 Then
If Check1.Value = 0 Then
   Name "C:\activo" As "C:\inactivo"
Else
   Name "C:\inactivo" As "C:\activo"
End If
End If

como abras visto en la carga del formulario se le da el valor 0 por lo tanto no hara nada cuando el formulario envie la orden al click del chekbox , y para que se active justo en el momento preciso en que vas a seleccionar el checkbox utilice:

Código:

Private Sub Check1_GotFocus()
X = 1
End Sub

esto esta basado en tu codigo, el mio era mas largo XD en total todo el codigo se veria asi :

Código:

Dim X As Integer

Private Sub Form_Load()
X = 0
Set Carpeta = New FileSystemObject
If Not Carpeta.Folderexists("C:\activo") Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

Private Sub Check1_Click()
If X = 1 Then
If Check1.Value = 0 Then
   Name "C:\activo" As "C:\inactivo"
Else
   Name "C:\inactivo" As "C:\activo"
End If
End If
End Sub

Private Sub Check1_GotFocus()
X = 1
End Sub

espero que te sirba, como repito no soy experto , si hay cosas que s e puedan corregir , pake no sea mucho codigo, psss ya depende de ti, suerte..


« Última modificación: 28 Abril 2014, 02:57 am por abkanis »	En línea

rapbyone

Desconectado

Mensajes: 173

Re: problema con checkbox (me tiene de cabeza)

« Respuesta #2 en: 28 Abril 2014, 03:35 am »

hermoso, funciono genial
muchas gracias amigo


	En línea

abkanis

Desconectado

Mensajes: 34

Re: problema con checkbox (me tiene de cabeza)

« Respuesta #3 en: 29 Abril 2014, 19:09 pm »

De nada amigo


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Problema con checkbox y base de datos PHP	betocube	5	6,257	21 Abril 2011, 22:33 pm por betocube
	Problema con checkbox « 1 2 » Desarrollo Web	Angel Zero	12	9,596	17 Octubre 2011, 16:15 pm por Angel Zero
	problema checkbox onchange y php [solucionado] PHP	soru13	0	2,047	3 Julio 2012, 15:02 pm por soru13
	Problema con checkbox Programación Visual Basic	rapbyone	4	2,104	6 Enero 2015, 17:46 pm por silver_axe007
	Problema con checkbox .NET (C#, VB.NET, ASP)	jaxoR	6	3,620	9 Mayo 2015, 14:06 pm por Eleкtro