Visual Programming using Gambas in Linux - Tutorial 5.6 (PART 3)

This tutorial-video... "GAMBAS visual-programming in Linux (Tutorial 5.6) Part-3"... continues the 'TAB-Container Program'.

This part demonstrates using 'ComboBoxes' and 'PictureBoxes'... (including the Program-Code for setting-up, and using, these 'Controls'.
In TUTORIAL 5.6 'Part-4', I will describe:

'Menus', in graphical-programs, and within GAMBAS.

Then, in the following tutorials, I will cover some final 'User Interface', and 'program' tweaks, designed to improve the program's appearance, and functionality.

And again, I hope you find this video-series useful and informative.

================================================
The current 'FMain.class' Class-File... (for reference)
================================================
' Gambas class file
Public Sub Slider1_Change()

Label3.Text = Slider1.Value

End

Public Sub Button0_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 0

End

Public Sub Button1_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 1

End

Public Sub Button2_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 2

End

Public Sub Button3_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 3

End

Public Sub Button4_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 4

End

Public Sub Button5_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 5

End

Public Sub Button6_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 6

End

Public Sub Button7_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 7

End

Public Sub Button8_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 8

End

Public Sub Button9_Click()

If LCDLabel1.Text = "0" Then LCDLabel1.Text = ""
LCDLabel1.Text = LCDLabel1.Text & 9

End

Public Sub Button_Clear_Click()

LCDLabel1.Text = "0"
TextArea1.Text = ""

End

Public Sub Button_Enter_Click()

TextArea1.Text = TextArea1.Text & " " & LCDLabel1.Text & " "

End

Public Sub Form_Open()

Me.Center

ComboBox1.Add("NONE", 0)
ComboBox1.Add("ONE", 1)
ComboBox1.Add("TWO", 2)
ComboBox1.Add("THREE", 3)
ComboBox1.Add("FOUR", 4)
ComboBox1.Index = 0
Label5.Text = ComboBox1.Text & " - Selected"

End

Public Sub ComboBox1_Click()

Label5.Text = ComboBox1.Text & " - Selected"

End

Public Sub PictureBox1_DblClick()

If PictureBox1.Picture = Picture["My_Image1.jpg"] Then
PictureBox1.Picture = Picture["My_Image2.jpg"]
Else
PictureBox1.Picture = Picture["My_Image1.jpg"]
Endif

End

================================================

Видео Visual Programming using Gambas in Linux - Tutorial 5.6 (PART 3) канала Nerdsanity