| 画像を拡大・縮小して印刷及びファイルから直接読み込み印刷 (4個) (SNo.059) １．PictureBoxに表示されているImage(画像)を印刷 ２．PictureBoxに表示されているImage(画像)を拡大して印刷 ３．PictureBoxに表示されているImage(画像)を縮小して印刷 ４．ファイルから直接読み込んでImage(画像)を印刷 |
|
| 使用コントロール | Button1 PrintDocument1 PictureBox1 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) 印刷する画像ファイル及び下記設定以外は準備願います。 |
|
１．PictureBoxに表示されているImage(画像)を印刷
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ''PictureBoxに表示されているImageを印刷 Dim picWidth As Integer = PictureBox1.Width Dim picHeight As Integer = PictureBox1.Height '50,100 ピクセルの位置にPictureBoxと同じサイズで印刷 e.Graphics.DrawImage(PictureBox1.Image, 50, 100, picWidth, picHeight) End Sub ByVal e As System.EventArgs) Handles MyBase.Load '画像ファイルを読み込み表示（ファイルのサイズで） '表示する画像のサイズに合わせてPictureBoxを表示します PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize '画像ファイルを読み込みPictureBoxに表示 PictureBox1.Image = System.Drawing.Image.FromFile("..\..\test.bmp") End Sub |
|
| ２．PictureBoxに表示されているImage(画像)を拡大して印刷 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ''PictureBoxに表示されているImageを印刷 Dim picWidth As Integer = PictureBox1.Width Dim picHeight As Integer = PictureBox1.Height '50,100 ピクセルの位置に1.5 倍に拡大して印刷 picWidth = picWidth * 1.5 picHeight = picHeight * 1.5 e.Graphics.DrawImage(PictureBox1.Image, 50, 100, picWidth, picHeight) End Sub ByVal e As System.EventArgs) Handles MyBase.Load '画像ファイルを読み込み表示（ファイルのサイズで） '表示する画像のサイズに合わせてPictureBoxを表示します PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize '画像ファイルを読み込みPictureBoxに表示 PictureBox1.Image = System.Drawing.Image.FromFile("..\..\test.bmp") End Sub |
|
| ３．PictureBoxに表示されているImage(画像)を縮小して印刷 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ''PictureBoxに表示されているImageを印刷 Dim picWidth As Integer = PictureBox1.Width Dim picHeight As Integer = PictureBox1.Height '50,100 ピクセルの位置に50% に縮小して印刷 picWidth = picWidth * 0.5 picHeight = picHeight * 0.5 e.Graphics.DrawImage(PictureBox1.Image, 50, 100, picWidth, picHeight) End Sub ByVal e As System.EventArgs) Handles MyBase.Load '画像ファイルを読み込み表示（ファイルのサイズで） '表示する画像のサイズに合わせてPictureBoxを表示します PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize '画像ファイルを読み込みPictureBoxに表示 PictureBox1.Image = System.Drawing.Image.FromFile("..\..\test.bmp") End Sub |
|
| ４．ファイルから直接読み込んでImage(画像)を印刷 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage '50,100 ピクセルの位置にファイルから読み込んで印刷 Dim myPic As New Bitmap("..\..\test.bmp") e.Graphics.DrawImage(myPic, 50, 100) End Sub |
|
2004/05/10
2005/09/25
VBレスキュー(花ちゃん)
VB.NET2003 VB2005