Jump to content
Super Oliks

Controlar "webbrowser" e "richtext" com o mesmo botão

Recommended Posts

Super Oliks

Quando eu clico no botão "traduzir" o webbrowser e o richtext se dividem no form, mas ao clicar novamente no botão "traduzir" o certo era ir para a próxima ação do botão, ou seja o richtext voltaria ao estado normal e o webbrowser ficaria invisível.

        If open = "0" Then
            RichTextBox1.Width = 676
            WebBrowser1.Width = 676
            WebBrowser1.Visible = True
            WebBrowser1.Navigate("http://translate.google.com.br/#")
            open = "1"

        ElseIf close = "1" Then
            RichTextBox1.Width = 1352
            WebBrowser1.Visible = False
            RichTextBox1.Focus()
            close = "0"
        End If

Alguém teria idéia de como proceder ?

Share this post


Link to post
Share on other sites
bioshock

If open = "0" Then
            RichTextBox1.Width = 676
            WebBrowser1.Width = 676
            WebBrowser1.Visible = True
            WebBrowser1.Navigate("http://translate.google.com.br/#")
            open = "1"
        Else
            RichTextBox1.Width = 1352
            WebBrowser1.Visible = False
            RichTextBox1.Focus()
            open = "0"
        End If

Edit: De salientar que esta não é uma boa prática de programação. Deves utilizar Booleans (True/False) ou Integers (0/1).

Share this post


Link to post
Share on other sites
Super Oliks

Minha idéia inicial era essa.

Mas tem um problema, é que o botão "traduzir" deverá ter um ciclo, ou seja toda vez que ele for clicado devera proceder da seguinte maneira.

Clicado pela primeira vez -

            RichTextBox1.Width = 676

            WebBrowser1.Width = 676

            WebBrowser1.Visible = True

            WebBrowser1.Navigate("http://translate.google.com.br/#")

         

Clicado pela segunda vez - 

            RichTextBox1.Width = 1352

            WebBrowser1.Visible = False

            RichTextBox1.Focus()

           

Clicado pela terceira vez - "repetir o procedimento realizado na primeira vez clicado"

Clicado pela quarta vez - "repetir o procedimento realizado na senga vez clicado"

Clicado pela quinta vez - e assim continua o ciclo novamente........

Share this post


Link to post
Share on other sites
cffm

Como foi dito utiliza um boolean como flag em vez do open. Depois colocas os ciclos que quiseres.

If open = false Then
            RichTextBox1.Width = 676
            WebBrowser1.Width = 676
            WebBrowser1.Visible = True
            WebBrowser1.Navigate("http://translate.google.com.br/#")
            open = true
'Ciclo
        Else
            RichTextBox1.Width = 1352
            WebBrowser1.Visible = False
            RichTextBox1.Focus()
            open = false
'Ciclo
        End If

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

×
×
  • Create New...

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.