Константи на Basic

Константи, използвани в програмите на Basic

Булеви константи

Име

Тип

Стойност

True

Boolean

1

False

Boolean

0

Пример:


            Dim bPositive as Boolean
            bPositive = True

Математическа константа

Име

Тип

Стойност

Pi

Double

3.14159265358979

Пример:


            Function Rad2Deg( aRad as Double) As Double
             Rad2Deg = aRad * 180.00 / Pi
            End Function

Обектни константи

Име

Тип

Употреба

Empty

Variant

Стойността Empty означава, че променливата не е инициализирана.

Null

null

Показва, че променливата не съдържа данни.

Nothing

Object

Присвоете на променлива обекта Nothing, за да отмените предишно присвояване.

Пример:


            SubExampleEmpty
                Dim sVar As Variant
                sVar = Empty
                Print IsEmpty(sVar) ' Връща True
            End Sub
            Sub ExampleNull
                Dim vVar As Variant
                MsgBox IsNull(vVar)
            End Sub
            Sub ExampleNothing
                Dim oDoc As Object
                Set oDoc = ThisComponent
                Print oDoc.Title
                oDoc = Nothing
                Print oDoc ' Грешка
            End Sub

Наименувани константи на MsgBox

Наименувана константа

Целочислена стойност

Дефиниция

MB_OK

0

Показва се само бутон „OK“.

MB_OKCANCEL

1

Показват се бутони „OK“ и „Отказ“.

MB_ABORTRETRYIGNORE

2

Показват се бутони „Прекратяване“, „Повторен опит“ и „Игнориране“.

MB_YESNOCANCEL

3

Показват се бутони „Да“, „Не“ и „Отказ“.

MB_YESNO

4

Показват се бутони „Да“ и „Не“.

MB_RETRYCANCEL

5

Показват се бутони „Повторен опит“ и „Отказ“.

MB_ICONSTOP

16

В диалоговия прозорец се показва икона „Стоп“.

MB_ICONQUESTION

32

В диалоговия прозорец се показва икона „Въпрос“.

MB_ICONEXCLAMATION

48

В диалоговия прозорец се показва икона „Удивителна“.

MB_ICONINFORMATION

64

В диалоговия прозорец се показва икона „Информация“.

128

Първият бутон в диалоговия прозорец е подразбиран.

MB_DEFBUTTON2

256

Вторият бутон в диалоговия прозорец е подразбиран.

MB_DEFBUTTON3

512

Третият бутон в диалоговия прозорец е подразбиран.

Наименувани константи на GetAttr

Наименувана константа

Стойност

Дефиниция

ATTR_NORMAL

0

Нормални файлове.

ATTR_READONLY

1

Файлове само за четене.

ATTR_HIDDEN

2

Скрит файл.

ATTR_SYSTEM

4

Системен файл.

ATTR_VOLUME

8

Връща името на тома.

ATTR_DIRECTORY

16

Връща само името на директорията.

ATTR_ARCHIVE

32

Файлът е бил променен след последното архивиране (бит за архивиране).

Наименувани константи за типове данни

Стойности
на TypeName

Наименувана
константа

VarType
values

Тип на променливата

…()

8192

Масив от променливи

Boolean

11

Променлива от тип Boolean

Byte

17

Променлива от тип Byte

Date

V_DATE

7

Променлива от тип Date

Currency

V_CURRENCY

6

Променлива от тип Currency

Double

V_DOUBLE

5

Променлива с плаваща запетая с двойна точност

Error

11

Променлива от тип грешка

Integer

V_INTEGER

2

Променлива от тип Integer

Long

V_LONG

3

Променлива от тип Long

Object

9

Променлива от тип Object

Single

V_SINGLE

4

Променлива с плаваща запетая с единична точност

String

V_STRING

8

Променлива от тип String

Variant

12

Променлива от тип Variant (може да съдържа произволен тип според присвоената стойност)

Empty

V_EMPTY

0

Неинициализирана променлива от тип Variant

Null

V_NULL

1

Променливата не съдържа валидни данни.

Допълнителни константи на VBA

