[×]ボタン.Enabled = False は可能？

質問

済みません，質問が二つあります。

１．メインフォームから，BorderStyle = 1 のダイアログフォームを Modeless で開くのですが，このフォームを右上の[×]ボタンで閉じさせたくありません。[×]ボタンをクリックしても凹まないようにし（Disabled にし），さらに表示も淡色にする方法があれば，教えていただきたく存じます。

２．テキストボックスに入力された文字列が，ファイル名として有効かどうかを簡単に判定する方法はありますか？　つまり，ファイル名に「\/:,…」などが使われていたら NG，しかしパス名で使われている分には OK といった判定が簡単にできるのでしょうか？

どうかよろしくお願いいたします。

回答No.4

maruru01 · ベストアンサー

こんにちはmaruru01です。
1.について
単に[×]で閉じないようにするなら、FormのUnLoadイベントでCancelをTrueにしてやればよいと思います。
2.について
サンプルを作ってみました。ついでにファイル名が存在するかどうかのチェックもつけました。
No.3の方が言っているように、Open For InputまたはOutputでファイルを開いてみて、エラー値で判断します。
pathNameにファイル名（フルパス）を入れて、今回の質問では、-1が返ったら、ファイル名としては無効（不正なファイル名）ということになります。
参考になれば幸いです。
では。

'ファイルの存在チェック及び、不正ファイル名チェック
Public Function NGfileName(ByVal pathName As String) As Integer

　　Dim Num As Integer

　　NGfileName = 0
　　Err.Number = 0

　　On Error Resume Next

　　'inputモードでファイルの存在チェック
　　Num = FreeFile
　　Open pathName For Input As #Num
　　If Err.Number = 0 Then
　　　　NGfileName = 1 'ファイルが存在する
　　End If
　　Close #Num

　　If NGfileName = 1 Then Exit Function
　　Err.Clear

　　'outputモードで不正ファイル名チェック
　　Num = FreeFile
　　Open pathName For Output As #Num
　　If Err.Number <> 0 Then
　　　　NGfileName = -1 'ファイル名が不正
　　End If
　　Close #Num

　　If NGfileName = 0 Then Kill pathName
　　Err.Clear

End Function

お礼

この度は，ご回答ありがとうございました。

> 参考になれば幸いです。

参考どころか，このまま使えます。これで２．の問題も解決いたしました。本当にありがとうございます。これからも，どうかよろしくお願いいたします。