Web Form Menu'

martedì 03 agosto 2004 - 10.39

secks Profilo | Senior Member

Come posso trovare qualche esempio per gestire un menu a tendina su una web form in vb.net?
Ho trovato qualcosa in rete ma in C# o a pagamento.
Ciao a tutti.
Paolo

secks Profilo | Senior Member

Ho trovato in rete una libreria di nome skmmenu.dll. Ho provato ad usarla ma da errore:

Riferimento a un oggetto non impostato su un'istanza di oggetto.

Posto il listato:

Public Class WebForm1
Inherits System.Web.UI.Page

#Region " Codice generato da Progettazione Web Form "

'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Menu1 As skmMenu.Menu

'NOTA: la seguente dichiarazione è richiesta da Progettazione Web Form.
'Non spostarla o rimuoverla.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
'Non modificarla nell'editor del codice.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Inserire qui il codice utente necessario per inizializzare la pagina

If (Page.IsPostBack = False) Then
Dim submenu1 As New skmMenu.MenuItem("<img src=""menublip.gif"" align=""absmiddle"">Dynamic Item 1", "")

submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 1", "page1.html"))
submenu1.SubItems.AddSpacer(5, "")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 2", "page2.html"))

Dim submenu3 As New skmMenu.MenuItem("Sub Item 3 ->", "")
submenu3.SubItems.Add(New skmMenu.MenuItem("Sub Item 3 - 1", "page1.html"))
submenu3.SubItems.Add(New skmMenu.MenuItem("Sub Item 3 - 2", "page2.html"))

submenu1.SubItems.Add(submenu3)
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 4", "page4.html"))
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 5", "page5.html"))
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 6", "page6.html"))
Menu1.Items.Add(submenu1)

Dim submenu2 As New skmMenu.MenuItem("<img src=""menublip.gif"" align=""absmiddle"">Dynamic Item 2", "")

submenu2.SubItems.Add(New skmMenu.MenuItem("Sub Item 1", "page3.html", "tooltip1"))
submenu2.SubItems.Add(New skmMenu.MenuItem("Sub Item 2", "page4.html", "tooltip2"))
Menu1.Items.Add(submenu2)

Menu1.CssClass = "menustyle"

Menu1.HighlightTopMenu = True
Menu1.Opacity = 75
Menu1.zIndex = 100
Menu1.Cursor = skmMenu.MouseCursor.Pointer

End If

End Sub

End Class


Ciao e grazie.
Paolo.

Brainkiller Profilo | Guru

E' proprio così.
Spesso e volentieri i componenti per creare menù o cose simili sono a pagamento.
Se non ti serve qualcosa di complicato puoi crearli tu se hai un po' di esperienza con Layer e Javascript.
Oppure puoi andare anche su siti tipo DHTMLCentral.com per vedere se c'è qualcosa di gratuito, non necessariamente in VB.NET o in C# ma anche solo in Javascript, poi a runtime lo costruisci inserendo le varie voci di menù.

ciao
david
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5