Массивы
Dim M() As String
'Размер массива
ReDim M(1)
M(0) = "Иванов"
M(1) = "Петров"
'Увеличить размер массива не теряя прежних данных
ReDim Preserve M(2)
M(2) = "Сидоров"
'Если убрать оператор "Preserve", то произойдёт сброс данных
ReDim M(2)
'Так же можно создавать многоуровневые массивы
ReDim M(1, 1, 1, 1, 1, 1, 1) |
Отказ от объекта Label
Редкая программа обходится без объекта Label. В основном, всё что от него требуется это написать на форме пару слов. Все остальные его свойства просто не нужны, а каждое из них увеличивают размер программы и отнимают доли секунды при загрузке.
Но есть способ, как обойтись без него.
Например, у вас на форме несколько надписей: Label1(0), Label1(1), Label1(2) и т.д. Текст набран, объекты расставлены, шрифт один и тот же.
Вставьте в процедуру Form_Load этот код:
Dim F As Long, H As String
For F = 0 To Label1.Count - 1
H = H & "CurrentX = " & Label1(F).Left & vbCrLf
H = H & "CurrentY = " & Label1(F).Top & vbCrLf
H = H & "Print """ & Label1(F).Caption & vbCrLf
Next
Clipboard.Clear
Clipboard.SetText H, vbCFText
Запустите программу и закройте её. Замените добавленный код на код из буфера обмена.
Теперь измените свойства формы: AutoRedraw = True, смените шрифт на тот, что был у объектов Label, после чего удалите их.
Вот и всё! Запустит программу. Визуально, не должно быть ни каких изменений. |
|
