Gambas-it

Gambas3 => Programmazione => Topic aperto da: doublemm - 28 Novembre 2010, 23:25:06

Titolo: [RISOLTO] creazione di menù
Inserito da: doublemm - 28 Novembre 2010, 23:25:06

Ciao a tutti. Non riesco a capire come creare il menù di un form da codice. Allego parte di codice:

Codice: gambas [Seleziona]

Public Sub main()
  
  Dim FormPrincipale As Form
  Dim MMenu As Menu
  
  FormPrincipale = New Form
  MMenu = New Menu(FormPrincipale)
  
  With FormPrincipale
    .h = 200
    .w = 400
    .show()
    .Center()
    .Menus.Visible = True
  End With
  
  With MMenu
    .Visible = True
    .Show
    .Enabled = True
    .Caption = "PROVA"
    .Text = "CIAO"    
  End With
  
End

come vedete ho fatto un po di prove (a caso) ma nulla

Titolo: Re: creazione di menù
Inserito da: milio - 28 Novembre 2010, 23:29:58

prova in questo modo:

Codice: vb [Seleziona]

Public Sub main()  
   
 Dim FormPrincipale As Form  
 Dim MMenu As Menu  
   
 FormPrincipale = New Form  
 MMenu = New Menu(FormPrincipale)  
   
 With FormPrincipale  
   .h = 200  
   .w = 400  
   .Menus.Visible = True  
 End With  
   
 With MMenu  
   .Visible = True  
   .Show  
   .Enabled = True  
   .Caption = "PROVA"  
   .Text = "CIAO"      
 End With  
 
 FormPrincipale.Show()
 FormPrincipale.Center()

End 

Titolo: Re: creazione di menù
Inserito da: doublemm - 29 Novembre 2010, 00:02:15

ok grazie milio ho risolto come hai detto tu. In alternativa potrei costruire prima il menù e poi il form

ecco il codice:

Codice: gambas [Seleziona]

' Gambas module file
Public FormPrincipale As Form

Public Sub main()
  
  Dim MMenu, chiudi As Menu
  
  FormPrincipale = New Form
  MMenu = New Menu(FormPrincipale)
  chiudi = New Menu(MMenu) As "chiudi"
  
  With FormPrincipale
    .h = 200
    .w = 400
    .Background = Color.Blue   
  End With
  
  With MMenu
    .Visible = True
    .Show
    .Enabled = True
    .Text = "PRINCIPALE"
  End With
  
  With chiudi
    .Text = "CHIUDI"
    .show
  End With
  
  
  FormPrincipale.Show
  FormPrincipale.Menus.Visible = True
  
End

Public Sub chiudi_Click()
  
 FormPrincipale.Close
  
End