ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Странно ведет себя UserControl
12 сообщений из 12, страница 1 из 1
Странно ведет себя UserControl
    #34352224
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
Есть UserControl (бутона) которым я пользуюсь постоянно и использую его в каждом проекте и хочу отметить, что очень давно. А сегодня заметил странное его повидение (раньше такого не было), новые копии объекта на форме при компиляции сбрасывают пользовательские настройки в 0 и "", рядом с ними находятся такие же кнопки но добавленные намного раньше, они ведут себя нормально. Еще вот странность если взять и скопировать с формы бутон дабавленый в проект намного раньше, то его пользовательские значения остаются как и у родителя, во время дизайна исправляются, а во время компиляции востанавливаются в прежние. Полез в старые backup -ы проекта, та же проблема, хотя тогда этого не было. Если создать новый проект то контрол ведет себя штатно. В чем дело, может кто то сталкивался.
...
Рейтинг: 0 / 0
23.02.2007, 17:40
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34352285
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
свой контрол?

попробуй
Код: plaintext
1.
2.
PropBag.ReadProperty
PropBag.WriteProperty

в

Код: plaintext
1.
2.
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
23.02.2007, 18:43
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34352296
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
да контрол мой, попрбую то что Вы написали, но уже на следующей неделе рабочий день кончился, да и VB уже дезинсталирован. Я еще заметил что старые объекты не обновляют свои свойства, хотя неделю назад я пользовался данным контролом в данном проекте.
...
Рейтинг: 0 / 0
23.02.2007, 18:54
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34361725
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
Проверил оказалось если добавить объект заполнить его пользовательскими данными и скомпилировать то данные сбрасываюся.
Если нажать F5 то данные прописываются при дальнейшей компиляции выглядят должным образом.
Столько работал со своими контролами и такой мелочи не замечал можно ли это както решить?
...
Рейтинг: 0 / 0
28.02.2007, 19:10
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34361810
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
SmeL_mdПроверил оказалось если добавить объект заполнить его пользовательскими данными и скомпилировать то данные сбрасываюся.
Если нажать F5 то данные прописываются при дальнейшей компиляции выглядят должным образом.
Столько работал со своими контролами и такой мелочи не замечал можно ли это както решить?

данные, назначенные по-умолчанию (т.е. когда вы вручную в дизайне их заполняете) можно сохранаять вышеуказанным способом.
...
Рейтинг: 0 / 0
28.02.2007, 20:02
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34361826
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
так выше указанный способ реализован в контроле вот он
Код: plaintext
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.
26.
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 m_Enabled = PropBag.ReadProperty("Enabled", True)
 PictureX = PropBag.ReadProperty("PictureX", pX)
 PictureY = PropBag.ReadProperty("PictureY", pY)
 Enabled = PropBag.ReadProperty("Enabled", m_Enabled)
 Cheked = PropBag.ReadProperty("Cheked", m_Cheked)
 CaptionX = PropBag.ReadProperty("CaptionX", tX)
 Caption = PropBag.ReadProperty("Caption", Label1.Caption)
 Set pBtnPic.Picture = PropBag.ReadProperty("Picture", Nothing)
 Set pBtnPicHov.Picture = PropBag.ReadProperty("PictureHover", Nothing)
 Set pBtnPicDn.Picture = PropBag.ReadProperty("PictureDown", Nothing)
 Set pBtnPicDis.Picture = PropBag.ReadProperty("PictureDisabled", Nothing)
 UserControl.Enabled = m_Enabled
 Render
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 Call PropBag.WriteProperty("PictureX", pX,  10 )
 Call PropBag.WriteProperty("PictureY", pY,  10 )
 Call PropBag.WriteProperty("CaptionX", tX,  500 )
 Call PropBag.WriteProperty("Enabled", m_Enabled, True)
 Call PropBag.WriteProperty("Cheked", m_Cheked, False)
 Call PropBag.WriteProperty("Caption", Label1.Caption, "btn")
 Call PropBag.WriteProperty("Picture", pBtnPic.Picture, Nothing)
 Call PropBag.WriteProperty("PictureDisabled", pBtnPicDis.Picture, Nothing)
 Call PropBag.WriteProperty("PictureHover", pBtnPicHov.Picture, Nothing)
 Call PropBag.WriteProperty("PictureDown", pBtnPicDn.Picture, Nothing)
End Sub
...
Рейтинг: 0 / 0
28.02.2007, 20:25
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34363777
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
гм... незнаю. у меня (кнопка) все нормально работает:
...
Рейтинг: 0 / 0
01.03.2007, 14:38
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34366099
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
Aklinгм... незнаю. у меня (кнопка) все нормально работает:Скачал вашу кнопку добавил еще одну ввел Caption. сразуже скомпелировал в результате Caption="" Цвет из белого перешел в цвет формы. Систему только переустановил :) фантастика
...
Рейтинг: 0 / 0
02.03.2007, 11:39
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34366687
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Желательно в "свойствах процедуры" property Caption поставить
ProcedureID = Caption

К теме не относится - так мелкий хинт.
...
Рейтинг: 0 / 0
02.03.2007, 13:58
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34368343
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
SmeL_mdСкачал вашу кнопку добавил еще одну ввел Caption. сразуже скомпелировал в результате Caption="" Цвет из белого перешел в цвет формы. Систему только переустановил :) фантастика

там есть свойство - тип скина. есть стандарт, так он по-умлочанию берет цвет родителя. ничего удивительного. можете покопаться. увидите.
есть Orionic - выполнено Line ами
есть еще один, почти готовый - YourFace для прочих скинов.

кнопка у меня сохранила значение. т.е. я поставил кнопку, ввел Caption в Properties. сохранил. запустил. работает. вышел. снова загрузил проект. запустил. все равно работает.

а вообще кнопка уникальна в чем-то:
1) три типа интерфейса
2) поддержка стандартного скина и скина НЕ использующего картинки.
3) Поддержка Tab и Left-Right перемещение В КАКОЙ-ТО МЕРЕ.
4) Надпись БЕЗ использования Label. Хотя возможны глюки, но в общем норально.

единственное, чего не смог добиться: хотя Clicked и вызывается при каждом клике мыши или ентера, этого не водно. (видет только каждый второй клик).

ДА!!! поставь обязятельно там свойства AutopRedraw на элементе. (забыл видимо)
...
Рейтинг: 0 / 0
02.03.2007, 21:39
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34368467
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
2Aklin я хотел сказать что Ваш контрол повел себя также как и мои
...
Рейтинг: 0 / 0
03.03.2007, 00:14
| Ответить | Цитировать | Написать  
Странно ведет себя UserControl
    #34368606
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
SmeL_md2Aklin я хотел сказать что Ваш контрол повел себя также как и мои

если вы задали кнопку (надпись ввели) и после компиляции она не сработала, то это проблеммы вашего по. у меня все работает.
...
Рейтинг: 0 / 0
03.03.2007, 10:16
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Странно ведет себя UserControl
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34361810&tid=2164399]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 174ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 222ms
total:  515ms
созд. / загр.: 515ms
x
x
Закрыть


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