本文整理匯總了VB.NET中System.Windows.Forms.IDataObject.GetFormats方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET IDataObject.GetFormats方法的具體用法？VB.NET IDataObject.GetFormats怎麽用？VB.NET IDataObject.GetFormats使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。
在下文中一共展示了IDataObject.GetFormats方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: DataObject
Private Sub GetFormats1()
' Creates a data object using a string and the Text format.
Dim myDataObject As New DataObject(DataFormats.Text, "My text string")
' Gets all the data formats and data conversion formats in the data object.
Dim allFormats As [String]() = myDataObject.GetFormats()
' Creates the string that contains the formats.
Dim theResult As String = "The format(s) associated with the data are: " & _
vbCr
Dim i As Integer
For i = 0 To allFormats.Length - 1
theResult += allFormats(i) + vbCr
Next i
' Displays the result in a message box.
MessageBox.Show(theResult)
End Sub示例2: DataObject
Private Sub GetFormats2()
' Creates a new data object using a string and the UnicodeText format.
Dim myDataObject As New DataObject(DataFormats.UnicodeText, "My text string")
' Gets the original data formats in the data object by setting the automatic
' conversion parameter to false.
Dim myFormatsArray As [String]() = myDataObject.GetFormats(False)
' Stores the results in a string.
Dim theResult As String = "The original format associated with the data is:" & vbCr
Dim i As Integer
For i = 0 To myFormatsArray.Length - 1
theResult += myFormatsArray(i) + vbCr
Next i
' Gets all data formats and data conversion formats for the data object.
myFormatsArray = myDataObject.GetFormats(True)
' Stores the results in the string.
theResult += vbCr + "The data format(s) and conversion format(s) associated with " & _
"the data are:" & vbCr
For i = 0 To myFormatsArray.Length - 1
theResult += myFormatsArray(i) + vbCr
Next i
' Displays the results.
MessageBox.Show(theResult)
End Sub