Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
Source code |
|
1 |
richtextbox2.text=richtextbox1.text |
Source code |
|
1 2 3 4 5 6 7 |
Public Sub Form_MenuClick(MenuItem As IMenuItem) Select Case MenuItem.ControlID Case "mnuShowChart": TabStrip1.SelectedIndex = 1 Case "mnuShowUsers": TabStrip1.SelectedIndex = 2 Case "mnuShowProducts": TabStrip1.SelectedIndex = 3 End Select End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
Source code |
|
1 2 3 |
Public Sub TabStrip1_Click() MsgBox("tab strip clicked") End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
Source code |
|
1 2 3 |
Public Sub Command1_Click() GlobalMessage = "Test" End Sub |
Source code |
|
1 2 3 4 5 6 |
Public Sub Timer1_Timer() If GlobalMessage="Test" Then TabStrip1.SelectedIndex = 2 GlobalMessage = "" 'clear the message End If End Sub |
This post has been edited 1 times, last edit by "Dr_Acula" (Feb 27th 2011, 12:39pm)