ICoN CHANGE
กระทู้เก่าบอร์ด อ.Yeadram

 1,852   4
URL.หัวข้อ / URL
ICoN CHANGE

ที่ DESK TOP จะมี ICON รูปกุญแจ ผมต้องการเปลี่ยนโดย
ไม่ใช้วิธี MENUAL ใครพอมี CODE ที่ใช้ ACCESS เขียนเชื่อมโยงได้
รบกวนด้วยนะครับ ขอบคุณครับ

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R00215
เปลี่ยนเป็นอะไรหระครับ...
เปลี่ยนเป็น Icon .ico ที่เอามาเอง หรือจะเปลี่ยนเปลี่ยนเป็น icon ใน set ที่ window มีมาให้
2 @R00225
- สมมุติว่าไฟล์บนเดสท๊อปชื่อ MyDB1.mdb และไอคอนอยู่ที่ไฟล์ MyIcon.ivo

    Dim wshshell As Object
    Dim strDesktop As String
    Dim oShellLink As Object
    
    
    Set wshshell = CreateObject("WScript.Shell")
    strDesktop = wshshell.SpecialFolders("Desktop")
    Set oShellLink = wshshell.CreateShortcut(strDesktop & "\MyDB1.mdb.lnk")
    oShellLink.IconLocation = "C:\MyIcon.ico"
    oShellLink.Save
    Set oShellLink = Nothing
    Set wshshell = Nothing


3 @R00226
เพิ่มเติม:

โค้ดที่ให้ไป สำหรับเปลี่ยนไอคอนของ shortcut นะครับ ไม่ใช่เปลี่ยนไอคอนของ Access นะครับ
4 @R00230
OK ครับ ได้แล้วครับ
ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3427s