Невидимый заголовок программы

10.08.2006, 22:50. **Показов** 2309. **Ответов** 12

Студворк — интернет-сервис помощи студентам

Эт опять я. И опять я в непонятках. У меня установлен VB6. Когда я ставлю BorderStyle на "0 - Нет" ничего не меняется! В форме самой да, если там на текстбоксе поставить на 0 то рамка меняется, а мне над чтоб сам заголовок пропал.

10.08.2006, 22:53

Нашел как но как я понял меняется во всех кроме лавной форме да? а в главной как и можно ли добавить какой нибудь код чтоб за любую часть программы можно было нажав передвигать ее? и как прописать кнопку min?
Private Sub CommandButton_Click()
MinButton ???
End Sub

@Alexey Spirin · 10.08.2006, 22:58

Ленивец, давай-ка ты будешь читать хэлпы и уважать время других.
Тебе сказано - полазай по свойствам формы. Или у нее кроме BorderStyle других нет?
2All: Предлагаю игнорировать данного юзера.

@VladConn · 10.08.2006, 22:58

У тебя что, главная форма- MDI?

10.08.2006, 23:04

нет вроде как и все обычная. у всех убирается а у главной нет. ну ладно это я сам поищу найду а как сделать кнопку "Свернуть"? и как сделать чтоб когда зажимаешь левую кнопку мыши на картинке то можно перетаскивать всю форму? Спирин не хочешь не помогай, мне т что. я пришел сюда за помощью а не за предпосылками к help'у. Кстати у меня его нет в визуале. я хз почему)

@VladConn · 10.08.2006, 23:13

kif,
Посади Label1 на форму и двигай форму, держась за Label1 :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Declare Sub ReleaseCapture Lib "User32" ()
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
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Label1 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If Button = vbLeftButton Then
        ReleaseCapture
        SendMessage Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub

VladConn

10.08.2006, 23:22

Куда девать это? Если в General то он пишет ошибку о то что нет объекта "Form1.hWnd".
"Private Declare Sub ReleaseCapture Lib "User32" ()
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
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2"
(сорри если ступил)

@VladConn · 10.08.2006, 23:30

Можно и без лейбла, тянуть прямо так, за саму форму:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Declare Sub ReleaseCapture Lib "User32" ()
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
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = &H2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = vbLeftButton Then
            ReleaseCapture
            SendMessage Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
        End If
    End Sub

"Суй" прямо в код формы. Form1 - это имя формы, у тебя просто оно другое.

11.08.2006, 01:36

ой блин. точно. извини ступил) забыл что переименновал.) спасиб. а с картинкой или с кнопкой тож самое можно делать как я понял да? кстати можно ли сделать и вставить к примеру треугольную картинку и/или кнопку? и кнопку "Свернуть" можно сделать?
кстати я понял почему нельзя убрать рамку в главном форме. т.к. там есть меню. хоть оно и скрытое но нельзя. а как нибудь по другому убрать можно?
нашел как по другому но с очередным запором) я убрал меню из главной формы и запихнул его в другое маленькое нивидимое окошко, но при загрузке оно становится видимым. это изза комманды Show новерно да? а как его загрузить в память чтоб оно оставалось нивидимое на экране? мне это меню надо т.к. его грузить иконка в сис трее.
еееееее. я нашел как. через Load) так он типа просто грузит его а команда шоу выводит на экран?
кул. короч мне осталось узнать про треугольные и др.форм кнопки, такие же картинки и как кнопку свернуть делать) блин я этот пост редактирую уже в сотый раз) тут вопросов было немеренно в начале) а вы говорите что я ленивец епть)

@Alexey Spirin · 11.08.2006, 14:01

Smalig, не сочти за рекламу

2Автор: http://www.vbrussian.com/ http://www.vbrussian.com/. Все что ты хочешь, абсолютно точно есть на этом сайте. В примерах и контролах, скорее всего. Не ленись, ищи.

11.08.2006, 21:56

согласись еслиб мне было лень я б не ВБ изучал а сидел бы на улице с банкой пива. притом всегда.
и спасиб за ссылку.

@Alexey Spirin · 11.08.2006, 22:03

))))
Бред какой.

12.08.2006, 02:53

