BOTAO PRESIONADO NO TOOLSTRIP
Ola caros colegas,
Estou com um probleminha e não consigo fazer funcionar no vb.net , eu incluir um objeto no meu formulário que foi o ToolStrip para criar uma barra de ferramentas nela eu criei 3 botões onde , eu desejo quando clicar em um botão ele ficar pressionado e dês - pressionar o outro botão que foi pressionado anteriormente.
mas estou apanhando igual mala velha rs, espero que alguém possa me ajudar.
Desde já agradeço. t+
Estou com um probleminha e não consigo fazer funcionar no vb.net , eu incluir um objeto no meu formulário que foi o ToolStrip para criar uma barra de ferramentas nela eu criei 3 botões onde , eu desejo quando clicar em um botão ele ficar pressionado e dês - pressionar o outro botão que foi pressionado anteriormente.
mas estou apanhando igual mala velha rs, espero que alguém possa me ajudar.
Desde já agradeço. t+
Ola pessoal,
Só pra resaltar é pra obter o resultado igual do Word do office, quando vc clica no botao centralizar, alinha a direita ou esquerda, o botão ficar selecionado. Quando clica em um botão o outro que estiver selecionado deseleciona.
Só pra resaltar é pra obter o resultado igual do Word do office, quando vc clica no botao centralizar, alinha a direita ou esquerda, o botão ficar selecionado. Quando clica em um botão o outro que estiver selecionado deseleciona.
Estive fazendo uns testes aqui e veja se isto pode te ajudar
Neste caso, a propriedade CheckOnClick, do botão, deve estar como True
Neste caso, a propriedade CheckOnClick, do botão, deve estar como True
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
DesSeleciona(3)
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
DesSeleciona(2)
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
DesSeleciona(1)
End Sub
Private Sub DesSeleciona(ByVal QualBotao As Integer)
Select Case QualBotao
Case 1
ToolStripButton2.Checked = False
ToolStripButton3.Checked = False
Case 2
ToolStripButton1.Checked = False
ToolStripButton3.Checked = False
Case 3
ToolStripButton1.Checked = False
ToolStripButton2.Checked = False
End Select
End Sub
Obrigado era isso mesmo
Tópico encerrado , respostas não são mais permitidas