Вопрос новичка среди новичков- всего лишь о самой форме,окне

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

Вопрос новичка среди новичков- всего лишь о самой форме,окне

Сообщение lilak » 07.04.2005 (Чт) 13:40

Скажите, люди добрые, программисты с опытом:а можно ли и как создать форму совсем без заголовка- чтоб даже этого места в сантиметр высотой для него не было. Смешной вопрос? Но я искал в свойствах формы- не нашёл, а очень надо. Кто-нибудь знает, наверное, и не один- отзовитесь, Спасибо. :roll:

EvilCoder
Посланец джихада
Посланец джихада
Аватара пользователя
 
Сообщения: 706
Зарегистрирован: 25.01.2004 (Вс) 15:08

Сообщение EvilCoder » 07.04.2005 (Чт) 13:47

Плохо смотрел :wink:
Form1.BorderStyle=0 :wink:
<<------- EvilCoder ------->>

Gloom
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 200
Зарегистрирован: 23.11.2004 (Вт) 15:57
Откуда: СПб

Сообщение Gloom » 07.04.2005 (Чт) 13:51

Caption = ""
ControlBox = False

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 07.04.2005 (Чт) 13:53

EvilCoder писал(а):Плохо смотрел :wink:
Form1.BorderStyle=0 :wink:
Не обязательно, это уж слишком крутой метод и форма получается некрасивая. Лучше Form.ControlBox=False, опосля чего Caption оставь пустой. Заголовок и сгинет.

Не успел :)

lilak
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 15
Зарегистрирован: 04.12.2004 (Сб) 17:57
Откуда: Israel

Сообщение lilak » 07.04.2005 (Чт) 15:55

Спасибо, я знал, что вы поможете, сделал как советовали Gloom
и vvs_adm - форма получилась такой, как хотелось, только- не сочтите, что капризничаю, можно ли при этом как- то сделать её перетаскиваемой? Спасибо. :roll:

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 07.04.2005 (Чт) 16:25

Код: Выделить всё
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

lilak
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 15
Зарегистрирован: 04.12.2004 (Сб) 17:57
Откуда: Israel

Сообщение lilak » 09.04.2005 (Сб) 15:56

Шурик!- Работает- супер!. Каждый день узнаю что-то новое, спасибо вам всем! Но впереди- ещё учиться и учиться, например, как создать контекстное меню правой кнопкой мыши на форме или на иконке в трее- Подскажите, хочется уметь, да и необходимость есть в том. Ещё раз спасибо. :oops: :shock:

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 09.04.2005 (Сб) 19:06

Поможет поиск по форуму. И ещё раздел FAQ.

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 10.04.2005 (Вс) 15:38

Да кстати, можешь использовать код для перетаскивания не только для формы. Если у объекта(form, command, label и т.д.)есть событие _MouseDown, то можешь таскать окно своей программы не только за форму, но еще за кнопку, лэйбл и т.д.


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

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

Сейчас этот форум просматривают: Yandex-бот и гости: 198

    TopList