hola ayudenme a una cosa sencilla

[Spider-Net]

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!

[warmint]

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 .

[Spider-Net]

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:

Código (vb) [Seleccionar] Expandir


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!

[warmint]

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

[Littl3]

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.

[warmint]

Como? dices asin.

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 = True
Command1.Enabled = False
    End If
End Sub

si no es asin podrias hacer un ejemplo porfavor?.

[naderST]

Hola, COPIA y PEGA este codigo y agrega 3 CommandButton

Código [Seleccionar] Expandir


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.

[warmint]

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 

[Banker25]

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

Hola, COPIA y PEGA este codigo y agrega 3 CommandButton

Código [Seleccionar] Expandir


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.

[cassiani]

Con el permiso de HaDeS, - que fue el primero en postear esto acá. 

A ver... te han posteado el mismo code una y otra vez, le puse comentarios y lo modifique para que lo logres entender.

Código (vb) [Seleccionar] Expandir

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