на главную Dosugoff
Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
RuWeb.net - гибкий хостинг
Закажи рекламу на Rambler.ru, Mail.ru, Aport.ru! От 130 руб. за все!


Помощь проекту

Visual Basic

Страница: 1 2 3 4 5 6 7 8 9 10 11
  1. Как в Visual Basic выгрузить все формы?
  2. Как в Visual Basic выгрузить форму нажатием Escape?
  3. Как в Visual Basic вызвать диалог подключения (отключения) сетевого ресурса?
  4. Как в Visual Basic вызвать компоненты Панели управления?
  5. Как в Visual Basic вызвать стандартные диалоговые окна?
  6. Как в Visual Basic вытащить ассоциированную иконку?
  7. Как в Visual Basic задать значения по умолчанию для необязательных параметров подрограммы?
  8. Как в Visual Basic закрыть друю программу?
  9. Как в Visual Basic заменить символ в строке?
  10. Как в 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_Reboot


Run Dialog диалоговое окно Выполнить
Dim Title as String, Prompt as String
Title = "Запуск программы"
Prompt = "Введите имя программы, папки или документа, который требуется открыть."
SHRunDialog Me.hWnd, &H0, &H0, Title, Prompt, &H0


Format 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
Страница: 1 2 3 4 5 6 7 8 9 10 11
Система авторегистрации в каталогах, статьи про раскрутку сайтов, web дизайн, flash, photoshop, хостинг, рассылки; форум, баннерная сеть, каталог сайтов, услуги продвижения и рекламы сайтов
Dosugoff2008.narod.ru Огромное спасибо всем кто, так или иначе, участвовал в создании этой коллекции
Hosted by uCoz