> Автор: q1w1e1
> Как это сделать...Есть проект, в нём много форм, где есть TextBox, как сделать класс, ввести его в проект, потом
> всем этим ТеxtBox(ам), указать на этот класс, или мне придётся все ТеxtBox(ы) вводить заново?
Да код простецкий:
1.
2.
3.
4.
5.
6.
7.
Local i As Long, nCount As Long
nCount = Adir(arrF, "c:\projects\client\forms\*.scx")
For i = 1 To nCount
Use "c:\projects\client\forms\" + arrF(i, 1 ) In 0 Shared
Update Justfname(arrF(i, 1 )) Set classloc = "", ;
class = "grid" Where LOWER(ALLTRIM(class)) == "scrollgrid"
Use In Justfname(arrF(i, 1 ))
Next i
Это замена всех стандартных гридов на всех формах на немного "допилянный" класс грида
Posted via ActualForum NNTP Server 1.4
