tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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 は自分で算出した位置変換式です
   整数なら問題ないので微調整出来ないという事でしょうか?

時代遅れの質問で申し訳ありません

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。