Как на 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 минуты
Написал Уэйну спасибо за это. И от всей души поблагодарил)

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@HackerVlad Вернулся 1753 / 649 / 45 Регистрация: 10.09.2021 Сообщений: 2,805

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

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

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