Функции преобразования

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

CCur() преобразует значение в тип Currency CCur(“25, 98р.”)

CDate() преобразует выражение с датой в тип Date CDate(“1 дек 1995”)

CInt() преобразует значение в тип Integer CInt(“8”)

CStr() преобразует значение в тип String CStr(MyInt%)

Проверка данных с помощью функции IsNumeric()

Эта функция принимает строку и выясняет, может ли она представлять собой число. Если это число, то функция возвращает значение true, иначе – false.

Result = IsNumeric(MyString)

Пример:

Форма:

Код (проанализировать программу, при необходимости – набрать и проверить работу)

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then

MsgBox " Это числа", vbInformation, " Проверка"

Else

MsgBox " Это строки", vbInformation, " Проверка"

End If

End Sub

Private Sub Command2_Click()

On Error GoTo er

Text3.Text = CInt(Text1.Text) + CInt(Text2.Text)

Text4.Text = Text1.Text + Text2.Text

er:

If Err.Number = 13 Then

MsgBox " Одно или оба данных невозможно привести к целому типу", vbInformation, " Error"

End If

End Sub

СОЗДАНИЕ МЕНЮ

Редактор меню (Menu Editor) позволяет легко создавать строки меню, расположенные в верхней части формы, и редактировать уже созданные меню.

Создание простого меню:

1. Откройте новый проект.

2. Откройте редактор меню, щелкнув по кнопке стандартной панели инструментов:

Свойство Checked помещает флажок перед названием соответствующего пункта меню

Свойство Enabled определяет доступность элемента меню. Если равно false, то строка будет отображена затемненной.

Кнопка Next позволяет добавить новые пункты меню с текущим уровнем вложенности (выбранного пункта)

Кнопка Insert позволяет добавить новый пункт меню над выбранным пунктом.

Кнопка Delete позволяет удалить выбранный пункт меню.

3. В появившемся диалоговом окне редактора меню наберите & File в поле Caption и mnuFile в поле Name. Щелкните на кнопке Next.

4. Щелкните на кнопке со стрелкой вправо. Эта кнопка позволяет сделать отступ в списке меню.

5. Наберите E& xit в поле Caption и itmExit – в поле Name. Посмотрите, установлен ли флажок Enabled и Visible. Если нет – установите.

6. Щелкните на кнопке ОК.

7. Только что созданное Вами меню вставлено в форму. Раскройте меню File и щелкните раз на пункте Exit. При этом появится окно редактирования кода, открытое на процедуре обработки события itmExit_Click().

8. Добавьте оператор Unload Me (выгрузить текущую форму)в процедуру обработки события.

9. Запустите программу.