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

SchattenMann

Criar Navegador e Main Window em q os outros frm abrem la dentro

13 mensagens neste tópico

boas

para 1º post aqui vai umas questoes...

ando a aprender VB como hobby e sem duvida é ate agora a linguagem que prefiro...muito intuitiva...

mas ate agora ha pelo menos 2 coisas que queria fazer e ainda nao consegui ... ora aqui vai

1. Criar um navegador do lado esquerdo com as propriedades de redimensionavel, ordenado em arvore e com a opção de arrastar para editar (tipo mudar a posição etc)...praticamente um menu mas na vertical e em arvore, com a opçao de se poder modificar pelo utilizador

2. Quero que o programa tenha a janela principal - main - e que todas as outras abram e funcionem apenas dentro dela. Exemplificando seria o aspecto de Visual Basic 6, Crystal Reports e muitos outros... so ocupa uma slot na barra de tarefas...as janelas maximizam/minimizam dentro da main...e ja devem tar a ver o que quero...

:hmm:...toca a pensar ;)

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ola

Esqueceste de dizer versão usas do vb no assunto .

1) usa  o controlo TreeView para isso

2)  usa a  interface tipo MDI em vez de SDI

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ola

Esqueceste de dizer versão usas do vb no assunto .

1) usa  o controlo TreeView para isso

2)  usa a  interface tipo MDI em vez de SDI

Jorge

Ola

Esqueceste de dizer versão usas do vb no assunto .

1) usa  o controlo TreeView para isso

2)  usa a  interface tipo MDI em vez de SDI

Jorge

VB6

sou uma beca noob na coisa pelo q dava geito uma explicaçao maior q 2 linha ;)

tnx

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

2) This example creates a second instance of an MDI child form within an MDIForm object. To try this example, set the MDIChild property to True on Form1, and then create an MDIForm object with the Add MDI Form command on the Project menu. Paste the code into the Declarations section of the MDIForm, and then press F5 to run the program.

Private Sub MDIForm_Load ()
Dim NewForm As New Form1	' Declare new form.
NewForm.Show	' Show new form.
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nice...bgd pela ajuda....

so falta mesmo agora testar o navegador....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ppl

nao tnh a treeview nem a toolbar na lista dos components...

noob question...qual e o compontent q tnh de adicionar??

cumps

EDIT: found

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Vê esta imagem http://img245.imageshack.us/my.php?image=exemplotreeview1nv7.jpg

1) Tenho form com um treeview que preencho no form load com a lista de todos os trabalhadores da minha empresa usando uma base de dados no sql server 2000.

Podes alterar o texto de cada node clicando duas vezes em cima dele, despois de alterado  , podes actualiizar os dados na base de dados usando a chave unica de cada node.

