تغییر آیکون فایل accdb

[Milad_ATM]

سلام
آیا امکان تغییر آیکون فایل accdb وجود داره؟
در صورتی که این امکان وجود نداره لطفاً در خصوص تبدیل فایل به EXE و تغییر آیکون راهنمایی کنید.
(توضیح : منظورم از تغییر آیکون قسمت Title bar نیست و خود آیکون برنامه ای که اجرا میشه مد نظر هست.)

ممنون

[mohammadsaleh]

تابع زیر در قسمت کدهای فرم استارت آپ قرار بده


Private Function Seticoshortcut()


With CreateObject("WScript.Shell")
With .CreateShortcut(.SpecialFolders("Desktop") & "\" & Left(Application.CurrentProject.name, Len(Application.CurrentProject.name) - 6) & ".lnk")

If Right(Application.CurrentProject.name, 5) = "accdb" Then


.TargetPath = Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.name, Len(Application.CurrentProject.name) - 6) & ".accdb"
Else
.TargetPath = Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.name, Len(Application.CurrentProject.name) - 6) & ".accde"
End If

.WindowStyle = 1
.Hotkey = ""
.IconLocation = Application.CurrentProject.Path & "\ICON.ico, 0"
.Description = "tozihe shoma"
.WorkingDirectory = Application.CurrentProject.Path
.save
End With
End With
End Function

Function ChangeProperty(strPropName As String, varPropType As String, varPropValue As Variant) As Integer

Dim dbs As DAO.Database
Dim prp As DAO.Property

Set dbs = CurrentDb
On Error GoTo PROC_ERROR

dbs.Properties(strPropName) = varPropValue
ChangeProperty = True


PROC_EXIT:
On Error Resume Next
Set prp = Nothing
Set dbs = Nothing
Exit Function


PROC_ERROR:
If Err.Number = 3270 Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume PROC_EXIT
End If


End Function

Public Function IconPath()
Dim Masir As String

Masir = Access.CurrentProject.Path
IconPath = Access.CurrentProject.Path & "\ICON.ico"

End Function

Private Sub Form_Open(Cancel As Integer)


On Error GoTo Err_Command18_Click


ChangeProperty "AppIcon", dbText, IconPath

Seticoshortcut

Exit_Command18_Click:
Exit Sub


Err_Command18_Click:
MsgBox Err.Description
Resume Exit_Command18_Click


End Sub




کدها رو تو فرم استارت آپ کپی کن
ایکون رو کنار فایل اصلیت بگذار
با اولین اجرا ایکون برنامه ست میشه و حتی شورکات برنامت هم در دسکتاپ ساخته می شه

[parsa70]

تابع زیر در قسمت کدهای فرم استارت آپ قرار بده


Private Function Seticoshortcut()


With CreateObject("WScript.Shell")
With .CreateShortcut(.SpecialFolders("Desktop") & "\" & Left(Application.CurrentProject.name, Len(Application.CurrentProject.name) - 6) & ".lnk")

If Right(Application.CurrentProject.name, 5) = "accdb" Then


.TargetPath = Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.name, Len(Application.CurrentProject.name) - 6) & ".accdb"
Else
.TargetPath = Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.name, Len(Application.CurrentProject.name) - 6) & ".accde"
End If

.WindowStyle = 1
.Hotkey = ""
.IconLocation = Application.CurrentProject.Path & "\ICON.ico, 0"
.Description = "tozihe shoma"
.WorkingDirectory = Application.CurrentProject.Path
.save
End With
End With
End Function

Function ChangeProperty(strPropName As String, varPropType As String, varPropValue As Variant) As Integer

Dim dbs As DAO.Database
Dim prp As DAO.Property

Set dbs = CurrentDb
On Error GoTo PROC_ERROR

dbs.Properties(strPropName) = varPropValue
ChangeProperty = True


PROC_EXIT:
On Error Resume Next
Set prp = Nothing
Set dbs = Nothing
Exit Function


PROC_ERROR:
If Err.Number = 3270 Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume PROC_EXIT
End If


End Function

Public Function IconPath()
Dim Masir As String

Masir = Access.CurrentProject.Path
IconPath = Access.CurrentProject.Path & "\ICON.ico"

End Function

Private Sub Form_Open(Cancel As Integer)


On Error GoTo Err_Command18_Click


ChangeProperty "AppIcon", dbText, IconPath

Seticoshortcut

Exit_Command18_Click:
Exit Sub


Err_Command18_Click:
MsgBox Err.Description
Resume Exit_Command18_Click


End Sub




کدها رو تو فرم استارت آپ کپی کن
ایکون رو کنار فایل اصلیت بگذار
با اولین اجرا ایکون برنامه ست میشه و حتی شورکات برنامت هم در دسکتاپ ساخته می شه



سلام ممنون منظورتون از فرم استارتاپ آپ همون فرم Main هست یا Splash؟
تو کدوم رویداد باید این کد رو بزاریم
امکانش هست فایل نمونه بزاررید؟

[eb_1345]

تابع زیر در قسمت کدهای فرم استارت آپ قرار بده


