Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
JohnK
-
- Постоялец
-
-
- Сообщения: 874
- Зарегистрирован: 03.08.2002 (Сб) 0:35
- Откуда: 48.02` 37.58`
-
JohnK » 21.07.2011 (Чт) 23:29
Нашел пример:
- Код: Выделить всё
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
так не работает...
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
-
ark
-
- Бывалый
-
-
- Сообщения: 216
- Зарегистрирован: 18.07.2011 (Пн) 0:57
ark » 22.07.2011 (Пт) 1:16
Так он же не 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
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, Mail.ru [бот] и гости: 28