Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Использование OCX компонента / 14 сообщений из 14, страница 1 из 1
29.07.2010, 10:00
    #36765441
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
оброго времени суток! Столкнулся с такой проблемой: создаю простейший ocx (текстовое поле с нужными свойствами). Компилирую - всё ок, на выходе нужный мне ocx. Работает как надо, НО! Как из этого ocx текст можно брать? OCX назвал FIO_text. Когда использую его в проге своей у него НЕт свойства FIO_text1.text Как быть? Есть ли какие-либо настройки во время компиляции ocx?
...
Рейтинг: 0 / 0
29.07.2010, 10:19
    #36765497
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
> Автор: Mazai-XZ
> Как быть?

Вот он! Извечный вопрос русской интилигенции :)
Сделай Public свойство, в которое не забывай присваивать содержимое своего TextBox'a, и из которого будешь получать
"внутренний" текст :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
29.07.2010, 10:23
    #36765509
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
надо было сделать Public Property Text и сделать его в конструкторе класса Default
...
Рейтинг: 0 / 0
29.07.2010, 10:24
    #36765513
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
для OCX есть специальный визард, который за вас эт сделает
...
Рейтинг: 0 / 0
29.07.2010, 11:39
    #36765699
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
извините, а можно чуток поконкретнее :) В общем мне нужно из моего контрола брать введённый в него текст. Контрол - текстовое поле с форматированием (при вводе фио ин переводит первые буквы в заглавные, нап. ввели иванов иван иванович в контроле отображается Иванов Иван Иванович). Как это сделать я разобрался. А как потом из этого контрола текст вытягивать? Ну например создаю я кнопку на форме и нужно по нажатию её выводить msgbox c стекстом из контрола? Помогите, плииз! Или натолкните на ссылочку, где можно почитать об ocx. Благодарен заранее и за "вышеотвеченные" ответы )))
...
Рейтинг: 0 / 0
29.07.2010, 11:45
    #36765712
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
> Автор: Mazai-XZ
> извините, а можно чуток поконкретнее :)

Грубо, примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
Public Property Get Text() As String
Text = TextBox1.Text
End Property
' Ну и обратное можно, если нужно!
Public Property Let Text(ByVal vNewValue As String)
TextBox1.Text = Text
End Property


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
29.07.2010, 13:47
    #36766027
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
Часто ещё требуется сохранять свойства в готовом ЕХЕ, после изменения в дизайн-тайме. Тогда нужно сохранить их в спецхранилище.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
'Чтение свойств
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    With PropBag
        TextBox1.Text = .ReadProperty("Text", "")
    End With
End Sub

'Запись свойств
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    With PropBag
        .WriteProperty "Text", TextBox1.Text, ""
    End With
End Sub
...
Рейтинг: 0 / 0
29.07.2010, 21:57
    #36767335
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
VSVLADЧасто ещё требуется сохранять свойства в готовом ЕХЕ, после изменения в дизайн-тайме. Тогда нужно сохранить их в спецхранилище.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
'Чтение свойств
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    With PropBag
        TextBox1.Text = .ReadProperty("Text", "")
    End With
End Sub

'Запись свойств
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    With PropBag
        .WriteProperty "Text", TextBox1.Text, ""
    End With
End Sub


Мм, не совсем понял... В смысле сохранять... после закрытия формы? Ну тоесть если использовать Ваше заклинание, то например введя в свой осх контрол слово "превед", затем закрыв форму/приложение, а затем его запустив заново, то в моём контроле будет тот самый "превед"??? Или меня понесло не в ту степь?

Тут возник вопрос по худу изучения темы: а например если я зхочу создть контрол с 2мя и более тектовыми полями, то как обращаться к каждому из этих полей? Реально ли это реализовать?

Вообще всем ещё раз ОГРОМНЕЙШЕЕ спсибо за помощь, не в первый раз выручаете!!!

PS c однотекстбоксовымконтроллом разобрался! =)))))
...
Рейтинг: 0 / 0
29.07.2010, 22:04
    #36767345
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
Mazai-XZМм, не совсем понял... В смысле сохранять... после закрытия формы? Ну тоесть если использовать Ваше заклинание, то например введя в свой осх контрол слово "превед", затем закрыв форму/приложение, а затем его запустив заново, то в моём контроле будет тот самый "превед"??? Или меня понесло не в ту степь?верно

Mazai-XZТут возник вопрос по худу изучения темы: а например если я зхочу создть контрол с 2мя и более тектовыми полями, то как обращаться к каждому из этих полей? Реально ли это реализовать?
Конечно. Просто вместо
Код: plaintext
1.
2.
Public Property Get Text() As String
Public Property Let Text(ByVal vNewValue As String)
будут два свойства - Text1 и Text2, которые будут читать/записывать текст из разных текстбоксов.
...
Рейтинг: 0 / 0
29.07.2010, 22:55
    #36767384
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
Shocker.ProКонечно. Просто вместо
Код: plaintext
1.
2.
Public Property Get Text() As String
Public Property Let Text(ByVal vNewValue As String)
будут два свойства - Text1 и Text2, которые будут читать/записывать текст из разных текстбоксов.
а можно и вот так:
Код: plaintext
1.
2.
3.
Public Property Get Text(Index As Integer) As String

Public Property Let Text(Index As Integer, ByVal vNewValue As String)
и через одно свойство с индексом обращаться к двум разным текстбоксам
...
Рейтинг: 0 / 0
30.07.2010, 10:28
    #36767817
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
> Автор: Shocker.Pro
> Public Property Let Text(Index As Integer, ByVal vNewValue As String)
> и через одно свойство с индексом обращаться к двум разным текстбоксам

Ты же тогда напиши что пользоватся этим нужно так:
Код: plaintext
1.
MyOcx.Text( 1 )="Новая строка"
MsgBox(MyOcx.Text( 1 ))

:)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
30.07.2010, 10:56
    #36767894
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
Игорь Горбонос
> Автор: Shocker.Pro
> Public Property Let Text(Index As Integer, ByVal vNewValue As String)
> и через одно свойство с индексом обращаться к двум разным текстбоксам

Ты же тогда напиши что пользоватся этим нужно так:
Код: plaintext
1.
MyOcx.Text( 1 )="Новая строка"
MsgBox(MyOcx.Text( 1 ))

:)


Ну вроде ТС не первый день тут, понимает, что такое параметры... надеюсь...
...
Рейтинг: 0 / 0
30.07.2010, 12:55
    #36768302
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
> Автор: Shocker.Pro
> Ну вроде ТС не первый день тут, понимает, что такое параметры... надеюсь...

ТС может и не первый, но здесь как на заборе - на века! и читатели будут с разной подготовкой

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
30.07.2010, 13:10
    #36768355
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование OCX компонента
Игорь Горбонос
> Автор: Shocker.Pro
> Ну вроде ТС не первый день тут, понимает, что такое параметры... надеюсь...

ТС может и не первый, но здесь как на заборе - на века! и читатели будут с разной подготовкой


Ну тогда надо рассказывать, как создать OCX и вообще, в каждом посте о том, как запустить VB-IDE
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Использование OCX компонента / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]