Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Небольшое непонимание / 11 сообщений из 11, страница 1 из 1
13.01.2003, 15:20
    #32089670
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
В этой статье описано как форме менять иконку но в WinAPI я как свинья в апельсинах там в функцию
Код: plaintext
Public Function SetFormIcon(hWnd As Long, IconPath As String) As Boolean
передаёться параметр hWnd As Long, может кто подскажет, что это за зверь, чем его кормить, и где ентот корм взять?
...
Рейтинг: 0 / 0
13.01.2003, 15:27
    #32089677
Маveric
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
это идентификатор окна
берется так Me.hwnd
...
Рейтинг: 0 / 0
13.01.2003, 15:27
    #32089678
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
Это дескриптор окна. Попробуй в любой форме:
Код: plaintext
MsgBox Me.hWnd
...
Рейтинг: 0 / 0
13.01.2003, 15:31
    #32089683
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
пасибки
помогли болезному
...
Рейтинг: 0 / 0
13.01.2003, 17:02
    #32089785
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
А как в ту функцию передать путь файла иконки находящийся в том же каталоге что и сам *.mdb файл?
...
Рейтинг: 0 / 0
13.01.2003, 17:16
    #32089799
Маveric
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
Можно "отделить" путь от свойства Database.Name
Код: plaintext
1.
2.
3.
4.
5.
Dim db as Database
Dim Path as String
Set db=CodeDb()
Path=db.Name
... дальше из Path можно откинуть имя файла строковыми функциями

Есть еще фанкшен CurDir(), но не всегда будет работать верно.
Хотя помоему сущ. более простой способ.
...
Рейтинг: 0 / 0
13.01.2003, 17:21
    #32089808
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
...
точнее,
Код: plaintext
Path=Left$(Path, InStrRev(Path, "\" )- 1 )
...
Рейтинг: 0 / 0
13.01.2003, 17:23
    #32089811
Маveric
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
InStrRev-появилась в 2000? в Ac97 вроде нет такой функции
...
Рейтинг: 0 / 0
13.01.2003, 17:40
    #32089827
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
Вообще-то да... Но поскольку версия не указывалась, я надеюсь на лучшее ;0)
...
Рейтинг: 0 / 0
13.01.2003, 21:03
    #32089934
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
Для Access 2000+ можно пользоваться CurrentProject.Path
...
Рейтинг: 0 / 0
14.01.2003, 09:21
    #32090020
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Небольшое непонимание
Спасибо всем
То AlexJuice
версия всё таже '97
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Небольшое непонимание / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]