本文整理匯總了VB.NET中System.Windows.Forms.DataObject.GetDataPresent方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET DataObject.GetDataPresent方法的具體用法？VB.NET DataObject.GetDataPresent怎麽用？VB.NET DataObject.GetDataPresent使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Windows.Forms.DataObject的用法示例。
在下文中一共展示了DataObject.GetDataPresent方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Component
Private Sub GetIfPresent2()
' Creates a component to store in the data object.
Dim myComponent As New Component()
' Creates a new data object and assigns it the component.
Dim myDataObject As New DataObject(myComponent)
' Creates a type to store the type of data.
Dim myType As Type = myComponent.GetType()
' Determines if the DataObject has data of the Type format.
textBox1.Text = "Is the specified data type available in the " & "DataObject? " & _
myDataObject.GetDataPresent(myType).ToString() & ControlChars.Cr
' Retrieves the data using its type format, and displays the type.
Dim myObject As Object = myDataObject.GetData(myType)
textBox1.Text += "The data type stored in the DataObject is: " + myObject.GetType().Name
End Sub示例2: DataObject
Private Sub GetIfPresent3()
' Creates a new data object using a string and the text format.
Dim myDataObject As New DataObject(DataFormats.Text, "Another string")
' Prints the string in a text box with autoconvert = false.
If myDataObject.GetDataPresent("System.String", False) Then
' Prints the string in a text box.
textBox1.Text = myDataObject.GetData("System.String", False).ToString() & ControlChars.Cr
Else
textBox1.Text = "Could not convert data to specified format" & ControlChars.Cr
End If
' Prints the string in a text box with autoconvert = true.
textBox1.Text &= "With autoconvert = true, you can convert text to string format. " & _
"String is: " & myDataObject.GetData("System.String", True).ToString()
End Sub