aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

56
Task/GUI-component-interaction/Gambas/gui-component-interaction.gambas Normal file
View file

@ -0,0 +1,56 @@
hValueBox As ValueBox 'We need a ValueBox
Public Sub Form_Open()
Dim hButton As Button 'We need 2 Buttons
With Me 'Set the Form's Properties..
.height = 95 'Set the Height
.Width = 350 'Set the Width
.Arrangement = Arrange.Vertical 'Arrange items vertically
.Padding = 5 'Border area
.Title = "GUI component interaction" 'Title displayed on the Form
End With
hValueBox = New ValueBox(Me) 'Add a ValueBox to the Form
With hValueBox 'Set the ValueBox's Properties..
.Expand = True 'Expand the ValueBox
.Value = 0 'Set it's value to 0
End With
hButton = New Button(Me) As "ButtonInc" 'Add a Button to the form as Event "ButtonInc"
With hButton 'Set the Button's Properties..
.Height = 28 'Set the Height
.Text = "&Increment" 'Add Text (The '&' adds a keyboard shortcut)
End With
hButton = New Button(Me) As "ButtonRand" 'Add a Button to the form as Event "ButtonRand"
With hButton 'Set the Button's Properties..
.Height = 28 'Set the Height
.Text = "&Random" 'Add Text (The '&' adds a keyboard shortcut)
End With
End
Public Sub ButtonInc_Click() 'When the 'Increment' Button is clicked..
hValueBox.Value += 1 'Increase the Value in the ValueBox by 1
End
Public Sub ButtonRand_Click() 'When the 'Random' Button is clicked..
Dim siRand As Short 'To store random number
Dim byAnswer As Byte 'To store the answer to the MessageBox question
siRand = Rand(1, 32767) 'Create a 'Random' mnumber
byAnswer = Message.Question("Would you like to set the ValueBox to " & siRand & "?", "Yes", "No") ' Ask if the number is OK
If byAnswer = 1 Then 'If the user says 'Yes' then
hValueBox.Value = siRand 'Display the 'Random' number in the ValueBox
Else 'ELSE
hValueBox.Value = 0 'Set the ValueBox Value to 0
End If
End