[Riddick]

DBPExpander è un plug-in che permette di inserire menù e barre di stato nelle vostre applicazioni create con il Dark Basic Professional. Questo plug-in può essere usato liberamente purchè inseriate una referenza nei vostri credits.

Ecco un esempio di codice che potrete trovare nel documento che c'è nell'archivio insieme alla guida per l'importazione in DarkBasic Pro e spiega anche come usare tale dll.

Codice PHP:

sync on
make object cube 1,1
`creiamo la barra dei menù
Create Menu Bar
`aggiungiamo il primo menù
Add menu name "File"
   `ora le voci
   Add menu item 1,"Nuovo"
   Add menu item 2,"Salva"
   Add menu item 3,"Salva con nome..."
`questo è un altro menù
Add menu name "Modifica"
   Add menu item 4,"Taglia"
   Add menu item 5,"Copia"
   Add menu item 6,"Incolla"
   `creiamo un sottomenù
   open sub menu "Tipo oggetto"
      Add menu item 7,"Cubo"
      Add menu item 8,"Sfera"
   close sub menu
   `la riga precedente indica la fine del sottomenù
Add menu name "Info"
   Add menu item 9,"DBPExpand!!!"

   Add menu separator 10
   delete menu item 10
   Add menu item 11,"by Luca 'Poluka' Drago"

`spuntiamo la voce con id 9
Check menu item 9
`Disabilitiamo la voce con id 4
disable menu item 4
`Usiamo un radio group per scegliere il cubo o la sfera
Set radio group item 7,8,7

stringa$="DBPExpander!!!"
`Creiamo la barra di stato
Create Status Bar "Status Bar"

do

`otteniamo l'id della voce selezionata
item=get selected item()
if item>0
   set status bar text "Id dell'ultima voce selezionata: "+ str$(item)
endif
`scegliamo cosa fare in base all'id
select item
   `gestiamo il radio group
   case 7
      Set radio group item 7,8,7
      delete object 1
      make object cube 1,1
      statustext$="Cubo"
   endcase
   case 8
      Set radio group item 7,8,8
      delete object 1
      make object sphere 1,1
      statustext$="Sfera"
   endcase
   case 9
      `ottengo lo stato della voce
      state=get item state(9)
      if state=2
         uncheck menu item 9
         stringa$=""
      else
         check menu item 9
         stringa$="DBPExpander!!!"
      endif
   endcase
endselect
Text 250,10,stringa$
Sync
loop 


Autore: Luca "Poluka" Drago (Credo)
Licenza: Free
Download: DBPExpander.dll

[Jonathan Archer]

Uno screen lo puoi mettere please?

[Riddick]

Dovrei importare tutto per farti lo screen XD.

Comunque lo stile del menù è come quello del blocco note su vista, quindi penso che su xp sia a stile xp il menù. Poi sono 69 kb ci vuole 0.0.1 secondi per scaricalo.

[Jonathan Archer]

Ma sinceramente ancora non ho capito a che serve XD

[Zapetino]

praticamente aggiunge nuovi comandi per creare dei menu tutto qui

[Jonathan Archer]

A molto utile. Peccato mi avrebbe giovato molto con PADO! Ormai xD