掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
名前を付けて保存するについて？ (ID：108017)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初めまして、中野といいます。 まだＶＢを始めたばかりの未熟者ですがよろしくお願いします。 早速質問をお願いします。 ｊｐｇファイルを一度開いて、その後「名前を付けて保存」で ダイアログのフィルタを「ico」にして保存しようとしているのですが、保存ができません。 Private Sub mnuFS_Click() Dim pict_file_name as String CommonDialog1.CancelError = True On Error GoTo ErrorHandl CommonDialog1.Filter = "アイコン (*.ico)|*.cur" CommonDialog1.InitDir = "c:\My Documents" CommonDialog1.ShowSave pict_file_name = Picture1.Picture SavePicture Picture1.Picture, pict_file_name ErrorHandl: MsgBox "ファイルが不正です。" End Sub もう1つお尋ねしたい事があります。 jpg等の画像ファイルを開いたとき、ピクチャボックスより小さい写真や大きい写真を、ピクチャボックスにピッタリになるように表示したいのですがどのようにすればよいでしょうか？ ピクチャボックスが正方形で、縦の長さがX、横がYとしてお教えください。 意味不明のところがあるかもしれませんがよろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.