Which data type is Microsoft StatusBar Control 6.0?

I have a procedure which accepts status bar as a parameter. I send a reference to my procedure to this status bar control. However it complains it cannot find the type: System.Windows.Forms.Control

Code:

---

Public Sub RunTests(ByRef myarray() As Boolean, ByRef stb As TextBox, ByRef stbControl As System.Windows.Forms.Control)
' your code here
' otuput messages to status bar control
End Sub

---

I am using a text box now as a status bar, but Microsoft StatusBar Control 6.0 is more powerful.

How can I send ActiveX Control aka Microsoft StatusBar Control 6.0 to my procedure as parameter?
Which type it is?

What should I import in my Access 2000 VBA class?

Does this question have anything to do with VB.NET at all? Are you saying that you have VBA code that currently works for a .NET control and you want to adapt it for this ActiveX control?

If it's VBA shouldn't that be something like "MSForms.Control" or something?

No, its not VB.NET. I used ActiveX Control Microsoft StatusBar Control 6.0 which was in the ActiveX list in the toolbox in Access 2000.

I wasn't aware it is related to .NET. Is it really?

what code do you have that is relevant to the status bar control?

Quote:

---

Originally Posted by kutlesh

I wasn't aware it is related to .NET. Is it really?

---

I asked because you specified that you used System.Windows.Forms.Control, which is specifically a .NET type. If this has nothing to do with .NET then using .NET types won't help.

I want to display messages when a command finished executing or when error happens in a status bar.

I also tried MSComctlLib.statusBar which also gives error "type mismatch".

How can I use MSForms.Control? What do I import?

msforms controls does not include the status bar control, which you have already found

you have to actually insert the control object onto a window or form, have you done that?

what code are you using for the statusbar?

Yes I have inserted a status bar object on my form and gave it a name. I now tried this:

Code:

---

Public Sub RunTests(ByRef myarray() As Boolean, ByRef stb As TextBox, ByRef stbControl As MSComctlLib.statusBar)
' code here
End Sub

---

Then in my form I use this:

Code:

---

Dim runTestsObj As New SQL_Module_Tests
runTestsObj.RunTests sqlChecks, statusBar, statusBarControl

---

Still error "type mismatch"!

Hmm, am I doing something wrong? Am I using the right component?

Attachment 159895

Well there is always the way using "As Object".....

Quote:

---

runTestsObj.RunTests sqlChecks, statusBar, statusBarControl

---

you should pass the control by name, unless you changed the control name to statusBarControl, the default name would be statusbar1

also in vba the controls are not necessarily public in scope, at the least they would have to be fully qualified
so if the code above is not in the module of the same object, that contains the control, then you could have an issue

Yes "statusBarControl" is the name of the component Microsoft StatusBar Control 6.0 which I have on my form.

Hmm I see statusBarControl field when I get the autocomplete list of available functions/components/procedures in the current form context.

Should it be Global? How can I set my component Global?

then it should work, what code are you using to change the property of the statusbar?

i found that you can set many panels inside the property called "custom". You can also display an image inside a status bar panel.

Here is a sample of my code:

Code:

---

statusBarControl.Panels(1).Text = "My Message"

---

Panels are indexed with 1, 2, 3, etc... so this:

Code:

---

statusBarControl.Panels(3).Text = "My Message3 "

---

should also work if you add 3 panels.

But I tried with

Code:

---

ByRef stbControl as Object

---

and it works now

hu?

I just did a test in Excel-VBA.
Fresh VBA-Project in Excel, add UserForm, add Standard module, add Reference to StatusBar 6.0, slap StatusBar and CommandButton on UserForm

Code:

---

'In a Standard module
Sub MyProc(ByRef stbTest As MSComctlLib.StatusBar)
stbTest.Panels(1).Text = "Test"
End Sub


'on Form1
Private Sub CommandButton1_Click()
MyProc StatusBar1
End Sub

---