Printで一度に複数行を表示するには？ (ID:111774)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > if Len(Bun(a))>25 then '25文字でより大きかったら、 そのコードだと、50文字以上の行があった時に困りませんか? 25文字単位でループ処理した方が良いかもしれません。 > Picture1.CurrentX = 10 'CurrentXを新たに指定 先にも書きましたが、ScaleLeftプロパティ(もしくはScaleメソッド)で Private Sub Form_Load() Picture1.ScaleLeft = -10 Picture1.Cls End Sub などと座標系を変更しておけば、毎回 CurrentX を指定せずとも済みますよ。 > Picture1.CurrentY = 20 * (a+1) > Picture1.Print bun(a) 25文字単位で区切るということは、1行分のデータ( Bun(x) )が、 複数行にまたがって書かれる可能性があるという事ですよね。 という事は、「Bun配列のインデックスを表す変数(データの行番号)」と、 「CurrentYの位置を管理するための変数(表示上の行番号)」を、それぞれ 別々に管理しておかなければいけないかと。