開発部 > 技術 > Visual Studio 2008 > WPF > ガジェットっぽいコントロール > UserControl1.xaml.vb

Class UserControl1 
 
    Public Event CntDrag(ByVal sender As Object, 
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragDeltaEventArgs)
 
    Private Sub Thumb_DragDelta(ByVal sender As System.Object,
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragDeltaEventArgs)
 
        RaiseEvent CntDrag(Me, e)
 
    End Sub
 
    Private Sub Thumb_DragStarted(ByVal sender As System.Object,
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragStartedEventArgs)
 
        Cursor = Cursors.Hand
 
    End Sub
 
    Private Sub Thumb_DragCompleted(ByVal sender As System.Object,
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragCompletedEventArgs)
 
        Cursor = Cursors.Arrow
 
    End Sub
 
    Private Sub Thumb2_DragStarted(ByVal sender As System.Object,
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragStartedEventArgs)
 
        Cursor = Cursors.SizeNWSE
 
    End Sub
 
    Private Sub Thumb2_DragDelta(ByVal sender As System.Object,
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragDeltaEventArgs)
 
        If (Me.Height + e.VerticalChange
                      > Thumb1.Height + DockPanel2.Height) Then
            Me.Height += e.VerticalChange
        End If
        If (Me.Width + e.HorizontalChange > Thumb2.Width) Then
            Me.Width += e.HorizontalChange
        End If
 
    End Sub
 
    Private Sub Thumb2_DragCompleted(ByVal sender As System.Object,
                    ByVal e As System.Windows.Controls.
                                      Primitives.DragCompletedEventArgs)
 
        Cursor = Cursors.Arrow
 
    End Sub
 
End Class