■26775 / inTopicNo.8) |
Re[1]: リッチテキストの文字列をピクチャボックスに表示したい |
□投稿者/ 魔界の仮面弁士 (877回)-(2008/10/20(Mon) 19:52:08)
|
2008/10/20(Mon) 20:05:13 編集(投稿者)
■No26734 (Kaneda さん) に返信 > リッチテキストボックスに入力した文字列をピクチャボックスに書き出したいのですが、 > どのようにすればよろしいでしょうか。
こうかな。
Private bmp As Bitmap Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click If bmp IsNot Nothing Then bmp = New Bitmap(1000, 2000) Using g As Graphics = Graphics.FromImage(bmp) Dim r As Rectangle = New Rectangle(Point.Empty, bmp.Size) ' Print メソッドの実装方法は、下記を参照してください。 ' http://support.microsoft.com/kb/811401/ RichTextBox1.Print(0, RichTextBox1.TextLength, _ New PrintPageEventArgs(g, r, r, New PageSettings())) End Using PictureBox1.Image = bmp End Sub
|
|