如何：创建数据对象
下面的示例演示使用 DataObject 类提供的构造函数创建数据对象的各种方法。
示例
说明
下面的代码示例新建一个数据对象，并利用重载构造函数之一 (DataObject(Object))，使用一个字符串初始化该数据对象。 在这种情况下，会根据所存储的数据的类型自动确定相应的数据格式，且默认情况下允许自动转换所存储的数据。
代码
Dim stringData As String = "Some string data to store..."
Dim dataObject As New DataObject(stringData)
string stringData = "Some string data to store...";
DataObject dataObject = new DataObject(stringData);
说明
下面的代码示例是上面显示的代码的精简版本。
代码
Dim dataObject As New DataObject("Some string data to store...")
DataObject dataObject = new DataObject("Some string data to store...");
示例
说明
下面的代码示例新建一个数据对象，并利用重载构造函数之一 (DataObject(String, Object))，使用一个字符串和指定的数据格式初始化该数据对象。 在这种情况下，数据格式由一个字符串指定；DataFormats 类提供一组预定义的类型字符串。 默认情况下允许自动转换所存储的数据。
代码
Dim stringData As String = "Some string data to store..."
Dim dataFormat As String = DataFormats.UnicodeText
Dim dataObject As New DataObject(dataFormat, stringData)
string stringData = "Some string data to store...";
string dataFormat = DataFormats.UnicodeText;
DataObject dataObject = new DataObject(dataFormat, stringData);
说明
下面的代码示例是上面显示的代码的精简版本。
代码
Dim dataObject As New DataObject(DataFormats.UnicodeText, "Some string data to store...")
DataObject dataObject = new DataObject(DataFormats.UnicodeText, "Some string data to store...");
示例
说明
下面的代码示例新建一个数据对象，并利用重载构造函数之一 (DataObject)，使用一个字符串和指定的数据格式初始化该数据对象。 在这种情况下，数据格式由 Type 参数指定。 默认情况下允许自动转换所存储的数据。
代码
Dim stringData As String = "Some string data to store..."
Dim dataFormat As Type = stringData.GetType()
Dim dataObject As New DataObject(dataFormat, stringData)
string stringData = "Some string data to store...";
Type dataFormat = stringData.GetType();
DataObject dataObject = new DataObject(dataFormat, stringData);
说明
下面的代码示例是上面显示的代码的精简版本。
代码
Dim dataObject As New DataObject("".GetType(), "Some string data to store...")
DataObject dataObject = new DataObject("".GetType(), "Some string data to store...");
示例
说明
下面的代码示例新建一个数据对象，并利用重载构造函数之一 (DataObject(String, Object, Boolean))，使用一个字符串和指定的数据格式初始化该数据对象。 在这种情况下，数据格式由一个字符串指定；DataFormats 类提供一组预定义的类型字符串。 这一特定的构造函数重载使调用方可以指定是否允许自动转换。
代码
Dim stringData As String = "Some string data to store..."
Dim dataFormat As String = DataFormats.Text
Dim autoConvert As Boolean = False
Dim dataObject As New DataObject(dataFormat, stringData, autoConvert)
string stringData = "Some string data to store...";
string dataFormat = DataFormats.Text;
bool autoConvert = false;
DataObject dataObject = new DataObject(dataFormat, stringData, autoConvert);
说明
下面的代码示例是上面显示的代码的精简版本。
代码
Dim dataObject As New DataObject(DataFormats.Text, "Some string data to store...", False)
DataObject dataObject = new DataObject(DataFormats.Text, "Some string data to store...", false);