На главную страничку учебника Visual Basic

Полезные советы #1

В этом разделе помещено несколько советов для программистов на Visual Basic.

1. Если вам необходимо поменять Boolean значение на обратное, то можно использовать такой код:
   
   blnVal = Not(blnVal)
   
   Вместо такого:
   
   If blnVal = False Then
   blnVal = True
   Else
   blnVal = False
   End If
   
   
2. Чтобы заменить несколько символов в строке, можно использовать функцию Mid$:
   
   Dim a As String
   a = "Иванов"
   Mid$(a, 1, 4) = "Петр" 'переменная a содержит "Петров"
   
   
3. Если вы выводите в Label'e номер версии программы, а версия меняется после каждой компиляции, то в таком случае можно использовать свойства объекта App
   App.Revision
   App.Minor
   App.Major
   
   
4. Если вам нужно добавить к строке символ перевода строки (Chr(13)+Chr(10)), то можно воспользоваться встроенной константой vbNewLine. Например
   
   MsgBox "Первая строка" & vbNewLine & "Вторая строка"
   
   
5. Для того, чтобы открыть файл, находящийся в том же каталоге, что и Exe файл программы, можно использовать свойство App.Path, которое содержит путь к каталогу с программой. Пример:
   
   Picture1.Picture = LoadPicture (App.Path _
   & "\background.bmp")
   
   
6. Если вам нужно предотвратить запуск второй копии программы, вставьте этот код в обработку Form_Load:
   
   If App.PrevInstance = True Then End
   
   
7. Для получения списка всех доступных шрифтов в системе используйте свойство Fonts объекта Screen. Например следующий код выводит список всех шрифтов в список:
   
   For c = 1 To Screen.FontCount
   List1.AddItem Screen.Fonts(c)
   Next c
   
   Если вам нужно отсортировать этот список по имени, установите свойство ListBox'а Sorted в True.
   
   
8. Если вы хотите использовать технологию Drag&Drop для перетаскивания файлов из проводника Windows на форму (или другой объект, поддерживающий эту технологию), то установите свойство OleDropMode в Manual, а в обработку события OLEDragDrop вставьте примерно такой код:
   
   Private Sub Form_OLEDragDrop(Data As DataObject, _
   Effect As Long, Button As Integer, Shift As Integer, _
   X As Single, Y As Single)
   
   Dim c As Long
   c = 1
   On Local Error GoTo ErrEnd
   If Data.GetFormat(15) = True Then
   Do
   List1.AddItem Data.Files(c)
   c = c + 1
   Loop
   End If
   ErrEnd:
   
   End Sub
   
   
9. Совет всем программистам: придерживайтесь нижеприведённой схемы именования переменных, констант и названий функций и процедур:
   
   

   Тип	Схема именования	Пример
   Константа	Имя константы должно состоять только из заглавных букв.	HWND_BROADCAST
   Переменная	Имя переменной должно начинаться с маленькой буквы, далее следующий слова с большой.	numOfFonts
   Функция	Имя функции должно начинаться с заглавной буквы, далее следующие слова тоже с заглавной.	SetForegroundWindow

   
   Придерживаясь этой схемы вы намного повысите читабельность кода. Кстати такая схема используется в API функциях Windows.

На главную страничку учебника Visual Basic