Visual Basic

Zenly wrote:

it works fine except when it comes across long paths.

Zenly wrote:

Is there a way to pass the short version of the path

MenuCommand topLevelCommand = new MenuCommand();
topLevelCommand.Text = "Top1";
_menuMain.MenuCommands.Add(topLevelCommand);

MenuCommand subLevelCommand1 = new MenuCommand();
subLevelCommand1.Text = "Sub1";
subLevelCommand1.Click += new EventHandler(subLevelCommand1_Click);
topLevelCommand.MenuCommands.Add(subLevelCommand1);

MenuCommand subLevelCommand2 = new MenuCommand();
subLevelCommand2.Text = "Sub2";
subLevelCommand2.Click += new EventHandler(subLevelCommand2_Click);
topLevelCommand.MenuCommands.Add(subLevelCommand2);

public void MenuCommand_Click(object sender, EventArgs e){
   if (sender == subLevelCommand1) {
      //perform operation 1
   } else if (sender == subLevelCommand2) {
      //perform operation 2
   }
}

Imports Crownwood.Magic.Menus<br />
Imports Crownwood.Magic.Common<br />
Imports Crownwood.Magic.Controls<br />
<br />
Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    Friend WithEvents _menuMain As Crownwood.Magic.Menus.MenuControl<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
        Me._menuMain = New Crownwood.Magic.Menus.MenuControl<br />
        Me.SuspendLayout()<br />
        '<br />
        '_menuMain<br />
        '<br />
        Me._menuMain.AnimateStyle = Crownwood.Magic.Menus.Animation.System<br />
        Me._menuMain.AnimateTime = 100<br />
        Me._menuMain.Cursor = System.Windows.Forms.Cursors.Arrow<br />
        Me._menuMain.Direction = Crownwood.Magic.Common.Direction.Horizontal<br />
        Me._menuMain.Dock = System.Windows.Forms.DockStyle.Top<br />
        Me._menuMain.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))<br />
        Me._menuMain.HighlightTextColor = System.Drawing.SystemColors.MenuText<br />
        Me._menuMain.Location = New System.Drawing.Point(0, 0)<br />
        Me._menuMain.Name = "_menuMain"<br />
        Me._menuMain.Size = New System.Drawing.Size(292, 25)<br />
        Me._menuMain.Style = Crownwood.Magic.Common.VisualStyle.IDE<br />
        Me._menuMain.TabIndex = 0<br />
        Me._menuMain.TabStop = False<br />
        Me._menuMain.Text = "MenuControl1"<br />
        '<br />
        'Form1<br />
        '<br />
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
        Me.ClientSize = New System.Drawing.Size(292, 273)<br />
        Me.Controls.Add(Me._menuMain)<br />
        Me.Name = "Form1"<br />
        Me.Text = "Form1"<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        AddMenu()<br />
    End Sub<br />
<br />
    Protected Sub AddMenu()<br />
        Dim topLevelCommand = New MenuCommand<br />
<br />
        topLevelCommand.Text = "File"<br />
        _menuMain.MenuCommands.Add(topLevelCommand)<br />
<br />
        Dim subLevelCommand1 = New MenuCommand        subLevelCommand1.Text = "Exit"<br />
        AddHandler subLevelCommand1.Click, AddressOf OnExitSelected<br />
        topLevelCommand.MenuCommands.Add(subLevelCommand1)<br />
<br />
    End Sub<br />
<br />
    Public Sub OnExitSelected()<br />
<br />
    End Sub<br />
<br />
End Class

Dim subLevelCommand1 = New MenuCommand

Dim subLevelCommand1 as Object
subLevelCommand1 = New MenuCommand

Dim subLevelCommand1 as MenuCommand = New MenuCommand

Public Sub OnExitSelected(ByVal sender As Object, ByVal e As EventArgs)
   Me.Close()
End Sub

Dim btn as Button = New Button
btn.Text = "Hello"
btn.Left = 10
btn.Top = 30
//any other properties
myForm.Controls.Add(btn)

Bob Zagars wrote:

That would cause a problem if the back slash was at postion 0. This error happens even when the position is in the middle of the string.

Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")<br />
Dim myLength As Integer = Me.ebLoginName.TextLength()<br />
Dim myString As String = Me.ebLoginName.Text()<br />
If myStartPointer >= 0 Then<br />
   Me.ebLoginName.Text() = myString.Substring(myStartPointer + 1)<br />
   Me.mccDomain.Clear()<br />
End If

Bob Zagars wrote:

Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")
Dim myLength As Integer = Me.ebLoginName.TextLength()
Dim myString As String = Me.ebLoginName.Text()
If myStartPointer >= 0 Then
Me.ebLoginName.Text() = myString.Substring(myStartPointer + 1)
Me.mccDomain.Clear()
End If

Joshua Quick wrote:

Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")
Dim myLength As Integer = Me.ebLoginName.TextLength()
Dim myString As String = Me.ebLoginName.Text()
If myStartPointer >= 0 Then
Me.ebLoginName.Text() = myString.Substring(myStartPointer + 1)
Me.mccDomain.Clear()
End If


I've just ran your above code with the string "MYDOMAIN\test". It worked for me. Either the input string is not what you expected or the problem lies elsewhere in your code. In either case, I recommend that you step through your code in the debugger and keep a sharp eye on your ebLoginName.Text property.