-
Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Noname > 21-08-10, 11:25 AM
Hôm nay tôi sẽ giới thiệu các bạn cách để nhập liệu đường dẫn ấy sao cho người dùng chỉ cần click chuột.
Trên form, bạn vẽ 1 textbox đặt tên là txtPic, một nút nhấn tên cmdInsertPic,1 đối tượng ảnh đặt tên là image
bạn phải tạo 1 funtcion để lấy về đường dẫn file ảnh
Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library.
![[Hình: OfficeLib.JPG]](http://4.bp.blogspot.com/_Lq9SpE8seTU/S4dKLRhd9aI/AAAAAAAAAII/zyQlbiO423U/s320/OfficeLib.JPG)
Copy đoạn code hàm sau dán vào Module
Mã:Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With
End Function
Bây giờ trong hành động click của nút nhấn, ta nhập đoạn code sau:
Code:
Mã:Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
Me![TxtPic] = LCase(Me![TxtPic])
Me![Image].Picture = Me!TxtPic
Các bạn xem demo:Download -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
hoangthanhhai > 07-06-11, 11:57 AM
Chào bạn Noname!
Cám ơn bạn nhiều, theo hướng dẫn của Bạn thì mình đã làm được rùi.
Cho mình hỏi: Trong trường hợp mình không chọn file ảnh thì làm thế nào để nó không hiện ra bảng thông báo lỗi "Type mismatch". -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
quanghoasla > 08-06-11, 10:23 AM
cách của anh noname rất hay. ngoài ra mình cũng có một cách inserts ảnh vào table theo cách khác. bạn có thể vào đây tham khảo nhé. đây là database -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
loihhec > 11-06-11, 05:36 PM
Mở file của ban thì được. nhưng mình tạo 1 file mới trên máy của mình rồi chuyển code của bạn vào thì lại báo lỗi không khai báo hàm getfile2. chán quá -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
quanghoasla > 12-06-11, 10:51 PM
có thể bạn chưa khai báo trong thư viện reference. cách đơn giản bản có thể sử dụng import modul and form từ access. access sẽ chép hết toàn bộ định dạng và đăng ký thư viện theo đúng files gốc của mình. bạn thử coi nhé. chúc bạn thành công. -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
anhhungbt9025 > 02-12-11, 05:46 PM
Bạn noname cho mình hỏi với hình ảnh ở dạng text như vậy thì khi mình làm report in sơ yếu lý lịch hay thẻ nhân viên thì làm sao cho hình ảnh nó hiển thị sang report. -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
ndthanh29 > 13-12-12, 07:50 PM
sẵn cho mình hỏi luôn là mình muốn chèn vào 1 file pdf hay doc thì sao bạn? -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
quanghoasla > 19-12-12, 11:17 AM
Được đấy bạn. bạn cứ làm như noname chỉ sau đó sửa code lại như sau là ok.
Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.doc;*.pdf")
Me![TxtPic] = LCase(Me![TxtPic])
Me![Image].Picture = Me!TxtPic
Chúc bạn thành công -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
ndthanh29 > 19-12-12, 12:57 PM
nó báo lỗi tại dòng Me![Image].Picture = Me!TxtPic bạn có thể giải quyết vấn đề này luôn ko? Mình muốn dùng 1 đoạn code để mở file vừa chèn thì phải làm như thế nào? -
RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
quanghoasla > 19-12-12, 02:54 PM
Mình giải quyết vấn đề đó cho bạn nè. đây là data trích xuất từ phần mềm ứng dụng do mình làm bạn nhé. bạn tải về và chạy bình thường. bạn có thể tham khảo và chỉnh sửa theo data của bạn. Ở đây ứng dụng của mình demo cho bạn giúp bạn có thể thêm , xóa các file tùy ý. (*.jpg,*.gif,*.doc,*.pdf,....) lưu ý nhé. ở đây tớ giúp bạn insert và lưu lại đường dẫn của các file bạn muốn thêm thôi, chỉ có hình ảnh là bạn có thể view được.
Demo by quanghoasla
Nếu bạn thực sự muốn phát triển nó trên web thì mình có thể giúp bạn được nhiều hơn thế nữa.