Private Sub Form_Load()
adm = False
userid = 0
'''
Dim nodx As Node
Dim id As String
frmacessos.MSRDC1.Refresh
frmacessos.MSRDC1.Resultset.MoveFirst
chave = "ID"
While Not frmacessos.MSRDC1.Resultset.EOF

    grupo = Trim(frmacessos.MSRDC1.Resultset(0))
    frmacessos.MSRDC2.SQL = "select descricao from grupos where codigo_grupo = " & Val(grupo)
    frmacessos.MSRDC2.Refresh
    Desc = frmacessos.MSRDC2.Resultset(0)
    raiz = "G" & grupo
    Set nodx = frmacessos.TreeView1.Nodes.Add(, , raiz, Desc)
    nodx.Image = "men"
    nodx.EnsureVisible
    frmacessos.MSRDC3.SQL = "select nome,id from utilizadores where grupo = " & Val(grupo) & " order by nome asc"
    frmacessos.MSRDC3.Refresh
    
    While Not frmacessos.MSRDC3.Resultset.EOF
        nome = Trim(frmacessos.MSRDC3.Resultset(0))
        id = CStr(frmacessos.MSRDC3.Resultset(1))
        chave = chave + id
        Set nodx = frmacessos.TreeView1.Nodes.Add(raiz, tvwChild, chave, nome)
        nodx.Image = "smiley"
        nodx.EnsureVisible
        frmacessos.MSRDC3.Resultset.MoveNext
        chave = "ID"
    Wend
    frmacessos.MSRDC1.Resultset.MoveNext
Wend
For Each nodx In frmacessos.TreeView1.Nodes
    MsgBox nodx.Text
Next
End Sub

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Vê esta imagem http://img245.imageshack.us/my.php?image=exemplotreeview1nv7.jpg

1) Tenho form com um treeview que preencho no form load com a lista de todos os trabalhadores da minha empresa usando uma base de dados no sql server 2000.

Podes alterar o texto de cada node clicando duas vezes em cima dele, despois de alterado  , podes actualiizar os dados na base de dados usando a chave unica de cada node.

Private Sub Form_Load()
adm = False
userid = 0
'''
Dim nodx As Node
Dim id As String
frmacessos.MSRDC1.Refresh
frmacessos.MSRDC1.Resultset.MoveFirst
chave = "ID"
While Not frmacessos.MSRDC1.Resultset.EOF

    grupo = Trim(frmacessos.MSRDC1.Resultset(0))
    frmacessos.MSRDC2.SQL = "select descricao from grupos where codigo_grupo = " & Val(grupo)
    frmacessos.MSRDC2.Refresh
    Desc = frmacessos.MSRDC2.Resultset(0)
    raiz = "G" & grupo
    Set nodx = frmacessos.TreeView1.Nodes.Add(, , raiz, Desc)
    nodx.Image = "men"
    nodx.EnsureVisible
    frmacessos.MSRDC3.SQL = "select nome,id from utilizadores where grupo = " & Val(grupo) & " order by nome asc"
    frmacessos.MSRDC3.Refresh
    
    While Not frmacessos.MSRDC3.Resultset.EOF
        nome = Trim(frmacessos.MSRDC3.Resultset(0))
        id = CStr(frmacessos.MSRDC3.Resultset(1))
        chave = chave + id
        Set nodx = frmacessos.TreeView1.Nodes.Add(raiz, tvwChild, chave, nome)
        nodx.Image = "smiley"
        nodx.EnsureVisible
        frmacessos.MSRDC3.Resultset.MoveNext
        chave = "ID"
    Wend
    frmacessos.MSRDC1.Resultset.MoveNext
Wend
For Each nodx In frmacessos.TreeView1.Nodes
    MsgBox nodx.Text
Next
End Sub

Jorge

nice...entao e isso funca para atalhos de menu...tipo o explorer...?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes meter o texto que  quiseres nos nodes do treeview ,podias varias treeview na vertical para emular o My Computer do XP, mas não ha suporte para atalho de menu.

Em Visual Basic .NET 2005 seria bastante fácil de fazer.

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes meter o texto que  quiseres nos nodes do treeview ,podias varias treeview na vertical para emular o My Computer do XP, mas não ha suporte para atalho de menu.

Em Visual Basic .NET 2005 seria bastante fácil de fazer.

Jorge

ora...eu eq ainda nao percebi bem cm eq ponho o texto...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

dim nodx as Node
Set nodx = Me.TreeView1.Nodes.Add(, , "chave0","TEXTO AQUI" )
Set nodx = Me.TreeView1.Nodes.Add(, , "chave1","MAIS TEXTO AQUI" )
Set nodx = Me.TreeView1.Nodes.Add(, , "chave2","AINDA MAIS TEXTO" )

Repara que cada node tem 1 chave em texto e tem que ser única o da erro.

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

dim nodx as Node
Set nodx = Me.TreeView1.Nodes.Add(, , "chave0","TEXTO AQUI" )
Set nodx = Me.TreeView1.Nodes.Add(, , "chave1","MAIS TEXTO AQUI" )
Set nodx = Me.TreeView1.Nodes.Add(, , "chave2","AINDA MAIS TEXTO" )

Repara que cada node tem 1 chave em texto e tem que ser única o da erro.

Jorge

nice...

entao segundo me parece ponho isso no form_load...tenho o texto...mas como eq programo oq cada um faz? suponho q seja no TreeView_click...

entao e pa fazer "subNode's"? eq isto agora parece uma simples ListBox ;)

tnx

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois bem como uma imagem vale mais q 1000 palavras aqui vai uma imagem que exemplifica bem o que pretendo...

ta realçado os pormenores que nao sei exactamente como fazer....

tnx

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora