タイトル : VB6.0 SCALE MODE 4 の印刷について 投稿日 : 2016/03/02(Wed) 10:45 投稿者 : SUZUKI
VB6.0からVB2005に変換挑戦中のSUZUKIです VB2005の印刷機能を使って変換しようとしているのですが なかなかうまく行きません どうしたらよいかまたよろしくお願いします 下記は線を書こうとしています VB6.0 KURO = RGB(0, 0, 0) Printer.ScaleMode = 4 Printer.Line (10, 9)-(10, 57), KURO VB2005 の印刷は花ちゃん下記を参考にしています hanatyan.sakura.ne.jp/vb2005/vb2013print08.htm VB2005 Using blackPen As New Pen(Color.Black, 0.2) Dim br As Brush = Brushes.Black 'ミリメートルを長さの単位に指定します。 g.PageUnit = GraphicsUnit.Millimeter g.DrawLine(blackPen, g.PageUnit = GraphicsUnit.Millimeter g.DrawLine(blackPen, 10*120/1440*25.4,2*9*120/1440*25.4,10*120/1440*25.4, 2*57/1440*25.4) エラー 1 縮小変換しないで呼び出される、アクセス可能な 'DrawLine' がないため、 オーバーロードの解決に失敗しました: 'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)': パラメータ 'x1' と一致する引数は 'Double' から 'Integer' へ縮小変換します。 'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single)': パラメータ 'x1' と一致する引数は 'Double' から 'Single' へ縮小変換します。 疑問点ですが 1. Printer.ScaleMode = 4に相当するのはVB2005では無くなったのでしょうか? 2. g.PageUnit = GraphicsUnit.Millimeter で定義すると小数点は許されないのでしょうか 10*120/1440*25.4 は自分で算出した位置変換式です 整数なら問題ないので微調整出来ないという事でしょうか? 時代遅れの質問で申し訳ありません |