投稿日 | : 2007/06/22(Fri) 08:15 |
投稿者 | : マコちゃん |
Eメール | : |
URL | : |
タイトル | : Re^2: リストボックスで特定の拡張子以外は... |
> > リストボックスで特定の拡張子以外は入らないようにするには、どうすればいいのでしょうか?
>
> リストボックスへの項目追加はプログラムで行っていると思いますが、
> Like演算子を使って、指定の拡張子かどうかを判断すればよいと思います。
>
> 追加項目がdata、リストボックスがListBox1だとすると
> 以下のような感じで判定できます。(拡張子が.txtの場合のみ追加の例)
>
> If data Like "*.[Tt][Xx][Tt]" Then
> ListBox1.Add(data)
> Else
> ' 追加しない
> End If
ご伝授有難う御座います。
早速、追記したところLikeで型が一致しないとエラーが出ました。
因みに下が書き換えたものです。
If dwgName Like "*.[Dd][Ww][Gg]" Then
DwgList.AddItem (dwgName)
Else
' 追加しない
End If
です。何がおかしいのでしょうか?宜しくお願い致します。