Visual Basic

Dim myString As String = "I like www.google.com."<br />
If (myString.IndexOf("www.google.com") >= 0) Then<br />
   ' Found it!<br />
End If

' Array of all URLs to search for.
Dim URLs() As String = {"google.com", _
                        "yahoo.com", _
                        "msn.com"}

Dim emailBody As String = "I like www.yahoo.com."
Dim urlName As String
Dim wasUrlFound As Boolean = False

' Traverse all known URLs.
For Each urlName In URLs
   ' Does this URL exist in the e-mail?
   If (emailBody.IndexOf(urlName) >= 0) Then
      wasUrlFound = True
      Exit For
   End If
Next

' Notify user if URL was found.
If (wasUrlFound) Then
   MessageBox.Show("Found URL """ & urlName & """.")
End If

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)