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

名前

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

本文

いきなりソースを写しまちがえました。
上のソースは無視して下さい。
以下が試したソースです。

Option Strict On

Public Class Form1
  Inherits System.Windows.Forms.Form

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

Public Sub New()
    MyBase.New()

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

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

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
  Friend WithEvents Button1 As System.Windows.Forms.Button
  <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
    Me.Button1 = New System.Windows.Forms.Button
    Me.SuspendLayout()
    '
    '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 = "-"
    '
    'Button1
    '
    Me.Button1.Location = New System.Drawing.Point(148, 32)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(100, 48)
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "Button1"
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.Controls.Add(Me.Button1)
    Me.Menu = Me.MainMenu1
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)

End Sub

#End Region

'追加したメニューのイベントハンドラー
  Private Sub myMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox(CType(sender, MyMenuItem).FullPath)
  End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'ボタンをクリックされた時の処理
    Dim myMenu1 As MyMenuItem

'File→Closeメニュの下に３つのメニューを追加
    myMenu1 = New MyMenuItem
    myMenu1.Text = "aaaa"
    myMenu1.FullPath = "C:\My Documents\aaaa\aaaa.txt"
    Me.MenuItem1.MenuItems.Add(myMenu1)
    AddHandler myMenu1.Click, AddressOf myMenu_Click

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

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

End Sub

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

End Sub
End Class

'MenuItemの派生クラス（FullPathを追加しただけ）
Public Class MyMenuItem
  Inherits System.Windows.Forms.MenuItem
  Public FullPath As String
End Class

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

戻る