Следните константи са достъпни, когато е включен режимът на съвместимост с VBA.

warning

Тази константа, функция или обект се разрешава с оператора Option VBASupport 1, поставен преди изпълнимия програмен код в модула.


Наименувани константи за цветове на VBA

Наименувана константа

Стойности за
червено, зелено и синьо

vbBlack

RGB(0, 0, 0)

vbBlue

RGB(0, 0, 255)

vbCyan

RGB(0, 255, 255)

vbGreen

RGB(0, 255, 0)

vbMagenta

RGB(255, 0, 255)

vbRed

RGB(255, 0, 0)

vbYellow

RGB(255, 255, 0)

vbWhite

RGB(255, 255, 255)

Наименувани константи за типове на променливи

Наименувана константа

Десетична стойност

vbArray

8192

vbBoolean

11

vbByte

17

vbCurrency

6

vbDataObject

13

vbDate

7

vbDecimal

14

vbDouble

5

vbEmpty

0

vbError

10

vbInteger

2

vbLong

3

vbNull

1

vbObject

9

vbSingle

4

vbString

8

vbUserDefinedType

36

vbVariant

12

Наименувани константи на VBA за FormatDateTime

Наименувана константа

Стойност

Описание

vbGeneralDate

0

Показва дата и/или час по начина, указан в общите системни настройки за дати. Ако е зададена само дата, не се показва час; ако е зададен само час, не се показва дата.

vbLongDate

1

Показва дата в дългия формат за дати, зададен в регионалните настройки на компютъра.

vbShortDate

2

Показва дата в късия формат за дати, зададен в регионалните настройки на компютъра.

vbLongTime

3

Показва час в дългия формат за часове от настройките на системата.

vbShortTime

4

Показва час в 24-часов формат (чч:мм).

Наименувани константи на VBA за StrConv

Преобразуване

Стойност

Описание

vbUpperCase

1

Преобразува знаците от Text към горен регистър.

vbLowerCase

2

Преобразува знаците от Text към долен регистър.

vbProperCase

3

Преобразува първата буква от всяка дума в Text към горен регистър.

vbWide

4

Преобразува тесните знаци (с половин ширина) в Text към широки знаци (с пълна ширина).

vbNarrow

8

Преобразува широките знаци (с пълна ширина) в Text към тесни знаци (с половин ширина).

vbKatakana

16

Преобразува знаците от хирагана в Text към знаци от катакана.

vbHiragana

32

Преобразува знаците от катакана в Text към знаци от хирагана.

vbUnicode

64

Преобразува знаците от Text към знаци от Уникод, използвайки подразбираната кодова страница на системата.

vbFromUnicode

128

Преобразува знаците в Text от Уникод към подразбираната кодова страница на системата.

Наименувани константи на VBA за WeekDayName

Стойност

Константа на VBA

Описание

0

vbUseSystemDayOfWeek

Използват се системните настройки за локал.

1

vbSunday

Неделя (по подразбиране)

2

vbMonday

Понеделник

3

vbTuesday

Вторник

4

vbWednesday

Сряда

5

vbThursday

Четвъртък

6

vbFriday

Петък

7

vbSaturday

Събота

Наименувани константи на VBA – разни

Наименувана константа

Шестнайсетична (десетична) стойност

Описание

vbTrue

-1

Елемент от изброения тип vbTriState.

vbFalse

0

Елемент от изброения тип vbTriState.

vbUseDefault

-2

Елемент от изброения тип vbTriState.

vbCr

\x0D (13)

CR - нов абзац

vbCrLf

\x0D\x0A (13 10)

CRLF - нов абзац и нов ред

vbFormFeed

\x0c (12)

FF - нова страница

vbLf

\x0A (10)

LF - нов ред

vbNewLine

\x0D\x0A (13 10) за Windows

\x0A (10) за други системи

LF или CRLF

vbNullString

""

Низ със стойност null

vbTab

\x09 (9)

HT - хоризонтална табулация

vbVerticalTab

\x0B (11)

VT - вертикална табулация

Моля, подкрепете ни!