Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

mekanis

Tab Control

Recommended Posts

mekanis

Boas pessoal

Como é que faço para não deixar o utilizador passar de uma tab para outra clicando na separação?

Qual a propriedade ou evento e limita isso?

Obrigado, Cumpz

Share this post


Link to post
Share on other sites
mekanis

Obrigado r00tfixxxer

Para quem, possivelmente, tenha a mesma dúvida que eu e não tenha "apanhado" o sentido da coisa, para impedir o utilizador de seleccionar a TAB seguinte, basta meter este código:

Private Sub TabControl1_Deselecting(ByVal sender As Object, ByVal e As TabControlCancelEventArgs) Handles TabControl1.Deselecting
        e.Cancel = True
End Sub

Cumpz e obrigado mais uma vez

Share this post


Link to post
Share on other sites
mekanis

Pessoal tenho uma duvida, isto não me está a deixar passar para outra tab, com recurso a um botão, por serem eventos diferentes.

Como faço? ideias?

Cumpz

Share this post


Link to post
Share on other sites
Tuntankamon

Tu agora queres passar para outra Tab por código e não te deixa...

Para isso podes utilizar uma flag de controlo.

  
'Evento do Click no botao
possoMudar = True
'Chamas o code para mudar de tab


Private Sub TabControl1_Deselecting(ByVal sender As Object, ByVal e As TabControlCancelEventArgs) Handles TabControl1.Deselecting
        If Not possoMudar Then e.Cancel = True
        possoMudar = False
End Sub

Share this post


Link to post
Share on other sites
Tuntankamon

!??!

Eu sei que os eventos são diferentes...

Private possoMudar As Boolean = False
    Private Sub btMudarTab_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btMudarTab.Click
        possoMudar = True
        TabControl1.SelectedIndex = 1 'Selecciona a proxima TAB
    End Sub
    Private Sub TabControl1_Deselecting(ByVal sender As Object, ByVal e As TabControlCancelEventArgs) Handles TabControl1.Deselecting
        If Not possoMudar Then e.Cancel = True
        possoMudar = False
    End Sub

Share this post


Link to post
Share on other sites
mekanis

!??!

Eu sei que os eventos são diferentes...

Private possoMudar As Boolean = False
    Private Sub btMudarTab_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btMudarTab.Click
        possoMudar = True
        TabControl1.SelectedIndex = 1 'Selecciona a proxima TAB
    End Sub
    Private Sub TabControl1_Deselecting(ByVal sender As Object, ByVal e As TabControlCancelEventArgs) Handles TabControl1.Deselecting
        If Not possoMudar Then e.Cancel = True
        possoMudar = False
    End Sub

Funciona na perfeição Obrigado

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.