Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Đưa file icon vào chương trình bằng code
#1
Mình làm chương trình bằng Access, dưa file Icon vào làm biểu tượng của chương trình tại mục Application Icon (đường dẫn cố định) nhưng khi copy sang máy tính khác chạy thì báo lỗi không tìm thấy file icon. Có ai biết code để đưa file icon vào theo đường dẫn động ( ví dụ: Currentproject.Path & "\Icons\myicon.ico"). Nếu ai biết xin chỉ giáo dùm...(Mình đã tìm thuộc tính của đối tượng Application nhưng không có).
Xin cảm ơn![/size]
Chữ ký của nguyentung Xin chào, mình là nguyentung, Tham gia http://thuthuataccess.com/forum từ ngày 03-05 -14.
Reply
Những người đã cảm ơn
#2
Tại sự kiện form_load của form khởi động vào chương trình bạn đặt câu lệnh
changeProperty "APPICON", dbText, Access.CurrentProject.Path & "\" & "myicon.ico"
file myicon.ico bạn đặt chung với file chương trình là được. Lần đầu khởi động nó sẽ nạp icon này cho chương trình. Sau khi thoát ra vào lại chương trình Icon này mới được hiển thị.
Chúc bạn thành công
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#3
(11-05-14, 06:10 PM)trunghieu Đã viết: Tại sự kiện form_load của form khởi động vào chương trình bạn đặt câu lệnh
changeProperty "APPICON", dbText, Access.CurrentProject.Path & "\" & "myicon.ico"
file myicon.ico bạn đặt chung với file chương trình là được. Lần đầu khởi động nó sẽ nạp icon này cho chương trình. Sau khi thoát ra vào lại chương trình Icon này mới được hiển thị.
Chúc bạn thành công

Không được bạn ơi

[img][Hình: 1wse_zps9b7bf607.png][/img]
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#4
(12-05-14, 10:45 AM)changkhoonline77 Đã viết:
(11-05-14, 06:10 PM)trunghieu Đã viết: Tại sự kiện form_load của form khởi động vào chương trình bạn đặt câu lệnh
changeProperty "APPICON", dbText, Access.CurrentProject.Path & "\" & "myicon.ico"
file myicon.ico bạn đặt chung với file chương trình là được. Lần đầu khởi động nó sẽ nạp icon này cho chương trình. Sau khi thoát ra vào lại chương trình Icon này mới được hiển thị.
Chúc bạn thành công

Không được bạn ơi

[img][Hình: 1wse_zps9b7bf607.png][/img]

Sorry bạn thêm function này vào:
Mã PHP:
Function changeProperty(StrPropNameVarProptypeVarPropValue)
Dim dbs As DatabasePrp As Property
Const ConPropnotFoundError 3270
Set dbs 
CurrentDb
On Error 
GoTo Change_XuLyLoi
dbs
.Properties(StrPropName) = VarPropValue
changeProperty 
True
Change_Ketthuc
:
Exit Function
Change_XuLyLoi:
'Thuoc tinh khong tim thay
If Err = ConPropnotFoundError Then
Set Prp = dbs.CreateProperty(StrPropName, VarProptype, VarPropValue)
dbs.Properties.Append Prp
Resume Next
Else
'
Khong biet loi gi
changeProperty 
False
Resume Change_Ketthuc
End 
If
End Function 
005
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hugox03
#5
Sorry bạn thêm function này vào:
Mã PHP:
Function changeProperty(StrPropNameVarProptypeVarPropValue)
Dim dbs As DatabasePrp As Property
Const ConPropnotFoundError 3270
Set dbs 
CurrentDb
On Error 
GoTo Change_XuLyLoi
dbs
.Properties(StrPropName) = VarPropValue
changeProperty 
True
Change_Ketthuc
:
Exit Function
Change_XuLyLoi:
'Thuoc tinh khong tim thay
If Err = ConPropnotFoundError Then
Set Prp = dbs.CreateProperty(StrPropName, VarProptype, VarPropValue)
dbs.Properties.Append Prp
Resume Next
Else
'
Khong biet loi gi
changeProperty 
False
Resume Change_Ketthuc
End 
If
End Function 
005
[/quote]

Vẫn không được bạn ak. Bạn cho mình file demo đi.

[Hình: aqw_zpsd4f50e6a.png]
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#6
Bạn khai báo đủ các thư viện office theo phiên bản đang dùng chưa?
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(06-07-14, 08:57 PM)cpucloi Đã viết: Bạn khai báo đủ các thư viện office theo phiên bản đang dùng chưa?

Mình khai báo đủ rồi nhưng vẫn không được.
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#8
Có ai đổi được file icon cho access theo kiểu này hong cho mình xin demo đi.
Chép qua máy khác mà phải thay lại icon thì hơi cùi cùi quá.
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#9
Đâu cần phải viết code gì. Chỉ cần đặt tên icon giống như tên chương trình. Ví dụ Chương trình là ABCD.mdb hay ABCD.mde gì đó thì icon cũng phải là ABCD.ico. Bỏ chung cả hai vào 1 thư mục. Thiết đặt một lần Application Icon của Startup. Chép đi đâu thì chép cả thư mục. Access sẽ tự động xử lý đường dẫn mới của Application Icon. Quá đơn giản mà. Chỉ khi nào xử dụng nhiều icon cho titlebar của chương trình và các form, Report khác nhau mới cần viết code, nhưng phức tạp và chạy cũng không ổn định.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
(01-11-14, 06:28 PM)tranthanhan1962 Đã viết: Đâu cần phải viết code gì. Chỉ cần đặt tên icon giống như tên chương trình. Ví dụ Chương trình là ABCD.mdb hay ABCD.mde gì đó thì icon cũng phải là ABCD.ico. Bỏ chung cả hai vào 1 thư mục. Thiết đặt một lần Application Icon của Startup. Chép đi đâu thì chép cả thư mục. Access sẽ tự động xử lý đường dẫn mới của Application Icon. Quá đơn giản mà. Chỉ khi nào xử dụng nhiều icon cho titlebar của chương trình và các form, Report khác nhau mới cần viết code, nhưng phức tạp và chạy cũng không ổn định.
Chuẩn. đôi khi hơi phức tạp lên một chút mới vậy. dù đường dẫn động vẫn phải chép file ảnh đó đi. để cho chuyên nghiệp hơn chúng ta lên tạo 1 folder chứa images trong đó. sau đó gọi nó ra. sau đó đong gói phần mềm vào. muốn mang đi đâu chỉ cần cài tung ra là có đủ tất cả. hoặc chưa đóng gói thì copy luôn cả folder chứa images đó đi cùng. chúc các bạn vui vẻ
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 18 814 11-01-17, 05:48 PM
Bài mới nhất: maidinhdan
  Hướng dẫn cơ bản về việc lập báo cáo tồn kho và in thẻ kho bằng query Xuân Thanh 32 15,242 05-01-17, 11:39 PM
Bài mới nhất: maidinhdan
  nén file Access bằng VBA Noname 12 5,388 26-12-16, 12:08 AM
Bài mới nhất: nhimsieunhan
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,331 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,462 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