當前位置: 首頁>>代碼示例>>VB.NET>>正文


VB.NET DragDrop.DragEnter Attached事件代碼示例

本文整理匯總了VB.NET中System.Windows.DragDrop.DragEnter Attached事件的典型用法代碼示例。如果您正苦於以下問題:VB.NET DragDrop.DragEnter Attached事件的具體用法?VB.NET DragDrop.DragEnter Attached怎麽用?VB.NET DragDrop.DragEnter Attached使用的例子?那麽, 這裏精選的事件代碼示例或許可以為您提供幫助。


在下文中一共展示了DragDrop.DragEnter Attached事件的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: TryCast

Private _previousFill As Brush = Nothing
Private Sub Ellipse_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.DragEventArgs)
    Dim ellipse = TryCast(sender, Ellipse)
    If ellipse IsNot Nothing Then
        ' Save the current Fill brush so that you can revert back to this value in DragLeave.
        _previousFill = ellipse.Fill

        ' If the DataObject contains string data, extract it.
        If e.Data.GetDataPresent(DataFormats.StringFormat) Then
            Dim dataString = e.Data.GetData(DataFormats.StringFormat)

            ' If the string can be converted into a Brush, convert it.
            Dim converter As New BrushConverter()
            If converter.IsValid(dataString) Then
                Dim newFill As Brush = CType(converter.ConvertFromString(dataString), Brush)
                ellipse.Fill = newFill
            End If
        End If
    End If
End Sub
開發者ID:VB.NET開發者,項目名稱:System.Windows,代碼行數:20,代碼來源:DragDrop.DragEnter Attached


注:本文中的System.Windows.DragDrop.DragEnter Attached事件示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台,相關代碼片段篩選自各路編程大神貢獻的開源項目,源碼版權歸原作者所有,傳播和使用請參考對應項目的License;未經允許,請勿轉載。