کدها رو تو فرم استارت آپ کپی کن
ایکون رو کنار فایل اصلیت بگذار
با اولین اجرا ایکون برنامه ست میشه و حتی شورکات برنامت هم در دسکتاپ ساخته می شه



سلام
فکر نکنم نیازی به نوشتن این همه کد در فرم استارت آپ باشه . چرا که در قسمت AccessOptions بطور دستی میتوان اینکار رو انجام داد . چه لزومی داره که در هر بار اجرای برنامه این کدها توسط برنامه بررسی و اجرا بشه ?!

[Milad_ATM]

سلام ممنون منظورتون از فرم استارتاپ آپ همون فرم Main هست یا Splash؟
تو کدوم رویداد باید این کد رو بزاریم
امکانش هست فایل نمونه بزاررید؟

منم همین موار بخصوص اینکه تو کدوم رویداد باید کد رو کپی کنیم برام سوال هست
ممنون میشم راهنمایی بفرمایید.

[padide55]

سلام
خود اکسس ایکون برنامه میگذاره. .
کپشن ایکون هم میتونید تغییر بدین

ادرس لینک
https://barnamenevis.org/showthread.php?434358-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D9%87-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%AF%D9%84%D8%AE%D9%88%D8%A7%D9%87&p=1942462&viewfull=1#post1942462

[eb_1345]

سلام
خود اکسس ایکون برنامه میگذاره. .
کپشن ایکون هم میتونید تغییر بدین

ادرس لینک
https://barnamenevis.org/showthread.php?434358-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D9%87-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%AF%D9%84%D8%AE%D9%88%D8%A7%D9%87&p=1942462&viewfull=1#post1942462


سلام
فکر نکنم نیازی به نوشتن این همه کد در فرم استارت آپ باشه . چرا که در قسمت AccessOptions بطور دستی میتوان اینکار رو انجام داد . چه لزومی داره که در هر بار اجرای برنامه این کدها توسط برنامه بررسی و اجرا بشه ?!


:متفکر::متفکر::متفکر:

[parsa70]

سلام
خود اکسس ایکون برنامه میگذاره. .
کپشن ایکون هم میتونید تغییر بدین

ادرس لینک
https://barnamenevis.org/showthread.php?434358-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D9%87-
%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%AF%D9%84%D8%AE%D9%88%D8%A7%D9%87&p=1942462&viewfull=1#post1942462 (https://barnamenevis.org/showthread.php?434358-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D9%87-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D8%AF%D9%84%D8%AE%D9%88%D8%A7%D9%87&p=1942462&viewfull=1#post1942462)

سلام
اینی که شما گفتید یک آیکون کوچیک سمت چپ تو گزارشات و فرم ها میزاره
خود آیکون اکسس رو تغییر نمیده فکر کنم منظور دوستمون تو پست اول این بوده که عکس فایل ذیل عوض بشه که فکر کنم خیلی بعیده این کار شدنی باشه.
http://uupload.ir/files/u0r9_untitled_thumb.png (http://uupload.ir/view/u0r9_untitled.png)
میشه از آدرس برنامه شرتکات گرفت تو دسکتاپ قرار داد و آیکونش رو عوض کرد
اگه میشد فایل اکسس رو به exe تغییر داد خیلی خوب میشد.
من فرم اسپلش هم دارم تا اون فرم باز شه 2 3 ثانیه ای splash خود آکسس رو نشون میده اینو چی میشه یک کاری کرد که اون نیاد؟؟
http://uupload.ir/files/lxbo_2_thumb.png (http://uupload.ir/view/lxbo_2.png)

[mohammadsaleh]

اولین فرمی که به عنوان فرم استارت آپ شما انتخاب میشه حالا میتونه هر اسمی داشته باشه
وقتی کدها را در بخش کدهای فرم کپی کردی در قسمت مشخصات فرم در رویداد on open گزینه event procedure را انتخاب کن
با اولین اجرای فرم ایکون ست میشه و میانبر هم ساخته میشه
این یک راه حرفه ای است و
البته راه ساده تر استفاده از گزینه های خود برنامه است و در صورتیکه برنامه هاتون کمی پیچیده تر بشه ممکنه لازمتون بشه

[mohammadsaleh]

سلام
اینی که شما گفتید یک آیکون کوچیک سمت چپ تو گزارشات و فرم ها میزاره
خود آیکون اکسس رو تغییر نمیده فکر کنم منظور دوستمون تو پست اول این بوده که عکس فایل ذیل عوض بشه که فکر کنم خیلی بعیده این کار شدنی باشه.
http://uupload.ir/files/u0r9_untitled_thumb.png (http://uupload.ir/view/u0r9_untitled.png)
میشه از آدرس برنامه شرتکات گرفت تو دسکتاپ قرار داد و آیکونش رو عوض کرد
اگه میشد فایل اکسس رو به exe تغییر داد خیلی خوب میشد.
من فرم اسپلش هم دارم تا اون فرم باز شه 2 3 ثانیه ای splash خود آکسس رو نشون میده اینو چی میشه یک کاری کرد که اون نیاد؟؟
http://uupload.ir/files/lxbo_2_thumb.png (http://uupload.ir/view/lxbo_2.png)

