
No.2ベストアンサー
- 回答日時:
Dim Bmp As New Bitmap(Pic.Width, Pic.Height)
Dim Fnt As New Font(txtFntName.Text, txtFntSize.Text, RaSty, GraphicsUnit.Pixel)
Dim Bsh As New SolidBrush(ColPic.BackColor)
Bmp = Image.FromFile(FileName)
PoF.X = Int(Bmp.Width * txtPer.Text / 100)
PoF.Y = Int(Bmp.Height * txtPer.Text / 100)
Dim g As Graphics = Graphics.FromImage(Bmp)
g.DrawString(txtStr.Text, Fnt, Bsh, PoF)
Pic.SizeMode = PictureBoxSizeMode.StretchImage
Pic.Width = Bmp.Width / 2
Pic.Height = Bmp.Height / 2
Pic.Image = Bmp
*ソースより抜粋
StretchImageで、ピクチャーボックスのサイズを
変更できる。変更後にイメージファイルを読み込めば
縮小表示される
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- デジタルカメラ 録画した4K動画を、フルピクセルで再生したい 5 2023/05/10 00:05
- ホームページ作成・プログラミング 保存したホームページのファイルは何をしている推測できますでしょうか。 1 2023/08/18 15:50
- PDF 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 1 2022/03/31 19:09
- その他(IT・Webサービス) 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 3 2022/03/31 19:11
- PDF 画像調整してスクショし保存した画像を印刷する方法 1 2022/03/31 18:42
- HTML・CSS トリミングで表示した画像をクリックで元どおりにしたい 3 2022/12/16 18:49
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- AJAX 自作の地図をグーグルマップのようにしたい 3 2022/11/15 11:53
- Windows 10 Windows10の画像ファイルのサムネールがアイコン表示になってしまいました。 3 2022/07/09 13:01
- モニター・ディスプレイ WindowsノートPC 13.3で画面縮小したい 画面全体が見えない めり込んでしまってます 1 2023/01/22 13:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】シートの変数へ入れ...
-
【マクロ】並び替えの範囲が、...
-
vbsでのwebフォームへの入力制限?
-
改行文字「vbCrLf」とは
-
【マクロ】開いているブックの...
-
エクセルの改行について
-
Vba セルの4辺について罫線が有...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
ExcelVBAでパワポを操作したい
-
Excelのマクロについて教えてく...
-
Vba FileSystemObject オブジェ...
-
VBAの質問(Msgboxについて)です
-
エクセルのマクロについて教え...
-
VBAでユーザーフォームを指定回...
-
EXCEL vbaでシート上に配置した...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
vb.net(vs2022)のtextboxのデザ...
-
エクセルのVBAコードと数式につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
DrawImageでビットマップを拡大...
-
C#【フォルダの参照】ダイアログ
-
素材屋さんでよく見かける、壁...
-
フレームのランダム切替とブラ...
-
一時停止と再開
-
VB.NETで画像の拡大・縮小
-
PHP リロードせずに、リアルタ...
-
CListCtrlのcheckboxサイズ変更
-
Dosブロンプトでtabを出力したい
-
「取得先」という表現について
-
バッチファイルでpingの結果を...
-
shシェルスクリプト 空白行の...
-
【C#】DataGridViewの最大列数...
-
Excel VBA:特定の文字列以降(...
-
EXCEL、マクロ-改ページ行番号...
-
DTOとEntityの差は何ですか。
-
wordの差し込み印刷で文字...
-
URLのパラメータをGETのままで...
-
ゼロとNULLを区別して number_f...
-
VBA コレクションに2次元配列...
おすすめ情報