メニューを動的作成する関数？ (ID:74781)

名前

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

本文 なんと、現行のままでうまく行きました！ "バリアント型"って、これだとちょっと掟破りっぽいですけど、 オブジェクト型でいいみたい。(結局掟破りや^^;) ちなみにコードは下のとおりです。Gettitleとかはあんまり気にしないで^^; Public Enum LoadmenumenuStyle Filepath = 0 pathandgettitleext = 1 Freestring = 2 End Enum Public Sub Loadmenu(menu As Object, Section As String, Optional Style As LoadmenumenuStyle = Freestring) On Error Resume Next Dim i As Integer For i = 0 To UBound(Split(Keylist(Section), Chr(0))) Load menu(i) Select Case Style Case Filepath: menu(i).Caption = GetTitle(Inir(Section, i + 1)) Case pathandgettitleext: menu(i).Caption = GetTitleExt(Inir(Section, i + 1)) Case Freestring: menu(i).Caption = Inir(Section, i + 1) End Select If menu(i).Caption = "" Then menu(i).Visible = False Else menu(i).Visible = True Next End Sub