• ベストアンサー

Visual Studio .NET 2003：右揃え印刷の設定（その２）

フォーム上に表示されている各項目を印刷したいのですが、左揃えの文字は普通に座標指定するだけで問題ないのですが、桁数の違う数字を右揃えで統一して印刷したい場合の方法を教えていただきたく、よろしくお願いいたします。 以前、上記の内容の質問をさせていただきましたところ、String.Formatを使えばよいとのご回答をいただきました。いろいろと調べてみたのですが、実際にどのようにコードに記述すればよいのかがわからずにおります。現在、フォーム上の項目のうち、数値が入力されている項目を印刷するためのコードを次のように記述しています。 '数値の印刷位置 e.Graphics.DrawString(Suuchi1.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 100) e.Graphics.DrawString(Suuchi2.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 150) e.Graphics.DrawString(Suuchi3.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 200) e.Graphics.DrawString(Suuchi4.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 250) e.Graphics.DrawString(Suuchi5.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 300) 'ここまで これらの数値を右揃えで印刷したい場合、どのようにコードを記述したらよいのか、アドバイスを願います。上記のコードよりももっとスマートなコード記述で、私が望んでいる様な印刷結果を実現できるようでしたら、ご教授のほどよろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • xcrOSgS2wY
  • ベストアンサー率50% (1006/1985)
回答No.4

（回答No.1の補足への回答です） e.Graphics.DrawString(Suuchi1.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 100) となっているところを e.Graphics.DrawString(Suuchi1.Text, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380 - e.Graphics.MeasureString(Suuchi1.Text, New Font("MS ゴシック", 12)).Width, 100) と変更（追加）すると、「座標(380,100)から左詰」が、「座標(380,100)まで右詰」に変わるかと思います。

umbabo
質問者

お礼

ありがとうございます。ご回答いただいたコード記述で、私が望んでいたとおりの結果を得ることができました。完璧です。ほんとうにありがとうございます。感謝いたします。

その他の回答 (3)

  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.3

＃２＞ Suuchi1.Textの中身は、結局文字列ですので、決めた文字数の幅にしてやればいいです。 例えば、 Suuchi1.Textに"1234"が入っていて、１０文字の幅を持たせたいという場合 Suuchi1.Textに直接変更すると、内容が変わってしまいますから出力用の変数を用意して Dim outStr as String outStr=String.Format("{0,10}",Suuchi1.Text)) e.Graphics.DrawString(outStr, New Font("MS ゴシック", 12), New SolidBrush(Color.Black), 380, 100) というようにしてやればいいと思います。

umbabo
質問者

お礼

何度もご回答をいただき、ありがとうございます。 String.Formatでの対処法、現在なぜかセンター揃えになってしまっているのですが、String.Formatでの右揃えもできるよう、いろいろ試してみます。 とりあえず、現在は回答No.1＆No.4様に教えていただいた方法で、私が望むとおりの結果を得ることができました。 回答No.2＆No.3様には質問当初からのご回答をいただき、大変感謝しています。ありがとうございます。

umbabo
質問者

補足

ありがとうございます。たびたびの回答をしていただき感謝しきりです。 現在、数値の印刷結果がセンター揃えになってしまっており、苦戦しております。

  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.2

String.Formatを使うというのは、要するに、 Suuchi1～5の幅を揃えて、数値の無い部分に空白を埋めるのに使うという意味です。 なので、このまま、等幅フォントで同じ位置から書き出せばいいかと思います。 空白が他の文字と厳密には等幅にならないというようなことでしたら、この方法はうまくないです。

umbabo
質問者

補足

再度のご回答ありがとうございます。 おっしゃっている内容についてはイメージできるのですが、実際のコード記述がわからずに苦労しているところです。 TextBox1.Textの数値を実際に右寄せで印刷するためのコード記述を教えていただけるとありがたいのですが。。。

  • xcrOSgS2wY
  • ベストアンサー率50% (1006/1985)
回答No.1

若干遠回りになりますが 1. Graphics.MeasureStringを使って「数値を描画した際の全体の横幅」を取得する。 2. 右揃えの座標からその横幅を減じた場所を起点として、Graphics.DrawStringで数値を描画する。 という手順ではいかがでしょうか。 この場合、String.Formatを使用する必要はありません。

umbabo
質問者

補足