хех. есть фраза "в семье не без урода" так вот если взять за семью - программистов то ты увы попадаешь под определенный критерий. эт мое мнение.
З.Ы Эта строка НЕ грубая, НЕ оскорбляющая, НЕ унижающая. Она соответствует всем правилам форума и не перечит им. ВСЕ вполне законно и правдиво. хехе.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

kif

	Невидимый заголовок программы 10.08.2006, 22:50. Показов 2309. Ответов 12 Метки нет (Все метки) Эт опять я. И опять я в непонятках. У меня установлен VB6. Когда я ставлю BorderStyle на "0 - Нет" ничего не меняется! В форме самой да, если там на текстбоксе поставить на 0 то рамка меняется, а мне над чтоб сам заголовок пропал.

kif
	10.08.2006, 22:53
	Нашел как но как я понял меняется во всех кроме лавной форме да? а в главной как и можно ли добавить какой нибудь код чтоб за любую часть программы можно было нажав передвигать ее? и как прописать кнопку min? Private Sub CommandButton_Click() MinButton ??? End Sub

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.08.2006, 22:58
	Ленивец, давай-ка ты будешь читать хэлпы и уважать время других. Тебе сказано - полазай по свойствам формы. Или у нее кроме BorderStyle других нет? 2All: Предлагаю игнорировать данного юзера. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	10.08.2006, 22:58
	У тебя что, главная форма- MDI? 0

kif
	10.08.2006, 23:04
	нет вроде как и все обычная. у всех убирается а у главной нет. ну ладно это я сам поищу найду а как сделать кнопку "Свернуть"? и как сделать чтоб когда зажимаешь левую кнопку мыши на картинке то можно перетаскивать всю форму? Спирин не хочешь не помогай, мне т что. я пришел сюда за помощью а не за предпосылками к help'у. Кстати у меня его нет в визуале. я хз почему)

kif
	10.08.2006, 23:22
	Куда девать это? Если в General то он пишет ошибку о то что нет объекта "Form1.hWnd". "Private Declare Sub ReleaseCapture Lib "User32" () 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 Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2" (сорри если ступил)

kif
	11.08.2006, 01:36
	ой блин. точно. извини ступил) забыл что переименновал.) спасиб. а с картинкой или с кнопкой тож самое можно делать как я понял да? кстати можно ли сделать и вставить к примеру треугольную картинку и/или кнопку? и кнопку "Свернуть" можно сделать? кстати я понял почему нельзя убрать рамку в главном форме. т.к. там есть меню. хоть оно и скрытое но нельзя. а как нибудь по другому убрать можно? нашел как по другому но с очередным запором) я убрал меню из главной формы и запихнул его в другое маленькое нивидимое окошко, но при загрузке оно становится видимым. это изза комманды Show новерно да? а как его загрузить в память чтоб оно оставалось нивидимое на экране? мне это меню надо т.к. его грузить иконка в сис трее. еееееее. я нашел как. через Load) так он типа просто грузит его а команда шоу выводит на экран? кул. короч мне осталось узнать про треугольные и др.форм кнопки, такие же картинки и как кнопку свернуть делать) блин я этот пост редактирую уже в сотый раз) тут вопросов было немеренно в начале) а вы говорите что я ленивец епть)

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	11.08.2006, 14:01
	Smalig, не сочти за рекламу 2Автор: http://www.vbrussian.com/ http://www.vbrussian.com/. Все что ты хочешь, абсолютно точно есть на этом сайте. В примерах и контролах, скорее всего. Не ленись, ищи. 0

kif
	11.08.2006, 21:56
	согласись еслиб мне было лень я б не ВБ изучал а сидел бы на улице с банкой пива. притом всегда. и спасиб за ссылку.

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	11.08.2006, 22:03
	)))) Бред какой. 0

kif
	12.08.2006, 02:53
	хех. есть фраза "в семье не без урода" так вот если взять за семью - программистов то ты увы попадаешь под определенный критерий. эт мое мнение. З.Ы Эта строка НЕ грубая, НЕ оскорбляющая, НЕ унижающая. Она соответствует всем правилам форума и не перечит им. ВСЕ вполне законно и правдиво. хехе.