主题：在全局代码，定义类属性时，属性标题描述如何定义

红色部分，在vb中添加引用“System.ComponentModel” 就可以使用了。在狐表中，怎么解决？

Imports System.ComponentModel

'''
<DefaultPropertyAttribute("Title")> _
Public Class SimpleProperties
    '''
    Private _Title As String
    Private _Show As Boolean
    Private _Number As Short
    '''
    <CategoryAttribute("Application"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute(""), _
       DesignOnly(False), _
       DescriptionAttribute("Enter Title for the application")> _
       Public Property Title() As String
           Get
               Return _Title
           End Get
           Set(ByVal Value As String)
               _Title = Value
           End Set
       End Property
    '''
    <CategoryAttribute("Application"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute("True"), _
       DesignOnly(False), _
       DescriptionAttribute("Show option")> _
       Public Property Show() As Boolean
           Get
               Return _Show
           End Get
           Set(ByVal Value As Boolean)
               _Show = Value
            End Set
       End Property
    '''
    <CategoryAttribute("Application"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute("0"), _
       DesignOnly(False), _
       DescriptionAttribute("Enter a number")> _
       Public Property Number() As Short
           Get
               Return _Number
           End Get
           Set(ByVal Value As Short)
               _Number = Value
           End Set
       End Property
    '''
End Class

直接加啊

 

 

    '''
    <System.ComponentModel.CategoryAttribute("Application"), _
       System.ComponentModel.Browsable(True), _
       System.ComponentModel.[ReadOnly](False), _
       System.ComponentModel.BindableAttribute(False), _
       System.ComponentModel.DefaultValueAttribute(""), _
       System.ComponentModel.DesignOnly(False), _
       System.ComponentModel.DescriptionAttribute("Enter Title for the application")> _
       Public Property Title() As String
           Get
               Return _Title
           End Get
           Set(ByVal Value As String)
               _Title = Value
           End Set
       End Property
    '''
    <System.ComponentModel.CategoryAttribute("Application"), _
       System.ComponentModel.Browsable(True), _
       System.ComponentModel.[ReadOnly](False), _
       System.ComponentModel.BindableAttribute(False), _
       System.ComponentModel.DefaultValueAttribute("True"), _
       System.ComponentModel.DesignOnly(False), _
       System.ComponentModel.DescriptionAttribute("Show option")> _
       Public Property Show() As Boolean
           Get
               Return _Show
           End Get
           Set(ByVal Value As Boolean)
               _Show = Value
            End Set
       End Property
    '''
    <System.ComponentModel.CategoryAttribute("Application"), _
       System.ComponentModel.Browsable(True), _
       System.ComponentModel.[ReadOnly](False), _
       System.ComponentModel.BindableAttribute(False), _
       System.ComponentModel.DefaultValueAttribute("0"), _
       System.ComponentModel.DesignOnly(False), _
      System.ComponentModel.DescriptionAttribute("Enter a number")> _
       Public Property Number() As Short
           Get
               Return _Number
           End Get
           Set(ByVal Value As Short)
               _Number = Value
           End Set
       End Property
    '''
End Class

<System.ComponentModel.DefaultPropertyAttribute("Title")> _
Public Class SimpleProperties
    '''
    Private _Title As String
    Private _Show As Boolean
    Private _Number As Short
    '''
    <System.ComponentModel.CategoryAttribute("Application"), _
       System.ComponentModel.Browsable(True), _
       System.ComponentModel.[ReadOnly](False), _
       System.ComponentModel.BindableAttribute(False), _
       System.ComponentModel.DefaultValueAttribute(""), _
       System.ComponentModel.DesignOnly(False), _
       System.ComponentModel.DescriptionAttribute("Enter Title for the application")> _
       Public Property Title() As String
           Get
               Return _Title
           End Get
           Set(ByVal Value As String)
               _Title = Value
           End Set
       End Property
    '''
    <System.ComponentModel.CategoryAttribute("Application"), _
       System.ComponentModel.Browsable(True), _
       System.ComponentModel.[ReadOnly](False), _
       System.ComponentModel.BindableAttribute(False), _
       System.ComponentModel.DefaultValueAttribute("True"), _
       System.ComponentModel.DesignOnly(False), _
       System.ComponentModel.DescriptionAttribute("Show option")> _
       Public Property Show() As Boolean
           Get
               Return _Show
           End Get
           Set(ByVal Value As Boolean)
               _Show = Value
            End Set
       End Property
    '''
    <System.ComponentModel.CategoryAttribute("Application"), _
       System.ComponentModel.Browsable(True), _
       System.ComponentModel.[ReadOnly](False), _
       System.ComponentModel.BindableAttribute(False), _
       System.ComponentModel.DefaultValueAttribute("0"), _
       System.ComponentModel.DesignOnly(False), _
       System.ComponentModel.DescriptionAttribute("Enter a number")> _
       Public Property Number() As Short
           Get
               Return _Number
           End Get
           Set(ByVal Value As Short)
               _Number = Value
           End Set
       End Property
    '''
End Class

大红袍老师，是否一定要在全局代码中定义类？能否通过函数实现？全局代码调试太麻烦了。

必须写到全局代码那里。

噢噢，还有个问题，如何将属性值绑定到数据表？

大红袍老师，如何将属性值绑定到数据表？

这个狐表的表控件帮不了，只有用原生的C1表格帮定，代码量会很大。

 

楼主还是直接用数据表吧。