OptionButton

[Kovu]

Как поместить на OptionButton рисунок, при этом оставив его похожим на оптион, а не на стандартную кнопку(когда делаешь Style=1(graphical), то происходит это неприятное явление) ?

[Alexanbar]

Поместить Picturebox на OptionButton.

[Kovu]

Гм, а иначе никак?

[BV]

И иначе можно, но тебе не понравится.

[DirectXManiac]

Там код просто строк на 50 как минимум, атак прсто!

[Kovu]

И иначе можно, но тебе не понравится.

Да мне всё равно как лишь бы сделать
Дайте код пожаалуйста
С чего ты решил, что мне не понравится , главное -это чтобы работало

[alibek]

Почитай про OWNER_DRAW и поймешь, что не понравится.

[Kovu]

А можно кодик показать по рисованию кругленькой этой штуки

[Kostyan]

А не проще-ли использовать Image? Можешь сделать его хоть в виде лампочки.

[Kovu]

А не проще-ли использовать Image? Можешь сделать его хоть в виде лампочки.

Ибо 1-у него нет hDc, т.к. это вообще не окно
2- мне надо функции Option'a

[Kostyan]

А зачем тебе hdc? Нажал юзер мышкой по имеджу - поставил картинку соответствующую нажатому состоянию, кликнул ещё раз - вернул исходную. Изображения состояний можно хранить в ресурсе. А само состояние (Value) хранить в свойстве Tag. Конечно нельзя будет работать клавиатурой, но такова плата.

[Kovu]

А зачем тебе hdc? Нажал юзер мышкой по имеджу - поставил картинку соответствующую нажатому состоянию, кликнул ещё раз - вернул исходную. Изображения состояний можно хранить в ресурсе. А само состояние (Value) хранить в свойстве Tag. Конечно нельзя будет работать клавиатурой, но такова плата.

Понимаешь, для BitBlt'a надо hDc (Чтоб оптион как бы сливался с формой), так что уж лучше самому рисовать

[Kostyan]

Да, видимо я совершенно тебя не понимаю. Зачем hdc, когда можно Image1.Picture = LoadResPicture...
Вот тебе пример того, о чем я говорю, попробуй пощелкать по лампочке.

[Kovu]

Kostyan
Вкусно, но это не лайт ©
У мя на форме градиент, и мне абсолютно не хочется использовать Image , а затем рассчитывать RECT, в котором рисовать текст, поэтому на мой взгляд легче самому создать окно, которое перерисовывать

[Kostyan]

Ну делай как знаешь Видимо для тебя это самый легкий путь.

[Kovu]

А как все таки этот кругляшок нарисовать с точкой и пообъемней ?

[Kovu]

Ну может кто-нить поможет мне нарисовать хоть плоский кругляшок с точкой, пожааалуйста
Прилагаю проект, на всякий случай

[GSerg]

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

Option Explicit

Private Declare Function DrawFrameControl Lib "user32.dll" (ByVal hDC As Long, ByRef lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long

Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Private Const DFC_BUTTON As Long = 4
Private Const DFCS_BUTTONRADIO As Long = &H4
Private Const DFCS_CHECKED As Long = &H400

Private Sub Form_Load()
  Dim r As RECT
 
  Me.AutoRedraw = True
 
  r.Left = 10: r.Top = 10: r.Right = 30: r.Bottom = 30
  DrawFrameControl Me.hDC, r, DFC_BUTTON, DFCS_BUTTONRADIO Or DFCS_CHECKED
 
  r.Left = 10: r.Top = 50: r.Right = 30: r.Bottom = 70
  DrawFrameControl Me.hDC, r, DFC_BUTTON, DFCS_BUTTONRADIO
End Sub

[Konst_One]

может это поможет

[Kovu]

GSerg
Спасибо, большое
Konst_One
У мя оптион, а не чек , но всё равно спасибо

[Kovu]

родился маленький вопрос: почему если к проекту добавить манифест, то кисть рисует оптионы со своей начальной точки, а не с того места , которое под оптионом на форме(то есть скажем если на форме картинка, то она рисуется на оптионе со своей начальной точки)? (без манифеста всё нормально)

[Kovu]

Ну ладно, видимо никто не знает