VBNet - Форум - User Control

Вопрос: User Control Добавлено: 08.01.04 19:04

Автор вопроса: Smith | ICQ: adamis@list.ru

Я уже как-то задавал этот вопрос.

Пишу свой User Control. В нем находится RichTextBox.
Мне нужно создать для моего контрола свойство Text.
Пишу:

    Public Overrides Property Text() As String
        Get
код
Return RichTextBox1.Text
        End Get
        Set(ByVal Value As String)
            RichTextBox1.Text = Value
        End Set
    End Property

Потом, когда я помещаю контрол на форму, в панели свойств я немогу найти свойства Text.
Я могу к нему обращаться только через код.

UserControl1.Text = “something”

Тогда все работает. Дело в том что мне необходимо видеть контрол в процессе разработки, так как в зависимости от того что введено в RTB, контрол меняет размеры, и т.д.

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

Neco

ICQ: 247906854

Вопросов: 133
Ответов: 882

Web-сайт: neco.pisem.net
Профиль | | #1

Добавлено: 09.01.04 00:03

Судя по тому гемморою с которым я сталкивался при написании контролов, UserControl в VB - самая хреновая вещь. Я так считаю, так как не всё (ИМХО) в них можно создать кодом, что-то приходится делать мастером - он добавляет хрень типа:

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=10,0,0,0

а как до этих комментариев самому дотумкать, я так и не дотумкал...

А вообще я пользуюсь разными процедурами для установки и чтения и обычно это:

public property Let BLA

public property Get BLA

может это тоже имеет значение - кто их разберёт эти контролы?

Ответить

Номер ответа: 2
Автор ответа:

Doomsday

Вопросов: 30
Ответов: 54

Профиль | | #2

Добавлено: 09.01.04 01:59

SISRIUS: Может тебе надо писать вместо

Public Overrides Property

Просто

Public Property?

Neco: То, что ты написал относитсяк VB 6.0, а то чтоо написал SIRIUS относится к VB.NET

Ответить

Номер ответа: 3 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #3	Добавлено: 09.01.04 15:26
	Так надо: <Browsable(True)> Public Overrides Property Text() As String Get код Return RichTextBox1.Text End Get Set(ByVal Value As String) RichTextBox1.Text = Value End Set End Property Если False, тогда не будет отображаться. Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #4	Добавлено: 09.01.04 18:58
	To Maxik > Спасибо! Ответить

Страница: 1 |