'実行時エラー382: 実行時には値を設定できません。 'CallByName CommonDialog1, "Left", VbLet, 0 '実行時エラー382: 'Left' プロパティは、実行時には設定できません。 'Me.Controls("CommonDialog1").Left = 0 '実行時エラー393: 'Left' プロパティは実行時に値の取得はできません。 'MsgBox Me.Controls("CommonDialog1").Left '実行時エラー393: 実行時には値を取得できません。 'MsgBox CallByName(CommonDialog1, "Left", VbGet) '実行時エラー438: オブジェクトは、このプロパティまたはメソッドをサポートしていません。 'MsgBox CommonDialog1.object.Left 'CommonDialog1.object.Left = 0 'コンパイルエラー: メソッドまたはデータ メンバが見つかりません。 'CommonDialog1.Left = 0
Private Sub Command1_Click() Dim dlg As DialogObjects.ChooseFile Set dlg = New DialogObjects.ChooseFile dlg.Center = False If dlg.Show() Then MsgBox dlg.Directory & "\" & dlg.FileName, vbInformation Else MsgBox "キャンセルされました。" End If End Sub