Полезные советы для программистов на 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©
Next c
8. Если вам нужно отсортировать этот список по имени, установите свойство ListBox'а Sorted в True.
Добавлено (2006-11-29, 3:37 Pm)
---------------------------------------------
Если вы хотите использовать технологию 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 + 1
Loop
End If
ErrEnd:
End Sub