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

Программирование на Visual Basic, VB .NET и VBA

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

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

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

←   Январь 2006   →
 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
31
Автор
BiT

Статистика

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

По страницам сайта Visaul PROGS


Информационный Канал Subscribe.Ru
Visual PROGS
[ MP3 плейеры ] [ CD плейеры ] [Сотовые трубки ] [Диктофоны ]
[Карманные ПК ] [ Фотоаппараты ] [ Видеокамеры ] [ Радио ] [ Ноутбуки ]

..........................................................................................................................
[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Книги ] [ Уроки ] [ Разное ]
..........................................................................................................................

Выпуск 24
По страницам сайта Visaul PROGS
или Изучение VISUAL BASIC


Теперь 392 человек подписалось на рассылку.


Объявление Желаете разместить объявление в рассылке или у вас интересная новость, тогда пишите, рассмотрим.
Тематика, не обязательно программирование - новости, юмор, интересное, статьи на любую тему.


Рекомендую просмотреть обзор дисков в помощь начинающему программисту
Рекомендую просмотреть готовые кусочки программ на разные случаи жизни!

[Гостевая] [Форум] [Друзья] [Архив рассылки] [Архив новостей] [Пособие] [Agent] [Карта сайта]
 

Ужасная пассивность господа - задавайте же ваши вопросы. Давайте с самого начала учиться. И не стоит думать, что ваш вапрос - простой и вы не получите ответ. Обещаю не пропустить ни одного вопроса и все поместить в рассылке!


Задать вопрос в рассылку

Уроки VB
Следующий урок в следующем выпуске

Урок № 13. Управляющие структуры

Условный оператор Select Case...End Select

Конструкция Select Case "принимает решение" на основе анализа значения одного выражения. При этот это выражение указывается в строке Select Case:

Select Case Анализируемое_выражение

Case Значение№1
    Группа операторов
Case Значение№2
    Группа операторов
...
Case Значение№N
    Группа операторов
Case Else
    Группа операторов

End Select

Конечно, анализируемое выражение должно возвращать значение типа, совместимого с типом значений в строка Case.

Пример:

В зависимости от значения переменной iTest, строковой переменной strResult присваиваются различные значения

Select Case iTest

Case 1
    strResult = "iTest = 1"
Case 2, 3, 4
    strResult = "iTest = 2, 3 или 4"
Case 5 To 9
    strResult = "iTest находится в диапазоне от 5 до 9"
Case iTest < 0
    strResult = "iTest меньше 0"
Case Is > 9
    strResult = "iTest больше 9"
Case Else
    strResult = "iTest равно 0"

End Select


Установить формат вводимых данных.
Например только на цифры!
ASCII таблица здесь

Устанавливаем на форму 1 textbox
Изменяя значение:
Case 48 To 57
Изменяем тип разрешенной для ввода информации в textbox
Для этого примера:
048 - 0
049 - 1
050 - 2
051 - 3
052 - 4
053 - 5
054 - 6
055 - 7
056 - 8
057 - 9


Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Функции Visual Basic
Я попытаюсь рассмотреть все

Функция CurDir

CurDir[ (Drive) ]
CurDir$[ (Drive) ]

Функция CurDir(Current Directory) определяет текущую рабочую папку

Возвращаемое значение

Функция CurDir возвращает данные подтипа String типа Variant. Функция CurDir$ возвращает данные типа String

Параметры
Drive
Необязательный аргумент. Строковое выражение, указывающее на текущую рабочую папку. Если аргумент Drive не указан или является пустой строкой(""), то функция CurDir возвращает путь к текущей рабочей папке текущего рабочего диска.
Drive задается только буквой с необязательным двоеточием после нее("C" или "C:").
Если Drive задан неправильно или не существует, генерируется ошибка стадии исполнения Device unavaible
Поскольку фунция воспринимает только однобуквенные названия дисков, использовать сетевые имена дисков нельзя

Пример 


Dim retval
retval=CurDir("C")
Form1.Caption= retval ' выводим строку в заголовке формы
Категория
Функции работы с файлами

[Квесты] [Video MPEG4] [Софт] [Симуляторы] [Энциклопедии] [Аркады] [MP3] [Экшн] [Ролевые игры] [Стратегии] [Спорт] [DVD Video]
...:::Design by Mystf0rse in 2006 year:::...
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.visualprog
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное