Как использовать DTPicker в классе?

[JohnK]

Нашел пример:

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

Public Property Set FlexGridControl(fgControl As MSFlexGrid)
   RemoveOldTextBox
   Set Fg = fgControl
   On Error Resume Next
      strTbName = "tbFgEdit"
      Do
         Err = 0
         strTbName = strTbName & "1"
         Fg.Parent.Controls.Add "VB.TextBox", strTbName, Fg.Container
      Loop While Err <> 0
   Set Tb = Fg.Parent.Controls(strTbName)
End Property

А как тоже самое сделать с DTPicker?

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

strTbName="dtFgD"
Fg.Parent.Controls.Add "VB.DTPicker", strTbName, Fg.Container

так не работает...

[ark]

Так он же не VB. а MSComCtl2.
А вообще, судя по куску кода, FlexGrid (так же как текст бокс и будущий пикер) в классе один. Что мешает сделать

Public Property Set FlexGridControl(fgControl As MSFlexGridLib.MSFlexGrid)...
Public Property Set TBControl(tb As VB.TextBox)...
Public Property Set DTPControl(dtp As MSComCtl2.DTPicker)...

Кстати, 10 раз подумай, прежде чем DTPicker в гридах использовать - он не NULLABLE