RIBBON 2007

GUILHERMEMFA 12/04/2011 14:54:49
#371095
Pessoal como faço para lista em um TreeView:
TABS / CATS / BUTTONS
do meu Ribbon

Deêm uma olhada abaixo para ver se vcs entendem melhor:



vlw
GUILHERMEMFA 13/04/2011 07:49:52
#371159
Montei uma imagem para vcs entenderem melhor o que eu quero
GUILHERMEMFA 13/04/2011 11:14:45
#371193
Pessoal dêem uma olhada na forma que eu fiz.
Se tiverem uma idéia mais eficaz postem ai.

1º PASSO:
- CRIEI MEU MENU CONFORME CÓDIGO ABAIXO

Private Sub Form_Load()
frmMenu2.Caption = frmMenu2.Caption & [Ô] - Versão: [Ô] & App.Major & [Ô].[Ô] & App.Minor & [Ô].[Ô] & App.Revision
Theme = 0

[ô]# SET Theme
ACPRibbon1.Theme = Theme [ô] 0 - Black
[ô] 1 - Blue
[ô] 2 - Silver

[ô]# OPTIONAL - Load Background for Form.
Image1.Left = 0
Image1.Top = ACPRibbon1.Height
Image1.Picture = ACPRibbon1.LoadBackground

[ô]# OPTIONAL - Load Background for Form
frmMenu2.BackColor = ACPRibbon1.BackColor

[ô]# Set ImageList to use for icons
ACPRibbon1.ImageList = ImageList1

[ô]# Set Buttons on Center verticaly (True = Center, False(Default) = Align on Top)
ACPRibbon1.ButtonCenter = False

[ô]Adiciona as TABS no MENU
[ô]# Add Tabs --- ID - Caption
ACPRibbon1.AddTab [Ô]1[Ô], [Ô]Cadastros[Ô]
ACPRibbon1.AddTab [Ô]2[Ô], [Ô]Recrutamento[Ô]
ACPRibbon1.AddTab [Ô]3[Ô], [Ô]Capacitação[Ô]
ACPRibbon1.AddTab [Ô]4[Ô], [Ô]Configurações[Ô]
ACPRibbon1.AddTab [Ô]5[Ô], [Ô]Sobre[Ô]

[ô]Cria os GRUPOS das TABS
[ô]# Add Cats --- ID - Tab - Caption - ShowDialogButton
ACPRibbon1.AddCat [Ô]1[Ô], [Ô]1[Ô], [Ô]Cadastros gerais[Ô], False
ACPRibbon1.AddCat [Ô]2[Ô], [Ô]1[Ô], [Ô]Tabelas Auxiliares[Ô], True
ACPRibbon1.AddCat [Ô]3[Ô], [Ô]2[Ô], [Ô]Seleção de pessoal[Ô], True
ACPRibbon1.AddCat [Ô]4[Ô], [Ô]3[Ô], [Ô]Capacitação de pessoal[Ô], False
ACPRibbon1.AddCat [Ô]5[Ô], [Ô]4[Ô], [Ô]Parametrizações[Ô], False
ACPRibbon1.AddCat [Ô]6[Ô], [Ô]5[Ô], [Ô]Ajuda[Ô], True

