Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Форма появляется в углу 
:(
    Опции темы
APro
Дата 15.3.2008, 14:36 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1
Как сделать, чтобы программа появилась в правом нижнем углу (часами).
Желательно с помощью Регионов (или как-то так, точно не помню)

Вобщем исключая этот метод:
Код

Form1.Left = Screen.Width - Form1.Width
Form1.Top = Screen.Height - Form1.Height - 450


Зарание спасибо!


--------------------
Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.
PM MAIL WWW ICQ   Вверх
Naghual
Дата 15.3.2008, 14:49 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Код

Form.ScaleMode = Pixels
Form.Left = Screen.Width - Form.ScaleWidth
Form.Top = Screen.Height - Form.ScaleHeight

Писал по памяти, сильно не ругайтесь.  ;)


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
APro
Дата 15.3.2008, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1
не, это точно не то... На моём примере форма появляется там где мне надо, но мне нужен другой способ. а твоём примере, форма вобще где-то в конце...


--------------------
Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.
PM MAIL WWW ICQ   Вверх
Naghual
Дата 15.3.2008, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
ну, ну...
где-то в конце, там где мне надо...   - я не обладаю телепатией


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
I_Am_Rock
Дата 15.3.2008, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
А что если использовать SetWindowPos
PM MAIL WWW   Вверх
I_Am_Rock
Дата 15.3.2008, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Вот что у меня получилось... 
Кажется, как раз то, что тебе надо...smile
У меня, по крайней мере, работает.

Код

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Dim r As RECT
 
Private Sub Command1_Click()
GetWindowRect Form1.hwnd, r
a = 1024 - (r.Right - r.Left)
b = 768 - (r.Bottom - r.Top) - 30
SetWindowPos Form1.hwnd, 0, a, b, 0, 0, SWP_NOSIZE
End Sub


Добавлено через 1 минуту и 29 секунд
Если у тебя экран - не 1024 на 768, то не забудь изменить код... 
PM MAIL WWW   Вверх
I_Am_Rock
Дата 15.3.2008, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Чтобы не зависить от ширины и высоты экрана замени строки кода на эти

Код

a = Screen.Width / Screen.TwipsPerPixelX - (r.Right - r.Left)
b = Screen.Height / Screen.TwipsPerPixelY - (r.Bottom - r.Top) - 30
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0483 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.