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

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Русский_Проект:Рассылка Десятый выпуск

Содержание
1 Вступление
2 Новости сайта
3 Обмен значениями
4 Функции API

Вступление

Вопрос. Стоит ли продолжать создание справочников по VB. Например, справочник по операторам

Новости сайта

С большим опозданием в России вышла легендарная книга Дана Эпплмана о WinAPI in VB. Читайте первые впечатления о книге на сайте
Выложена обновленная версия справочника по встроенным функциям vb(исправлены некоторые неточности, опечатки)
В справочнике по FileSystemObject вкралась опечатка - в свойстве DriveType объекта Drive неверно указано возвращаемое значение номер 4, это не сетевой диск, а CD-ROM.(Спасибо Геннадию(h-gennady@mtg...) за указанную ошибку). Исправленная версия уже доступна для скачивания

Обмен значениями

Существует несколько способов обмена значениями между двумя переменными. Самый простой - задействовать третью переменную для временного хранения промежуточного вычисления Dim A As Integer Dim B As Integer Dim Temp As Integer Temp=A A=B B=Temp Если вы не хотите использовать третью переменную, то вот второй способ: A=A+B B=A-B A=A-B И, наконец, существует третий эффектый и красивый способ A=A Xor B B=A Xor B A=A Xor B Это очень хитрый трюк, но работает медленнее, чем первые два. Не увлекайтесь хитрыми трюками!

Функции API

Функция IsCharAlpha

IsCharAlpha определяет является ли данный символ буквой(а не цифрой, знаком препинания, специальным символом и т.д.). Это определение основано на семантике языка выбранного пользователем во время установки или через Панель Управления

Возвращаемое значение
Если символ является буквой, функция возвращает ненулевое значение. Если символ не является буквой, функция возвращает 0 (используйте GetLastError для получения кода ошибки)

Параметры
cChar
Определяет символ, который нужно тестировать
Пример
' Определяем, является ли буквой нажимаемая клавиша
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim retval As String
Me.Cls
' Извлекаем информацию о символе
If IsCharAlpha(KeyAscii) Then
  retval = " буква"
  Me.Print "Вы нажали: " + Chr$(KeyAscii)
  Me.Print "Это" + retval
Else
 Me.Print "Вы нажали: " + Chr$(KeyAscii)
 Me.Print "Это не буква"
End If
End Sub


Полный текст с описанием этой функции вы найдете в новой версии справочника по функциям API(209 функций), который скоро появится на сайте!

Спасибо тем, кто приобрел справочник! Если вы еще не зарегистрировались, то поспешите, пока действует специальная цена.

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


http://subscribe.ru/
E-mail: ask@subscribe.ru

В избранное