กระทู้เก่าบอร์ด อ.Yeadram
1,852 4
URL.หัวข้อ /
URL
ICoN CHANGE
ที่ DESK TOP จะมี ICON รูปกุญแจ ผมต้องการเปลี่ยนโดย
ไม่ใช้วิธี MENUAL ใครพอมี CODE ที่ใช้ ACCESS เขียนเชื่อมโยงได้
รบกวนด้วยนะครับ ขอบคุณครับ
ไม่ใช้วิธี MENUAL ใครพอมี CODE ที่ใช้ ACCESS เขียนเชื่อมโยงได้
รบกวนด้วยนะครับ ขอบคุณครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
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
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 นะครับ
โค้ดที่ให้ไป สำหรับเปลี่ยนไอคอนของ shortcut นะครับ ไม่ใช่เปลี่ยนไอคอนของ Access นะครับ
4 @R00230
OK ครับ ได้แล้วครับ
ขอบคุณครับ
ขอบคุณครับ
Time: 0.3427s
เปลี่ยนเป็น Icon .ico ที่เอามาเอง หรือจะเปลี่ยนเปลี่ยนเป็น icon ใน set ที่ window มีมาให้