TreeView DblClick-Event

  • Word

    TreeView DblClick-Event

    Ich habe eine Userform in einem MS Word 2003 Template. Darauf befindet sich ein TreeView Control (MS TreeView Control Version 6.0). Ausserdem befindet sich auf der Userform ein ControlButton. Im Click-Ereignis des ControlButton wird die Userform auf dem Bildschirm verschoben und das Application.ActiveWindow von Word wird entsprechend in seiner Grösse angepasst, dass beide Fenster nebeneinander liegen. Bei erneutem Click auf den ControlButton wird Application.ActiveWindow.WindowState = wdWindowStateMaximize und die Userform in die Bildschirmmitte verschoben. Die Userform ist ShowModal = False. Soweit funktioniert alles.

    Im DblClick Ereignis des TreeView wird je nach TreeView.SelectedItem eine Datei in das aktive Worddokument eingefügt, danach wird die Userform beendet. Soweit funktionierts immer noch.

    Nun soll im DblClick Ereignis nebst dem Einfügen des Textes das Application.ActiveWindow maximiert werden und zwar mittels Application.ActiveWindow.WindowState = wdWindowStateMaximize. Dies funktioniert nicht. Im Debugmodus im Einzelschrittmodus ausgeführt, klappt's wunderbar, kein fehler, gar nix. Strange.

    Irgendwie habe ich den Eindruck, dass es mit den Messages zu tun haben könnte, da entweder die Reihenfolge nicht stimmt oder für VBA irgendwas zu schnell passiert.

    Har irgendwer eine Idee, woran es liegen könnte, das das Maximieren im ControlButton_Click funktioniert, im TreeView_DblClick nicht, ausser im Debugmodus?

    Code:

    Quellcode

    1. Private Sub TreeView_MenuStructure_DblClick()
    2. ' Status: test
    3. On Error GoTo Err_TreeView_MenuStructure_DblClick
    4. Dim lngStartOffset As Long
    5. Dim strFileName As String
    6. Dim strFieldFileName As String
    7. Dim objTreeNode As Object
    9. ' MsgBox "activewindow=" & ActiveWindow.Caption & vbNewLine & "windowstate=" & ActiveWindow.WindowState
    11. Set objTreeNode = Me![TreeView_MenuStructure].SelectedItem
    12. If Not objTreeNode Is Nothing Then
    13. If objTreeNode.Children = 0 Then
    14. If objTreeNode.Tag <> "" Then
    15. strFileName = strTBBaseFolder & "\" & GetTopLevelNode(objTreeNode).Text & "\" & objTreeNode.Tag
    16. If FileExists(strFileName) Then
    17. If ActiveWindow.WindowState <> wdWindowStateMaximize Then ActiveWindow.WindowState = wdWindowStateMaximize
    18. lngStartOffset = Selection.Start
    19. Selection.InsertFile FileName:=strFileName, ConfirmConversions:=False, Link:=False, Attachment:=False
    20. ActiveDocument.Range(lngStartOffset, lngStartOffset).Select
    21. Selection.Collapse wdCollapseStart
    22. Set objTreeNode = Nothing
    23. ' Debug.Print "active:" & ActiveWindow.Active
    24. Call Me.Quit
    25. GoTo Exit_TreeView_MenuStructure_DblClick
    26. Else
    27. MsgBox "File: " & strFileName & " does not exist."
    28. End If
    29. End If
    30. End If
    31. End If
    33. Exit_TreeView_MenuStructure_DblClick:
    34. Set objTreeNode = Nothing
    35. Exit Sub
    36. Err_TreeView_MenuStructure_DblClick:
    37. LogError "MainForm::TreeView_MenuStructure:DblClick", Err
    38. If Err.Number = 0 Then
    39. GoTo Exit_TreeView_MenuStructure_DblClick
    40. Else
    41. Resume Exit_TreeView_MenuStructure_DblClick
    42. End If
    43. End Sub
    45. Private Sub btnSticky_Click()
    46. On Error GoTo Err_btnSticky_Click
    48. Application.ScreenUpdating = False
    50. If Not boolIsSticky Then
    51. Call PlaceSticky
    52. Else
    53. Call PlaceUnSticky
    54. End If
    56. Call SetFocusToWindow(Me.Caption)
    57. SendKeys "{TAB}"
    59. Exit_btnSticky_Click:
    60. Application.ScreenUpdating = True
    61. Application.ScreenRefresh
    62. Exit Sub
    63. Err_btnSticky_Click:
    64. LogError "MainForm::btnSticky_Click", Err
    65. If Err.Number = 0 Then
    66. GoTo Exit_btnSticky_Click
    67. Else
    68. Resume Exit_btnSticky_Click
    69. End If
    70. End Sub
    72. Public Sub PlaceSticky()
    73. On Error GoTo Err_PlaceSticky
    75. Dim intWordWidth As Integer
    76. Dim intWordHeight As Integer
    78. ActiveWindow.WindowState = wdWindowStateMaximize
    80. oldFormCoords.Top = Me.Top
    81. oldFormCoords.Left = Me.Left
    82. oldFormCoords.Width = Me.Width
    83. oldFormCoords.Height = Me.Height
    84. oldTVCoords.Top = Me![TreeView_MenuStructure].Top
    85. oldTVCoords.Left = Me![TreeView_MenuStructure].Left
    86. oldTVCoords.Width = Me![TreeView_MenuStructure].Width
    87. oldTVCoords.Height = Me![TreeView_MenuStructure].Height
    89. intWordWidth = ActiveWindow.Width
    90. intWordHeight = ActiveWindow.Height
    92. ActiveWindow.WindowState = wdWindowStateNormal
    93. ActiveWindow.Top = 0
    94. ActiveWindow.Left = 0
    95. ActiveWindow.Height = intWordHeight
    96. ActiveWindow.Width = intWordWidth - Me.Width
    97. Me.Height = intWordHeight
    98. Me![TreeView_MenuStructure].Height = oldTVCoords.Height + (Me.Height - oldFormCoords.Height)
    99. ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
    101. If Me.Top = -5.25 And Me.Left = -5.25 Then
    102. ' von mir gewählte spezialwerte. wenn beide -5.25, dann muss fenstermitte berechnet werden
    103. oldFormCoords.Left = CInt(ActiveWindow.Width / 2)
    104. oldFormCoords.Top = CInt((intWordHeight - oldFormCoords.Height) / 2)
    105. End If
    107. Me.Top = 0
    108. Me.Left = intWordWidth - Me.Width
    109. boolIsSticky = True
    110. Exit_PlaceSticky:
    111. Exit Sub
    112. Err_PlaceSticky:
    113. LogError "MainForm::PlaceSticky", Err
    114. If Err.Number = 0 Then
    115. GoTo Exit_PlaceSticky
    116. Else
    117. Resume Exit_PlaceSticky
    118. End If
    119. End Sub