 Autor
|
Tema: hola ayudenme a una cosa sencilla (Leído 5,386 veces)
|
Spider-Net
 Desconectado
Mensajes: 1.165
Un gran poder conlleva una gran responsabilidad
|
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!
|
|
|
|
|
En línea
|
|
|
|
warmint
Desconectado
Mensajes: 17
|
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   .
|
|
|
|
|
En línea
|
|
|
|
Spider-Net
Desconectado
Mensajes: 1.165
Un gran poder conlleva una gran responsabilidad
|
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 Sub
Supongo que así funcionará. Saludos!
|
|
|
|
|
En línea
|
|
|
|
warmint
Desconectado
Mensajes: 17
|
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  |
|
|
|
|
En línea
|
|
|
|
Littl3
Desconectado
Mensajes: 239
Tarde o temprano aparece el hombre
|
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.
|
|
|
|
|
En línea
|
|
|
|
warmint
Desconectado
Mensajes: 17
|
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?. |
|
|
|
|
En línea
|
|
|
|
|
naderST
|
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. |
|
|
|
|
En línea
|
|
|
|
warmint
Desconectado
Mensajes: 17
|
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 |
|
|
|
|
En línea
|
|
|
|
Banker25
Desconectado
Mensajes: 800
Caos total en el sistema..Pulse F13 para soluciona
|
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 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. |
|
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
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. 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á. |
|
|
|
« Última modificación: 12 Mayo 2008, 00:17 am por cΔssiΔnі »
|
En línea
|
|
|
|
|
 |
