投稿日 | : 2005/01/11(Tue) 14:53 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re: Index値の受け渡しについて(PopUp,API使用) |
Tagプロパティに入れるとか。
> Private Sub Lbl_SetTemplateFolder_MouseUp(Index As Integer, _
> Button As Integer, _
> Shift As Integer, _
> x As Single, _
> y As Single)
> 'ラベルをクリックした際の処理
>
> '左クリックを制御
> If Button = vbLeftButton Then
> If Lbl_SetTemplateFolder(Index).Caption = vbNullString Then
> Else
> '動作ファイル名をフルパスで表示する
> MsgBox "動作ファイルには現在、" & vbCrLf & vbCrLf & _
> " フォルダ名:" & _
> Lbl_SetTemplateFolder(Index).Caption & vbCrLf & _
> "が読み込まれています", _
> vbOKOnly + vbInformation, "動作ファイル"
> End If
> '右クリックを制御
> ElseIf Button = vbRightButton Then
> '「フォルダ変更」のポップアップを表示する
MainForm.Mnu_ChangeFolder.Tag = Index
> MainForm.PopupMenu MainForm.Mnu_PopFolder
> End If
>
> End Sub
>
> Private Sub Mnu_ChangeFolder_Click()
> '「フォルダ変更」のポップアップをクリックした際の処理
>
> Dim StrFolder As String
>
> 'SHBrowseForFolderのAPIを使用しフォルダのパスを返す
> 'ShowFolder Functionは標準モジュールに格納されています。
> StrFolder = ShowFolder
>
> If StrFolder = vbNullString Then
> 'キャンセルが押されたので何も処理は行わない
> Else
> 'ラベルの中身を書き換える
Lbl_SetTemplateFolder(MainForm.Mnu_ChangeFolder.Tag).Caption = StrFolder
> End If
>
> End Sub