Форма окна и некоторые её параметры

@Веди · Регистрация: 04.07.2012

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

привет, друзья!

у меня MVB6.0 и есть несколько вопросов:

1. размеры окна в форме Width, Height, учитывают толщину бордюрчиков и заголовка. можно как-то указывать размеры без них?
2. как показать окно приложения без бордюрчиков и заголовка?
3. как выводить окно в определённое место X, Y, левый, верхний угол?

@Pro_grammer · 23.11.2016, 06:32

Cправа в Properties можно настроить, без заголовка не так очевидно:
Caption = ""
ControlBox = False
А остальные параметры вроде понятно написано.

@Веди · 23.11.2016, 09:01 **[ТС]**

3. сам нашёл: Me.Left, Me.Top (но всё равно только в тиках, опять пересчёт)
2. имелось в виду не без названия заголовка, а без этой полоски на которой он пишется, ControlBox = False ничего не делает. в итоге должно появиться голенький прямоугольник, без бордюров и кнопок.
1. где написано по остальным параметрам, не вижу? видимо придётся размеры пересчитывать на калькуляторе для каждой программы. эх..

Shersh · 23.11.2016, 09:08

Сообщение от Веди

голенький прямоугольник

В свойствах формы
BorderStyle | 0 - None

@The trick · 23.11.2016, 09:15

Сообщение от Веди

где написано по остальным параметрам, не вижу? видимо придётся размеры пересчитывать на калькуляторе для каждой программы. эх..

В Windows есть такое понятие как клиентская область окна и неклиентская. Клиентская область окна - это то что возвращают методы ScaleWidth и ScaleHeight, тут ты можешь задавать любые единицы измерения (твипы, пиксели, дюймы, пользовательские и т.д.); эта область окна без заголовка, меню, бордюров. Свойства Width и Height возвращают размер неклиентской области, т.е. непосредственно размер окна на экране в твипах. Для того чтобы задать размер клиентской области нужно сначала определить разницу неклиентской области и клиетской - полученные числа нужно прибавлять к желаемым ширине и высоте окна и задавать свойствам Width и Height. Нужно учесть что все величины нужно приводить к одним единицам измерения.

@Pro_grammer · 23.11.2016, 09:17

Сообщение от Веди

но всё равно только в тиках

ScaleMode=3 - Pixel
Там всё есть, просто читайте и экспериментируйте.

@Веди · 23.11.2016, 09:19 **[ТС]**

"BorderStyle | 0 - None" - ничего не происходит

"ScaleMode=3 - Pixel" - у меня и стоит, в окне графика на пиксели, а параметры окна остаются в тиках и как быть с размером бардюров и заголовка?

@The trick · 23.11.2016, 09:24

https://www.cyberforum.ru/post9787240.html
Вот посмотри как тут задаются размеры именно рабочей области в 200 на 200 пикселей (это с учетом того что ScaleMode = vbTwips)

@Веди · 23.11.2016, 09:28 **[ТС]**

страницы нет по ссылке..

по поводу размера окон приходиться считать: если например надо окно 500 на 300, то без меню это будет Width=500*15+100=7600, Height=300*15+450(без меню)/750(с меню)=4950/5250. это ясно мне было давно, вопрос в том, можно ли поставить Width=500, Height=300 и не париться, может в настройках где-то есть такое?

@The trick · 23.11.2016, 09:33

Сообщение от Веди

по поводу размера окон приходиться считать: если например надо окно 500 на 300, то без меню это будет Width=500*15+100=7600, Height=300*15+450(без меню)/750(с меню)=4950/5250. это ясно мне было давно, вопрос в том, можно ли поставить Width=500, Height=300 и не париться, может в настройках где-то есть такое?

Во-первых константы нельзя использовать. Во-вторых размеры окна задаются в твипах, а не в пикселях. В-третьих если тебе не нужны бордюры и заголовок, то как написал Shersh, BorderStyle | 0 - None и ScaleWidth и ScaleHeight будут одинаковыми с Width и Height (имеется в виду что содержат один и тот же размер, т.е. при ScaleMode = vbTwips они будут численно одинаковыми).

@Веди · 23.11.2016, 09:39 **[ТС]**

я имел в виду это: например надо окно 500pix на 300pix, то без меню это будет Width=500*15+100=7600tw,.. и т.д.
так что всё у меня правильно, я ж прогу запустил всё верно порисовало.

окно без бордюров и заголовка хоть убейте не получается, всё испробовал что тут писали..

@Pro_grammer · 23.11.2016, 10:40

Сообщение от Веди

окно без бордюров и заголовка хоть убейте не получается

Там и делать ни чего не надо:

@Веди · 23.11.2016, 14:02 **[ТС]**

так я и не делаю "ни чего", только всё по прежнему остаётся, может у меня VB сломался или мозг..

ну да ладно, обойдусь без этого.

всем спасибо за помощь!

Добавлено через 1 час 29 минут
а всё получилось, это был мозг..

Добавлено через 43 минуты

@Веди · 23.11.2016, 18:54 **[ТС]**

добрый вечер, друзья!
сделал я основную прогу форма virm, но решил её усовершенствовать, вместо кучи однотипных меню решил оставить одно -"Размер", которое вызывает форму диалога inGrid.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub inOK_Click(Index As Integer)
  ...
  inGrid.Hide
End Sub
 
Private Sub inCancel_Click(Index As Integer)
  ...
  inGrid.Hide
End Sub
 
 
Private Sub VScrolX_Change()
  inTeX.Text = VScrolX.Value
End Sub
 
Private Sub VScrolY_Change()
  ...
End Sub

основная задача диалога - вытащить 2 числа "x" и "y" и передать их в основную форму в такую функцию (она рабочая всё делает правильно):

Visual Basic
1
2
3
Public Sub pGrid(x As Integer, y As Integer)
  ...
End Sub

и вот застрял я на этом этапе, не пойму как значения ползунков вытянуть? оба они одинаковые, сделал в настройках такие параметры: от 5 до 25, по умолчанию на 15, степ 5, но только если мышой тащить то гладко тянется, не знаю как раздробить..

вот окно диалога такое:

@Веди · 24.11.2016, 12:13 **[ТС]**

VScrolX на HScrolX но выскакивает ошибка при перемещении ползунка

@Веди · 24.11.2016, 13:29 **[ТС]**

заменил текстбокс на метки

Visual Basic
1
LabelY.Caption = HScrolY.Value

и заработало

остались вопросы:

1. как отцентрировать данные в метке по горизонтали
2. после загрузки диалогового окна поля меток пустые, хотелось бы что бы по умолчанию там стояли указанные мною значения 15 и 15 например.
3. как раздробить значения в ползунке при перетаскивании мышой

Добавлено через 10 минут
1. не по горизонтали, пардон, а по вертикали

Shersh · 24.11.2016, 13:42

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
1: 'как отцентрировать данные в метке по горизонтали
Label1.Alignment = 2
2: 'после загрузки диалогового окна поля меток пустые, хотелось бы что бы по умолчанию там стояли указанные мною значения 15 и 15 например
Label1 = HScroll1
End Sub
 
Private Sub HScroll1_Change()
3: 'как раздробить значения в ползунке при перетаскивании мышой
With HScroll1
  .Value = .Min + CInt((.Value - .Min) / .LargeChange) * .LargeChange
End With
End Sub

Имена объектов на свои исправьте...

@Веди · 24.11.2016, 13:52 **[ТС]**

спасибо огромное всё получилось!

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523

	Форма окна и некоторые её параметры 23.11.2016, 03:34. Показов 1681. Ответов 17 Метки нет (Все метки) привет, друзья! у меня MVB6.0 и есть несколько вопросов: 1. размеры окна в форме Width, Height, учитывают толщину бордюрчиков и заголовка. можно как-то указывать размеры без них? 2. как показать окно приложения без бордюрчиков и заголовка? 3. как выводить окно в определённое место X, Y, левый, верхний угол? 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	23.11.2016, 06:32
	Cправа в Properties можно настроить, без заголовка не так очевидно: Caption = "" ControlBox = False А остальные параметры вроде понятно написано. 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	23.11.2016, 09:01 [ТС]
	3. сам нашёл: Me.Left, Me.Top (но всё равно только в тиках, опять пересчёт) 2. имелось в виду не без названия заголовка, а без этой полоски на которой он пишется, ControlBox = False ничего не делает. в итоге должно появиться голенький прямоугольник, без бордюров и кнопок. 1. где написано по остальным параметрам, не вижу? видимо придётся размеры пересчитывать на калькуляторе для каждой программы. эх.. 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	23.11.2016, 09:19 [ТС]
	"BorderStyle \| 0 - None" - ничего не происходит "ScaleMode=3 - Pixel" - у меня и стоит, в окне графика на пиксели, а параметры окна остаются в тиках и как быть с размером бардюров и заголовка? 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	23.11.2016, 09:24
	https://www.cyberforum.ru/post9787240.html Вот посмотри как тут задаются размеры именно рабочей области в 200 на 200 пикселей (это с учетом того что ScaleMode = vbTwips) 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	23.11.2016, 09:28 [ТС]
	страницы нет по ссылке.. по поводу размера окон приходиться считать: если например надо окно 500 на 300, то без меню это будет Width=50015+100=7600, Height=30015+450(без меню)/750(с меню)=4950/5250. это ясно мне было давно, вопрос в том, можно ли поставить Width=500, Height=300 и не париться, может в настройках где-то есть такое? 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	23.11.2016, 09:39 [ТС]
	я имел в виду это: например надо окно 500pix на 300pix, то без меню это будет Width=500*15+100=7600tw,.. и т.д. так что всё у меня правильно, я ж прогу запустил всё верно порисовало. окно без бордюров и заголовка хоть убейте не получается, всё испробовал что тут писали.. 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	23.11.2016, 14:02 [ТС]
	так я и не делаю "ни чего", только всё по прежнему остаётся, может у меня VB сломался или мозг.. ну да ладно, обойдусь без этого. всем спасибо за помощь! Добавлено через 1 час 29 минут а всё получилось, это был мозг.. Добавлено через 43 минуты 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	24.11.2016, 12:13 [ТС]
	VScrolX на HScrolX но выскакивает ошибка при перемещении ползунка Миниатюры 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	24.11.2016, 13:52 [ТС]
	спасибо огромное всё получилось! 0