سلام
آیا امکان تغییر آیکون فایل accdb وجود داره؟
در صورتی که این امکان وجود نداره لطفاً در خصوص تبدیل فایل به EXE و تغییر آیکون راهنمایی کنید.
(توضیح : منظورم از تغییر آیکون قسمت Title bar نیست و خود آیکون برنامه ای که اجرا میشه مد نظر هست.)
ممنون
Printable View
سلام
آیا امکان تغییر آیکون فایل accdb وجود داره؟
در صورتی که این امکان وجود نداره لطفاً در خصوص تبدیل فایل به EXE و تغییر آیکون راهنمایی کنید.
(توضیح : منظورم از تغییر آیکون قسمت Title bar نیست و خود آیکون برنامه ای که اجرا میشه مد نظر هست.)
ممنون
تابع زیر در قسمت کدهای فرم استارت آپ قرار بده
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؟نقل قول:
نوشته شده توسط mohammadsaleh
تو کدوم رویداد باید این کد رو بزاریم
امکانش هست فایل نمونه بزاررید؟
سلامنقل قول:
نوشته شده توسط mohammadsaleh
فکر نکنم نیازی به نوشتن این همه کد در فرم استارت آپ باشه . چرا که در قسمت AccessOptions بطور دستی میتوان اینکار رو انجام داد . چه لزومی داره که در هر بار اجرای برنامه این کدها توسط برنامه بررسی و اجرا بشه ?!
منم همین موار بخصوص اینکه تو کدوم رویداد باید کد رو کپی کنیم برام سوال هستنقل قول:
نوشته شده توسط parsa70
ممنون میشم راهنمایی بفرمایید.
سلام
خود اکسس ایکون برنامه میگذاره. .
کپشن ایکون هم میتونید تغییر بدین
ادرس لینک
https://barnamenevis.org/showthread....=1#post1942462
نقل قول:
نوشته شده توسط padide55
:متفکر::متفکر::متفکر:نقل قول:
نوشته شده توسط eb_1345
سلامنقل قول:
نوشته شده توسط padide55
اینی که شما گفتید یک آیکون کوچیک سمت چپ تو گزارشات و فرم ها میزاره
خود آیکون اکسس رو تغییر نمیده فکر کنم منظور دوستمون تو پست اول این بوده که عکس فایل ذیل عوض بشه که فکر کنم خیلی بعیده این کار شدنی باشه.
http://uupload.ir/files/u0r9_untitled_thumb.png
میشه از آدرس برنامه شرتکات گرفت تو دسکتاپ قرار داد و آیکونش رو عوض کرد
اگه میشد فایل اکسس رو به exe تغییر داد خیلی خوب میشد.
من فرم اسپلش هم دارم تا اون فرم باز شه 2 3 ثانیه ای splash خود آکسس رو نشون میده اینو چی میشه یک کاری کرد که اون نیاد؟؟
http://uupload.ir/files/lxbo_2_thumb.png
اولین فرمی که به عنوان فرم استارت آپ شما انتخاب میشه حالا میتونه هر اسمی داشته باشه
وقتی کدها را در بخش کدهای فرم کپی کردی در قسمت مشخصات فرم در رویداد on open گزینه event procedure را انتخاب کن
با اولین اجرای فرم ایکون ست میشه و میانبر هم ساخته میشه
این یک راه حرفه ای است و
البته راه ساده تر استفاده از گزینه های خود برنامه است و در صورتیکه برنامه هاتون کمی پیچیده تر بشه ممکنه لازمتون بشه
یک عکس کم حجم با فرمت bmp با نام برنامتون درکنار فایل برنامتون قرار بدید به جای اسپلش فرم اکسس نشون داده میشهنقل قول:
نوشته شده توسط parsa70
با استفاده از این برنامه هم میتونید ریبون اکسس رو مخفی کنید . به این ترتیب وقتی برنامه اجرا بشه خیلی رنگ و بوی اکسس نداره
توجه: در اکسس 64 بیتی امکان تغییر ایکون وجود ندارد حتی با این کد. شاید هم بشود و من از روش آن بی اطلاعم
خب مشکل من اینه که میخوام توی اکسس 64 بیت اینکارو انجام بدم!نقل قول:
نوشته شده توسط mohammadsaleh
سلامنقل قول:
نوشته شده توسط mohammadsaleh
دست شما درد نکنه تو اکسس 64 بیتی ویندوز 7 ورژن آفیس 2016 تست کردم جواب میده
سلام
موفق باشی
خیلی ببخشید عکسی که شما گذاشته اید یهنقل قول:
نوشته شده توسط mohammadsaleh
پسوند icon داره. جچوری میشه یک عکس با پسوند مخصوص آیکن داشت که هم حجمش کم باشه هم باکیفیت باشه یعنی چجوری اون عکس رو تبدیل به آیکن کنیم
با این برنامه برای تبدیل عکس به icon استفاده میکنم خیلی خوبهhttps://soft98.ir/software/pic-tools/14691-x2ico.html
سپاس گذارمنقل قول:
نوشته شده توسط parsa70
راستی استفاده ازش راحته؟ چون آموزش تصویریش دانلود نشد
نقل قول:
نوشته شده توسط Shahramdindoust
راحته چیز خاصی نداره
والا من کلا نمیدونم چی هست فقط همچین صفحه ای داره همین. پرتابل هم هست انقل قول:
نوشته شده توسط parsa70
سلامنقل قول:
نوشته شده توسط Shahramdindoust
نحوه استفاده از این ابزار در ویدئو لینک زیر نمایش داده شده
https://s16.picofile.com/file/841458...oIcon.rar.html
عکس رو با موس بکش و در محیط برنامه بینداز ، بعد از چند ثانیه آیکون مربوطه ایجاد و در درون پوشه Icons قرار می گیرد
سلام. میتونی توی این سایت و سایت مشابه عکست رو آپلود کنی و انواع و اقسام ایکون به اندازه دلخواه را بارگیری کن
https://icoconvert.com/
متشکرم خیلی ممنون