[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^4: Pictuerboxに貼り付けたBmpの印刷 投稿日 ： 2008/04/11(Fri) 12:06 投稿者 ： しげじゅ
| 花ちゃん様 早速のご返信ありがとうございます。 > Picturebox は、印刷されていて、表示している bmp 画像が印刷されないのでしょうか？ > 画面上に２０個のPicturebox と画像は表示されているのでしょうか？ 画面上にはPictuerboxもBMPも正常に20個表示された状態で 印刷した場合はPictuerboxは印刷されますがBPMはされません。 > 画面上に表示されている事を確認してから > Private Sub Command1_Click() > PrintForm > End Sub > を実行したらどうなりますか？ 事前に呼出したBMPを、確認後別のイベントで印刷しています。 又上記の通りに試してみましたが、結果は同じでした。 > >（bmpとPictuerBoxとがずれてますが） > どのような状態なのか解りません。どこがどのようにずれているのでしょうか？ Pictuerbox内でBMPがずれています。 BMPの座標0,0がPictuerboxの座標でｘ、ｙともマイナス方向に ズレた感じになっています。 > 画像は、どこで読み込んでいるのでしょうか？ 添付したコードには含まれていない他のイベントで読み込んでいます。 以下に添付いたします。（余計なコード削除しましたが残っていた場合すみません） Private Sub LoadImage1_Click() On Error GoTo Error00 Tim01 = Timer For I = 0 To 9 Picture1(I).Cls: Picture2(I).Cls Next I Cnt1 = ListCnt - 1'表示Bmp数、ナンバー H = Val(Parge.Text * 10) K = 0 For I = Cnt1 - H To 0 Step -1 If K = 10 Then Exit For Ng_Nam = Form2.List1.List(I) N = Len(Lfname) Nam1 = "\\Ljs-ts-03\DESK01\画像保存\" Nam1 = Nam1 + Mid(Lan_nam, 3, 8) + "\" + Mid(Lfname, 18, 5) + Mid(Lfname, 27, N - 26) + "\" + Ng_Nam + ".bmp" '----呼び出しファイル作成 Set Objpic(0) = LoadPicture(Nam1) Picture1(K).PaintPicture Objpic(0), 0, 0, Picxw3, Picyw3 Text1(K).Text = Ng_Nam If Fr = 0 Then Nam2 = Rfname + "\" + Ng_Nam + ".bmp" Set Objpic(0) = LoadPicture(Nam2) Picture2(K).PaintPicture Objpic(0), 0, 0, Picxw3, Picyw3 Text2(K).Text = Ng_Nam End If K = K + 1 Next I K = 10 If Fr = 1 Then Form13.Line1.Visible = False: LoadImage2_Click Else Form13.Line1.Visible = True Tim02 = Timer Debug.Print Tim02 - Tim01 Exit Sub Error00: MsgBox "該当するファイルが見つかりませんでした。", 64 ' Unload Me Form2.ImageListCom.Enabled = False End Sub > テスト中はエラー処理はコメントにしておいて下さい。 勉強不足すいません。 > (エラー 486 または 482 が発生しているとかはないでしょうね） エラーは発生していないようです。 > VB のバージョンとサービスパックの状況を教えて下さい。 VB6 sp6 を使用してWindows XP Proで作成しています。 以上よろしくお願いします。 |
をクリックするとツリー全体を一括表示します） - Pictuerboxに貼り付けたBmpの印刷 - しげじゅ 08/04/10-15:03No.11985