Control Properties

[WEB_13]

При создании контролов у меня возникли некоторые проблемы. Помогите, плиз!!!
1. Как сделать такое свойство (наподобие MultiLine в TextBox'е), кототое вроде и "read", но в окне Properties оно присутствует и только там его можно изменить???
2. После создания контрола в Properties появилось много стандартных свойств, да и методов. Всё бы ничего, только ToolTipText и SetFocus не работают! Можно ли их как-нибудь убрать или заменить на свои???

[GSerg]

1. Есть такая весчь - ambient.usermode...
2. Работают оне...

[WEB_13]

1. Есть такая весчь - ambient.usermode...
2. Работают оне...

1. А это где надо искать???
2.Что это такое за фраза???

[GSerg]

1. В контроле пиши: ambient.usermode...
2. Это по поводу неработающих пропертей, ибо они работают. У меня работают. А если у тебя не работают, значит че-то неправильно в коде контрола. А ввиду отсутствия такового ничего сказать нельзя.

[WEB_13]

1. Спасибо. Попробую.
2. У меня не работает, потому-что контрол "Подсветка кода" делаю с нуля!!!

[WEB_13]

Извиняюсь конечно за тупость, но что-то я не понял, где писать ambient.usermode??? В Property Get, Property Let или ещё где???

[GSerg]

Чел не хочет брать удочку...
Ладно, имей рыбу.

Код: Выделить всё

'this property is read-only in runtime, full access in design-time
property let Prop1(byval v as long)
  if ambient.usermode then err.raise 380 else mprop1=v
end property

property get Prop1() as long
  prop1=mprop1
end property


'this property is read-only in design-time, full access in run-time
property let Prop1(byval v as long)
  if ambient.usermode then mProp1=v else err.raise 380
end property

property get Prop1() as long
  prop1=mprop1
end property

[WEB_13]

Спасибо всё работает!!!