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.
open new form
how to open Form2/Form3 from Form1/Menu for data entry and save them in tables when finished.
scjan
Hi, look at this!
|
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
|
Dim Formulario(5) As Form
Dim NFormularios As Integer
Public Sub Form_Load()
Call Me.ToolBar.createToolBarItem("Form2", "Form2", "ToolTip", formPng, fmPicturePositionLeftCenter)
Call Me.ToolBar.createToolBarItem("Form3", "Form3", "ToolTip", formPng, fmPicturePositionLeftCenter)
End Sub
Public Sub Form_ToolBarClick(ToolBarItem As VB#IToolBarItem)
If ToolBarItem.ControlID = "Form2" Then
Formulario(NFormularios) = New Form
Formulario(NFormularios).Width=100
Formulario(NFormularios).Height=100
Formulario(NFormularios).StartUpPosition = vbStartUpScreen
Formulario(NFormularios).Show ()
End If
If ToolBarItem.ControlID = "Form3" Then
Formulario(NFormularios) = New Form
Formulario(NFormularios).Width=100
Formulario(NFormularios).Height=100
Formulario(NFormularios).StartUpPosition = vbStartUpScreen
Formulario(NFormularios).Show ()
End If
End Sub
|