Как на TwinBasic сделать форму с кнопкой MinButton?

@HackerVlad · Регистрация: 10.09.2021

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

Собственно сам вопрос в названии темы. В проекте VB6 без проблем создаётся кнопка сворачивания установкой MinButton = True, а в твине не хочет, при BorderStyle=1 или 3
Как на TwinBasic сделать форму с кнопкой MinButton?

Добавлено через 2 минуты
Почему-то можно делать минбаттн только если форма сайзбл, странно. А мне не надо сайзбл, я не хочу чтобы меняли размеры формы, но была кнопка сворачивания.

@HackerVlad · 06.12.2024, 18:33 **[ТС]**

я хоть пробовал добавлять SC_MINIMIZE это и то как-то логичнее было...

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

Сообщение от testuser2

CLng

Надо убрать CLng? Ну да, это я просто переписывал код фафалона под себя и забыл убрать это преобразование, он вообще написал мне вот так: https://www.vbforums.com/showt... ost5664590
там его код не работает и ругается на WindowStyles

Добавлено через 2 минуты
Окей, вот новая версия кода (теперь всё логично):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Class Form1
    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongW" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongW" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long
    
    Private Const WS_MINIMIZEBOX = &H20000
    Private Const GWL_STYLE = -16
    
    Private Sub Form_Load()
        Dim dwStyle As Long = GetWindowLong(Me.hWnd, GWL_STYLE)
        dwStyle = dwStyle Or WS_MINIMIZEBOX
        SetWindowLong Me.hWnd, GWL_STYLE, dwStyle
    End Sub
End Class

@testuser2 · 06.12.2024, 18:36

Сообщение от HackerVlad

ругается на WindowStyles

Сообщение от testuser2

подключить WinDevLib

Сообщение от HackerVlad

Надо убрать CLng?

Конечно, сама функция называется GetWindowLong, что значит, что она возвращает Long

@HackerVlad · 06.12.2024, 18:41 **[ТС]**

Так это же код фафалона, вот ему и скажи, я тут при чём.

Добавлено через 44 секунды

Сообщение от testuser2

подключить WinDevLib

Мне это не надо.

Добавлено через 1 минуту
И кстати у иностранцев уже давно есть раздел под названием TwinBASIC вот тут: https://www.vbforums.com/forum... -TwinBASIC
Сюда же и переместили мою тему...
А русские отстают от иностранцев...

@testuser2 · 06.12.2024, 18:42

Сообщение от HackerVlad

Мне это не надо.

Имхо, это просто более правильно. Когда люди пишут на С они же не пишут каждый раз декларации, они прост подключают заголовочники. Это аналог заголовочников.

@HackerVlad · 06.12.2024, 18:45 **[ТС]**

Сообщение от testuser2

они же не пишут каждый раз декларации

я так привык просто

Добавлено через 2 минуты
Не очень охото мне подключать эти ваши огромные TLB и тягать их с собой ради какого-то маленького проекта

@Mikle Quits · 06.12.2024, 18:50

Сообщение от HackerVlad

подключать эти ваши огромные TLB и тягать их с собой

TLB не таскают со скомпилированным проектом, только с исходником.

@HackerVlad · 06.12.2024, 21:29 **[ТС]**

Кстати мне там на иностранном форуме ответил сам Уэйн Филлипс, извинился даже, сказал что глубоко сожалеет об этом баге и что он его уже исправил и в будущей версии всё будет гуд)))

@testuser2 · 07.12.2024, 10:49

Сообщение от Mikle Quits

TLB не таскают со скомпилированным проектом, только с исходником.

На ТВ конкретно эту вещь не нужно даже держать в исходниках, это есть в стандартной поставке, просто достаточно подключить.

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

Сообщение от HackerVlad

И кстати у иностранцев уже давно есть раздел под названием TwinBASIC вот тут: https://www.vbforums.com/forum... -TwinBASIC
Сюда же и переместили мою тему...
А русские отстают от иностранцев...

Да раздел-то хрен с ним, у нас сильно отстает обсуждение, хотя отчасти понятно почему. Хотелось бы ждать лучших времен, но будь что будет )

Добавлено через 36 минут
Кстати, есть тоже интересный молодой проект, отечестенного разработчика вроде, vlang. Я не сильно, как бы "краем глаза" что-то слышал. Вот зашел счас на сайт, он, короче ориентированный на скорость, компилируется в натив, много чего есть уже, веб-фреймворк, даже игру Doom на него портировали. И тоже раздела кстати нет здесь на форуме.

Добавлено через 5 часов 26 минут

Сообщение от HackerVlad

сказал что глубоко сожалеет об этом баге

Это английский юмор )

@HackerVlad · 05.01.2025, 00:47 **[ТС]**

Скачал сейчас новую версию ТвинБейсика эту ошибку уже исправили. MaxButton можно ставить спокойно False. И при этом MinButton уже можно спокойно ставить True. Тему эту даже вообще можно было не создавать получается, а просто дождаться выхода новой версии, ошибку исправили, я обязательно напишу им за это спасибо.

Добавлено через 3 минуты
Написал Уэйну спасибо за это. И от всей души поблагодарил)

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@HackerVlad Вернулся 1778 / 673 / 46 Регистрация: 10.09.2021 Сообщений: 2,820

	Как на TwinBasic сделать форму с кнопкой MinButton? 04.12.2024, 22:47. Показов 2643. Ответов 28 Метки нет (Все метки) Собственно сам вопрос в названии темы. В проекте VB6 без проблем создаётся кнопка сворачивания установкой MinButton = True, а в твине не хочет, при BorderStyle=1 или 3 Как на TwinBasic сделать форму с кнопкой MinButton? Добавлено через 2 минуты Почему-то можно делать минбаттн только если форма сайзбл, странно. А мне не надо сайзбл, я не хочу чтобы меняли размеры формы, но была кнопка сворачивания. 0

@HackerVlad Вернулся 1778 / 673 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	06.12.2024, 21:29 [ТС]
	Кстати мне там на иностранном форуме ответил сам Уэйн Филлипс, извинился даже, сказал что глубоко сожалеет об этом баге и что он его уже исправил и в будущей версии всё будет гуд))) 0

@HackerVlad Вернулся 1778 / 673 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	05.01.2025, 00:47 [ТС]
	Скачал сейчас новую версию ТвинБейсика эту ошибку уже исправили. MaxButton можно ставить спокойно False. И при этом MinButton уже можно спокойно ставить True. Тему эту даже вообще можно было не создавать получается, а просто дождаться выхода новой версии, ошибку исправили, я обязательно напишу им за это спасибо. Добавлено через 3 минуты Написал Уэйну спасибо за это. И от всей души поблагодарил) 1