| |
|
|
| | Как программно загрузить иконку приложения, положив её в папку с программой. | |
| |
| |
| |
 21 Кб. |
|
| | ван момент плиз. тока вчера делал
вот пример - основа - скачал где-то | |
| |
| |
| |
|
|
| | Спасибо!
- смотрю......  | |
| |
| |
| |
|
|
| | нифига себе
Я вот покороче нашёл, но не работает чего то
CurrentProject.Properties.Add "AppIcon", CurrentProject.Path & "\PVH1.ico"
Application.RefreshTitleBar
|
вот ещё пробую
dim strNew as string
strNew = CurrentProject.Path & "\myIco.ico"
If CurrentProject.ProjectType = acMDB Then
CurrentDb.Properties("AppIcon").Value = strNew
ElseIf CurrentProject.ProjectType = acADP Then
CurrentProject.Properties("AppIcon").Value = strNew
End If
|
http://www.sql.ru/Forum/actualthread.aspx?bid=4&tid=275717&hl= | |
| |
| |
| |
|
|
| | Так шо единожды указав в
Сервис
Параметры запуска
Значок приложения
и вставив код в стартовую форму
Dim strNew As String
strNew = CurrentProject.Path & "\PVH1.ico"
CurrentDb.Properties("AppIcon").Value = strNew
|
ИМЕЕМ СЧАСТЬЕ | |
| |
| |
| |
|
|
| |
Так шо единожды указав в
Сервис
Параметры запуска
Значок приложения
|
С этим оно конечно. | |
| |
| |
| |
|
|
| | Этого достаточно.
Application.RefreshTitleBar | |
| |
| |
| |
|
|
| |
Так шо единожды указав в
Сервис
Параметры запуска
Значок приложения
|
Этим добавляется параметр " Appicon"
иначе ничего не выйдет | |
| |
| |
| |
|
|
| | Перенёс всё в новую чистую базу
Перестало работать.
Dim strNew As String
strNew = CurrentProject.Path & "\PVH1.ico"
CurrentDb.Properties("AppIcon").Value = strNew
==============================================
Свойство не найдено
CurrentProject.Properties.Add "AppIcon", CurrentProject.Path & "\PVH1.ico"
не помогает | |
| |
| |
| |
|
|
| | Это надо в параметрах запуска указать иконку вручную ... и свойство "базы" появится.
Двва рраза на одне грабли  | |
| |
| |
