آیکن اکسس در دسکتاپ

[laia56]

دوستان و اساتید محترم با سلام
سئوالی دارم در مورد این فایل که توسط دوست عزیزمان قبلا در این تایپیک ارائه شده بود و اینکه چگونه ایشان توانسته اند آیکن اکسس بر روی دسکتاپ را تغییر بدهند به تصویر و فایل ضمیمه توجه کنید اگر دوستان راهنمایی بکنند که بنده هم بیاموزم بسیار لطف میکنند

[Mehr@ban]

داداش اينكه كاري نداره

يا از فايل اكسس يه شورنكات بگير و آيكنش رو تغيير بده يا تنظيمات استارت آپ رو باز كن توش تنظيماتش رو داره

[laia56]

با سلام من دقیقا متوجه نشدم چکار کنم ؟
میشود بازتر توضیح بدهید
میخواهم مثل برنامه فوق بر روی هر سیستم دیگر هم همان تصویر بیاید و قابل تغییر توسط دیگران نباشد و ثابت باشد

[Mehr@ban]

ببين داداش يا آبجي
اول بايد ببيني كه اون فايلي كه عكسش رو روي دستكتاپ گذاشتي فايل اصلي برنامه است يا نه شركات يا همون ميانبري از برنامه هست؟


اگه شرتكات بود :
خب با راست كليك روي شرتكات و روي Peroperties > Shourtcut >Change Icon آيكن مورد نظرت رو انتخاب كني !


اگه فايل برنامه است :
خب روي قسمت روبين يا همون نواري كه نشون ميده الان كدوم قسمت در حال نمايش است (جدول ها ، فرم ها ، گزارش ها ، كوئري ها و ...) راست كليك كن و گزينه StatUp رو انتخاب كن در بخش Icon ايكن مورد نظر خودت رو ادرس بده در 2003

[RESMAILY]

به نام خدا
با سلام. در رفرنس برنامه windows script Host object Model را فعال کنید و سپس با استفاده از کد زیر در صورتیکه برنامه تان آیکون روی دسک تاپ نداشت، برایش آیکون دلخواه بگذارید.

Option Compare Database
Option Explicit

Public Sub CreateDesktopShortcut(strShortcutTitle As String, _
Optional strTargetPath As String, Optional strPath_Icon As String)
On Error Resume Next

Dim oShell As IWshShell_Class
Dim oShortcut As IWshShortcut_Class
Dim vItem As Variant
Dim vType As Variant

Set oShell = New IWshShell_Class

If strTargetPath = "" Then strTargetPath = CurrentDb.Name 'ãÓíÑ ÇÌÑÇí ÈÑäÇãå
strPath_Icon = strPath_Icon
For Each vItem In oShell.SpecialFolders
If Mid(vItem, Len(vItem) - 6, 7) = "Desktop" And _
InStr(1, vItem, "All Users") = 0 And _
InStr(1, UCase(vItem), "ADMINISTRATOR") = 0 Then
Set oShortcut = oShell.CreateShortcut(vItem & "\" & strShortcutTitle & ".lnk")
oShortcut.TargetPath = strTargetPath
oShortcut.IconLocation = strPath_Icon
oShortcut.Save
End If
Next

End Sub

[laia56]

با عرض معذرت اگر امکان دارد در یک مثال عملی این کد را تشان بدهید

[RESMAILY]

به نام خدا
با سلام . بفرماييد اين هم نمونه. مال همين تالار است. يادم نيست كدام يك از دوستان زحمتش را كشيده بودند. بايد زحمت بكشيد و جزييات را خودتان كشف كنيد. راهنمايي اينكه اولا مي توانيد تابعي بنويسيد كه بطريق معكوس كنترل كند آيكون موجود است يا نه و در صورت نياز... در ضمن نوع آيكون و بقيه تنظيمات را هم اضافه كنيد. كلي نقل دارد اين رفرنس ويندوز اسكريپت و فلان!

[Arash_janusV3]

تاپیک ICON (http://barnamenevis.org/showthread.php?191854-%D8%AA%D8%A7%D9%BE%DB%8C%DA%A9-icon)

[abdoreza57]

با سلام خدمت دوست خوبم RESMAILY (http://barnamenevis.org/member.php?12210-RESMAILY) عزیز

سوال دوست ما در مورد لودر هست برنامه هایی که اکسس را به یدک میکش و خود برنامه را در خود مخفی میکنند نمونه این مثالها را استاد عزیز نبیل به صورت کامل تشریح نمودند و روش کار این لودرها را هم توضیح دادند

این آخری را میتونید تو این تاپیک ببیند mde conpiler (http://barnamenevis.org/showthread.php?335200-%D9%85%D8%B9%D8%B1%D9%81%DB%8C-%D9%82%D8%A7%D8%A8%D9%84%DB%8C%D8%AA-%D9%87%D8%A7%DB%8Cmdecompiler-%D8%AF%D8%B1-%D8%AA%D8%A8%D8%AF%DB%8C%D9%84-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D9%87-EXE)
ضمن تشکر از جناب resmaily بابت آموزش ساخت شرکت کات برنامه که برام تازگی داشت