Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
Однажды встанет Вам удачей!
Помощь проекту
Visual Basic
- Как в Visual Basic выгрузить все формы?
- Как в Visual Basic выгрузить форму нажатием Escape?
- Как в Visual Basic вызвать диалог подключения (отключения) сетевого ресурса?
- Как в Visual Basic вызвать компоненты Панели управления?
- Как в Visual Basic вызвать стандартные диалоговые окна?
- Как в Visual Basic вытащить ассоциированную иконку?
- Как в Visual Basic задать значения по умолчанию для необязательных параметров подрограммы?
- Как в Visual Basic закрыть друю программу?
- Как в Visual Basic заменить символ в строке?
- Как в Visual Basic запустить ассоциированный файл?
Как в Visual Basic выгрузить все формы?
Public Sub UnLoadAll()
Dim i As Integer
i = Forms.Count
Do While i > 0
Unload Forms(i - 1)
If i = Forms.Count Then Exit Do i = i - 1
Loop
End Sub
Как в Visual Basic выгрузить форму нажатием Escape?
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Unload Me
End If
End Sub
Как в Visual Basic вызвать диалог подключения (отключения) сетевого ресурса?
Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hWnd As Long, ByVal dwType As Long) As Long
Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hWnd As Long, ByVal dwType As Long) As LongПодключить или отключить сетевые ресурсы можно так:
' Подключить сетевой диск
WNetConnectionDialog 0, 1
' Отключить сетевой диск
WNetDisconnectDialog 0, 1
' Подключить порт
WNetConnectionDialog 0, 2
' Отключить порт
WNetDisconnectDialog 0, 2
Как в Visual Basic вызвать компоненты Панели управления?
' Вызов панели управления
a = Shell(rundll32.exe Shell32.dll,Control_RunDLL)
' Свойства системы, открыть закладку "Устройства"
a = Shell(rundll32.exe Shell32.dll,Control_RunDLL sysdm.cpl,,1)
' Принтеры
a = Shell(rundll32.exe Shell32.dll,Control_RunDLL main.cpl @2)
' Свойства экрана, закладка "Настройка"
a = Shell(rundll32.exe Shell32.dll,Control_RunDLL desk.cpl,,3)
' Установка оборудования
a = Shell(rundll32.exe Shell32.dll,Control_RunDLL sysdm.cpl @1)
Как в Visual Basic вызвать стандартные диалоговые окна?
' Shutdown Dialog
Public Declare Function SHShutDownDialog Lib "Shell32" Alias "#60" (ByVal YourGuess As Long) As Long
' Restart Dialog
Public Declare Function SHRestartSystem Lib "Shell32" Alias "#59" (ByVal hOwner As Long, ByVal sPrompt As String, ByVal uFlags As Long) As Long
Public Const Restart_Logoff = &H0
Public Const Restart_ShutDown = &H1
Public Const Restart_Reboot = &H2
Public Const Restart_Force = &H4
' Run Dialog
Public Declare Function SHRunDialog Lib "Shell32" Alias "#61" (ByVal hOwner As Long, ByVal hIcon As Long, ByVal sDir As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Public Const Run_NoBrowse = &H1
Public Const Run_NoDefault = &H2
Public Const Run_CalcDir = &H4
Public Const Run_NoLable = &H8
' Format Dialog
Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
' Properties Dialog
Public Declare Function SHObjectProperties Lib "shell32" Alias "#178" (ByVal hOwner As Long, ByVal uFlags As Long, ByVal sName As String, ByVal sParam As String) As Long
Подробнее о некоторых из них.
Shutdown Dialog выводит на экран стандартный запрос на выход из системы
SHShutDownDialog 0&Restart Dialog спрашивает подтверждения операции выключения или перезагрузки компьютера.
Dim Prompt as String
Prompt = "Этот текст будет добавлен к стандартному запросу." & vbCrLf
SHRebootSystem Me.Hwnd, Prompt, Restart_RebootRun Dialog диалоговое окно Выполнить
Dim Title as String, Prompt as String
Title = "Запуск программы"
Prompt = "Введите имя программы, папки или документа, который требуется открыть."
SHRunDialog Me.hWnd, &H0, &H0, Title, Prompt, &H0Format Dialog:
SHFormatDrive Me.Hwnd, 0&, 0&, 0&Properties Dialog вызывает окно свойств, т.е. то окно, которое появляется если в всплывающем меню выбрать пункт Properties|Свойства. Скажем, окно свойств диска C: с активной закладкой "Доступ" будет выглядеть так:
SHObjectProperties Me.hWnd, 2, "C:\", "Доступ"
Как в Visual Basic вытащить ассоциированную иконку?
Описание функций API необходимо поместить в модуль
Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Public Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Public Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
В программе используется слудующий код
Dim sPath As String, hIcon As Long, nIcon As Long
sPath = путь к файлу
hIcon = ExtractAssociatedIcon(App.hInstance, sPath, nIcon)
DrawIcon Picture1.hdc, 0&, 0&, hIcon ' изображение выводится в Picture1
DestroyIcon hIcon
Как в Visual Basic задать значения по умолчанию для необязательных параметров подрограммы?
Private Sub Add(Optional index As Integer = 1)
Print index
End Sub
Как в Visual Basic закрыть друю программу?
Title = "Заголовок программы"
ihWnd = FindWindow(0&, Title)
ihTask = GetWindowTask(ihWnd)
iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0&)
Как в Visual Basic заменить символ в строке?
Mid$(a$, 1, 1) = "A"
Как в Visual Basic запустить ассоциированный файл?
Описание функции в модуле
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Запуск программы
Public Sub ShellProgramm(ByVal FileName As String)
a = ShellExecute(0, "open", FileName, "", "", 1)
End Sub
