COMO DEIXAR UM OPTION BUTTON SEM ESTAR SELECIONAD

USUARIO.EXCLUIDOS 11/06/2007 15:11:42
#220707
Galera como eu deixo sem ser selecionado o ultimo option button abaixo ?




Private Sub Confirma_Click()


R1VN002.Show

If Me.cb_ssti.Text = "Novo Projeto" Then
   'Verifica se a opcao Novo Projeto foi selecionado , se sim o option button
   'Novo Projeto sera abilitada e as outras duas opcoes seram desabilitadas
   R1VN002.ob_ets.Value = True
   R1VN002.ob_spl.Enabled = False
   R1VN002.ob_crc.Enabled = False
ElseIf Me.cb_ssti.Text = "Correção de erros" Then
   'Verifica se a opcao Correcao de erros foi selecionado ,se sim o option button
   'correcao de erro sera abilitada e as outras duas opcoes seram desabilitadas
   R1VN002.ob_ets.Enabled = False
   R1VN002.ob_spl.Enabled = False
   R1VN002.ob_crc.Value = True

End If


QUANDO FOR ALGUMA DESSAS OPÇÕES IRÁ APARECER A OPCÇÃO 


If cb_ssti.Text = "Adaptativa" Or _
   cb_ssti.Text = "Consulta-Consultoria" Or _
   cb_ssti.Text = "Departamental" Or _
   cb_ssti.Text = "Emergencial" Or _
   cb_ssti.Text = "Evolutiva" Or _
   cb_ssti.Text = "Infra-Estrutura" Or _
   cb_ssti.Text = "Migração SGD para SSTI" Then
   'Verifica se a opcao Adaptativa,Consulta-Consultoria,Departamental,Emergencial,Evolutiva
   'Infra-Estrutura e Migração SGD para SSTI for selecionado ,se sim o option button
   'Completa e Simplificada sera abilitada e a opcao correcao de erro sera desabilitada e as outras opções serão selecionaveis ,porem não quero que nenhum ja venha selecionada ,olhe na screen ,ele ja vem como padrao a primeira opção selecionada porque ? Tem como eu deixar selecionavel ,porem sem estar sinalada ?
   R1VN002.ob_ets.Enabled = True
   R1VN002.ob_spl.Enabled = True
   R1VN002.ob_crc.Enabled = False
   
End If

End Sub
USUARIO.EXCLUIDOS 11/06/2007 15:31:48
#220712
Vamos pensar:
O controle OPTION button foi criado para os casos que o usuário é OBRIGADO a escolher uma opção por que senão teríamos que recorrer a outro controle que seria mais apropriado, o chamado CheckedBox no qual tem 3 Estados Marcado, Limpo e Parcialmente Marcado.

Mas se insistir em utilizar Option por axar mais conveniente no seu contexto faz assim com todos eles:

OptionButton.Value=False

Essa foi moleza
USUARIO.EXCLUIDOS 11/06/2007 15:41:52
#220714
exatamente isso

OptionButton.Value=False

parabéns !!!
USUARIO.EXCLUIDOS 11/06/2007 16:06:56
#220719
Acho que vc não entenderam olhe a screen.

Reparem que a opção (option button) correção de erro está desabilito ,até ai tudo bem , problema esta nas duas outras opções que são Completa e Simplificado que nenhuma das duas e para estar selcionada ,elas devem deixar o usuario selecionar.

Olhe na screen
USUARIO.EXCLUIDOS 11/06/2007 16:33:31
#220735 Resposta escolhida
ALLAN, conforme nosso amigo EMERSON_TADEU postou é vc colocar os seus options com a propriedade value = false...Faça isto no evento Form_load do seu form de nome R1VN002.

Faça assim:

private Sub Form_Load()

 Nome_do_seu_option_Completa.value=false
 Nome_do_seu_option_Simplificada.value=false

end Sub


CAPITHE?? OU SE PREFERIR: vá direto nas propriedades (value) dos seus options e coloque falso..
USUARIO.EXCLUIDOS 11/06/2007 16:42:55
#220737
Mais facil ainda, escolhe outro OB e poe ele true.

optionButtom.value= true ... vc ta tendo mais problema de lógica do que código

