本文整理汇总了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