|
▼neptune さん:ご回答ありがとうございます。
>OPENFILENAME構造体のFlags 引数に加えます。
>Flags を設定してない場合
>Flags = OFN_HIDEREADONLY
>している場合
>Flags =既に設定している定数 or OFN_HIDEREADONLY
例えば、以下のようなことですよね?
すみません、難しくてよくわからなくなっているのですが,以下では読み取り専用チェックボックスは非表示にはなりませんでした。
・・・・・・
・・・・・・
'
Private Function GetFile(ByVal Filt As String, FiltName As String, MsgTitle As String) As String
Dim retc As Long
Dim filn As OPENFILENAME
Dim Tmpfile As String
Dim TmpFileTitle As String
Dim fileToOpen As String
Dim STIME As Integer
'
Tmpfile = String(256, 0)
TmpFileTitle = String(256, 0)
'設定いろいろ
With filn
.Flags = OFN_HIDEREADONLY ←←←
End With
'
|
|