Foro de elhacker.net

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?

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?

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 :-\ :(.

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 Sub

Supongo 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.

si no es asin podrias hacer un ejemplo porfavor?.

Hola, COPIA y PEGA este codigo y agrega 3 CommandButton


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

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