Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

VB коды
Кнопка для закрытия программ v1.0 - (2Kb)

Пример перевода программы на любой язык - (4Kb)

Зацикленный рисунок - (5Kb)

Советы по VB
Массивы
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, после чего удалите их.
   Вот и всё! Запустит программу. Визуально, не должно быть ни каких изменений.

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница