Développement .NET par Cyril

Pour sélectionner un Item dans une ListBox il suffit de cliquer dessus, mais pour le désélectionner il faut appuyer sur la touche Ctrl puis cliquer.

Ce comportement n’est pas forcément intuitif pour un utilisateur lambda. C’est comme si vous deviez appuyer sur la touche Ctrl pour décocher un CheckBox. Ce n’est pas très logique et pratique.

Voici le code qui permet de désélectionner un Item simplement en recliquant dessus :

 Private Sub maListBox_PreviewMouseDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles maListBox.PreviewMouseDown 

 Dim dep As DependencyObject = DirectCast(e.OriginalSource, DependencyObject) 

 While (dep IsNot Nothing) AndAlso Not (TypeOf dep Is ListBoxItem) 

 dep = VisualTreeHelper.GetParent(dep) 

 End While 

 If dep Is Nothing Then 

 Return 

 End If 

 Dim item As ListBoxItem = DirectCast(dep, ListBoxItem) 

 If item.IsSelected Then 

 item.IsSelected = Not item.IsSelected 

 e.Handled = True 

 End If 

 End Sub 

Et bien tout simplement parce que le documentViewer n’est pas un internet browser ou un frame et ne traite pas les hyperlinks par défaut.

Vous devez indiquer au documentViewer ce qu’il doit faire lorsque l’utilisateur clique sur un hyperlink dans un document XPS.

Voici l’exemple d’une fenêtre contenant un control documentViewer :

 Public Class WindowXPSViewer 

 Public Sub New(ByVal fPath As String) 

 ' This call is required by the designer. 

 InitializeComponent() 

 ' Add any initialization after the InitializeComponent() call. 

 Dim xps As New Xps.Packaging.XpsDocument(fPath, IO.FileAccess.Read) 

 DocumentViewerHelp.[AddHandler](Hyperlink.RequestNavigateEvent, New RequestNavigateEventHandler(AddressOf link_RequestNavigate)) 

 Me.DocumentViewerHelp.Document = xps.GetFixedDocumentSequence 

 Me.Title = My.Computer.FileSystem.GetFileInfo(fPath).Name 

 End Sub 

 Private Sub link_RequestNavigate(ByVal sender As Object, ByVal e As RequestNavigateEventArgs) 

 System.Diagnostics.Process.Start(e.Uri.ToString) 

 End Sub 

 
 End Class 

L’astuce réside dans le AddHandler qui va capturer l’évènement du clique sur l’hyperlink.

Lorsque l’on fait un clique droit sur la liste d’un Datagrid pour utiliser un menu contextuel, il est nécessaire de sélectionner la ligne sur laquelle vous avez cliqué.

Voici comment réaliser cette action avec le DataGrid Xceed pour WPF :

Code :

Private Sub DataGridListe_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles DataGridListe.MouseDown

        If e.RightButton = MouseButtonState.Pressed Then
            For Each item As DataRowView In DataGridListe.Items
                Dim row As Object = DataGridListe.GetContainerFromItem(item)
                If TypeOf row Is Xceed.Wpf.DataGrid.DataRow AndAlso DirectCast(row, Xceed.Wpf.DataGrid.DataRow).IsMouseOver Then
                    DataGridListe.CurrentItem = item
                    Exit For
                End If
            Next
        End If

End Sub

Voici le code pour obtenir le TextBox d’un IsEditable=True ComboBox dans une classe qui hérite du control ComboBox :

Code :

Protected ReadOnly Property EditableTextBox() As TextBox
        Get
            Return DirectCast(MyBase.GetTemplateChild("PART_EditableTextBox"), TextBox)
        End Get
End Property

Lorsque IsDropDownOpen=True le ComboBox fait un SelectAll sur le TextBox. Pour éviter cela on peut faire ceci :

Code :

Me.IsDropDownOpen = True
Me.EditableTextBox.Select(Me.Text.Length, 0)

Ce code ouvre le DropDownMenu du ComboBox, désélectionne le texte du TextBox, et place le curseur à la fin du texte.

En Winform, lorsqu’une fenêtre en appelle une autre, celle-ci devient automatiquement son parent et il est facile de l’obtenir avec un simple Me.parent.

En WPF ceci n’est pas automatique. Me.Parent retournera au pire “Nothing”. Avant d’appeler votre fenêtre enfant vous devez préciser qui est son Owner.

Code :

Dim win As New maWindowEnfant

'défini la fenêtre active comme la fenêtre parent
Dim parent As maWindowParent = Window.GetWindow(Me)
win.Owner = parent

If win.ShowDialog() = True Then

        ‘ mon code

End If

Dans la fenêtre enfant vous pouvez maintenant retrouver la fenêtre parent de la façon suivante :

Code :

Dim parent As maWindowParent = Me.Owner