• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Đưa file icon vào chương trình bằng code

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Đưa file icon vào chương trình bằng code
• Đưa file icon vào chương trình bằng code

• Đưa file icon vào chương trình bằng code

  nguyentung > 10-05-14, 10:08 AM

  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]

• RE: Đưa file icon vào chương trình bằng code

  trunghieu > 11-05-14, 06:10 PM

  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

• RE: Đưa file icon vào chương trình bằng code

  changkhoonline77 > 12-05-14, 10:45 AM

  (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][/img]

• RE: Đưa file icon vào chương trình bằng code

  trunghieu > 12-05-14, 12:53 PM

  (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][/img]

  
  Sorry bạn thêm function này vào:
  

  Mã PHP:

  Function changeProperty(StrPropName, VarProptype, VarPropValue)
Dim dbs As Database, Prp 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 


  

• RE: Đưa file icon vào chương trình bằng code

  changkhoonline77 > 12-05-14, 07:50 PM

  Sorry bạn thêm function này vào:
  

  Mã PHP:

  Function changeProperty(StrPropName, VarProptype, VarPropValue)
Dim dbs As Database, Prp 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 


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

• RE: Đưa file icon vào chương trình bằng code

  cpucloi > 06-07-14, 08:57 PM

  Bạn khai báo đủ các thư viện office theo phiên bản đang dùng chưa?

• RE: Đưa file icon vào chương trình bằng code

  changkhoonline77 > 08-08-14, 09:12 AM

  (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.

• RE: Đưa file icon vào chương trình bằng code

  changkhoonline77 > 08-08-14, 03:18 PM

  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á.

• RE: Đưa file icon vào chương trình bằng code

  tranthanhan1962 > 01-11-14, 06:28 PM

  Đâ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.

• RE: Đưa file icon vào chương trình bằng code

  quanghoasla > 01-11-14, 07:52 PM

  (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ẻ
• Bài trước Bài tiếp