ご回答いただきありがとうございます。おっしゃっている内容、方法論は十分理解できるのですが、それを実際に実現するためのコードの記述がわかりません。 力不足で申し訳ありません。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【VB2008】　.MouseEnter時にe.Graphics.DrawString～をする方法

    　今晩は,いつも勉強させていただいております． 質問させていただきます.どうぞよろしくお願いいたします. 　ボタンの文字を見やすくするため影付き文字にいたしておりますが （下のコード１になります），このボタンにMouseEnterした際に， クリックできることが分かりやすいよう影の色を変えようと思ったのですが やり方が見つけられません．．． 　＜コード１＞ 　Private Sub Button1_Paint(ByVal sender As 　　Object, ByVal e As System.Windows.Forms.PaintEventArgs) _ 　　Handles Button1.Paint 　　　　e.Graphics.DrawString("TEST", _ 　　　　New Font("ＭＳ Ｐゴシック", 10), Brushes.Black, 81, 11) 　　　　e.Graphics.DrawString("TEST", _ 　　　　New Font("ＭＳ Ｐゴシック", 10), Brushes.Red, 80, 10) End Sub 　＜トライしたコード＞ 　Private Sub Button1_MouseEnter(ByVal sender As 　　Object, ByVal e As System.EventArgs) _ 　　Handles Button1.MouseEnter 　　　　e.Graphics.DrawString("Test", _ 　　　　New Font("ＭＳ Ｐゴシック", 10), Brushes.White, 81, 11) 　　　　e.Graphics.DrawString("Test", _ 　　　　New Font("ＭＳ Ｐゴシック", 10), Brushes.Red, 80, 10) 　End Sub 　エラー「'Graphics'は'System.EventArgs'のメンバではありません」と なるのは当然だと思うのでございますが，引数「e As ～」を書き直すなどいたしましても 通りませんorz 　別の方法で「.Paint時に描いた文字色はそのままで，.MouseEnter時に .ForeColorを変えれば．．．」などと考えましたが，ButtonのTextが .Paintで描いた文字より上にくるのでうまくできませんでした．．． 　もしとんちんかんなご質問でしたら申し訳ございません．何かよさそうな 方法がございましたらご紹介いただけないでしょうか． 　もしお詳しい方がいらっしゃいましたら，是非ともアドバイスいただきたく お願い申し上げます．

  • paint()以外でサブ関数を作りたい

    　今晩は、java初心者です、宜しくお願いします。 　下の様なウインドウに文字を書くサブ関数を作りましたが、うまく実行出来ません。 　しかし、public void paint( Graphics g){ }の中に書いてやるとうまく文字が表示されます。 　何故か理由が分かりません。 　public void paint( Graphics g ){ }は、Componentクラスのメッソドをオーバーライドしている だけなので、別名のサブ関数で「Graphics g」を引数にとれば同じ考えだと思うのですが、 実行出来ない理由が理解できません。 　public void drawLetter( Graphics g )としても、エラーが出るばかりです。 　その原因が分かりません、宜しくお願いします。 ==================================================================== public void drawLetter( ) { Graphics aa = getGraphics() ; aa.setFont( new Font( "ＭＳ ゴシック" , Font.BOLD , 15 ) ) ; aa.setColor( Color.green ) ; aa.drawString( "String" , 0 , 0 ) ; } ============================================================= public class P1 extends Applet { public void init() { setBackground( Color.cyan ) ; setSize( 600 , 600 ) ; drawLetter( ) ; } public void drawLetter( ) { Graphics aa = getGraphics() ; aa.setFont( new Font( "ＭＳ ゴシック" , Font.BOLD , 15 ) ) ; aa.setColor( Color.green ) ; aa.drawString( "String" , 0 , 0 ) ; } public void paint( Graphics g ) { g.setColor( Color.RED ) ; g.drawOval( 300 , 300 , 70 , 70 ) ; g.setColor( Color.RED ) ; g.fillOval( 200 , 200 , 30 , 30 ) ; /* g.setFont( new Font( "ＭＳ ゴシック" , Font.BOLD , 15 ) ) ; g.setColor( Color.BLUE ) ; g.drawString( "Orbit" , 50 , 50 ) ; */ } } =======================================================================

    • ベストアンサー
    • Java
  • VB6とVB.NETでは同じフォントでも違う文字になる？

    VB6とVB.NETでは同じフォントでも違う文字になる？ VB.NETで文字を印刷しているのですが、VB6で印刷したものと、VB.NETで印刷したものは 同じフォントを指定しているのに、明らかに文字が違います。 このようなことはあるのでしょうか。 あるいはロジックに問題があるのでしょうか。 VB6 Printer.FontName = "ＭＳ ゴシック" Printer.CurrentY = YY Printer.CurrentX = XX Printer.FontSize = 10 Printer.Print(TITLE) VB.NET Dim PrtFont1 As New Font("ＭＳ　ゴジック", 10) e.Graphics.DrawString(TITLE, PrtFont1, Brushes.Black, XX,YY) Windows XP VisualBasic 6.0, Visualbasic2010 Express

  • フォントの使用方法

    次のプログラムでフォントを変更できるはずなのですが・・・。 ※import文省略 public class StringDisplay extends Applet{ 　public void paint(Graphics g) { 　　g.drawString("文字が書けました",100, 50); 　　g.setFont(new Font("ＭＳ 明朝", Font.PLAIN, 25)); 　　g.drawString("文字が書けました",100,100); 　　g.setFont(new Font("ＭＳ ゴシック", Font.BOLD, 30)); 　　g.drawString("文字が書けました",100,150); 　} } --実行結果-- ・ＭＳ明朝及びＭＳゴシックにならない ・「文字が書けました」は３つとも出ている ・３つとも初期設定フォントの「dialog」らしい ・文字の大きさは変更されている ・３つ目に太字は適用されている ・他のアプリケーション（キューブペイントなど）で文字を書くときにはＭＳ明朝・ＭＳゴシックは使用できる こんな感じなのですが、なぜフォントが変更できないのかが分かりません。 全く同じプログラムではありませんが、以前はちゃんと変更できました。 どなたかお分かりになる方はいませんでしょうか？

    • ベストアンサー
    • Java
  • PrintDocumentでうまく印字ができません

    PrintDocumentでうまく印字ができません VB2008を使っています。 PrintDocumentを使って画面を伝票に出力しようとしています。（以下のコード） '品名，数量，単価，金額，　最大6行 For i = 0 To 5 If tbGyoIdArray(i).Text <> Nothing Then e.Graphics.DrawString(tbShohinNameArray(i).Text, f1, Brushes.Black, 10, 150 + 20 * i) e.Graphics.DrawString(tbSuryoArray(i).Text, f1, Brushes.Black, 100, 150 + 20 * i) e.Graphics.DrawString(tbTankaArray(i).Text, f1, Brushes.Black, 250, 150 + 20 * i) e.Graphics.DrawString(tbKingakuArray(i).Text, f1, Brushes.Black, 300, 150 + 20 * i) End If Next ところが「DrawString」は引数で指定する開始位置から左詰めで印字するのですが、 数量，単価，金額は右詰めで印刷しないとならないわけです。 そこで、どなたか右詰めで印字する方法を教えて下さい。 もしできないとしたら、どんな方法があるでしょうか。 よろしくお願いします。

  • VB2010 でのPictureboxのフォント指定

    VB2010 でのPictureboxのフォント指定 現在　Pictureboxのフォントをプログラムの先頭で定義しているのですが、 '------------------------------------------------------------------------- Dim fnt As New Font("ＭＳ ゴシック", 9) With PictureBox1 .Image = New Bitmap(.Size.Width, .Size.Height) g1 = Graphics.FromImage(.Image) g1.Clear(.BackColor) End With g1.DrawString("TEST" fnt, Brushes.Black, IX,IY) '------------------------------------------------------------------------- 下記のようにループ内で指定したいのですが、どう定義すればいいでしょうか。 For i=1 to 10 <------------------------ここでfont指定したい g1.DrawString("TEST" fnt, Brushes.Black, IX,IY) next

  • java初心者です。座標取得と図形表示について

    マウスをクリックするとその座標を表示するプログラムです。 画面には常に二つの四角形が表示されていて、どこをクリックしたかによって表示が変わるというものです。 （オレンジの四角形内をクリックした場合、 Ｘ：100 オレンジ Ｙ：100 オレンジ のように表示します。） ですが、私が組んでみたプログラムでは図形表示が一瞬だけになってしまいます。 また、ウインドウの大きさを動かしてみると一瞬移っては消えてしまうという状態です。 それから、「オレンジ」などの日本語表示がうまくいかず「□□□」のように表示されてしまいます。 これらの問題を解決するにはどこをどう修正したらよいでしょうか？ 以下が初心者なりに組んでみたソースです。 import java.awt.Color; import java.awt.Graphics; import java.awt.event.MouseEvent; import java.awt.event.MouseListener; import java.awt.Toolkit; import java.awt.Graphics2D; import java.awt.Graphics; import java.awt.Font; import java.awt.Rectangle; import java.lang.String; import java.lang.System; import javax.swing.JFrame; import javax.swing.JPanel; public class kadai33 extends JFrame { private static final long serialVersionUID = 1L; public kadai33() { add(new DrawPanel()); } public static void main(String[] args) { Toolkit.getDefaultToolkit().setDynamicLayout(true); JFrame f = new kadai33(); f.setTitle("マウスの座標を表示"); f.setDefaultCloseOperation(EXIT_ON_CLOSE); f.setBackground(Color.WHITE); f.setSize(400, 750); f.setVisible(true); } class DrawPanel extends JPanel implements MouseListener { int x; int y; public DrawPanel() { setBackground(Color.white); addMouseListener(this); } public void mouseEntered(MouseEvent e){} public void mouseExited(MouseEvent e){} public void mousePressed(MouseEvent e){} public void mouseReleased(MouseEvent e){} public void mouseClicked(MouseEvent e) { x = e.getX(); y = e.getY(); repaint(); } public void paint(Graphics g) { Font font=new Font("Arial",Font.PLAIN,16); super.paintComponent(g); //super.paint(g); Graphics2D g1 = (Graphics2D)this.getGraphics(); Rectangle rect = new Rectangle(); rect.setRect(50,50,200,200); g1.setColor(Color.ORANGE); g1.fill(rect); Graphics2D g2 = (Graphics2D)this.getGraphics(); Rectangle rect2 = new Rectangle(); rect2.setRect(150,350,150,150); g2.setColor(Color.GREEN); g2.fill(rect2); Graphics2D g3 = (Graphics2D)this.getGraphics(); Rectangle rect3 = new Rectangle(); rect3.setRect(50,650,200,50); g3.setColor(Color.BLACK); g3.fill(rect3); if(x>=50 && x<=250 && y>=50 && y<=250){ super.paintComponent(g); String sx = String.format("X:%d", x); String sy = String.format("Y :%d", y); g.setFont(font); g.setColor(Color.BLACK); g.drawString(sx, 65, 670); g.drawString(sy, 65, 690); Graphics2D g4 = (Graphics2D)g; g4.setFont(font); g4.setColor(Color.WHITE); g4.drawString("オレンジ",120,670); g4.drawString("オレンジ",120,690); } if(x>=150 && x<=300 && y>=350 && y<=500){ super.paintComponent(g); String sx = String.format("X:%d", x); String sy = String.format("Y :%d", y); g.setFont(font); g.setColor(Color.BLACK); g.drawString(sx, 65, 670); g.drawString(sy, 65, 690); Graphics2D g5 = (Graphics2D)g; g5.setFont(font); g5.setColor(Color.WHITE); g5.drawString("グリーン",120,670); g5.drawString("グリーン",120,690); } else{ super.paintComponent(g); String sx = String.format("X:%d", x); String sy = String.format("Y :%d", y); g.setFont(font); g.setColor(Color.BLACK); g.drawString(sx, 65, 670); g.drawString(sy, 65, 690); Graphics2D g6 = (Graphics2D)g; g6.setFont(font); g6.setColor(Color.WHITE); g6.drawString("対象外",120,670); g6.drawString("対象外",120,690); } } } } 大変困っています。 どうかよろしくお願いいたしますm(__)m

    • ベストアンサー
    • Java
  • VB2010DataGridView複数ページ印刷

    VB2010のDataGridViewで複数ページの印刷を試みています。 改ページに悩んでいます。「e.HasMorePages=True」で改ページは可能ですが、１ページ目も２ページ目も同じ内容が印刷されます。 １ページに３０行を印刷する予定ですので、２ページ目には３１行目から印刷をしたいのです。 現在、いろいろ参考にしまして、コーディングは進んでいますが、３０行の指定がページ目いっぱいまで印刷される点と、２ページ目以降の印刷ができない点に悩んでいます。 書き上げたコードを記述しますので、ご存知の方が居られましたら、ご教授ください。 Dim reader As IO.StreamReader Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PrintPreviewDialog1.ShowDialog() PrintPreviewDialog1.Document = PrintDocument1 'file() ' 印刷処理を実行 'PrintDocument1.Print() 'PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow) 'PrintDocumentオブジェクトの作成 Dim pd As New System.Drawing.Printing.PrintDocument 'PrintPageイベントハンドラの追加 AddHandler pd.PrintPage, AddressOf pd_PrintPage 'PrintDialogクラスの作成 Dim pdlg As New PrintDialog 'PrintDocumentを指定 pdlg.Document = pd '印刷の選択ダイアログを表示する If pdlg.ShowDialog() = DialogResult.OK Then 'OKがクリックされた時は印刷する pd.Print() End If End Sub Dim page As Integer = 0 '現在のページ Private Const MaxLine As Integer = 30 '１ページ３０行 Private Sub pd_PrintPage(ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs) page += 1 'グラフィックの定義 Dim g As Graphics = e.Graphics '総行数をallrowとする Dim allrow As Integer = DataGridView1.Rows.Count - 1 '文字列を描く 'g.DrawString(DataGridView1(0, 0).Value, _ ' New Font("ＭＳ Ｐゴシック", 9), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top) Dim X As Integer Dim Y As Integer Y = e.MarginBounds.Top For i As Integer = 0 To DataGridView1.Rows.Count - 1 X = e.MarginBounds.Left For j As Integer = 0 To DataGridView1.Columns.Count - 1 Dim s As String If DataGridView1(j, i).Value Is Nothing Then s = "" Else s = DataGridView1(j, i).Value End If g.DrawString(s, New Font("ＭＳ Ｐゴシック", 9), Brushes.Black, X, Y) 'g.DrawString(DataGridView1(j, i).Value.ToString, _ ' New Font("ＭＳ Ｐゴシック", 9), Brushes.Black, X, Y) X += DataGridView1.Columns(j).Width Next j Y += DataGridView1.Rows(i).Height Next i '現在のページが総ページ数より少ない場合は、次ページへ If page < (allrow \ MaxLine + 1) Then e.HasMorePages = True Else 'このページで終了 e.HasMorePages = False End If End Sub

  • C#で派生クラスから描画処理を行う

    C#を勉強しているのですが、GUIを作り初めて描画処理で分からない所があり、質問させて頂きます。 基本クラスの方で「Hello, world!」という文字列をDrawStringで表示させる事は出来たのですが、それを基本クラスを継承した派生クラスのメソッドで行うと何も表示されないんです。 以下が試したコードです。 //基本クラスSample1 using System; using System.Drawing; using System.Windows.Forms; public class Sample1 : Form { 　　protected Bitmap image; protected Graphics g; protected override void OnPaint(PaintEventArgs e) { base.OnPaint(e); Sample2 s = new Sample2(); s.helloworld(); e.Graphics.DrawImage(image, 0, 0); } public Sample1() { SetStyle(ControlStyles.DoubleBuffer | ControlStyles.UserPaint | ControlStyles.AllPaintingInWmPaint, true); image = new Bitmap(600, 400); g = Graphics.FromImage(image); } static void Main() { Form form = new Sample1(); form.Text = "sample"; form.ClientSize = new Size(600, 400); form.BackColor = Color.FromArgb(0xff, 0xff, 0xff); Application.Run(form); } } //派生クラスSample2 using System; using System.Drawing; using System.Windows.Forms; public class Sample2 : Sample1 { Brush brush = new SolidBrush(Color.Black); public void helloworld() { g.DrawString("Hello, world!", this.Font, brush, 10, 10); } } なぜ表示されないのか分かる方いらしたら、ご教授願えないでしょうか。是非お願いします。

  • Word　印刷文字がうすいのですが・・・

    Word2000です。 規定のフォントを「MS明朝」に設定していますが、印刷すると線が細く、うすくて読みにくい文字で印刷されます。 MSゴシックにすれば濃く印刷されますが、ゴシックです。 明朝を濃く印刷する方法は無いでしょうか？ あるいは、明朝的なフォントだが濃く印刷されるフォントがあれば教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する