PictureBoxに元の画像の縦横比を保ったまま画像表示するには？ (ID:111703)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Ｙ２さん お返事ありがとうございます。 用途はリストボックスで選択した画像を表示させてユーザーに確認させたいだけです。 Ｙ２さんに教えていただいたように組んではいたのですがPictureBoxにすら表示されない状態です。 ****************************************************************** Dim strUrl As String = ComBox.Text & "\" & FLName ' 画像の格納Pathの取得 Dim G As Graphics = PictureBox.CreateGraphics Dim MyImg As Bitmap = New Bitmap(strUrl) Dim intWidth As Single = MyImg.Width Dim intHeight As Single = MyImg.Height Dim Picturex As Single = PictureBox.Width Dim Picturey As Single = PictureBox.Height ' 縦横比の格納変数 Dim Comparisonx As Double = Picturex / intWidth Dim Comparisony As Double = Picturey / intHeight ' 倍率の格納変数 Dim magnification As Double If Comparisonx >= Comparisony Then magnification = Comparisony ElseIf Comparisonx < Comparisony Then magnification = Comparisonx End If '画像の拡大縮小描画 G.DrawImage(MyImg, intWidth * magnification, intHeight * magnification, intWidth, intHeight) G.Dispose() MyImg.Dispose() End If ****************************************************************** ソースは上記の通りです。 Private Sub ListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox.SelectedIndexChanged 〜ENDの中に書き込んでるからいけないのですかね？ そんなわけないですよね〜。。。 すみませんが、もう少し教えてください。お願い致します。