02-04-2026, 05:36 PM
Just created a form with a single button on it.
Closed it. Went straight into QB64PE with no issues.
Wrote a single update for my button. It changes my title.
Compiled. No problems.
Ran. No problems.
Clicked Button. Title changed to "CLICKY".
All seems to work as advertised straight out of the box with zero issues in Windows 11 64-bit.
Code: (Select All)
': This program uses
': InForm-PE for QB64-PE - v1.5.8
': Copyright (c) 2025 QB64 Phoenix Edition Team
': https://github.com/QB64-Phoenix-Edition/InForm-PE
'-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------
Dim Shared Form1 As Long
Dim Shared AButtonBT As Long
': External modules: ---------------------------------------------------------------
'$Include:'InForm/InForm.bi'
'$Include:'InForm/xp.uitheme'
'$Include:'button.frm'
': Event procedures: ---------------------------------------------------------------
Sub __UI_BeforeInit
End Sub
Sub __UI_OnLoad
End Sub
Sub __UI_BeforeUpdateDisplay
'This event occurs at approximately 60 frames per second.
'You can change the update frequency by calling SetFrameRate DesiredRate%
End Sub
Sub __UI_BeforeUnload
'If you set __UI_UnloadSignal = False here you can
'cancel the user's request to close.
End Sub
Sub __UI_Click (id As Long)
Select Case id
Case Form1
Case AButtonBT
_Title "CLICKY!"
End Select
End Sub
Sub __UI_MouseEnter (id As Long)
Select Case id
Case Form1
Case AButtonBT
End Select
End Sub
Sub __UI_MouseLeave (id As Long)
Select Case id
Case Form1
Case AButtonBT
End Select
End Sub
Sub __UI_FocusIn (id As Long)
Select Case id
Case AButtonBT
End Select
End Sub
Sub __UI_FocusOut (id As Long)
'This event occurs right before a control loses focus.
'To prevent a control from losing focus, set __UI_KeepFocus = True below.
Select Case id
Case AButtonBT
End Select
End Sub
Sub __UI_MouseDown (id As Long)
Select Case id
Case Form1
Case AButtonBT
End Select
End Sub
Sub __UI_MouseUp (id As Long)
Select Case id
Case Form1
Case AButtonBT
End Select
End Sub
Sub __UI_KeyPress (id As Long)
'When this event is fired, __UI_KeyHit will contain the code of the key hit.
'You can change it and even cancel it by making it = 0
Select Case id
Case AButtonBT
End Select
End Sub
Sub __UI_TextChanged (id As Long)
Select Case id
End Select
End Sub
Sub __UI_ValueChanged (id As Long)
Select Case id
End Select
End Sub
Sub __UI_FormResized
End Sub
'$Include:'InForm/InForm.ui'
Closed it. Went straight into QB64PE with no issues.
Wrote a single update for my button. It changes my title.
Compiled. No problems.
Ran. No problems.
Clicked Button. Title changed to "CLICKY".
All seems to work as advertised straight out of the box with zero issues in Windows 11 64-bit.