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

VB.NET-World

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет для бизнеса и не только" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2000   →
 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
Автор
Stripped

Статистика

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

Мир программирования на Visual BASIC 5.0 и HTML. Выпуск 11


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Мир программирования на Visual BASIC 5.0 и HTML
Мой сайт
  главная
  архив
  Memo Ver. 1.2.2
  WIN com 95
  Проекты

Спонсоры
  Городской кот
  Subscribe.Ru   Russian Surf

Ссылки
  VB Streets
  Visual BASIC
  VB: Step by Step
  SnoozeX Design   СообЧа

О подписке
  Статистика
  Подписаться

Кнопки

Рассылка 'Мир программирования на Visual BASIC 5.0 и HTML.'

мы в режиме:

SUPERTOP
Рускоязычный спосор автора рассылки: Напоминаем, что Вы будете получать 10% от дохода каждого привлеченного Вами пользователя. Кроме того, каждый привлеченный Вами пользователь может привлечь для Вас по 3 пользователя второго уровня от которых Вы будете получать по 3% от их дохода. Самый выгодный русский спонсор. Платит за время проведённое вами в сети. При накоплении 300 руб. отсылается по почте чек на ваш адрес Действуют реферал программы. Очень простая форма регистрации. (Очень рекомендую). Регистрация по ссылке.    @LEXis
Несколько слов от автора: Привет всем! Теперь я обязуюсь готовить выпуск еженедельно (!), но при одном условии: ВЫ ТОЖЕ ПРОГРАММЕРЫ и у вас если полезные коды, которые могут быть опубликованы в рассылке, прошу ВАС, пришлите мне их, а то я вам все что мог нашел из полезных кодов. Теперь ваш черед. Коды присылайте мне на e-mail.
ПРИМЕЧАНИЕ: Выпуски данной рассылки начиная с первого вы сможете прочитать на http://subscribe.ru/archive/comp.design.snoozex/    @LEXis

25.11.2000 Выпуск N11 Обзор ведет @LEXis

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

В разделе полезные коды Visual BASIC:
  • Как ловить нажатия клавиш
  • Изменение настроек типа файлов в Windows
 В разделе вопросы/ответы:
  • Ответы на вопросы читателей
 Полезные коды Visual BASIC:
  • Как ловить нажатия клавиш
Подготовте проект, добавив в него форму.
- Таймер с именем Timer1 (Enabled = True; Interval = 50) 
Добавте в форму:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) _
As Integer

Private Const VK_TAB = &H9 ' Константа для TAB key.
                           ' константы для других кнопок посмотрите в API вьювере

Private Sub Timer1_Click()

   If GetAsyncKeyState(VK_TAB) And KEY_SHIFT = True Then
        msgboх "Кто то трогает ТАБ", vbinformation
   End If

End Sub
  • Изменение настроек типа файлов в Windows
Функция, изменяющая настройки типа файлов в Windows: приложение запуска, иконку и т.д...
Здесь показан пример изменения названия, иконки и приложения для файлов .TXT
Подговте проект с формой.
На форму поместите:
- Кнопку с именем Command1 
Добавте в форму:

Private Declare Function RegCreateKey Lib "advapi32.dll" _
Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey _
As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Private Const HKEY_CLASSES_ROOT = &H80000000

Private Sub AssociateMyApp(ByVal sAppName As String, _
ByVal sEXE As String, ByVal sExt As String, Optional ByVal sIcon As String)
Dim lRegKey As Long
Call RegCreateKey(HKEY_CLASSES_ROOT, sExt, lRegKey)
Call RegSetValueEx(lRegKey, "", 0&, 1, ByVal sAppName, Len(sAppName))
Call RegCloseKey(lRegKey)
Call RegCreateKey(HKEY_CLASSES_ROOT, sAppName & "\Shell\Open\Command", lRegKey)
Call RegSetValueEx(lRegKey, "", 0&, 1, ByVal sEXE, Len(sEXE))
Call RegCloseKey(lRegKey)
If Len(sIcon) Then
Call RegCreateKey(HKEY_CLASSES_ROOT, sAppName & "\DefaultIcon", lRegKey)
Call RegSetValueEx(lRegKey, "", 0&, 1, ByVal sIcon, Len(sIcon))
Call RegCloseKey(lRegKey)
End If
End Sub

Private Sub Command1_Click()
AssociateMyApp "My New File App", "C:\File.exe %1", ".txt", "C:\File.exe,-1"
End Sub

 Вопросы / Ответы
  • Вопрос от NiDiS
    У меня вопрос: как кодируеться информация которая передаеться функциями API: 
    Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal _
hMidiOut As Long , ByVal dwMsg As Long) As Long

Private Declare Function midiOutMessage Lib "winmm.dll" (ByVal
hMidiOut As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) _
As Long
    Переменная hMidiOut - ясно, а вот остальные???
    В МСДН есть небольшое описание но я , чесно говоря, не совсем понял, я не спец в этом.

Программы разработанные автором на VB 6.0

  • Inet TIMER Ver. 1.0
    Блокирует доступ к интернету для "чайников" или просто кто очень много висит в нем. Очень "хорошие" настройки.
    требуется библиотека MSVBVM60.dll

Источник: SnoozeX Design


Код моей кнопки:

<!-- SnoozeX Design "PLAY" -->
<a href="http://snoozex.boom.ru" TARGET="_blank"><BR><IMG SRC="http://snoozex.boom.ru/new.gif" WIDTH=88 HEIGHT=31 BORDER=1 ALT="SnoozeX Design"></a>
<!-- SnoozeX Design "END" -->
Copyright © 2000 @LEXis
Design by SnoozeX Design
@LEXis WEB SITE
Email : snoozex@mail.ru
ICQ uin : 14912636
Подписаться на рассылку Кувалина Алексея
Мир программирования на Visual BASIC и HTML
Рассылка является составной частью проекта "СообЧа - СООБщество ЧАйников"
  • Сайт СообЧа: http://www.soobcha.com/
  • Сайт SnoozeX DESIGN: http://snoozex.boom.ru/
    • Подписаться на СообЧу
    (С) 2000 СообЧа (СООБцество ЧАйников)
    Спасибо за внимание. Ваш @LEXis
    http://subscribe.ru/
    E-mail: ask@subscribe.ru
    В избранное