RIBBON

ONBASS 23/03/2010 21:41:31
#337771 Resposta escolhida

JAIR2002,

acho q ta faltando tu adicionar a Tab 1

JAIR2002 24/03/2010 10:13:46
#337789

Dekinho,

obrigado pela ajuda, mas como vc pode ver abaixo utilizei todo o codigo do exemplo baixado aqui no vbmania para ir ajeitando conforme a necessidade, mas quando crio o form, coloco o ribbon e acrescento o codigo abaixo, apenas as tabs são mostradas e mais tres botões da tab 1. e também não divide e nem mostra as categorias. existe alguma configração a ser feita, tal como a largura de cada tab e categoria.

Como pode ver o codigo estar igualzinho ao exemplo só q quando copio para o projeto não funciona. por que será?


Dim Tema As String
Dim FileRes As Integer
Dim Buffer() As Byte

Private Sub Command1_Click()
On Error GoTo Down:
Dim tmpSt As Long
Open App.Path & [Ô]\Imagens\141.png[Ô] For Input As 1#
Close 1#
Down:

[ô] Buffer = LoadResData(141, [Ô]BLACK[Ô])
[ô] FileRes = FreeFile
[ô] Open App.Path & [Ô]\Imagens\Preto\141.png[Ô] For Binary Access Write As #FileRes
[ô] Put #FileRes, , Buffer
[ô] Close #FileRes
Tema = Tema + (1)
If Tema = 19 Then Tema = 0
Ribbon.Theme = Tema
Ribbon.Refresh

Image1.Picture = Ribbon.LoadBackground
Form1.BackColor = Ribbon.BackColor
Label1.ForeColor = Ribbon.ForeColor
End Sub

Private Sub Form_Load()
Tema = 0
[ô]# SET Theme
Ribbon.Theme = Tema [ô] 0 - Black 1 - Blue 2 - Silver
Ribbon1.Theme = Tema [ô] 0 - Black 1 - Blue 2 - Silver

[ô]# OPTIONAL - Load Background for Form.

[ô]Image1.Left = 0
[ô]Image1.Top = Ribbon.Height
[ô]Image1.Picture = Ribbon.LoadBackground

[ô]# OPTIONAL - Load Background for Form
[ô]Form1.BackColor = Ribbon.BackColor

[ô]# OPTIONAL - Load Forecolor for Labels
[ô]Label1.ForeColor = Ribbon.ForeColor
[ô]Label2.ForeColor = Ribbon.ForeColor
[ô]Label3.ForeColor = Ribbon.ForeColor
[ô]Label4.ForeColor = Ribbon.ForeColor

[ô]# Set ImageList to use for icons
[ô]Ribbon.ImageList = ImageList1
[ô]Ribbon1.ImageList = ImageList1
Ribbon1.AddTab [Ô]1[Ô], [Ô]1[Ô]
Ribbon1.AddCat [Ô]1[Ô], [Ô]1[Ô], [Ô]SAIR[Ô], False
Ribbon1.AddButton [Ô]0[Ô], [Ô]1[Ô], [Ô]SAIR[Ô], 1, False, , butoes(1)
Ribbon1.AddButton [Ô]1[Ô], [Ô]1[Ô], [Ô]SAIR[Ô], 1, False, , butoes(2)
Ribbon1.AddButton [Ô]2[Ô], [Ô]1[Ô], [Ô]SAIR[Ô], 1, False, , butoes(3)
Ribbon1.Refresh

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

[ô]# Add Tabs ---ID - Caption
Ribbon.AddTab [Ô]1[Ô], [Ô]Cadastros[Ô]
Ribbon.AddTab [Ô]2[Ô], [Ô]Relatorios[Ô]
Ribbon.AddTab [Ô]3[Ô], [Ô]Ferramentas[Ô]

