• Trang chủ click to expand contents 

  • Đư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][Hình: 1wse_zps9b7bf607.png][/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][Hình: 1wse_zps9b7bf607.png][/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 
    005

  • 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 
    005
    [/quote]

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

    [Hình: aqw_zpsd4f50e6a.png]

  • 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ẻ