Помогите, пожалуйста, меня заклинило!!!

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Salte
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 14.01.2004 (Ср) 16:13

Помогите, пожалуйста, меня заклинило!!!

Сообщение Salte » 21.01.2004 (Ср) 12:55

Друзья!!!
Меня просто заклинило! не могу добиться того, чтобы при разворачивании формы стандартные контролы (например Command1) были привязаны, ну, скажем, к левому нижнему углу формы, несмотря на её размеры.
Помогите, кто чем может...

Vasya
Обычный пользователь
Обычный пользователь
 
Сообщения: 69
Зарегистрирован: 23.04.2002 (Вт) 16:49
Откуда: Togo

Сообщение Vasya » 21.01.2004 (Ср) 14:01

В событии Form_Resize меняешь значения у контролов - Top и Left:
Button1.Top=Me.Height-100

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 21.01.2004 (Ср) 14:11

Только лучше не Height и Width а ScaleHeight и ScaleWidth - потому что имено они учитывают рабочую область формы.

Salte
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 14.01.2004 (Ср) 16:13

Сообщение Salte » 21.01.2004 (Ср) 14:24

такого сделать не могу, нет таких свойств...

вот, пишу:

Private Sub Form_Resize()
Command1.Top = Me.ScaleHeight - 100
Command1.Width = Me.ScaleWidth - 100

End Sub

делает чёрти-что!

и, к тому же, оно изменяет размеры кнопки... а ентого не надоть!

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 21.01.2004 (Ср) 15:25

Ты вообще думаешь иногда над тем, что делаешь? Меняешь проперть, отвечающую за ширину контрола и при этом возмущаешься, что она изменлась.



Позиция контрола меняется с помощью .Top и .Left, сказано же было.



Private Sub Form_Resize()

Command1.Top = Me.ScaleHeight - 100

Command1.Left = Me.ScaleWidth - 100

End Sub

Salte
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 14.01.2004 (Ср) 16:13

Сообщение Salte » 21.01.2004 (Ср) 15:58

RayShade писал(а):Ты вообще думаешь иногда над тем, что делаешь? Меняешь проперть, отвечающую за ширину контрола и при этом возмущаешься, что она изменлась.

Позиция контрола меняется с помощью .Top и .Left, сказано же было.

Private Sub Form_Resize()
Command1.Top = Me.ScaleHeight - 100
Command1.Left = Me.ScaleWidth - 100
End Sub


Я же говорю, что меня заклинило!!! Спасибо за пинок в задницу! :P

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 21.01.2004 (Ср) 16:33

Пожалуйста :) Всегда в наличии самые разные пинки :) Со склада напрямую от производителя :) Гибкие скидки :P


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 4

    TopList