babagun писал(а):Как сделать чтоб они поместились.
- Код: Выделить всё
Private Sub Form_Resize()
h = ScaleHeight / Text1.Count
For i = 0 To Text1.Count - 1
Text1(i).Move 0, i * h, ScaleWidth, h
Next
End Sub
А если серьезно: Зачем тебе столько тексбоксов. Если тебя не устраивает DataGrid то можно попробовать два варианта:
1. Использовать только столько тексбоксов, сколько их видно на форме. А все значения полей занеси в массив. Рядом размести VScrollBar. И по его скролу перезаписывай содержимое тестбоксов. (Можешь в свойсве тестбоксов
.tag хранить значение индексов масива которым соответсвует данный текстбокс) При измении теста в текстбоксе - записывать в соответсвующий элемент массива.
2. Использвать ListBox и один невидимый текстбокс. При Клике на элементе списка показывать в нужном месте текстбокс и при изменении менять содержимое ListBox-а.
---
А то ишь чего выдумали "70 Тестбоксов..." А если б Билли Г. в Экселе такое сделал? Представьте только 65536^2 Тестбоксов
Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...