یک عکس کم حجم با فرمت bmp با نام برنامتون درکنار فایل برنامتون قرار بدید به جای اسپلش فرم اکسس نشون داده میشه
با استفاده از این برنامه (https://barnamenevis.org/showthread.php?561362-%D9%85%D8%AE%D9%81%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B1%DB%8C%D8%A8%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3)هم میتونید ریبون اکسس رو مخفی کنید . به این ترتیب وقتی برنامه اجرا بشه خیلی رنگ و بوی اکسس نداره
توجه: در اکسس 64 بیتی امکان تغییر ایکون وجود ندارد حتی با این کد. شاید هم بشود و من از روش آن بی اطلاعم

[Milad_ATM]

یک عکس کم حجم با فرمت bmp با نام برنامتون درکنار فایل برنامتون قرار بدید به جای اسپلش فرم اکسس نشون داده میشه
با استفاده از این برنامه (https://barnamenevis.org/showthread.php?561362-%D9%85%D8%AE%D9%81%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B1%DB%8C%D8%A8%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3)هم میتونید ریبون اکسس رو مخفی کنید . به این ترتیب وقتی برنامه اجرا بشه خیلی رنگ و بوی اکسس نداره
توجه: در اکسس 64 بیتی امکان تغییر ایکون وجود ندارد حتی با این کد. شاید هم بشود و من از روش آن بی اطلاعم

خب مشکل من اینه که میخوام توی اکسس 64 بیت اینکارو انجام بدم!

[parsa70]

یک عکس کم حجم با فرمت bmp با نام برنامتون درکنار فایل برنامتون قرار بدید به جای اسپلش فرم اکسس نشون داده میشه
با استفاده از این برنامه (https://barnamenevis.org/showthread.php?561362-%D9%85%D8%AE%D9%81%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B1%DB%8C%D8%A8%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3)هم میتونید ریبون اکسس رو مخفی کنید . به این ترتیب وقتی برنامه اجرا بشه خیلی رنگ و بوی اکسس نداره
توجه: در اکسس 64 بیتی امکان تغییر ایکون وجود ندارد حتی با این کد. شاید هم بشود و من از روش آن بی اطلاعم
سلام
دست شما درد نکنه تو اکسس 64 بیتی ویندوز 7 ورژن آفیس 2016 تست کردم جواب میده

[mohammadsaleh]

سلام
موفق باشی

[Shahramdindoust]

یک عکس کم حجم با فرمت bmp با نام برنامتون درکنار فایل برنامتون قرار بدید به جای اسپلش فرم اکسس نشون داده میشه
با استفاده از این برنامه (https://barnamenevis.org/showthread.php?561362-%D9%85%D8%AE%D9%81%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B1%DB%8C%D8%A8%D9%88%D9%86-%D8%A7%DA%A9%D8%B3%D8%B3)هم میتونید ریبون اکسس رو مخفی کنید . به این ترتیب وقتی برنامه اجرا بشه خیلی رنگ و بوی اکسس نداره
توجه: در اکسس 64 بیتی امکان تغییر ایکون وجود ندارد حتی با این کد. شاید هم بشود و من از روش آن بی اطلاعم
خیلی ببخشید عکسی که شما گذاشته اید یه
پسوند icon داره. جچوری میشه یک عکس با پسوند مخصوص آیکن داشت که هم حجمش کم باشه هم باکیفیت باشه یعنی چجوری اون عکس رو تبدیل به آیکن کنیم

[parsa70]

با این برنامه برای تبدیل عکس به icon استفاده میکنم خیلی خوبهhttps://soft98.ir/software/pic-tools/14691-x2ico.html

[Shahramdindoust]

با این برنامه برای تبدیل عکس به icon استفاده میکنم خیلی خوبهhttps://soft98.ir/software/pic-tools/14691-x2ico.html

سپاس گذارم
راستی استفاده ازش راحته؟ چون آموزش تصویریش دانلود نشد

[parsa70]

سپاس گذارم
راستی استفاده ازش راحته؟ چون آموزش تصویریش دانلود نشد


راحته چیز خاصی نداره

[Shahramdindoust]

راحته چیز خاصی نداره

والا من کلا نمیدونم چی هست فقط همچین صفحه ای داره همین. پرتابل هم هست ا

[eb_1345]

والا من کلا نمیدونم چی هست فقط همچین صفحه ای داره همین. پرتابل هم هست ا
سلام
نحوه استفاده از این ابزار در ویدئو لینک زیر نمایش داده شده
https://s16.picofile.com/file/8414588692/ConvertPictureToIcon.rar.html
عکس رو با موس بکش و در محیط برنامه بینداز ، بعد از چند ثانیه آیکون مربوطه ایجاد و در درون پوشه Icons قرار می گیرد

[mohammadsaleh]

سلام. میتونی توی این سایت و سایت مشابه عکست رو آپلود کنی و انواع و اقسام ایکون به اندازه دلخواه را بارگیری کن
https://icoconvert.com/

[Shahramdindoust]

متشکرم خیلی ممنون