Полезные советы #3
- Если вам необходимо присвоить строке значение без изменения её длины
- используйте функцию LSet (RSet). Т.е. например:
Dim
str1 As String
Dim str2 As String
str1 = "Моя длинная строка"
str2 = "Короткая"
LSet str1 = str2
' str2 = "Короткая "
- Чтобы создать массив "на лету" вы можете использовать функцию
Array и переменную типа Variant. Например:
Dim
a As Variant
a = Array(244, 122, 544, 222) ' или:
a = Array("A", "B", "C", "D")
- Чтобы вывести своё меню в TextBox'е без применения API, нужно отключить
TextBox (установить его свойство Enabled в False), вывести меню, а затем
включить его обратно. Например:
Public
Sub
PopUpTextBoxMenu(txtBox As Object, _
popMenu As Object)
txtBox.Enabled = False
PopupMenu popMenu
txtBox.Enabled = True
End Sub
Private Sub Text1_MouseDown(Button As Integer,
_
Shift As Integer, X As
Single, Y As Single)
If Button = vbRightButton Then
PopUpTextBoxMenu Text1, menu1
End If
End Sub
- Если вы хотите открыть Help файл (файл с расширением .hlp) из своей
программы, то можете воспользоваться функций API WinHelp:
Const
HELP_CONTENTS = &H3&
Declare Function WinHelp Lib
"user32" Alias "WinHelpA"
_
(ByVal hwnd As Long,
ByVal lpHelpFile As
String, _
ByVal wCommand As
Long, ByVal dwData As
Long) As Long
Public Sub
OpenHelpFile(HelpFileName As String)
WinHelp hwnd, HelpFileName, _
HELP_CONTENTS, 0
End Sub
' Где HelpFileName - путь к Help файлу.
-
Советы по работе в среде Visual Basic (IDE):
Пользуйтесь горячими клавишами! Это намного ускорит процесс программирования.
Вот самые полезные на мой взгляд:
|
Функция
IDE
|
Горячая
клавиша
|
| Запуск программы |
F5
|
| Поставить/Убрать точку останова |
F9
|
| Пошаговое выполнение программы (трассирование) с
заходом в процедуры |
F8
|
| Пошаговое выполнение программы (трассирование) без
захода в процедуры |
SHIFT+F8
|
| Открыть Object Browser |
F2
|
| Поиск/Замена |
CTRL+F
|
| Сделать отступ |
TAB
|
| Отменить отступ |
SHIFT+TAB
|
| Вызвать редактор меню |
CTRL + E
|
Если вам часто приходиться комментировать и раскомментировать код, рекомендую
вынести эти кнопки на панель. Для этого Выберите меню View, далее ToolBars,
потом Customize... Появиться окно. Выберите вкладку Commands. В списке
слева выберите Edit, а справа найдите команды Comment Block и Uncomment
Block. теперь перетащите их куда вам нравиться, например на главный
тулбар.
- Если у вас в программе повторяется некий кусок кода (4 или более строк)
то лучше создать процедуру, в которой будут находиться эти строки, а
в тех местах, где эти строки понадобяться - вставлять вызов этой процедуры.
- Не пользуйтесь подключаемыми ActiveX компонентами где это возможно
(т.е. файлами .ocx), т.к. при переносе программы на другой компьютер
вам придёться таскать эти файлы с собой.
|
