[VB.NET][1.1][UserControl]Pas d'initialisation par le designer ?

Version imprimable

02/10/2006, 10h36
BenoitM

[VB.NET][1.1][UserControl]Pas d'initialisation par le designer ?

Bonjour,

J'ai crée un UserControl qui à une propriété DataSourceOfMyListBox.
Cette DataSource est initialisé avec des valeurs par défaut dans le constructeur de mon UserControl

Quand j'utilise le UC dans une form le designer met à chaque fois
MyUC.DataSourceOfMyListBox = Nothing

Comment puis-je dire au designer de ne pas modifier cette propriété?
En laissant biensur ma propriété en ReadWrite ;)
02/10/2006, 12h41
fregolo52

salut,

DataSourceOfMyListBox est accessible dans le designer ? (c'est une propriété browsable ?)

Si le designer fait MyUC.DataSourceOfMyListBox = Nothing, à l'excécution que devient la valeur ? Toujours Nothing ? Elle ne prend pas la valeur que tu passes dans le constructeur ?

Pour comprendre mieux, il faudrait peut-être que tu nous mettes la déclaration de ton UC dans ta form et le code du contructeur avec la déclaration local de DataSourceOfMyListBox.

Pour le code dans mon UC

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
        InitializeTooltips()
        Try
            Dim arr As ArrayList
            arr = CType(ConfigurationSettings.GetConfig("MessagesQueueManager/ServersList"), ArrayList)
            ServerListDataSource = arr
        Catch ex As Exception
        End Try
    End Sub
 
<Description("The Items in the Server list box")> _
    Public Property ServerListDataSource() As Object
        Get
            Return ComboBoxServerList.DataSource
        End Get
        Set(ByVal Value As Object)
             ComboBoxServerList.DataSource = Value
        End Set
    End Property

Quand je l'ajoute le designer

Code:

1
2
3
4
5
 
        '
        'UserControlServerSelection1
        '
        Me.UserControlServerSelection1.ServerListDataSource = Nothing

02/10/2006, 13h20
BenoitM
Finalement j'ai résolu mon problème en mettant :
Code:

1 2 3 4 5 <Description("The Items in the Server list box"),ReadOnlyAttribute(True)> _ Public Property ServerListDataSource() As Object ... End Property
D'après ce que j'ai "vu/tester" on ne sait que :
1. Mettre une valeur par défaut et l'utisateur pourra la changer au design
2. Mettre l'attribut ReadOnly (mais alors impossible à changer au design)
3. Ne rien mettre et l'utisateur pourra introduire une valeur design mais part défaut le designer mettra Nothing : |