ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Небольшое непонимание
11 сообщений из 11, страница 1 из 1
Небольшое непонимание
    #32089670
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
В этой статье описано как форме менять иконку но в WinAPI я как свинья в апельсинах там в функцию
Код: plaintext
Public Function SetFormIcon(hWnd As Long, IconPath As String) As Boolean
передаёться параметр hWnd As Long, может кто подскажет, что это за зверь, чем его кормить, и где ентот корм взять?
...
Рейтинг: 0 / 0
13.01.2003, 15:20
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089677
Маveric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маveric
Участник
это идентификатор окна
берется так Me.hwnd
...
Рейтинг: 0 / 0
13.01.2003, 15:27
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089678
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Это дескриптор окна. Попробуй в любой форме:
Код: plaintext
MsgBox Me.hWnd
...
Рейтинг: 0 / 0
13.01.2003, 15:27
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089683
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
пасибки
помогли болезному
...
Рейтинг: 0 / 0
13.01.2003, 15:31
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089785
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
А как в ту функцию передать путь файла иконки находящийся в том же каталоге что и сам *.mdb файл?
...
Рейтинг: 0 / 0
13.01.2003, 17:02
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089799
Маveric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ма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:16
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089808
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
...
точнее,
Код: plaintext
Path=Left$(Path, InStrRev(Path, "\" )- 1 )
...
Рейтинг: 0 / 0
13.01.2003, 17:21
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089811
Маveric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маveric
Участник
InStrRev-появилась в 2000? в Ac97 вроде нет такой функции
...
Рейтинг: 0 / 0
13.01.2003, 17:23
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089827
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Вообще-то да... Но поскольку версия не указывалась, я надеюсь на лучшее ;0)
...
Рейтинг: 0 / 0
13.01.2003, 17:40
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32089934
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Для Access 2000+ можно пользоваться CurrentProject.Path
...
Рейтинг: 0 / 0
13.01.2003, 21:03
| Ответить | Цитировать | Написать  
Небольшое непонимание
    #32090020
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Спасибо всем
То AlexJuice
версия всё таже '97
...
Рейтинг: 0 / 0
14.01.2003, 09:21
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Небольшое непонимание
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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