掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メニューを動的作成する関数？ (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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.