Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

11/15/09

In hình ảnh khi có đường dẫn hình

Hỏi: Tôi đã lưu hình ảnh vào ổ đĩa G: ( G: là ổ đĩa mạng). Và có 1 cơ sở dữ liệu lưu đường dẫn theo dạng : tvhinh(mahang,txtpic). Bây giờ trong Report làm sao tôi có thể vẽ lại các hình tôi đã lưu!
Đáp:
Trong Report, bạn vẽ 1 textbox đặt tên là txtpic, đặt thuộc tính visible của nó là False.
Vẽ 1 đối tượng image đặt tên nó là image1
Sau đó cho đoạn code sau vào



Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Pic
If IsNull(Me.txtPic) Then
    Me.Image1.Picture = ""
    Me.Image1.Visible = False
Else
    Me.Image1.Picture = txtPic.Value
    Me.Image1.Visible = True
End If
Exit Sub
err_Pic:
    MsgBox Err.Description, vbOKOnly
    Exit Sub
End Sub