- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在 Windows 应用程序项目中有一个 UserControl 类。它的一个属性是我定义的另一个类的集合。我似乎找不到一个很好的例子来说明如何在设计时让标准集合编辑器为它工作。
我在一定程度上使用我发现的一些示例代码让它工作,但我的集合中的数据没有得到保存。当我退出表单并在设计时重新打开它时,数据不再存在。
这是我的类(class):
Public Class Gauge
Inherits Control
Private WithEvents _Captions As New CaptionCollection
<Category("Gauge"), _
TypeConverter(GetType(CaptionCollectionConverter)), _
Description("Custom text displayed on the gauge.")> _
Public Property Captions() As CaptionCollection
Get
Return _Captions
End Get
Set(ByVal value As CaptionCollection)
_Captions = value
End Set
End Property
<Category("Gauge"), _
TypeConverter(GetType(CaptionConverter)), _
Description("Custom text displayed on the gauge.")> _
Public Class Caption
Private _Text As String = ""
Private _Color As Color = Color.Black
Private _TextIsValue As Boolean
Private _Position As New Point(0, 0)
Public Property Text() As String
Get
Return _Text
End Get
Set(ByVal value As String)
If _Text <> value Then
_Text = value
End If
End Set
End Property
Public Property Color() As Color
Get
Return _Color
End Get
Set(ByVal value As Color)
If _Color <> value Then
_Color = value
End If
End Set
End Property
Public Property TextIsValue() As Boolean
Get
Return _TextIsValue
End Get
Set(ByVal value As Boolean)
If _TextIsValue <> value Then
_TextIsValue = value
End If
End Set
End Property
Public Property Position() As Point
Get
Return _Position
End Get
Set(ByVal value As Point)
If _Position <> value Then
_Position = value
End If
End Set
End Property
End Class
Public Class CaptionCollection
Inherits CollectionBase
Implements ICustomTypeDescriptor
Public Sub Add(ByVal c As Caption)
Me.List.Add(c)
End Sub
Public Sub Remove(ByVal c As Caption)
Me.List.Remove(c)
End Sub
Default Public ReadOnly Property Item(ByVal index As Integer) As Caption
Get
Return DirectCast(Me.List(index), Caption)
End Get
End Property
' Implementation of interface ICustomTypeDescriptor
Public Function GetClassName() As String Implements System.ComponentModel.ICustomTypeDescriptor.GetClassName
Return TypeDescriptor.GetClassName(Me, True)
End Function
Public Function GetAttributes() As AttributeCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetAttributes
Return TypeDescriptor.GetAttributes(Me, True)
End Function
Public Function GetComponentName() As String Implements System.ComponentModel.ICustomTypeDescriptor.GetComponentName
Return TypeDescriptor.GetComponentName(Me, True)
End Function
Public Function GetConverter() As TypeConverter Implements System.ComponentModel.ICustomTypeDescriptor.GetConverter
Return TypeDescriptor.GetConverter(Me, True)
End Function
Public Function GetDefaultEvent() As EventDescriptor Implements System.ComponentModel.ICustomTypeDescriptor.GetDefaultEvent
Return TypeDescriptor.GetDefaultEvent(Me, True)
End Function
Public Function GetDefaultProperty() As PropertyDescriptor Implements System.ComponentModel.ICustomTypeDescriptor.GetDefaultProperty
Return TypeDescriptor.GetDefaultProperty(Me, True)
End Function
Public Function GetEditor(ByVal editorBaseType As Type) As Object Implements System.ComponentModel.ICustomTypeDescriptor.GetEditor
Return TypeDescriptor.GetEditor(Me, editorBaseType, True)
End Function
Public Function GetEvents(ByVal attributes As Attribute()) As EventDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetEvents
Return TypeDescriptor.GetEvents(Me, attributes, True)
End Function
Public Function GetEvents() As EventDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetEvents
Return TypeDescriptor.GetEvents(Me, True)
End Function
Public Function GetPropertyOwner(ByVal pd As PropertyDescriptor) As Object Implements System.ComponentModel.ICustomTypeDescriptor.GetPropertyOwner
Return Me
End Function
Public Function GetProperties(ByVal attributes As Attribute()) As PropertyDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetProperties
Return GetProperties()
End Function
Public Function GetProperties() As PropertyDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetProperties
' Create a collection object to hold property descriptors
Dim pds As New PropertyDescriptorCollection(Nothing)
' Iterate the list of employees
For i As Integer = 0 To Me.List.Count - 1
' Create a property descriptor for the caption item and add to the property descriptor collection
Dim pd As New CaptionCollectionPropertyDescriptor(Me, i)
pds.Add(pd)
Next
' return the property descriptor collection
Return pds
End Function
End Class
' This is a special type converter which will be associated with the Caption class.
' It converts a Caption object to string representation for use in a property grid.
Friend Class CaptionConverter
Inherits ExpandableObjectConverter
Public Overloads Overrides Function ConvertTo(ByVal context As ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destType As Type) As Object
'Return "(Collection)"
If destType Is GetType(String) AndAlso TypeOf value Is Caption Then
' Cast the value to an Caption type
Dim emp As Caption = DirectCast(value, Caption)
' Return the text for display.
Return emp.Text
End If
Return MyBase.ConvertTo(context, culture, value, destType)
End Function
End Class
' This is a special type converter which will be associated with the CaptionCollection class.
' It converts a CaptionCollection object to a string representation for use in a property grid.
Friend Class CaptionCollectionConverter
Inherits ExpandableObjectConverter
Public Overloads Overrides Function ConvertTo(ByVal context As ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destType As Type) As Object
If destType Is GetType(String) AndAlso TypeOf value Is CaptionCollection Then
' Return department and department role separated by comma.
Return "(Collection)"
End If
Return MyBase.ConvertTo(context, culture, value, destType)
End Function
End Class
Public Class CaptionCollectionPropertyDescriptor
Inherits PropertyDescriptor
Private collection As CaptionCollection = Nothing
Private index As Integer = -1
Public Sub New(ByVal coll As CaptionCollection, ByVal idx As Integer)
MyBase.New("#" & idx.ToString(), Nothing)
Me.collection = coll
Me.index = idx
End Sub
Public Overloads Overrides ReadOnly Property Attributes() As AttributeCollection
Get
Return New AttributeCollection(Nothing)
End Get
End Property
Public Overloads Overrides Function CanResetValue(ByVal component As Object) As Boolean
Return True
End Function
Public Overloads Overrides ReadOnly Property ComponentType() As Type
Get
Return Me.collection.[GetType]()
End Get
End Property
Public Overloads Overrides ReadOnly Property DisplayName() As String
Get
Return "Caption" + (index + 1).ToString()
End Get
End Property
Public Overloads Overrides ReadOnly Property Description() As String
Get
Return "Caption" + (index + 1).ToString()
End Get
End Property
Public Overloads Overrides Function GetValue(ByVal component As Object) As Object
Return Me.collection(index)
End Function
Public Overloads Overrides ReadOnly Property IsReadOnly() As Boolean
Get
Return False
End Get
End Property
Public Overloads Overrides ReadOnly Property Name() As String
Get
Return "#" & index.ToString()
End Get
End Property
Public Overloads Overrides ReadOnly Property PropertyType() As Type
Get
Return Me.collection(index).[GetType]()
End Get
End Property
Public Overloads Overrides Sub ResetValue(ByVal component As Object)
End Sub
Public Overloads Overrides Function ShouldSerializeValue(ByVal component As Object) As Boolean
Return True
End Function
Public Overloads Overrides Sub SetValue(ByVal component As Object, ByVal value As Object)
' this.collection[index] = value;
End Sub
End Class
下课
最佳答案
我找到了答案。我缺少的是 Captions 属性中的这个属性:DesignerSerializationVisibility(DesignerSerializationVisibility.Content
关于c# - 设计时用户控件中的集合编辑器,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/964912/
在为 Web 应用程序用例图建模时,为用户可以拥有的每个角色创建一个角色是否更好?或拥有一个角色、用户和一个具有特权的矩阵? guest < 用户 < 版主 < 管理员 1: guest 、用户、版主
我无法使用 Elixir 连接到 Postgres: ** (Mix) The database for PhoenixChat.Repo couldn't be created: FATAL 28P
这个问题已经有答案了: Group by field name in Java (7 个回答) 已关闭 7 年前。 我必须编写一个需要 List 的方法并返回 Map> . User包含 Person
感谢您的帮助,首先我将显示代码: $dotaz = "Select * from customers JOIN contracts where customers.user_id ='".$_SESS
我只想向所有用户中的一个用户显示一个按钮。我尝试了 orderByKey() 但没有成功! 用户模型有 id 成员,我尝试使用 orderByChild("id") 但结果相同! 我什至尝试了以下技巧
我们在工作中从 MongoDB 切换到 Postgres,我正在建立一个 BDR 组。 在这一步,我正在考虑安全性并尽可能锁定。因此,我希望设置一个 replication 用户(角色)并让 BDR
export class UserListComponent implements OnInit{ users; constructor(private userService: UserS
我可以使用 Sonata User Bundle 将 FOS 包集成到 sonata Admin 包中。我的登录功能正常。现在我想添加 FOSUserBundle 中的更改密码等功能到 sonata
在 LinkedIn 中创建新应用程序时,我得到 4 个单独的代码: API key 秘钥 OAuth 用户 token OAuth 用户密码 我在 OAuth 流程中使用前两个。 的目的是什么?最后
所以..我几乎解决了所有问题。但现在我要处理另一个问题。我使用了这个连接字符串: SqlConnection con = new SqlConnection(@"Data Source=.\SQLEX
我有一组“用户”和一组“订单”。我想列出每个 user_id 的所有 order_id。 var users = { 0: { user_id: 111, us
我已经为我的Django应用创建了一个用户模型 class User(Model): """ The Authentication model. This contains the u
我被这个问题困住了,找不到解决方案。寻找一些方向。我正在用 laravel 开发一个新的项目,目前正致力于用户认证。我正在使用 Laravels 5.8 身份验证模块。 对密码恢复 View 做了一些
安装后我正在使用ansible配置几台计算机。 为此,我在机器上本地运行 ansible。安装中的“主要”用户通常具有不同的名称。我想将该用户用于诸如 become_user 之类的变量. “主要”用
我正在尝试制作一个运行 syncdb 的批处理文件来创建一个数据库文件,然后使用用户名“admin”和密码“admin”创建一个 super 用户。 到目前为止我的代码: python manage.
关闭。这个问题是opinion-based 。目前不接受答案。 想要改进这个问题吗?更新问题,以便 editing this post 可以用事实和引文来回答它。 . 已关闭 6 年前。 Improv
我已在 Azure 数据库服务器上设置异地复制。 服务器上运行的数据库之一具有我通过 SSMS 创建的登录名和用户: https://learn.microsoft.com/en-us/azure/s
我有一个 ionic 2 应用程序,正在使用 native FB Login 来检索名称/图片并将其保存到 NativeStorage。流程是我打开WelcomePage、登录并保存数据。从那里,na
这是我的用户身份验证方法: def user_login(request): if request.method == 'POST': username = request.P
我试图获取来自特定用户的所有推文,但是当我迭代在模板中抛出推文时,我得到“User”对象不可迭代 观看次数 tweets = User.objects.get(username__iexact='us
我是一名优秀的程序员,十分优秀!