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

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.885 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
29
30


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


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

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

Русский_Проект: Изучение Visual Basic


Информационный Канал Subscribe.Ru
Русский_Проект: Рассылка Вступление
Задачи
Функции API
Советы

Вступление

Здравствуйте! Прошел еще один месяц, а народ по прежнему программирует на Visual Basic, несмотря на все уговоры перейти на VB.NET. Они даже выложили ознакомительную версию на 60 дней. Теперь можно говорить, что VB.NET - это условно-бесплатная программа :-)
Конечно, рано или поздно нам придется переучиваться. Но думаю, полтора-два года у нас еще есть в запасе. Удачи!

Задачи

На сайте опубликована статья Обман зрения, рассказывающия об иллюзиях, используемых в программах. Для очень ленивых выложена программа от Андрея Мунгалова, реализующая предложенные алгоритмы.

А новых задач не будет, пока никто не решил задачу из предыдущего выпуска рассыки

Функции API

Сегодня познакомимся с функцией FatallAppExit.
Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)

FatalAppExit выводит окно с сообщением и уничтожает приложение при закрытии окна с сообщением. Рекомендуется в случае, если нет других способов закрыть приложение

Параметры

uAction
Зарезервировано. Установите равным 0
lpMessageText
Строка, выводимая в окне сообщения. Так как текст выводится в одну строчку, то рекомендуется использовать не более 35 символов в сообщении
Пример 
FatalAppExit 0, "Ну, вы, блин, даете..."
Описание данной функции войдет в Cправочник по функциям Windows API, доступный только зарегистрированным пользователям. Данный справочник содержит около 400 популярных функций и сообщений!

Советы

Выводим окно "Открыть с помощью..." и открываем заданный файл выбранной программой 
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 Long) As Long

Sub ShowOpenWithDialog(ByVal sFileName As String)
    ShellExecute 0, vbNullString, "RUNDLL32.EXE", _
        "shell32.dll,OpenAs_RunDLL " & sFileName, "", vbNormalFocus
End Sub

' Вставьте код в программу
ShowOpenWithDialog "C:\Programs\MyProg\MyFile.xyz"

Вот и все на сегодня!

Присылайте ваши предложения по адресу rusproject@mail.ru
Посетите сайт Русский_Проект, где вы найдете другую интересную информацию
Давайте делать рассылку вместе! Счастливого вам программирования!

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