estoy muy liado vereis kisiera acer teniendo 2 botones y 2 textbox una cosa y eske quiero en el 1 poner la contraseña y entra al form siguiente pues vereis en el otro cuando le aprete al otro button ponga la contraseña y el 1 boton se quede inaccesible osea k cada vez k le apretes al boton no vaya y el otro si y tambien quiero k cuando eso se haga se kede aun aviendo cerrado el .exe y cuando lo buelves a estar aun este vereis soy aun novato y me gustaria de buestra ayuda para hacer una cosa k me gustaria aprender espero buestras respuestas ;)
os dejo una foto
(http://i32.tinypic.com/25imyyv.jpg)
Hola... algo asi?
private sub Command2_click()
command1.enabled = false
end sub
siiiiiiiiiiiii aora necesito k se kede asin osea k se guarde conforme esta y cuando se ejecute el programa o lo k valla acer siga asin saves como?
Cita de: warmint en 10 Mayo 2008, 21:38 PM
siiiiiiiiiiiii aora necesito k se kede asin osea k se guarde conforme esta y cuando se ejecute el programa o lo k vaya acer siga asin saves como?
escribe bien... no te entiendo que quieres hacer.
eske yo escribo asin enverde que es que xD
mira lo k quiero eske cuando abra el form y le aprete al command 2 el command kede inabilitado como lo k tu me as dicho y cuando cierre y vielva abrir se kede con el command 1 desabilitado osea lo k e echo se kede o otro ejemplo
supongamos k lo convierto en .exe y se llama ejemplo programa.exe lo abro y estan los dos botones bien no? entoces cuando le aprete al 2 el command 1 se desabilite y cierro el programa.exe y cuando lo vuelva abrir que el command 1 siga deshabilitado k lo k aiga echo se ubiera guardado entiendes ya pues aora quiero la manera de k se guarde eso solo espero tu respuesta o la de otro ;)
Mira este pequeño ejemplo:
Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub
Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
Command1.Enabled = False
End If
End Sub
SaveSetting guarda un valor en el registro del sistema.
GetSetting retorna valores del registro del sistema.
Command2 deshabilita el botón
Command3 habilita el botón
Para deshabilitar el botón cada vez que se inicia la aplicación retornamos el valor en el registro de la clave habilitado, y si es igual a cero (Que anteriormente se definió con command2) entonces el botón quedará inhabilitado)
Saludos
nas, el savesetting me hubiera servido mucho hace tiempo, para guardarlo que sintaxis se utiliza?
Por ejemplo asi:
SaveSetting "ejemplo", "boton", "habilitado", "1"
Esta guardando una clave en ejemplo/boton/habilitado con valor 1 ?
No se podria guardar directamente en ejemplo? "SaveSetting "ejemplo", "1"
Salu2
mejor usa la clase que subi, para utulizar el registro, es muchisimo mejor, y podes hacer comprobaciones y elegir el destino de la informacion!!
aca te paso el link nuevamente: clsLightning.rar en UpSourceCode.com.ar (http://www.uploadsourcecode.com.ar/d/7hLsjHceYvQBQATLQF0cUIaS86aty7fR)
Gracias le hechare un vistazo :P
siiiiii es lo k quiero pero ay un problemita veras
lo que te marque de rojo es el problema veras yo no quiero k empieza desabilitado quiero k empieze abilitado pero cuando canvio el codigo k te e puesto en rojo enverde false le pones true pero ese es el problema cuando lo canvias lo abres de prueba empieza vien pero cuando lo cierras con el boton deshabilitado y abres sige igual :-[ alguna ontra sugerencia?
Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub
Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
Command1.Enabled = False
End If
End Sub
No estaría mal que de vez en cuando pusieras algún punto(.) alguna coma(,) y demás signos de puntuación. Y si cuidases un poco la ortografía quizás hasta conseguirías que más gente se preocupe de ayudarte, ya que de esta forma no sólo es difícil entender lo que quieres decir al no usar puntuación, sino que encima hay que descifrar lo que pone en tu mensaje con semejantes barbaridades y patadas a la ortografía.
Es sólo un consejo... no cuesta tanto escribir "medio bien".
Saludos!
pos ami me cuesta y mucho yo enverde escribir "que" escribo "k" no es tan dificil y respecto a los signos de puntuacion no los escribo eske no por mucho k kiera al ir tan rapido puff se me aria una eternidad. bueno intentare acer algo, espero k me lo solucionen jejeje eske e probado con todo y nada :-\ :(.
Cita de: warmint en 11 Mayo 2008, 14:33 PM
pos ami me cuesta y mucho yo enverde escribir "que" escribo "k" no es tan dificil
Si sólo fuera eso...
Bueno el problema de tu programa, que apenas he mirado de que va, más que nada por la ortografía de tus mensajes... creo que es el siguiente:
Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub
Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "1" Then
Command1.Enabled = True
End If
End SubSupongo que así funcionará.
Saludos!
Es lo mismo k e dicho antes, si el problema esta en que cuando ocultas el command 1 no se guarda, cuando cierras y abres sige estando sin bloquear, me estoy comiendo la caveza y no consigo averiguarlo deberia empezar por estar desblokeado y al apretar el command 2 bloquearse y k se guarde, asin cuando se abra de nuevo este bloqueado aver si me entiendes, y sino as la prueba tu mismo ;)
No seria mas facil tener el enabled del command en false dentro del form_load, y que sea enabled = True solo si X cosa es cierta.
Como? dices asin.
CitarPrivate Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub
Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
Command1.Enabled = True
Command1.Enabled = False
End If
End Sub
si no es asin podrias hacer un ejemplo porfavor?.
Hola, COPIA y PEGA este codigo y agrega 3 CommandButton
Option Explicit
Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub
Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub
Ya lo probe y funciona perfecto.
eso no es, si lo k yo quiero eske solo agregar 2 command buton y el comand 1 empieze normal y al apretar al comando 2 se kede deshabilitado para siempre, aver si asin por lomenos lo entendeis ;)
hola que tal warmint tienes que hacer como dice naderst tu lo que quieres es que cuando hagas clic en el commandbutton 1 que el commandbutton 2 se desabilite eso es lo que tu quieres o no esto te va a servir
Cita de: naderST en 11 Mayo 2008, 19:04 PM
Hola, COPIA y PEGA este codigo y agrega 3 CommandButton
Option Explicit
Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub
Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub
Ya lo probe y funciona perfecto.
Con el permiso de HaDeS, - que fue el primero en postear esto acá. :P
A ver... te han posteado el mismo code una y otra vez, le puse comentarios y lo modifique para que lo logres entender.
Option Explicit
Dim sNombreAplicacion As String, sSeccion As String, sClave As String
Dim sConfiguracion As String
Private Sub Command2_Click()
'Deshabilitamos el botón 1
Command1.Enabled = False
'Grabamos en el registro nuestra configuracion
sConfiguracion = "1"
SaveSetting sNombreAplicacion, sSeccion, sClave, sConfiguracion
End Sub
Private Sub Form_Load()
'Los parametros tanto para GetSetting como para SaveSetting son:
'AppName: Debemos indicar el nombre de la aplicacion, en el ejemplo pasamos App.Exename
'Section: Dato de tipo String para la sección a crear o leer
'Key: Nombre de la clave a crear o leer
'Setting: En SaveSetting es el Valor a guardar. En el caso de GetSetting este
' parametro no existe, y tiene uno llamado Default que es de tipo opcional para
' asignar en caso de que no haya datos.
'En ese sentido
sNombreAplicacion = App.EXEName
sSeccion = "Boton"
sClave = "Habilitado"
'Al iniciar comprobamos en el registro y asignamos la ultima configuracion
If GetSetting(sNombreAplicacion, sSeccion, sClave) = "1" Then
Command1.Enabled = False
End If
End Sub
Eso hace lo que quieres... pero no te conformes con eso, preguntate ¿Cómo funciona? y si lo que ves no te da la respuesta, trata de buscarla por tu propia cuenta y si no puedes, vuelves a postear acá. ;)
siiiiiii solucionado muchas gracias gente me abeis ayudado mucho, sois la caña :P saludos ;D