USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Colordialog e treeview vb.net
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 02/05/2008 12:29 hs            
Galera sei que aqui é para vb6, más é que como aqui é mais frequentado no que o forum .net, decidi colocar aqui também
 
 
Galera estou com dois probleminhas
1º - Gostaria de saber se o colordialog tem alguma propriedade no qual ele exiba apenas algumas cores, ou se tem algum outro componente no .net que faça isso. Como solução prévia estou criando um componente com 12 cores

2º - Tenho uma treeview e quando clico com o botão direito sobre um nó, ele abre um pequeno form com alguns dados para serem preenchidos, até ai beleza, porém quando tento selecionar um outro nó com o botão direito sem clicar primeiro com o esquerdo ele abre esse form fazendo referencia ao nó anterior, segue abaixo como estão os códigos para abrir o form quando o usuário clica com o botão direito

   Private Sub TreeView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp
        Dim c As Control = DirectCast(sender, Control) 'pega a posição do mouse para exibir a caixa de texto
        If e.Button = Windows.Forms.MouseButtons.Right And SelecaoArvore = False Then 'botão direito do mouse clicado fora da árvore
            MenuAlterar.Visible = False
            MenuBotaoDireito.Show(c.PointToScreen(e.Location))
        Else
            SelecaoArvore = False
        End If
    End Sub


   Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then 'botão direito do mouse clicado
            Dim c As Control = DirectCast(sender, Control) 'pega a posição do mouse para exibir a caixa de texto
            SelecaoArvore = True
            MenuAlterar.Visible = True
            MenuBotaoDireito.Show(c.PointToScreen(e.Location))
        End If
    End Sub




Procurei e achei algumas coisas, porém não era para o vb.net.

Será que alguém pode me ajudar com esses probleminhas ? Sei que deve ser fácil, como estou começando com o .net, mesmo já tendo um conhecimento razoável no vb6, estou apanhando um pouquinho
Abraços
   
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 02/05/2008 16:48 hs            
Galera será que alguém poderia me ajudar com a questão da treeview, pois o colordialog eu criei um componente e consegui resolver o problema
Obrigado
   
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 05/05/2008 09:17 hs            
Álguém ???
   
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 06/05/2008 13:50 hs            
Alguém pode me ajudar ??
2º - Tenho uma treeview e quando clico com o botão direito sobre um nó, ele abre um pequeno form com alguns dados para serem preenchidos, até ai beleza, porém quando tento selecionar um outro nó com o botão direito sem clicar primeiro com o esquerdo ele abre esse form fazendo referencia ao nó anterior, segue abaixo como estão os códigos para abrir o form quando o usuário clica com o botão direito

   Private Sub TreeView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp
        Dim c As Control = DirectCast(sender, Control) 'pega a posição do mouse para exibir a caixa de texto
        If e.Button = Windows.Forms.MouseButtons.Right And SelecaoArvore = False Then 'botão direito do mouse clicado fora da árvore
            MenuAlterar.Visible = False
            MenuBotaoDireito.Show(c.PointToScreen(e.Location))
        Else
            SelecaoArvore = False
        End If
    End Sub


   Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then 'botão direito do mouse clicado
            Dim c As Control = DirectCast(sender, Control) 'pega a posição do mouse para exibir a caixa de texto
            SelecaoArvore = True
            MenuAlterar.Visible = True
            MenuBotaoDireito.Show(c.PointToScreen(e.Location))
        End If
    End Sub



   
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 12/05/2008 14:42 hs            
Será que alguém sabe como posso resolver esse probleminha com o botão direito?
   
Murillo Barreto
não registrado
ENUNCIADA !
Postada em 19/11/2009 10:02 hs   
Cara estou com o mesmo problema...vc conseguiu resolver?
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página