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.

OlimilO

Intermediate

  • "OlimilO" is male
  • "OlimilO" started this thread

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

  • Send private message

1

Tuesday, June 23rd 2009, 1:52pm

is it possible to create a MenuGroup in a MDIChild?

Hi there,



in VB6 it is possible to create a menubar in a MDIChild-form.

when you create a MDIChild-form the menubar of the MDIMain-form gets replaced by the menubar of the MDIChild-form



is this also possible in Jabaco?

in Jabaco there is no MenuBar-property for the MDIChild (but getMenuBar)



if it is not possible in Jabaco, should not we make this possible?



but how far is the MDI-concept in Java/Jabaco available/realisable?



it is more a windows-like concept isn't it?



OlimilO

gabizzz

Beginner

  • "gabizzz" is male

Posts: 5

Date of registration: Jun 18th 2009

Location: Argentina

  • Send private message

2

Wednesday, June 24th 2009, 5:41pm

menu mdi form.zip

Hola, hice este ejemplo, espero te sirva.
Saludos

In MDIForm1

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

Dim Formulario(5) As MDIChild1	
Dim NFormularios As Integer

Public Sub Form_Load()
   Call Me.ToolBar.createToolBarItem("MDIForm", "MDIForm", "ToolTip", formPng, fmPicturePositionLeftCenter)
End Sub
Public Sub Form_ToolBarClick(ToolBarItem As VB#IToolBarItem)
   If ToolBarItem.ControlID = "MDIForm" Then
  	Formulario(NFormularios) = New MDIChild1
  	Formulario(NFormularios).Width=100
  	Formulario(NFormularios).Height=100
  	Formulario(NFormularios).Show ()
   End If
End Sub


In Module1

Source code

 
1
2
3
4
5
6
7
8
9
10

Public MDIForm1 As New MDIForm1
Public MDIChild1 As New MDIChild1

Public Sub main(ByJava args() As String)
   Dim myArgs() As String
   myArgs = args
   MDIForm1.SetDefaultClose()
   MDIChild1.Close()
   MDIForm1.show()
End Sub

OlimilO

Intermediate

  • "OlimilO" is male
  • "OlimilO" started this thread

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

  • Send private message

3

Wednesday, June 24th 2009, 6:19pm

Hola gabizzz,



gracias por la ejemplo ;)



saludos

OlimilO

Similar threads

Rate this thread
WoltLab Burning Board