Noname > 21-08-10, 11:31 AM
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
ZUNGNN > 22-10-10, 12:40 PM
Noname > 22-10-10, 02:41 PM
(22-10-10, 12:40 PM)ZUNGNN Đã viết: Quả là tuyệt chiêu, tuy nhiên máy xách tay (Ac2003) của mình thì in được các định dạng gif, jpg, png.. nhưng các máy bàn ở cơ quan (ac2003) chỉ cho định dạng bmp, các định dạng khác đều báo lỗi là size quá lớn hoặc không hổ trợ. Các pro vui lòng giúp em giải quyết làm sao cho in hình có định dạng png hoặc gif với.
quanghoasla > 19-05-11, 04:55 PM
vanhoang23 > 27-03-12, 10:11 PM
gaubu117 > 15-04-12, 02:04 AM
tvn_hut > 01-01-16, 04:53 PM
(21-08-10, 11:31 AM)Noname Đã viết: 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
Cập nhật DemoMã: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
Download
hungle2006 > 05-03-16, 01:19 AM
(21-08-10, 11:31 AM)Noname Đã viết: 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!Naome ơi cho tôi hỏi tôi làm theo file Induongdanhinh của bạn nhưng chạy thì đoạn code sau báo lỗi ở chữ in đậm "User-Defined type not defined" là sao
Đá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
Cập nhật DemoMã: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
Download
hungle2006 > 23-04-16, 11:19 AM