Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Source code |
|
1 2 3 4 5 6 7 8 9 10 |
Public Form1 As New Form1 Public Form2 As New Form2 Public Form3 As New Form3 Public Sub main(ByJava args() As String) Dim myArgs() As String myArgs = args Form1.SetDefaultClose() Form1.show() End Sub |
Source code |
|
1 2 3 |
Public Sub Command1_Click() Form2.Show End Sub |
Administrator
Date of registration: Jul 16th 2008
Location: Erlangen, Germany
Occupation: Software Developer
Hobbies: Jabaco, game theory, text-mining
Supported in two ways: Modules and the "static"-attribute within a class-module.Quoted
I am not sure, by the way, if Jabaco supports static methods.
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Source code |
|
1 2 3 4 5 6 7 8 9 10 |
Public MyForm1 As New Form1 Public MyForm2 As Form2 Public MyForm3 As Form3 Public Sub main(ByJava args() As String) Dim myArgs() As String myArgs = args MyForm1.SetDefaultClose() MyForm1.show() End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Option Explicit Public Sub Command1_Click() MsgBox "pressed button 1" End Sub Public Sub Command2_Click() MsgBox "pressed button 2" End Sub Public Sub Text1_Click() MsgBox "clicked in textbox Text1" End Sub Public Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then MsgBox "ended Text1 entry with enter key" End If End Sub Public Sub Form_Load() Text1.Text = "some text" End Sub |
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player