AJUDA ABRIR FORM NO OFFICE_RIBBON

ELEMENTO 04/07/2010 11:40:52
#346469
Galera, estou começando a programar em vb 6.

Peguei um modelo do office ribon
http://www.vbmania.com.br/pages/vbmdownload.php?varKey=8a0cd50ecce34cfd150d3d512ccf42cf&varTipo=2

So que não consigo fazer ele abrir um outro form. Um coisa tão básica que por ser novato não sei, e estou tentando achar a solução é não acho. Se alguem poder me dar essa dica.


Private Sub Form_Load()

Set ACPRibbon1.Picture = Image1.Picture [ô]# Set Circle Menu Button Picture

ACPRibbon1.Caption = Me.Caption [ô]# Show Caption of Form

[ô]# Add TopButtons --- ID - Capt. - Icons
ACPRibbon1.AddTopButton [Ô]1[Ô], [Ô]Grupo[Ô], Image2.Picture
ACPRibbon1.AddTopButton [Ô]2[Ô], [Ô]Tarefas[Ô], Image3.Picture
ACPRibbon1.AddTopButton [Ô]3[Ô], [Ô]Cadastro[Ô], Image4.Picture
ACPRibbon1.AddTopButton [Ô]4[Ô], [Ô]Amostra[Ô], Image5.Picture

[ô]# Repaint Ribbon
ACPRibbon1.Refresh
End Sub
XXXANGELSXXX 29/12/2010 08:21:09
#360595
Voce tem que passar o parametro para ele fazer tal rotina.. exemplo.. crie o button.. asim..

Private Sub Form_Load()

Set ACPRibbon1.Picture = Image1.Picture [ô]# Set Circle Menu Button Picture

ACPRibbon1.Caption = Me.Caption [ô]# Show Caption of Form

[ô]# Add TopButtons --- ID - Capt. - Icons
ACPRibbon1.AddTopButton [Ô]1[Ô], [Ô]Grupo[Ô], Image2.Picture
ACPRibbon1.AddTopButton [Ô]2[Ô], [Ô]Tarefas[Ô], Image3.Picture
ACPRibbon1.AddTopButton [Ô]3[Ô], [Ô]Cadastro[Ô], Image4.Picture
ACPRibbon1.AddTopButton [Ô]4[Ô], [Ô]Amostra[Ô], Image5.Picture

ACPRibbon1.AddCat 1, 1, [Ô]Produtos/Serviços[Ô], False
ACPRibbon1.AddButton 1, 2, [Ô]Grupo[Ô] & vbNewLine & [Ô]Prod/Serviços[Ô], 1, False, , .Img(2)

[ô]# Repaint Ribbon
ACPRibbon1.Refresh
End Sub

e depois chame atraves de if

IF ID = 1 THEN
frmprincipal.show
end if
Tópico encerrado , respostas não são mais permitidas
Voltar