Application.Caption Issue

Hi,

I've just started looking to test what can be displayed in the title bar and I am finding that I am getting additional numbers with brackets after at the end of the information I want displayed. I'm running dual screens and the Left monitor by default has a (1) in the title bar and the right a (2). Now I'm getting (1) (2) (1) on the left and (1) (2) (1) (2) on the right but I cant figure out why these are appearing. I would prefer that none were visible at all if possible. The code I have been using is :

Public Sub hooks_OnDesignFileOpened(ByVal fileName As String)
Dim UsersName As String
Dim FullPath As String
Const str_USTN_USERNAME As String = "$(_USTN_USERNAME)"
Const str_DGNFILE As String = "$(_DGNFILE)"
UsersName = ActiveWorkspace.ExpandConfigurationVariable(str_USTN_USERNAME)
FullPath = ActiveWorkspace.ExpandConfigurationVariable(str_DGNFILE)
Application.Caption = FullPath & " : " & UsersName & " : "
Debug.Print "Application.Caption"
End Sub


 In addition to this:

  1. is it possible to display the date in the title bar? 
  2. Where can I find what else I can put in the title bar, I know about Microstation variables but is there other objects/things?

Thanks

Parents
  • I posted a similar observation months ago and never heard a peep from anyone. Apparently, the code that adds the screen number does not play well with the caption method/property.


    Charles (Chuck) Rheault
    CADD Manager

    MDOT State Highway Administration

    • MicroStation user since IGDS, InRoads user since TDP.
    • AutoCAD, Land Desktop and Civil 3D, off and on since 1996
  • Robert, many thanks

    Caddcop, thanks also. Were you told why the default title bar information doesn't have that behavior? Could it perhaps use a different method for displaying title bar information than using application.caption perhaps? I've found simply adding lots of information on the " Application.Caption = " pushes the offending bracketed numbers out of sight but it does leave ... just to the left of the minimise button whilst not ideal is better than what it was.

Reply
  • Robert, many thanks

    Caddcop, thanks also. Were you told why the default title bar information doesn't have that behavior? Could it perhaps use a different method for displaying title bar information than using application.caption perhaps? I've found simply adding lots of information on the " Application.Caption = " pushes the offending bracketed numbers out of sight but it does leave ... just to the left of the minimise button whilst not ideal is better than what it was.

Children