XP style Menu

  • Thread starter Thread starter Newbie!
  • Start date Start date
N

Newbie!

Hey Group,

I was just wondering if anybody has ever used the XP style Manu from
http://www.vbaccelerator.com/home/NET/Code/Controls/ListBar/Button_List_Bar/article.asp

Im just a little confused trying to use this, it says that it users the
itemlick event to respond to the Button been pressed, but as im new and
probably a little thick, could somebody please explain how i would use this
command, and what i would need to put in the command line?

Thanks for any help in advance

Regards
Si
 
hey,
I never heard of the 'itemlick' event. LOL
the itemlick event to respond to the Button been pressed, but as im
Click to expand...

;-)

Regards - OHM#

-------------------------------------


Newbie! said:
Hey Group,

I was just wondering if anybody has ever used the XP style Manu from
http://www.vbaccelerator.com/home/NET/Code/Controls/ListBar/Button_List_Bar/article.asp

Im just a little confused trying to use this, it says that it users
the itemlick event to respond to the Button been pressed, but as im
new and probably a little thick, could somebody please explain how i
would use this command, and what i would need to put in the command
line?

Thanks for any help in advance

Regards
Si
Click to expand...

Regards - OHM# (e-mail address removed)
 
Hi Newbie

I once made an example with a dynamic checkbox array, it handles two kind of
events (dynamicly and made by the designer), maybe you can try it.

\\\
Private myCheckbox(10) As CheckBox
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'you need for this to drag a groupbox1
'and a button on the form
Dim start As Integer = 4
Dim top As Integer = 18
Dim i As Integer
For i = 1 To 10
myCheckbox(i) = New CheckBox
myCheckbox(i).TextAlign = ContentAlignment.MiddleCenter
myCheckbox(i).Width = 40
myCheckbox(i).Height = 20
myCheckbox(i).Location = New System.Drawing.Point(start, top)
myCheckbox(i).Text = i.ToString
myCheckbox(i).Cursor = Cursors.Hand
Me.GroupBox1.Controls.Add(myCheckbox(i))
AddHandler myCheckbox(i).Click, AddressOf myCheckBox_Click
start = start + 40
If i = 5 Then
top = top + 20
start = 4
End If
Next
End Sub
Private Sub myCheckBox_Click _
(ByVal sender As Object, ByVal e As System.EventArgs)
Dim chk As CheckBox
chk = DirectCast(sender, CheckBox)
Dim i As String = chk.Text
End Sub
Private Sub Button1_Click _
(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim a As New System.Text.StringBuilder
a.Remove(0, a.Length)
Dim i As Integer
For i = 1 To 10
If myCheckbox(i).Checked Then
a.Append(i.ToString)
End If
Next
MessageBox.Show(a.ToString)
End Sub
///
I hope this helps a little bit?

Cor
 
* "Armin Zingler said:
rolling on the floor laughing out loudly

but I've seen other abbreviations, too
Click to expand...

.... or other meanings of this abbreviation.

;-)))
 
Back
Top