表示だけファイル名にするには？ (ID:118542)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

サンプルを書いてみました。
ボタンをクリックするとFileメニューの一番下に３つのメニューが追加されます。
追加されたメニューを選択すると設定したフルパスが表示されます。
とりあえず動作しましたが構文、思想等おかしなところがあればバンバンご指摘下さい。
自分の勉強もちょっと兼ねています。

Option Strict On

Public Class Form1
  Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "

Friend WithEvents myMenu1 As New MyMenuItem
  Friend WithEvents myMenu2 As New MyMenuItem
  Friend WithEvents myMenu3 As New MyMenuItem

Public Sub New()
    MyBase.New()

' この呼び出しは Windows フォーム デザイナで必要です。
    InitializeComponent()

' InitializeComponent() 呼び出しの後に初期化を追加します。

myMenu1.Text = "aaaa"
    myMenu1.FullPath = "C:\My Documents\aaaa\aaaa.txt"
    Me.MenuItem1.MenuItems.Add(myMenu1)
    AddHandler myMenu1.Click, AddressOf myMenu_Click

myMenu2.Text = "bbbb"
    myMenu2.FullPath = "C:\My Documents\bbbb\bbbb.txt"
    Me.MenuItem1.MenuItems.Add(myMenu2)
    AddHandler myMenu2.Click, AddressOf myMenu_Click

myMenu3.Text = "cccc"
    myMenu3.FullPath = "C:\My Documents\cccc\cccc.txt"
    Me.MenuItem1.MenuItems.Add(myMenu3)
    AddHandler myMenu3.Click, AddressOf myMenu_Click

End Sub

' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

' Windows フォーム デザイナで必要です。
  Private components As System.ComponentModel.IContainer

' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
  'Windows フォーム デザイナを使って変更してください。  
  ' コード エディタを使って変更しないでください。
  Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
  Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.MainMenu1 = New System.Windows.Forms.MainMenu
    Me.MenuItem1 = New System.Windows.Forms.MenuItem
    Me.MenuItem2 = New System.Windows.Forms.MenuItem
    Me.MenuItem3 = New System.Windows.Forms.MenuItem
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
    '
    'MenuItem1
    '
    Me.MenuItem1.Index = 0
    Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3})
    Me.MenuItem1.Text = "File(&F)"
    '
    'MenuItem2
    '
    Me.MenuItem2.Index = 0
    Me.MenuItem2.Text = "Close(&X)"
    '
    'MenuItem3
    '
    Me.MenuItem3.Index = 1
    Me.MenuItem3.Text = "-"
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.Menu = Me.MainMenu1
    Me.Name = "Form1"
    Me.Text = "Form1"

End Sub

#End Region

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

End Sub

Private Sub myMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
    MsgBox(CType(sender, MyMenuItem).FullPath)
  End Sub

End Class
Public Class MyMenuItem
  Inherits System.Windows.Forms.MenuItem
  Public FullPath As String
End Class

←解決時は質問者本人がここをチェックしてください。

戻る