主题：[求助]定义下拉列表

参考 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:propertygrid.table

http://blog.csdn.net/luyifeiniu/article/details/5426960#%E5%88%9B%E5%BB%BA%20PropertyGrid%20%E6%8E%A7%E4%BB%B6

 

c#代码转vb.net代码 http://converter.telerik.com/

 

Public Class FileNameConverter
    Inherits System.ComponentModel.StringConverter

    Public Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Public Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As StandardValuesCollection
        Dim obj = context.Instance
        Dim ls As List(of String) = DataTables("表B").GetValues("下拉列表数据", "编号 = '" & obj.bh & "' and 姓名 = '" & obj.xm & "'")
        Return New StandardValuesCollection(ls.ToArray)
    End Function

    Public Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return False
    End Function
End Class

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:propertygrid (1).table

参考

 

Public Sub pgd_PropertyValueChanged(ByVal sender As System.Object, ByVal e As system.windows.forms.propertyvaluechangedeventargs)

Dim rw As DataRow = DataTables("档案").find("编号='" & sender.SelectedObject.bh & "'")
'e.oldvalue            原值
'e.ChangedItem.label   标题
'e.ChangedItem.value   新值
msgbox(rw("姓名"))
rw(e.changeditem.label) = e.changeditem.value
End Sub

 

去看afterLoad事件和目录树点击事件的代码。

Dim pgd As Windows.Forms.PropertyGrid = e.Form.Controls("Panel1").BaseControl.Controls("属性栏")
Dim penl As new pgrid
pgd.SelectedObject = penl
pgd.Refresh   '刷新属性栏内容

没看懂你要做什么。你请先看懂实例里面是怎么实现的，再慢慢做自己的功能。代码里不理解的地方就提问。

Dim pgd As Windows.Forms.PropertyGrid = e.Form.Controls("Panel1").BaseControl.Controls("属性栏")
pgd.SelectedObject = 对象 '比如 e.form.controls("button1").BaseControl
pgd.Refresh   '刷新属性栏内容

你绑定什么对象，属性窗口就显示什么对象的属性

 

Dim pgd As Windows.Forms.PropertyGrid = e.Form.Controls("Panel1").BaseControl.Controls("属性栏")
pgd.SelectedObject = 对象 '比如 e.form.controls("button1").BaseControl
pgd.Refresh   '刷新属性栏内容

你直接给新增的赋值即可，如

 

Dim pgd As Windows.Forms.PropertyGrid = e.Form.Controls("Panel1").BaseControl.Controls("属性栏")
Dim penl As new pgrid

penl.bh = "123456"

penl.其它属性 = "aabbcceefg"
pgd.SelectedObject = penl
pgd.Refresh   '刷新属性栏内容

1、你绑定什么对象，就显示什么对象的属性；

 

2、如果你要绑定某一行，那你就爱绑定的时候把那一行的值赋值进去。

 

3、看不懂就上传实例说明。