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

名前

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

本文 どのようにメニューを追加しているのか判らないのですが、 要するにメニューを作成した時とクリックした時にユニークな キーがほしいと言うことですか。 メニュのHandleを使えば １番上のメニューだけは作っておいて Dim MenuNo(6) As Integer Dim FllPath(6) As String Dim myMenu(6) As MenuItem Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim n As Integer For n = 0 To 5 myMenu(n) = New MenuItem() 'メニューの追加 MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {myMenu(n)}) myMenu(n).Text = Str(n) MenuNo(n) = myMenu(n).Handle().ToInt32 FllPath(n) = Str(n) + "aaaa" 'ファイルのフルパスのつもり AddHandler myMenu(n).Click, AddressOf myMenu_Click Next End Sub Private Sub myMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim m As MenuItem Dim n As Integer m = DirectCast(sender, MenuItem) For n = 0 To 5 If m.Handle.ToInt32 = MenuNo(n) Then TextBox1.Text = FllPath(n) 'フルパスを表示 End If Next End Sub 結構いいかげんですがこんなことも出来るのでは。