How to make a form in twinBASIC, with a minimize button, with BorderStyle = 1 or 3

[HackerVlad]

I very often create projects on VB6 where they do not allow the user to change the size of the form, but at the same time I make it possible to minimize the form.

This is such a simple thing that doesn't work in Twin Basic, which disappointed me very much. If you set BorderStyle = 1 and at the same time set MinButton = True, the minimizing button does not appear, unlike the vb6 project.

Why is this happening in Twin Basic? Help me understand and fix this.

[fafalone]

Known bug; temp fix,in Form_Load

        Dim dwStyle As WindowStyles = CLng(GetWindowLong(Me.hWnd, GWL_STYLE))
        dwStyle = dwStyle Or WS_MINIMIZEBOX
        SetWindowLong Me.hWnd, GWL_STYLE, dwStyle

[HackerVlad]

"WindowStyles" emphasizes and does not find such

[HackerVlad]

I rewrote it like this and it worked for me.

        Dim dwStyle As Long = CLng(GetWindowLong(Me.hWnd, GWL_STYLE))
        dwStyle = dwStyle Or WS_MINIMIZEBOX
        SetWindowLong Me.hWnd, GWL_STYLE, dwStyle

[HackerVlad]

Full program code:

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 = CLng(GetWindowLong(Me.hWnd, GWL_STYLE))
        dwStyle = dwStyle Or WS_MINIMIZEBOX
        SetWindowLong Me.hWnd, GWL_STYLE, dwStyle
    End Sub
End Class

[WaynePhillipsEA]

This is such a simple thing that doesn't work in Twin Basic, which disappointed me very much

I deeply regret the trauma caused by this oversight. Rest assured, this has already been fixed in the upcoming release.

[yereverluvinuncleber]

Boo Hoo! Vlad the misery guts. There used to be a Vlad the Impaler who was much more frightening to upset.

Vlad, if TB does not do something in particular, first of all look at the issues list on github and see if your problem is already known, don't let it disappoint you as there are bigger things in the world to worry about.

Secondly, if a feature is missing from TwinBasic, then it is to be 'expected'. It is Beta grade software and we should only really be using TB to test and report our findings. If it works for you, then all well and good but otherwise do understand the concept of 'beta'.

Your job Vlad is to raise bugs on github and not complain about them.

[wqweto]

I deeply regret the trauma caused by this oversight. Rest assured, this has already been fixed in the upcoming release.

At long last! Please don't keep users disappointed for too much, please. Is this a BETA software or what? :-))

cheers,
</wqw>

[fafalone]

Full program code:

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 = CLng(GetWindowLong(Me.hWnd, GWL_STYLE))
        dwStyle = dwStyle Or WS_MINIMIZEBOX
        SetWindowLong Me.hWnd, GWL_STYLE, dwStyle
    End Sub
End Class

See I don't like having to find all the API declares and individually copy and paste them every time for everything, so wrote code using WinDevLib... no more Windows API declares!

And also your declares are specific only to your code and are wrong for x64 because hWnd should be LongPtr, but even after fixing that, not good as generic defs for those functions for all uses so you'd potentially need entirely different versions for other code- hope it's in a different module. On x64 Get and Set WindowLong should be aliased to _WindowLongPtr, which is why there's a CLng() around GWL. WDL resolves this transparently and automatically with the same aliasing setup as the SDK.

That's why it's good to use WDL to avoid x64 mistakes too since I've re-done everything from scratch to restore 64bit types.

[HackerVlad]

Thanks)))

[HackerVlad]

WaynePhillipsEA, thank you so much for fixing this error. I have now downloaded the new version and was pleasantly surprised that this error has already been fixed. Thank you so much for what you are doing, I am incredibly grateful to you.