Отправляет email-рассылки с помощью сервиса Sendsay

Новости сайта www.igoryksoft.narod.ru

Подписаться Бесплатная новостная рассылка Подписчиков 59 RSS
←   Февраль 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


За последние 60 дней ни разу не выходила


Сайт рассылки: http://www.igoryksoft.narod.ru
Открыта: 01-01-2002

Автор
Igoryk

Статистика

59 подписчиков
0 за неделю
←   Все выпуски   →

Новости сайта www.igoryksoft.narod.ru


Служба Рассылок Subscribe.Ru

РАССЫЛКА САЙТА WWW.IGORYKSOFT.NAROD.RU

ВЫПУСК 7

     Всем привет!!!

Сегодня в выпуске:

  • Обновления на сайте;

  • Как открыть любой файл?;

  • Как в HTML вывести на экран сообщение?

  • Вопрос-Ответ.

Обновления на сайте:

     Обновлен дизайн страницы "Разработки на VB"

Как открыть любой файл?

    Когда нужно открыть исполняемый файл (*.exe, *.com, *.bat) используют встроенную функцию VB - Shell, но если нужно открыть файл с другим расширением, т.е. файл, не являющийся исполняемым, используется функция ShellExecute. В общем, все что было написано выше известно, ну а что делать если открывается файл с не зарегистрированным расширением? В этом случае Проводник открывает окно "Открыть с помощью..." То же самое можно реализовать в VB:

 

Private 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 VbAppWinStyle) As Long


Private Sub Form_Load()
Dim X As Long
Dim FilePath As String
FilePath = "" 'Здесь должен быть файл
X = ShellExecute(Me.hwnd, "open", FilePath, "", "", vbNormalFocus)

'X возвращает дескриптор окна, а если файл незарегистрирован, то 31
If X = 31 Then
Shell "rundll32 shell32,OpenAs_RunDLL" & " " & FilePath

'Командой Shell запускаем окно "Открыть с помощью...", следует соблюдать регистр
End If
End Sub

    Но есть еще один вариант открытия любого файла. Сразу говорю вариант уникальный, потому что документацию или описания на то что будет ниже в Интернете мне не удалось найти. Вот этот код:

Dim FileName As String
FileName = "C:\windows\explorer.exe" 'Ваш файл
X=Shell ("rundll32.exe url.dll,FileProtocolHandler" & " " & FileName, vbMaximizedFocus)

    В случае неудачи этот вариант возвратит X=-297255

    Но следует учитывать, что в этих двух вариантах X может не соответствовать приведенным выше.

   Вот и все. 

Как в HTML вывести на экран сообщение?

    Для этого используется команда JavaScripta. Вызывается она следующим образом:

 

<SCRIPT LANGUAGE=javascript>alert("WWW.IGORYKSOFT.NAROD.RU")</SCRIPT>

 

где WWW.IGORYKSOFT.NAROD.RU - текст который будет выводиться. При использовании данного кода следует учесть, что сообщение будет выводиться по типу MsgBox "Ваш Текст", vbExclamation в VB, т.е. со значком "!".

Вопрос-Ответ

    Почта для вопросов: igoryksoft@yandex.ru 

    На этом все.

   Пишите на почту: igoryksoft@yandex.ru. Заходите на сайт: www.igoryksoft.narod.ru

При копировании представленных здесь материалов, обязательно делать ссылку на www.igoryksoft.narod.ru!

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное