Jump to content

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

SchattenMann

By SchattenMann
in Visual Basic Clássico

 Share

Recommended Posts

SchattenMann void

SchattenMann

Posted
Posted

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...

?...toca a pensar 😉

cumps

Asgorath boolean user

Asgorath

Posted
Posted

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

"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

SchattenMann void

SchattenMann

Posted
  • Author
Posted

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

Asgorath boolean user

Asgorath

Posted
Posted

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

"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

SchattenMann void

SchattenMann

Posted
  • Author
Posted

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

Asgorath boolean user

Asgorath

Posted
Posted

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

"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

SchattenMann void

SchattenMann

Posted
  • Author
Posted

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...?

Asgorath boolean user

Asgorath

Posted
Posted

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

"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

SchattenMann void

SchattenMann

Posted
  • Author
Posted

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...

Asgorath boolean user

Asgorath

Posted
Posted 
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

"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

SchattenMann void

SchattenMann

Posted
  • Author
Posted 

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

SchattenMann void

SchattenMann

Posted
  • Author
Posted

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

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
 Share
Go to topic listing
×
×
  • 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.