TextBox

[JoaoM]

Iniciado por mrocf

Podrías utilizar algo como:

Código VB:

Private Sub TextNombre_Change()
   cmdInsertar.Enabled = CBool(Len(TextNombre))
End Sub
 

Saludos, Cacho.

Otra rutina, la misma funcion
Private Sub TextNombre_Change()
'If Len(TextNombre) = 0 Then
' cmdInsertar.Enabled = False
'Else
' cmdInsertar.Enabled = True
'End If
End Sub

Explico mejor, el proyecto es en excel

En un form tengo 9 textBox, uno de ellos TextNombre, Tengo mas un ComboBox que se carga al abrir elformulario.
Desde el formulario, Inserto, Edito, elimino y mando Imprimir hoja o linea.

Abriendo el form, los botones Insertar, Editar, Eliminar y otros, estan Enabled=False.
Para Insertar al escribir en el TextNombre el boton Insertar se coloc true, regreso hasta cero caracteres y se pone falsde, PERFECTO.
seleciono un dato en el comboBox se llenan todos los textBox, para Editar o Eliminar, PERFECTO, el cmdInsertar se conserva en False, PEFECTO,
Si Edito los datos, uso el boton cmdEditar, pero ya al editar los datos, edito en los TextBox necesarios y si edito aunque use el TextNombre no queria que el boton cmdInsertar se posiera True,

Escribo esto y pienso, pienso pero me viene algo a la mente.
Tengo un boton cmdEdit_Elim que es un solo boton con doble funcion, inserta los datos despues de editados y elimina si quiero eliminar el dato de la linea. para esto tengo dos OptiBoton, uno para editar y otro para eliminar

Private Sub OptEditar_Click()
cmdEdit_Elim.Enabled = True
cmdEdit_Elim.Caption = " Editar"
OptEditar.Enabled = False
OptEliminar.Enabled = True
End Sub

Private Sub OptEliminar_Click()
cmdEdit_Elim.Enabled = True
cmdEdit_Elim.Caption = " Eliminar"
OptEliminar.Enabled = False
OptEditar.Enabled = True
End Sub

Con
Private Sub cmdEdit_Elim_Click() 'Uso de los OptionBotton
If OptEditar Then 'controlamos si se marca OptEditar
'Codigo para EDITAR
End If
If OptEliminar Then 'controlamos si se marca OptEliminar
'Codigo para ELIMINAR
End Sub

La cosa seria la rutina anterior pero agregarle otro OptBoton, es decir

Private Sub cmdInsert_Edit_Elim_Click() 'Uso de los OptionBotton
If OptEditar Then 'controlamos si se marca OptEditar
'Codigo para EDITAR
End If
If OptEliminar Then 'controlamos si se marca OptEliminar
'Codigo para ELIMINAR
¿QUE LE COLOCO AQUI? ¿otro End If ? ¿resultaria? Pruebo y comento
If OptInsertar Then 'controlamos si se marca OptEditar
'Codigo del cmdInsertar
End Sub

En los botones tengo una imagen para identificacion, para eliminar, para Editar y el de Insertar otra,

El boton cmdEdit_Elim_Click (doble funcion) tien una imagen. El texto(caption) Editar y Eliminar, lo hago aparecer segun el optBoton que active pero la imagen no se como hacer el codigo para que al marcar el OptiBoton Editar aparece el Caption Editar pero quisiera que apareciera la imagen(icono)tambien así como si marco el OptBotonEliminar, el de Eliminar.
¿Alguna idea?