vb.net 反射该如和写

abraham8 2010-07-03 04:59:14
class Form1
{
Public ds_parent As New DataSet()
Property get_data_ds_parent() As DataSet
Get
Return ds_parent
End Get
Set(ByVal value As DataSet)
ds_parent = value
End Set
End Property
}

class Form2
{

Dim frm As Form
dim ds as new dataset
....... 对ds的操作不列出来了

Dim ltype As System.Type
Dim params As Object() = {ds}
ltype = System.Type.GetType("event_one.Form1")
frm = CType(System.Activator.CreateInstance(ltype), Form)

这句改如何写
ltype.InvokeMember("ds_parent", BindingFlags.SetProperty Or BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic, Nothing, frm, params (0))

}
...全文
140 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
兔子-顾问 2010-07-03
  • 打赏
  • 举报
回复
你这是vb.net么?

class Form1
inherits Form
Public ds_parent As New DataSet()
Property get_data_ds_parent() As DataSet
Get
Return ds_parent
End Get
Set(ByVal value As DataSet)
ds_parent = value
End Set
End Property
end class

class Form2
inherits Form
public sub Foo()
Dim frm As Form
Dim ds as new dataset
'....... 对ds的操作不列出来了 <-你在试试

Dim ltype As System.Type
Dim params As Object() = {ds}
ltype = System.Type.GetType("event_one.Form1")
frm = CType(System.Activator.CreateInstance(ltype), Form)
'这句改如何写
ltype.InvokeMember("ds_parent", BindingFlags.SetProperty Or BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic, Nothing, frm, params (0))
end sub
end Class


不知道你想干嘛。

16,553

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