This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
Solved
Toolbar/MdiChild
Posted on 2000-03-14
i am wrting a small prog. that uses a Mdiform with one childform(ie. Form1.the form is set as mdidhild=true).
I can make an array ( a Set No. of forms to add )for the ChildForms and
assign then toolbar buttons so when i click a button the right window shows.
The main point is how can i add a ChildForm as and when i need and still assign it to a Toolbar Button.
I Have tried but all that happens is the last ChildForm shows.
any help is much appreciated
I'll offer 50 points but if you feel it needs more and i agree i will oblige
I can make an array ( a Set No. of forms to add )for the ChildForms and
assign then toolbar buttons so when i click a button the right window shows.
The main point is how can i add a ChildForm as and when i need and still assign it to a Toolbar Button.
I Have tried but all that happens is the last ChildForm shows.
any help is much appreciated
I'll offer 50 points but if you feel it needs more and i agree i will oblige
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
3 Comments
When you redim your Array you use
Redim [Array_Name] ([New_Value)
Because if you do so it's wrong, because in these way you loose your previous data. Try this:
Redim PRESERVE [Array_Name]([New_Value])
Redim [Array_Name] ([New_Value)
Because if you do so it's wrong, because in these way you loose your previous data. Try this:
Redim PRESERVE [Array_Name]([New_Value])
When you redim your Array you use
Redim [Array_Name] ([New_Value)
Because if you do so it's wrong, because in these way you loose your previous data. Try this:
Redim PRESERVE [Array_Name]([New_Value])
Redim [Array_Name] ([New_Value)
Because if you do so it's wrong, because in these way you loose your previous data. Try this:
Redim PRESERVE [Array_Name]([New_Value])
Epretti:
Uh.. Huh?
"The main point is how can I add a ChildForm as and when i need and still assign it to a Toolbar Button."
To a Standard.Exe Project..
1. Add an MDIForm
2. Add a Toolbar to the MDIForm
3. Change the Form1.MDIChild property to True
4. Copy and Paste the following code into MDIForm1
<----- Code Begin ----->
Option Explicit
Private Sub MDIForm_Load()
xAddForm
xAddForm
xAddForm
End Sub
Private Sub xAddForm()
Static intChildForm As Integer
Dim strChildForm As String
intChildForm = intChildForm + 1
strChildForm = "Form" & Format(intChildForm, "0##")
' Add a Toolbar Button
Dim btnWork As Button
Set btnWork = Toolbar1.Buttons.Add()
btnWork.Key = strChildForm
btnWork.Caption = strChildForm
btnWork.ToolTipText = strChildForm
Dim frmChild As New Form1
Load frmChild
frmChild.Caption = strChildForm
frmChild.Tag = strChildForm
frmChild.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal
If Left(Button.Key, 4) = "Form" _
Then
Dim frmWork As Form
For Each frmWork In Forms
With frmWork
If .Tag = Button.Key _
Then
.Caption = "This Form Is Active"
.SetFocus
Else
.Caption = .Tag
End If
End With
Next frmWork
Exit Sub
End If
End Sub
<----- Code End ----->
5. ENJOY !!!!
Uh.. Huh?
"The main point is how can I add a ChildForm as and when i need and still assign it to a Toolbar Button."
To a Standard.Exe Project..
1. Add an MDIForm
2. Add a Toolbar to the MDIForm
3. Change the Form1.MDIChild property to True
4. Copy and Paste the following code into MDIForm1
<----- Code Begin ----->
Option Explicit
Private Sub MDIForm_Load()
xAddForm
xAddForm
xAddForm
End Sub
Private Sub xAddForm()
Static intChildForm As Integer
Dim strChildForm As String
intChildForm = intChildForm + 1
strChildForm = "Form" & Format(intChildForm, "0##")
' Add a Toolbar Button
Dim btnWork As Button
Set btnWork = Toolbar1.Buttons.Add()
btnWork.Key = strChildForm
btnWork.Caption = strChildForm
btnWork.ToolTipText = strChildForm
Dim frmChild As New Form1
Load frmChild
frmChild.Caption = strChildForm
frmChild.Tag = strChildForm
frmChild.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal
If Left(Button.Key, 4) = "Form" _
Then
Dim frmWork As Form
For Each frmWork In Forms
With frmWork
If .Tag = Button.Key _
Then
.Caption = "This Form Is Active"
.SetFocus
Else
.Caption = .Tag
End If
End With
Next frmWork
Exit Sub
End If
End Sub
<----- Code End ----->
5. ENJOY !!!!
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Background
What I'm presenting in this article is the result of 2 conditions in my work area:
We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses
Course of the Month5 days, 20 hours left to enroll
688 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.