[ô]Cria os BOTOES das TABS
[ô]# Add Button --- ID - Cat - Capt. - Icons - More Arrow - ToolTip
ACPRibbon1.AddButton [Ô]0[Ô], [Ô]1[Ô], [Ô]Colaboradores[Ô] & vbNewLine, 2
ACPRibbon1.AddButton [Ô]1[Ô], [Ô]1[Ô], [Ô]Candidatos[Ô], 1
ACPRibbon1.AddButton [Ô]2[Ô], [Ô]1[Ô], [Ô]Departamentos[Ô], 3
ACPRibbon1.AddButton [Ô]3[Ô], [Ô]1[Ô], [Ô]Setores[Ô] & vbNewLine, 4
ACPRibbon1.AddButton [Ô]4[Ô], [Ô]1[Ô], [Ô]Cargos[Ô] & vbNewLine, 5
ACPRibbon1.AddButton [Ô]5[Ô], [Ô]2[Ô], [Ô]Habilidades funcionais[Ô], 8
ACPRibbon1.AddButton [Ô]6[Ô], [Ô]2[Ô], [Ô]Formação escolar[Ô], 9
ACPRibbon1.AddButton [Ô]7[Ô], [Ô]2[Ô], [Ô]Avaliação do treinamento[Ô], 16
ACPRibbon1.AddButton [Ô]8[Ô], [Ô]3[Ô], [Ô]Requisição de pessoal[Ô], 14
ACPRibbon1.AddButton [Ô]9[Ô], [Ô]3[Ô], [Ô]Processo seletivo[Ô], 15
ACPRibbon1.AddButton [Ô]10[Ô], [Ô]4[Ô], [Ô]Cursos/treinamentos[Ô], 6
ACPRibbon1.AddButton [Ô]11[Ô], [Ô]4[Ô], [Ô]Matriz de capacitação[Ô], 7
ACPRibbon1.AddButton [Ô]12[Ô], [Ô]4[Ô], [Ô]Programação[Ô], 13
ACPRibbon1.AddButton [Ô]13[Ô], [Ô]4[Ô], [Ô]Restrições[Ô], 17
ACPRibbon1.AddButton [Ô]14[Ô], [Ô]5[Ô], [Ô]Usuários[Ô], 10
ACPRibbon1.AddButton [Ô]15[Ô], [Ô]5[Ô], [Ô]Grupos[Ô], 11
ACPRibbon1.AddButton [Ô]16[Ô], [Ô]5[Ô], [Ô]Sistema[Ô], 12
ACPRibbon1.AddButton [Ô]17[Ô], [Ô]6[Ô], [Ô]Sobre o SGCH[Ô], 12

[ô]# Repaint Ribbon
ACPRibbon1.Refresh
montaTabMenu
End Sub

2º - PASSO:
- CRIEI UMA TABELA NO SQL SERVER CHAMADA TBMENU
- REALIZEI A GRAVAÇÃO DO MEU MENU NA TABELA

Private Sub montaTabMenu()
Dim rsMenu As New ADODB.Recordset
Dim SqlMenu As String
Dim rsDeletar As New ADODB.Recordset
Dim sqlDeletar As String

cnBanco.BeginTrans

sqlDeletar = [Ô]Delete from tbMenu[Ô]
rsDeletar.Open sqlDeletar, cnBanco

[ô]SqlMenu = [Ô]select * from tbMenu[Ô]
[ô]rsMenu.Open SqlMenu, cnBanco, adOpenKeyset, adLockOptimistic

[ô]ADICIONA TABS/CATS
SqlMenu = [Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,1,[ô]TAB[ô],[ô]Cadastros[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,1,[ô]CAT[ô],[ô]Colaboradores[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,2,[ô]CAT[ô],[ô]Candidatos[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,3,[ô]CAT[ô],[ô]Departamentos[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,4,[ô]CAT[ô],[ô]Setores[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,5,[ô]CAT[ô],[ô]Cargos[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,6,[ô]CAT[ô],[ô]Habilidades funcionais[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,7,[ô]CAT[ô],[ô]Formação escolar[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(1,8,[ô]CAT[ô],[ô]Avaliação do treinamento[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(2,1,[ô]TAB[ô],[ô]Recrutamento[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(2,1,[ô]CAT[ô],[ô]Requisição de pessoal[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(2,2,[ô]CAT[ô],[ô]Processo seletivo[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(3,1,[ô]TAB[ô],[ô]Capacitação[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(3,1,[ô]CAT[ô],[ô]Cursos/treinamentos[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(3,2,[ô]CAT[ô],[ô]Matriz de capacitação[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(3,3,[ô]CAT[ô],[ô]Programação[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(3,4,[ô]CAT[ô],[ô]Restrições[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(4,1,[ô]TAB[ô],[ô]Configurações[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(4,1,[ô]CAT[ô],[ô]Usuários[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(4,2,[ô]CAT[ô],[ô]Grupos[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(4,3,[ô]CAT[ô],[ô]Sistema[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(5,1,[ô]TAB[ô],[ô]Sobre[ô]);[Ô] & _
[Ô]Insert into tbMenu(idmenu,idsub,tipo,nome) Values(5,1,[ô]CAT[ô],[ô]Sobre SGCH[ô]);[Ô]
rsMenu.Open SqlMenu, cnBanco
cnBanco.CommitTrans
Set rsMenu = Nothing
End Sub

3º PASSO
- A PARTIR DOS DADOS INSERIDOS NESSA TABELA MONTEI MEU TREEVIEW

Ficou totalmente manual mas foi a forma que encontrei, se tiverem outra sugestão postem ai
Tópico encerrado , respostas não são mais permitidas
Voltar