[ô]# Add Cats ---ID - Tab - Caption - ShowDialogButton
Ribbon.AddCat [Ô]1[Ô], [Ô]1[Ô], [Ô]Clientes[Ô], False
Ribbon.AddCat [Ô]2[Ô], [Ô]1[Ô], [Ô]Funcionários[Ô], False
Ribbon.AddCat [Ô]3[Ô], [Ô]1[Ô], [Ô]Usuários[Ô], False
Ribbon.AddCat [Ô]4[Ô], [Ô]1[Ô], [Ô]Produtos[Ô], False
Ribbon.AddCat [Ô]5[Ô], [Ô]1[Ô], [Ô]Vendas[Ô], False
Ribbon.AddCat [Ô]6[Ô], [Ô]3[Ô], [Ô]Skins[Ô], False

[ô]# Add Button ---ID - Cat - Capt. - Icons - More Arrow - ToolTip
Ribbon.AddButton [Ô]0[Ô], [Ô]1[Ô], [Ô]Cadastrar[Ô], 0, False, , butoes(1)
Ribbon.AddButton [Ô]1[Ô], [Ô]1[Ô], [Ô]Editar[Ô], 2, False, , butoes(2)
Ribbon.AddButton [Ô]2[Ô], [Ô]1[Ô], [Ô]Excluir[Ô], 3, False, , butoes(3)

Ribbon.AddButton [Ô]3[Ô], [Ô]2[Ô], [Ô]Cadastrar[Ô], 5, False, , butoes(4)
Ribbon.AddButton [Ô]4[Ô], [Ô]2[Ô], [Ô]Editar[Ô], 2, False, , butoes(5)
Ribbon.AddButton [Ô]5[Ô], [Ô]2[Ô], [Ô]Excluir[Ô], 3, False, , butoes(6)
Ribbon.AddButton [Ô]6[Ô], [Ô]2[Ô], [Ô]Demitir[Ô], 4, False, , butoes(7)

Ribbon.AddButton [Ô]7[Ô], [Ô]3[Ô], [Ô]Novo[Ô], 5, False, , butoes(8)
Ribbon.AddButton [Ô]8[Ô], [Ô]3[Ô], [Ô]Bloquear[Ô], 6, False, , butoes(9)

Ribbon.AddButton [Ô]9[Ô], [Ô]4[Ô], [Ô]Cadastrar[Ô], 7, False, , butoes(10)
Ribbon.AddButton [Ô]10[Ô], [Ô]4[Ô], [Ô]Visualizar[Ô], 9, False, , butoes(11)

Ribbon.AddButton [Ô]11[Ô], [Ô]5[Ô], [Ô]Vender[Ô], 8, False, , butoes(12)
Ribbon.AddButton [Ô]12[Ô], [Ô]5[Ô], [Ô]Visualizar[Ô], 9, False, , butoes(1)

Ribbon.AddButton [Ô]13[Ô], [Ô]6[Ô], [Ô]Alterar[Ô], 2, False, , butoes(2)
[ô]# Repaint Ribbon
Label1.ForeColor = Ribbon.ForeColor
Ribbon.Refresh
End Sub

Private Sub Ribbon_ButtonClick(ByVal ID As String, ByVal Caption As String)
[ô]On Error Resume Next
[ô]If ID = 8 Then
[ô]On Error GoTo Down:
[ô] Dim tmpSt As Long
[ô] Open App.Path & [Ô]\Imagens\141.png[Ô] For Input As 1#
[ô] Close 1#
[ô]Down:
[ô]
[ô] Buffer = LoadResData(141, [Ô]BLUE[Ô])
[ô] FileRes = FreeFile
[ô] Open App.Path & [Ô]\Imagens\141.png[Ô] For Binary Access Write As #FileRes
[ô] Put #FileRes, , Buffer
[ô] Close #FileRes
[ô]
[ô]End If
[ô]nume = nume + (1)

End Sub
obrigado,

jair

ONBASS 25/03/2010 00:00:53
#337841

este exemplo é bem interessante, aqui do site mesmo:

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6473