You are not logged in.

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.

scjain

Beginner

  • "scjain" started this thread

Posts: 1

Date of registration: May 29th 2009

  • Send private message

1

Tuesday, June 2nd 2009, 3:03pm

open new form

how to open Form2/Form3 from Form1/Menu for data entry and save them in tables when finished.

scjan

gabizzz

Beginner

  • "gabizzz" is male

Posts: 5

Date of registration: Jun 18th 2009

Location: Argentina

  • Send private message

2

Wednesday, June 24th 2009, 4:36pm

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

Similar threads

Rate this thread
WoltLab Burning Board