Как добавить новую строчку в файл autoexec.bat?
Предположим,вам нужно добавить драйвер DOS или программу в autoexec.bat или config.sys файл. Самый простой способ - открыть файл с помощью "Append". Если файл не существует - он будет создан, а также будет добавлен текст к концу файла:
Open "c:\autoexec.bat" For Append As #1
Print #1,"C:\NC"
Close #1
Это добавит строку "C:\NC" к концу файла autoexec.bat. Новые строки будут
автоматически вставлены после конца каждой инструкции Print, так что нет
потребности добавлять vbNewLine к каждой строке.
Как обработать клавишу табуляции подобно нормальному символу?
Для этого нужно установить свойство TabStop = False для всех элементов управления в активной форме. После этого вы сможете вводить символы Tab (chr 9) в текстовые поля элементов управления.
Если нужно, чтобы клавиша Tab "вела себя обычным образом" (то есть осуществляла переход к следующему элементу управления) для одного из элементов управления такой формы, то достаточно просто эмулировать ее работу с помощью следующего кода:
Sub Command1_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
If Shift = 0 Then
Command2.SetFocus ' Tab - следующий элемент управления
ElseIf Shift = 1 Then
Command3.SetFocus
End If
End If
End Sub
Как предотвратить запуск второй копии моей программы?
'не допускаем одновременного запуска программы If App.PrevInstance=True Then Unload Me
Как записать данные в раздел реестра HKEY_CLASSES_ROOT?
Существуют разные функции API, позволяющие работать с реестром - RegOpenKeyEx, RegQueryValueEx, RegCloseKey, RegEnumValue. Но данные функции не позволяют работать с разделом HKEY_CLASSES_ROOT, где хранятся типы файлов, даже если использовать константу HKEY_CLASSES_ROOT = &H80000000. Для решения этой проблемы можно пойти другим путем. Для этого мы создадим reg-файл и экспортируем его в реестр:
Open App.Path & "\RG.reg" For Output As #1 Print #1, "REGEDIT4" Print #1, "" 'rpr - Russian PRjoect - новое расширение файла, вроде .TXT Print #1, "[HKEY_CLASSES_ROOT\." & rpr & "]" ' @ - используется как По умолчанию Print #1, "@=" & Chr(34) & rpr & "file" & Chr(34) Print #1, "" Print #1, "[HKEY_CLASSES_ROOT\" & rpr & "file]" Print #1, "@=" & Chr(34) & MyDescription & Chr(34) ' Значок для нового типа файла Print #1, "" Print #1, "[HKEY_CLASSES_ROOT\" & rpr & "file\DefaultIcon]" Print #1, "@=" & Chr(34) & "C:\\Windows\\System\\Shell32.dll,1" & Chr(34) Close#1 ' запускаем файл Shell "RegEdit " & App.Path & "\RG.reg", vbNormalFocus
Можно ли использовать flash-ролики в VB?
Можно. И очень просто. Выберите в меню Project->Components... - найдите элемент управления ShockwaveFlash (swflash.ocx) и поместите его на форму. В Form_Load() используйте следующий код:
ShockwaveFlash1.Movie = App.Path & "/yourflash.swf"Как обработать нажатие кнопки Х в верхнем правом углу?
Наверное, многие хотели , чтобы при закрытии программы, она спрашивала, действительно ли мы хотим выйти. Например, пользователь случайно нажимает на кнопку Закрыть вместо Развернуть и программа моментально завершается. Чтобы избежать этого, нужно добавить примерно такой код в событие формы QueryUnload:
If MsgBox("Вы уверены?", vbYesNo + vbInformation, _
"Выход") = vbNo Then
Cancel = 1
End If
В событии Form_Unload определена числовая переменная Cancel. Если мы не хотим выйти, то присваиваем ей какое-нибудь ненулевое значение. А если мы хотим выйти, то либо мы Cancel не трогаем, либо приравниваем ее к нулю.
' эмулируем нажатие F1
Private Sub mnuHelp_Click()
SendKeys "{F1}"
End Sub
Как определить, запущена ли программа из IDE или как исполняемый файл?
Можно воспользоваться инструкцией Debug.Print, которая сгенерирует специально созданную нами ошибку и отловить ее с помощью On Error. В исполняемом файле Debug.Print не сработает и таким образом ошибка генерироваться не будет.
' Глобальная переменная Private debug_mode As Boolean ' Устанавливаем значение флага debug_mode Private Sub SetDebugMode() On Error GoTo InIDE Debug.Print 1 / 0 debug_mode = False Exit Sub InIDE: debug_mode = True End Sub Private Sub Form_Load() ' Если запущено из IDE SetDebugMode ' Выводим сообщение If debug_mode Then Label1.Caption = "Запущено из среды разработки" Else Label1.Caption = "Исполняемый файл" End If End Sub
Гарден ринг предлагает искусственные цветы композиции в москве . Большой выбор.