Se o cara fizer algo que deixe ob_crc.enabled = false este mesmo fato deve escolher algum outro ob e colocá-lo para true (oc_crc deixa se true automático por que está no mesmo frame)

E sua tela está boa, vc tem uma bela noção do que o user precisa !
USUARIO.EXCLUIDOS 11/06/2007 16:46:34
#220738
Hehehehe

Não deu certo ou fiz algo errado.

São duas Telas.

No primeiro FORM = R1VN002

Sub Form_Load()

[c]Private Sub Form_Load()

'Criacao de combo
cb_ssti.AddItem ""
cb_ssti.AddItem "Adaptativa"
cb_ssti.AddItem "Consulta-Consultoria"
cb_ssti.AddItem "Correção de erros"
cb_ssti.AddItem "Departamental"
cb_ssti.AddItem "Emergencial"
cb_ssti.AddItem "Evolutiva"
cb_ssti.AddItem "Infra-Estrutura"
cb_ssti.AddItem "Migração SGD para SSTI"
cb_ssti.AddItem "Novo Projeto"

'Data da maquina no rodapé
pd3d_status(1).Caption = Date


End Sub



No segundo FORM não consta nada

O que será que estou fazendo de errado.
USUARIO.EXCLUIDOS 11/06/2007 16:55:10
#220745
Vc tem que colocar o codigo abaixo no form onde estão os options....

Se vc tem 2 forms (Tente no primeiro, depois no segundo) :)

private Sub Form_Load()

 Nome_do_seu_option_Completa.value=false
 Nome_do_seu_option_Simplificada.value=false

end Sub


ou...coloque direto nas propriedades dos options (Tecle F4) ache o value e coloque FALSE.
USUARIO.EXCLUIDOS 12/06/2007 00:35:38
#220793
Ta bom, eu evito ao máximo postar código mas esse ta mto facil !!!

Seu problema é de lógica !!!


Private Sub Confirma_Click()

R1VN002.Show

If Me.cb_ssti.Text = "Novo Projeto" Then
   'Verifica se a opcao Novo Projeto foi selecionado , se sim o option button
   'Novo Projeto sera abilitada e as outras duas opcoes seram desabilitadas
   R1VN002.ob_ets.Value = True
   R1VN002.ob_spl.Enabled = False
   R1VN002.ob_crc.Enabled = False
ElseIf Me.cb_ssti.Text = "Correção de erros" Then
   'Verifica se a opcao Correcao de erros foi selecionado ,se sim o option button
   'correcao de erro sera abilitada e as outras duas opcoes seram desabilitadas
   R1VN002.ob_ets.Enabled = False
   R1VN002.ob_spl.Enabled = False
   R1VN002.ob_crc.Value = True

End If

If cb_ssti.Text = "Adaptativa" Or _
   cb_ssti.Text = "Consulta-Consultoria" Or _
   cb_ssti.Text = "Departamental" Or _
   cb_ssti.Text = "Emergencial" Or _
   cb_ssti.Text = "Evolutiva" Or _
   cb_ssti.Text = "Infra-Estrutura" Or _
   cb_ssti.Text = "Migração SGD para SSTI" Then
   'Verifica se a opcao Adaptativa,Consulta-Consultoria,Departamental,Emergencial,Evolutiva
   'Infra-Estrutura e Migração SGD para SSTI for selecionado ,se sim o option button
   'Completa e Simplificada sera abilitada e a opcao correcao de erro sera desabilitada e as outras opções serão selecionaveis ,porem não quero que nenhum ja venha selecionada ,olhe na screen ,ele ja vem como padrao a primeira opção selecionada porque ? Tem como eu deixar selecionavel ,porem sem estar sinalada ?
   R1VN002.ob_ets.Enabled = True
   R1VN002.ob_spl.Enabled = True
   R1VN002.ob_crc.Enabled = False

End If

   'Caso nosso option Disabled estivesse selecionado (Somente neste caso viu !!):
if R1VN002.ob_crc.Enabled = True
      R1VN002.ob_ets.Value = True 'Seria o option padrão ... inicial do sistema

End If

End Sub
USUARIO.EXCLUIDOS 12/06/2007 10:16:13
#220844
Continua dando pau ,mas irei dar uma olhada mais detalhada.
USUARIO.EXCLUIDOS 12/06/2007 14:17:21
#220898
Onde tá dando o "pau"?
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar