Dialog

2.3.9 Dialog クラス

Remarks

ダイアログ表示クラス
このクラスは Staticクラス(Attribute VB_PredeclaredId = True) です。

Dependent

• None

History

Date	Version	Note
2019-01-01	Ver.1.0.0	新規作成
2020-05-20	Ver.1.0.1	ShowFileDialogでフィルタを省略時エラーになるのを修正

---

2.3.9.1 ShowColorDialog(Dialog)

Syntax

ret = Dialog.ShowColorDialog(color)

Parameters

Name	Required/Optional	Data type	Description
color	必須	Long	ダイアログ選択時、色を返却する変数

Return Value

Name	Data type	Description
ret	Boolean	ダイアログで選択された場合Trueを返す。キャンセルした場合はFalse

Remarks

カラーダイアログ選択
ダイアログを表示して選択された色を返却する

Example

Dim color As long

If Dialog.ShowColorDialog(color) Then
    lblName.BackColor = color
End IF

See also

• None

---

2.3.9.2 ShowFolderDialog(Dialog)

Syntax

ret = Dialog.ShowFolderDialog(folder)

Parameters

Name	Required/Optional	Data type	Description
folder	必須	String	ダイアログ選択時、フォルダ名を返却する変数

Return Value

Name	Data type	Description
ret	Boolean	ダイアログで選択された場合Trueを返す。キャンセルした場合はFalse

Remarks

フォルダ選択
ダイアログを表示して選択されたフォルダ名を返却する

Example

Dim folder As String

'初期表示時のフォルダも指定可能
folder = "C:\test"

If Dialog.ShowFolderDialog(folder) Then
    lblName.text = folder
End IF

See also

• None

---

2.3.9.3 ShowFileDialog(Dialog)

Syntax

ret = Dialog.ShowFileDialog(file, [filter])

Parameters

Name	Required/Optional	Data type	Description
file	必須	String	ダイアログ選択時、ファイル名を返却する変数
file	任意	Variant型	ファイルをフィルタしたい場合、バーレンを区切りとしてファイルの種類とワイルドカードを指定

Return Value

Name	Data type	Description
ret	Boolean	ダイアログで選択された場合Trueを返す。キャンセルした場合はFalse

Remarks

ファイル選択
ダイアログを表示して選択されたファイル名を返却する

Example

Dim strFile As String
Dim strFilter As Variant

'初期表示時のファイルも指定可能
strFile = "C:\test.csv"
strFilter = Array("Excel|*.xlsx" ,"Word|*.docx")

If Dialog.ShowFileDialog(strFile, strFilter) Then
    lblName.text = strFile
End IF

See also

• None