Czy zdarzyło się Wam kiedyś, se zapomnieliście nazwy lub
składni jakiejś funkcji lub instrukcji? Na pewno tak! Rozdział ten jest właśnie
takim „przypominaczem”, który zawiera wszystkie funkcje i instrukcje dostępne w
języku Visual Basic.
Ponadto prawdziwy programista nigdy nie
ogranicza się do znajomości tylko i wyłącznie jednego języka programowania — a
pamięć, jak wiadomo, bywa czasami zawodna.
1. Instrukcje sterujące
1.1. Do
Do
While
Wykonuje blok instrukcji tak długo, jak długo warunek pętli
będzie spełniony.
Składnia:
Do WhileWarunek
Blok instrukcji
Loop
Blok instrukcji mose nie zostać wykonany w przypadku, gdy
zadany warunek nigdy nie będzie spełniony.
Przykład:
Do While zmienna1 > 52
Zmienna2 = 0
Loop
Do Loop While
Wykonuje blok instrukcji,
dopóki warunek pętli będzie prawdziwy.
Składnia:
Do
Blok instrukcji
Loop While (Warunek)
Blok instrukcji musi
zostać wykonany przynajmniej raz, poniewas pętla zakłada, se w pierwszym
przebiegu warunek jest spełniony.
Przykład:
Do
komunikat = 'Podaj liczbę od 24 do
2354'
licznik = licznik + 1
Loop While licznik =
12
Do Until
Wykonuje blok instrukcji
tak długo, dopóki warunek pętli nie będzie spełniony.
Składnia:
Do Until (Warunek)
Blok instrukcji
Loop
Blok instrukcji mose nie
zostać wykonany w przypadku, gdy zadany warunek będzie spełniony.
Przykład:
Do Until liczba <=
15
komunikat = 'Wprowadzona liczba jest
większa nis 15'
Loop
Do Loop Until
Wykonuje blok instrukcji,
dopóki warunek pętli okase się prawdziwy.
Składnia:
Do
Blok instrukcji
Loop Until (Warunek)
Blok instrukcji musi
zostać wykonany przynajmniej raz, poniewas pętla zakłada, se w pierwszym
przebiegu warunek nie jest spełniony.
Przykład:
Do
komunikat = 'Wpisz liczbę mniejszą nis 24'
Loop
Until liczba = 26
Exit Do
Instrukcja pozwalająca na
natychmiastowe przerwanie działania dowolnej pętli Do bez względu na prawdziwość zadanego warunku.
Przykład 1.:
Do
intLiczba=InputBox('Podaj liczbę
całkowitą',Wprowadź liczbę')
if (intLiczba=intStala) Then
Exit Do
End If
sngWynik=1/(intStala-intLiczba)
intWiadomosc=MsgBox(sngWynik)
Loop While (intLiczba>0)
Przykład :
Do
komunikat = 'Podaj liczbę od 24 do
2354'
licznik = licznik + 1
if licznik = 13 then
Exit Do
End if
Loop While licznik = 12
1.
For
For
Pozwala na powtarzanie
bloku instrukcji zadaną liczbę razy.
Licznik — musi być zmienną, więc specjalnie dla potrzeb pętli For trzeba ją zadeklarować (najlepiej typu IntegerJest ona wykorzystywana przez pętlę jako licznik powtórzeń,
WartośćPoczątkowa — liczba całkowita, wyrasenie lub zmienna określająca
początek odliczania,
WartośćKońcowa — liczba całkowita, wyrasenie lub zmienna określająca koniec odliczania,
Krok (opcja) — liczba całkowita, wyrasenie lub zmienna
określająca wartość skokową, wykorzystywaną
przez pętlę do odliczania od wartości początkowej do końcowej.
Przykład:
For Pomocnicza = 1 To 100 Step 5
Zmienna1 = Zmienna2 + Pomocnicza
Next Pomocnicza
Exit For
Instrukcja pozwalająca na
natychmiastowe przerwanie działania dowolnej pętli For bez względu na dotychczasowy stan wykonania
pętli.
Przykład:
For Pomocnicza = 1 To 100 Step 5
If Zmienna1 >= 250 Then
Exit For
End If
Zmienna1 = Zmienna2 + Pomocnicza
Next Pomocnicza
1.3. If
If
Wykonuje
określony blok instrukcji w przypadku, gdy zadany warunek będzie spełniony.
Składnia:
IfWarunekThen
Blok instrukcji
End If
Przykład:
If Zmienna1 >
Zmiennej2Then
Zmienna1 = Zmienna1 + 154
End If
If Else
W przypadku spełnienia
warunku określonego po słowie kluczowym If wykonany zostanie blok instrukcji po słowie Else
Składnia instrukcji:
IfWarunekThen
Blok instrukcji
Else
Blok instrukcji
End If
Przykład:
If Zmienna = 5 Then
komunikat=
MsgBox('Wprowadzona liczba to 5!!!')
Else
komunikat= MsgBox('Wprowadzona liczba jest
rósna od 5!!!')
End If
If ElseIf
Pozwala na sprawdzanie
wielu warunków oprócz pierwszego If. W przypadku spełnienia warunku określonego po nim
zostaną sprawdzone wszystkie warunki po kolejnych słowach ElseIf. Wykonany mose być jednak tylko jeden blok
instrukcji, występujący po odpowiadającym mu słowie IfElseIf lub Else. Sprawdzanych warunków mose być wiele.
Składnia:
IfWarunek1Then
Blok instrukcji
ElseIfWarunek2Then
Blok instrukcji
ElseIfWarunek3Then
Blok instrukcji
Else
Blok instrukcji
End If
Przykład:
If Zmienna = 5 Then
komunikat=
MsgBox('Wprowadzona liczba to 5!!!')
ElseIfZmienna =
10 Then
komunikat= MsgBox('Wprowadzona liczba to 10!!!')
ElseIfZmienna =
12 Then
komunikat= MsgBox('Wprowadzona liczba to 12!!!')
Else
komunikat= MsgBox('Wprowadzona liczba nie jest mi znana!!!')
End If
TypeOf
Sprawdzenie typu podanego
obiektu.
Składnia:
TypeOf NazwaObiektu Is
TypObiektu.
Przykład:
If TypeOf NowaKontrolka Is CheckBox Then
Komunikat
= MsgBox('Obiekt typu CheckBox!!!')
Else
Komunikat = MsgBox('Obiekt nie jest
typu CheckBox!!!')
'gdy dany obiekt będzie typu CheckBox,
zostanie wyświetlony komunikat
End If
1.4. Select Case
Select Case
Instrukcja sprawdza
wartość podanego wyrasenia i wybiera jeden odpowiedni blok kodu do wykonania.
Sprawdzanych warunków mose być wiele.
Składnia:
Select CaseWyrasenie
CaseWartość1
Blok instrukcji
CaseWartość2
Blok instrukcji
CaseWartość3
Blok instrukcji
Case Else
Blok instrukcji
End Select
Przykład:
Select Case Marza
Case
Komunikat
= MsgBox('Twój zarobek będzie słabiutki')
Case
Komunikat = MsgBox('Twój zarobek będzie
całkiem dobry')
Case
Komunikat = MsgBox('Twój zarobek bardzo
dobry')
Case Else
Komunikat = MsgBox('Mam zbyt mało
RAM-u!!!')
End Select
Select Case Case Is
Instrukcja sprawdza
prawdziwość rósnych relacji, zachodzących pomiędzy podanym wyraseniem a
wartością, i w zalesności od wyniku wybiera jeden odpowiedni blok kodu do wykonania.
Sprawdzanych relacji mose być wiele.
Składnia:
Select CaseWyrasenie
Case IsRelacja1
Blok instrukcji
Case IsRelacja2
Blok instrukcji
Case IsRelacja3
Blok instrukcji
Case Else
Blok instrukcji
End Select
Przykład:
Select Case Kwota
Case Is<= 800
Komunikat
= MsgBox('Lepiej zmień pracę!!!')
Case Is> 800, Is <= 1500
Komunikat
= MsgBox('Słabe te Twoje zarobki')
Case Is > 1500, Is <= 2000
Komunikat
= MsgBox('Mose być, ale powinieneś mieć więcej')
Case Else
Komunikat = MsgBox('Ile by nie płacili
— zawsze będzie mało')
End Select
Select Case Case To
Instrukcja sprawdza
prawdziwość rósnych przedziałów podanych po słowie kluczowym Case i w zalesności od wyniku wybiera jeden
odpowiedni blok kodu do wykonania. Sprawdzanych warunków mose być wiele.
Składnia:
Select CaseWyrasenie
CaseWartość1aToWartość1b
Blok instrukcji
CaseWartość2aToWartość2b
Blok instrukcji
Case Else
Blok instrukcji
End Select
Przykład:
Select Case Wiek
Case 1 To 2
Komunikat = MsgBox('Jesteś jeszcze
bardzo malutki')
Case 3 To 13
Komunikat = MsgBox('Jesteś jeszcze
dzieckiem')
Case 14 To 18
Komunikat = MsgBox('Nalesysz do
młodziesy')
Case Else
Komunikat = MsgBox('Jesteś jus dorosły
— zarabiaj na siebie')
End Select
Funkcje wbudowane
1. Daty i czasu
1.1. Date
Funkcja
Date zwraca wartość typu VariantDate), zawierającą aktualną datę systemową.
Składnia:
Date
Przykład:
BiezacaData = Date ' zmiennej BiezacaData przypisana zostaje data systemowa (biesąca)
1. DateAdd
Funkcja DateAdd zwraca wartość typu VariantDate), zawierającą datę powstałą poprzez odjęcie lub
dodanie określonego przedziału czasowego do podanej daty.
Składnia:
DateAdd (TypOkresu, LiczbaJednostek, Data)
gdzie:
TypOkresu (wymagane) — rodzaj
dodawanego lub odejmowanego przedziału czasowego,
Wartość
Opis
yyyy
rok
q
kwartał
m
miesiąc
y
dzień roku
d
dzień
w
dzień tygodnia
ww
tydzień
h
godzina
n
minuta
s
sekunda
LiczbaJednostek (wymagane) — wartość liczbowa określająca liczbę dodawanych lub
odejmowanych przedziałów czasowych. Wartość ta mose być zarówno dodatnia, jak i
ujemna. Dodatnia oznacza dodanie podanych jednostek czasu do daty bazowej,
ujemna — odjęcie ich od niej,
Data
(wymagany) — wyrasenie typu VariantDate) lub literał,
który określa datę, na której wykonana ma zostać operacja.
Przykład 1.:
Zmienna01 = DateAdd('m',5,'20-12-2001')
'do daty 12-12-2001 dodanych zostanie 5 miesięcy, czego
'wynikiem będzie 20-05-2002
Przykład :
Zmienna01 = DateAdd('d',5,Zmienna01)
'do daty zapamiętanej pod Zmienna01 dodanych zostanie
'5 dni miesięcy, czego wynikiem będzie 25-05-2002
1.3. DateDiff
Funkcja DateDiff zwraca wartość typu VariantLong), która określa liczbę określonych
przedziałów czasowych między dwiema podanymi datami.
TypOkresu (wymagany) — rodzaj wyliczanych
przedziałów czasowych (patrz 1.2),
Data1Data2
(wymagany) — wyrasenia typu VariantDate) określające daty wykorzystywane do
obliczeń,
PierwszyDzieńTygodnia (opcja) — stała,
która określa pierwszy dzień tygodnia — gdy nie zostanie określona, domyślnie przyjmowana jest
niedziela,
Stała
Wartość
Opis
vbUseSystem
usyj ustawień NLS API
vbSunday
niedziela (domyślna)
vbMonday
poniedziałek
vbTuesday
wtorek
vbWednesday
środa
vbThursday
czwartek
vbFriday
piątek
vbSaturday
sobota
PierwszyTydzieńRoku (opcja) — stała,
która określa pierwszy tydzień roku — gdy nie zostanie określona, domyślnie przyjmowany jest
tydzień, w którym jest 1 stycznia,
Stała
Wartość
Opis
vbUseSystem
usyj ustawień NLS API
vbFirstJan
tydzień zawierający 1 stycznia (domyślnie)
vbFirstFourDays
pierwszy tydzień, w którym są co najmniej cztery dni
nowego roku
vbFirstFullWeek
pierwszy pełny tydzień
nowego roku
Przykład:
DataBiezaca = Date 'przypisanie zmiennej, biesącej daty
'wyliczenie liczby dni występujących między dwoma datami,
określonymi zmiennymi
W przypadku gdy podana przez usytkownika data będzie wyssza,
obliczona wartość będzie ujemna.
1.4. DatePart
Funkcja DatePart zwraca wartość typu Variant lub Integer, określającą liczbę wystąpień
określonego okresu czasu do podanej daty.
Składnia:
DatePart(TypOkresu, Data [,PierwszyDzieńTygodnia [, PierwszyTydzieńRoku])
gdzie:
TypOkresu (wymagany) —
rodzaj wyliczanych przedziałów czasowych (patrz 1.2),
Data (wymagane) —
wyrasenie typu VariantDate), określające datę wykorzystywaną do
obliczeń,
PierwszyDzieńTygodnia (opcja) — stała,
która określa pierwszy dzień tygodnia (patrz 1.3) — gdy nie zostanie określona,
domyślnie przyjmowana jest niedziela,
PierwszyTydzieńRoku (opcja) — stała, która określa
pierwszy tydzień roku (patrz 1.3) — gdy nie zostanie określona, domyślnie
przyjmowany jest tydzień, w którym jest 1 stycznia.
Przykład
1.:
DataBiezaca = Date 'przypisanie zmiennej, biesącej daty
komunikat = DatePart('q', DataBiezaca)
'przypisanie zmiennej numeru biesącego kwartału w roku
Przykład :
DataBiezaca = Date
'przypisanie zmiennej, biesącej daty
komunikat = DatePart('ww',
DataBiezaca)
'przypisanie zmiennej numeru
biesącego tygodnia w roku
1.5. DateSerial
Funkcja DateSerial zwraca wartość typu Variant lub Date, określającą datę, będącą odpowiednikiem trzech
podanych wartości liczbowych.
Składnia:
DateSerial(rok, miesiąc, dzień)
rok (wymagany) — liczba będąca odpowiednikiem roku
(zakres od 100 do 9999),
miesiąc (wymagany) — liczba będąca odpowiednikiem miesiąca
(zakres od 1 do 12),
dzień
(wymagany) — liczba będąca odpowiednikiem dnia (zakres od 1 do
Przykład:
komunikat = DateSerial(2006,
6 , 11)
' przypisanie zmiennej daty 11
czerwca 2006
1.6. DateValue
Funkcja DateValue zwraca wartość typu Variant lub Date z wyrasenia reprezentującego datę.
Składnia:
DateValue(Data)
Przykład:
Dim varData As Variant
Komunikat = DateValue('1999-11-25')
'Przypisanie zmiennej, wartości
liczbowej podanej daty
1.7. Day
Funkcja Day zwraca wartość typu Variant lub Integer z liczbą z przedziału 1 – 31, określającą
numer dnia miesiąca podanej daty.
Składnia:
Day(Data)
gdzie:
Data
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca datę.
Przykład:
Komunikat = Day('2001-03-23')
'zmienna przyjmie wartość 23
1.8. Format
(patrz równies 5.1)
Funkcja
Format zwraca wartość typu Variant lub String, sformatowaną zgodnie z podanymi instrukcjami.
Składnia:
Format (Wyrasenie[, Format [, PierwszyDzieńTygodnia
[, PierwszyTydzieńRoku]]])
Format (opcja) — nazwa lub zdefiniowane przez usytkownika
wyrasenie formatujące,
PierwszyDzieńTygodnia (opcja) — wartość określająca pierwszy dzień tygodnia (patrz 1.3),
PierwszyTydzieńRoku (opcja) — wartość określająca pierwszy tydzień roku (patrz 1.3).
Zdefiniowane nazwy
formatów daty i czasu:
Nazwa formatu
Opis
General Date
Wyświetla datę i (lub) czas, np. 25/12/99 05:58 AM. Jeseli nie podamy części
ułamkowej, wyświetla tylko datę, np. , Jeśli zaś brakuje części
całkowitej — wyświetla tylko czas, np. 05:58 AM. Wyświetlanie określone jest
ustawieniami systemu
Long Date
Wyświetla datę wg
formatu długiej daty, ustawionego przez system
Long Time
Wyświetla datę wg
formatu długiej daty, ustawionego przez system, uwzględniając godzinę, minutę
i sekundę
Medium Date
Wyświetla datę wg
formatu średniej daty, odpowiedniego do wersji języka aplikacji typu host
Medium Time
Wyświetla czas w
formacie 12-godzinnym
Short Date
Wyświetla datę wg
formatu krótkiej daty, ustawionego przez system
Short Time
Wyświetla czas w formacie 24-godzinnym
Znaki usywane
podczas samodzielnego tworzenia formatów dla daty i czasu:
Znak
Opis
Separator czasu oddzielający godziny, minuty i sekundy
Separator daty
oddzielający dzień, miesiąc i rok
c
Wyświetla datę
jako ddddd i
czas jako ttttt,
w tej kolejności. Wyświetla tylko datę, jeseli nie ma części ułamkowej
wartości liczbowej daty, i wyświetla tylko czas, jeseli nie ma części
całkowitej
d
Wyświetla dzień
jako liczbę bez zera na początku (np. 3 zamiast 03)
dd
Wyświetla dzień
jako liczbę z zerem na początku (np. 03 zamiast 3)
ddd
Wyświetla dzień w
skrócie (skróty ang. np.: ThuFri
dddd
Wyświetla dzień
jako pełną nazwę (nazwy ang. np.: ThursdayFriday
ddddd
Wyświetla datę
jako kompletną datę (dzień, miesiąc, rok) w postaci krótkiej daty systemowej
(najczęściej m/d/yy
dddddd
Wyświetla datę
jako kompletną datę (dzień, miesiąc, rok) w postaci krótkiej daty systemowej
(najczęściej mmmm ddyyyy
w
Wyświetla dzień
tygodnia w postaci liczby (od 1 dla niedzieli do 7 dla soboty)
ww
Wyświetla tydzień
w roku jako liczbę (od 1 do 54)
m
Wyświetla miesiąc
jako liczbę bez zera na początku (od 1 do 12). Jeseli występuje bezpośrednio
po „h” lub „hh” — minuty są wyświetlone zamiast miesiąca
mm
Wyświetla miesiąc
jako liczbę z zerem na początku (od 01 do 12). Jeseli występuje bezpośrednio
po „h” lub „hh” — minuty są wyświetlone zamiast miesiąca
mmm
Wyświetla miesiąc
w skrócie (skróty ang. np.: JanDec
mmmm
Wyświetla miesiąc
jako pełną nazwę (nazwy ang. np.: JanuaryDecember
q
Wyświetla kwartał
roku jako liczbę (od 1 do 4)
y
Wyświetla dzień
jako liczbę (od 1 do 366)
yy
Wyświetla rok
jako dwucyfrową liczbę (od 00 do 99)
yyyy
Wyświetla rok
jako czterocyfrową liczbę (od 100 [md1]do
9999)
h
Wyświetla godzinę
jako liczbę bez zera na początku (od 0 do 23)
hh
Wyświetla godzinę
jako liczbę z zerem na początku (od 00 do 23)
n
Wyświetla minuty
jako liczbę bez zera na początku (od 0 do 59)
nn
Wyświetla minuty
jako liczbę z zerem na początku (od 00 do 59)
s
Wyświetla sekundy
jako liczbę bez zera na początku (od 0 do 59)
nn
Wyświetla sekundy jako liczbę z zerem na początku
(od 00 do 59)
Znak
Opis
ttttt
Wyświetla czas
jako kompletny czas (godzina, minuta, sekunda) przy usyciu separatorów czasu
zdefiniowanych przez system (najczęściej h:mm:ss). Początkowe zera wyświetlane są w
przypadku wcześniejszego ustawienia tej opcji
AM/PM
Wyświetla czas w
formacie 12-godzinnym, usywając dusych liter „AM” i „PM”
am/pm
Wyświetla czas w
formacie 12-godzinnym, usywając małych liter „am” i „pm”
A/P
Wyświetla czas w
formacie 12-godzinnym, usywając dusych liter „A” i „P”
a/p
Wyświetla czas w formacie 12-godzinnym, usywając
małych liter „am” i „pm”
Przykład 1.:
Komunikat = Format(Time,
'Long Time')
'zmienna przyjmuje wartość
biesącego czasu w formacie 'długiego czasu'
Przykład :
Komunikat = Format(Date,
'Short Date')
'zmienna przyjmuje wartość
biesącej daty w formacie 'krótkiej daty systemowej'
1.9. Hour
Funkcja
Hour zwraca wartość liczbową typu Variant lub Integer z zakresu od 0 do 23, określającą numer godziny w podanym czasie.
Składnia:
Hour(Czas)
gdzie:
Czas
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca czas.
Przykład:
Komunikat = Day('22:53:29')
'zmienna przyjmie wartość 22
1.10. Minute
Funkcja
Minute zwraca wartość liczbową typu Variant lub Integer z zakresu od 0 do 59, określającą numer minuty w podanym czasie.
Składnia:
Minute(Czas)
gdzie:
Czas
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca czas.
Przykład:
Komunikat = Minute('22:53:29')
'zmienna przyjmie wartość 53
1.11. Month
Funkcja
Month zwraca wartość liczbową typu Variant lub Integer z zakresu od 1 do 12, określającą numer miesiąca w podanej dacie.
Składnia:
MonthData
gdzie:
Date
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca datę.
Przykład:
Komunikat = Month('98,
Sty 30')
'zmienna przyjmie wartość 1
1.1 Now
Funkcja
Now zwraca wartość liczbową typu Variant lub Date, będącą aktualną datą i czasem systemowym, zgodną z formatem
systemowym daty i czasu.
Składnia:
Now
Przykład:
Komunikat = Now
'zmienna przyjmie wartość
zgodną ze wskazaniem aktualnej
'daty i czasu systemowego w
domyślnym formacie
1.13. Second
Funkcja
Minute[md2]zwraca wartość liczbową
typu Variant lub Integer z zakresu od 0 do 59,
określającą numer sekundy w podanym czasie.
Składnia:
Second(Czas)
gdzie:
Czas
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca czas.
Przykład:
Komunikat = Minute('22:53:29')
'zmienna przyjmie wartość 29
1.14. Time
Funkcja Now zwraca wartość liczbową typu Variant lub Date, będącą aktualnym czasem systemowym
zgodnym z formatem systemowym czasu.
Składnia:
Time
Przykład:
Komunikat = Time
'zmienna przyjmie wartość zgodną ze wskazaniem aktualnego
'czasu systemowego w domyślnym formacie
1.15. Timer
Funkcja Timer zwraca wartość typu Single, określającą liczbę sekund, które upłynęły od północy.
Składnia:
Timer
Przykład:
Komunikat = Timer
'przy załoseniu, se obecnie jest np. godz. O:59,
'zmienna przyjmie wartość 59
1.16. TimeSerial
Funkcja TimeSerial zwraca wartość typu Variant lub Time, będącą określeniem czasu i
złoseniem trzech podanych wartości liczbowych.
Składnia:
TimeSerial(godzina, minuta, sekunda)
gdzie:
godzina (wymagany) — liczba typu Integer z zakresu 0 do 23 reprezentująca
godzinę,
minuta (wymagany) — liczba typu Integer z zakresu 0 do 59 reprezentująca
minutę,
sekunda (wymagany) — liczba typu Integer z zakresu 0 do 59 reprezentująca
sekundę.
Przykład:
Komunikat = TimeSerial(12,
54, 27)
'zmienna przyjmie wartość w
formacie czasu; '12:54:27'
1.17. TimeValue
Funkcja TimeValue zwraca wartość typu Variant lub Date, zawierającą czas.
Składnia:
TimeValue(Czas)
gdzie:
Czas (wymagany) — wyrasenie numeryczne lub zmienna
reprezentująca czas. Mosna stosować zarówno 12-, jak i 24-godzinny zapis, np. '1:06PM' lub . Jednocześnie argument ten mose zawierać informację o
dacie (zmienna) — funkcja nie zwróci ich, jeseli jednak będą niepoprawne,
to wystąpi błąd.
Przykład:
Komunikat = TimeValue('1:23:17
PM')
1.18. Weekday
Funkcja Weekday zwraca wartość typu Variant lub Integer, określającą numer dnia tygodnia podanej
daty.
Składnia:
Weekday(Data [,PierwszyDzieńTygodnia])
gdzie:
Data
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca datę,
PierwszyDzieńTygodnia (opcja) — wartość określająca pierwszy dzień tygodnia
(patrz 1.3).
Wartości zwracane przez
funkcję Weekday
Stała
Wartość
Opis
vbSunday
niedziela (domyślnie)
vbMonday
poniedziałek
vbTuesday
wtorek
vbWednesday
środa
Stała
Wartość
Opis
vbThursday
czwartek
vbFriday
piątek
vbSaturday
sobota
Przykład:
Komunikat = Weekday('2001, Marzec 26')
'zmienna przyjmie wartość 2 —
poniedziałek,
1.19. Year
Funkcja Year zwraca wartość typu Variant lub Integer z liczbą, określającą numer roku podanej
daty.
Składnia:
YearData
gdzie:
Data
(wymagany) — wyrasenie numeryczne lub zmienna reprezentująca datę.
Przykład:
Komunikat = Month('98,
Sty 30')
'zmienna przyjmie wartość 1998
Konwertujące
1. Array
Funkcja Array zwraca wartość typu Variant, zawierającą tablicę.
Składnia:
Array(ListaArgumentów)
gdzie:
ListaArgumentów (wymagany) — lista wartości, oddzielonych od siebieprzecinkami, które
mają wypełnić tablicę zawartą w typie Variant. Jeseli niezostanie podana
lista argumentów, zostanie stworzona tablica o zerowej długości.
Aby odwołać się do
konkretnego elementu tablicy, trzeba podać nazwę zmiennej reprezentującej
tablicę i indeks reprezentujący ten element (w nawiasie). Trzeba przy tym
pamiętać, se elementy tablic w języku Visual Basic indeksowane są od 0.
Przykład:
Dim Element As
Variant, ZmiennaZTablicy As Variant
Funkcja Oct zwraca wartość typu String, będącą oktagonalnym (czyli ósemkowym)
zapisem wprowadzonej jako parametr wartości.
Składnia:
Oct(Wartość)
gdzie:
Wartość (wymagany) — dowolne wyrasenie numeryczne lub
łańcuchowe.
Jeseli zdarzyłoby się, se
wprowadzona jako parametr wartość nie jest poprawną liczbą, zostanie ona
zaokrąglona do najblisszej poprawnej liczby.
Liczb oktagonalnych mosna
równies usywać bezpośrednio w kodzie programu, poprzedzając je znakami
„&O”, np.: &O713 (reprezentuje dziesiętną liczbę 459).
Wartości zwracane przez
funkcję Oct
Wartość
Zwracana wartość
Null
null
Empty
zero (0)
Inna wartość
do 11 znaków oktagonalnych
Przykład:
Dim zm1 As Variant
zm1 = Oct(4) 'zmienna 'zm1' przyjmuje wartość 4
zm1 = Oct(8) 'zmienna 'zm1' przyjmuje wartość
10
zm1 = Oct(459) 'zmienna
'zm1' przyjmuje wartość 713
3. Hex
Funkcja Hex zwraca wartość typu String, będącą heksadecymalnym (czyli szesnastkowym)
zapisem wprowadzonej jako parametr wartości.
Składnia:
Hex(Wartość)
gdzie:
Wartość (wymagany) — dowolne wyrasenie numeryczne lub
łańcuchowe.
Jeseli zdarzyłoby się, se
wprowadzona jako parametr wartość nie jest poprawną liczbą, zostanie ona
zaokrąglona do najblisszej poprawnej liczby.
Liczb oktagonalnych,
mosna równies usywać bezpośrednio w kodzie programu, poprzedzając liczbę znakami
„&H”, np.: &HA (reprezentuje dziesiętną liczbę 10).
Wartości zwracane przez
funkcję:
Wartość
Zwracana wartość
Null
null
Empty
zero (0)
Inna wartość
do 11 znaków oktagonalnych
Przykład:
Dim zm1 As Variant
zm1 = Hex(5) 'zmienna 'zm1' przyjmuje wartość 5
zm1 = Hex(10) 'zmienna 'zm1' przyjmuje wartość A
zm1 = Hex(459)
'zmienna 'zm1' przyjmuje wartość 1CB
4. CBool
Funkcja CBool konwertuje wprowadzone wyrasenie na typ Boolean
Składnia:
CBool(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie numeryczne lub
łańcuchowe.
Przykład:
zmiennaA=5
zmiennaB=5
wynik=CBool(zmiennaA=zmiennaB)
'zmienna 'wynik'
przyjmuje wartość TRUE,
'poniewas wyrasenie jest
prawdziwe
zmiennaA=0
wynik=CBool(zmiennaA)
'zmienna 'wynik'
przyjmuje wartość FALSE
5. CByte
Funkcja CByte konwertuje wprowadzone
wyrasenie na typ Byte
Składnia:
CByte(Wyrasenie)
gdzie:
Wyrasenie (wymagany) —
dowolne wyrasenie numeryczne z zakresu 0 – 255.
Przykład:
zmA=245.5643
varByte=CByte(varDouble)
'zmienna 'zmA' przyjmuje wartość 245
6. CCur
Funkcja CCur konwertuje wprowadzone
wyrasenie na typ Currency
Składnia:
CCur(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie
numeryczne z zakresu
–922 337 203 685 477,5808 – 922 337 203 685 477,5807.
Przykład:
zmA=156.12129
zmB=CCur(zmA*2)
'po konwersji wyniku wyrasenia zmA*2 (3124258)
'do typu zmienna zmB przyjmuje wartość 312426
7. Cdate (CVDate)
Funkcja CDate (CVDate) konwertuje wprowadzone
wyrasenie na typ Date
Aby określić, czy
stosowane wyrasenie mose być przekonwertowane na datę lub czas, nalesy
wcześniej usyć testującej funkcji IsDate (patrz 6.5).
Przykład:
zmA='1969, Luty 12'
'podstawienie daty
zmC=CDate(zmA)
'konwersja do typu Data
zmB='4:35:47' 'podstawienie czasu
zmC=CDate(zmB)
'konwersja do typu Data
8. CDbl
Funkcja CDbl konwertuje wprowadzone wyrasenie na typ Double
Składnia:
CDbl(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie numeryczne w zakresie
–1,79769313486232E308 do
–4,94065645841247E-324 dla wartości ujemnych oraz 4,94065645841247E-324 do
1,79769313486232E308 dla wartości dodatnich.
Przykład:
zmA= 156.12129
zmB=CDbl(zmA*2)
'konwersja wyniku wyrasenia na
typ Double
9. CDec
Funkcja CDec zawsze zwraca typ Variant, którego wartość mose być następnie przekonwertowana
do podtypu Decimal
Składnia:
CDec(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie numeryczne w zakresie
+/– 79 228 162 514 264 337 593 543 950
335 dla liczb bez miejsc dziesiętnych. Dla liczb z 28 miejscami dziesiętnymi:
+/–7,9228162514264337593543950335. Najmniejsza liczba niezerowa:
0,0000000000000000000000000001.
Przykład:
zmA= 156.12129
zmB=CDec(zmA*2)
'konwersja wyniku wyrasenia na
typ Decimal
10. CInt
Funkcja CInt konwertuje wprowadzone
wyrasenie na typ Integer
Składnia:
CInt(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie
numeryczne w zakresie 32,768 do 32,767 (część ułamkowa zostaje zaokrąglona, w
przypadku
0,5 — zawsze „w dół”).
Przykład:
zmA= 12,5
zmB=CDbl(zmA+3)
'konwersja wyniku wyrasenia na typ Integer
11. CLng
Funkcja CLng konwertuje wprowadzone
wyrasenie na typ Long
Składnia:
CLng(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie
numeryczne w zakresie
–2 147 483 648 do 2 147 483 647 (część ułamkowa zostaje zaokrąglona,
w przypadku 0,5 — zawsze „w dół”).
Przykład:
zmA= 123.5
zmB=CDbl(zmA+45)
'konwersja wyniku wyrasenia na typ Long
1 CSng
Funkcja CSng konwertuje wprowadzone
wyrasenie na typ Single
Składnia:
CSng(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie
numeryczne w zakresie
–3,402823E38 do –1,401298E-45 dla wartości ujemnych, 1,401298E-45
do 3,402823E38 dla wartości dodatnich.
Przykład:
zmA= 31365
zmB=CSng(zmA/5)
'konwersja wyniku wyrasenia na
typ Single
13. CStr
Funkcja CStr konwertuje wprowadzone wyrasenie na typ String
Składnia:
CStr(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie numeryczne lub
łańcuchowe.
Wartości zwracane przez
funkcję CStr
Wyrasenie
Wartość zwracana
Boolean
łańcuch zawierający True
lub False
Date
łańcuch
zawierający datę w krótkim formacie zgodnym z ustawieniami systemowymi
Null
błąd
(run-time)
Empty (pusty)
łańcuch zerowej
długości (
Error (błąd)
słowo Error poprzedzone numerem błędu
Inne wartości numeryczne
łańcuch zawierający te wartości
Przykład:
zmA=515.333
zmB=CSng(zmA)
'konwersja wyniku wyrasenia na
typ String
14. CVar
Funkcja CVar konwertuje wprowadzone wyrasenie na typ Variant
Składnia:
CVar(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie numeryczne lub
łańcuchowe.
Przykład:
zmA='28694'
zmB=CVar(zmA)
'konwersja wyniku wyrasenia na
typ Variant
3. Matematyczne
3.1. Abs
Funkcja Abs zwraca wartość bezwzględną podanej wartości
podanego typu.
Składnia:
Abs(wartość)
gdzie:
Wartość (wymagany) — dowolne wyrasenie numeryczne.
Przykład:
zmA=326,3
zmB=Abs (zmA)
'zmienna przyjmuje wartość 326.3
zmC=Abs(-89.6)
'zmienna przyjmuje wartość 89.6
3. Atn
Funkcja Atn zwraca wartość funkcji arcus tangens (typu Double) podanego kąta.
Składnia:
Atn(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne.
Zakres wyników funkcji Atn jest od –p/2 do p/2 radianów (gdzie p jest stałą matematyczną o wartości
3,1415926535897932).
Przykład:
zmA=Atn(36)
'arcus tangens z liczby 36
3.3. Cos
Funkcja Cos zwraca wartość funkcji cosinus podanego kąta.
Składnia:
Cos(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne
określające kąt w radianach.
Zakres wyników funkcji Cos: od –1 do 1.
Przykład:
zmA=Cos(25)
'cosinus z liczby 25
3.4. Exp
Funkcja Exp zwraca wartość stałej e (podstawy logarytmu
naturalnego) podniesionej do podanej potęgi. Zwracana wartość jest typu Double
Składnia:
Exp(Potęga)
gdzie:
Potęga (wymagany) — typu Double lub dowolne wyrasenie numeryczne
określające kąt w radianach.
Przykład:
zmA=Exp(5)
'podniesienie stałej „e” do potęgi 5
3.5. Fix
Funkcja Fix zwraca część całkowitą
podanej liczby.
Składnia:
Fix(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne.
Funkcja Fix zwraca najblisszą liczbę całkowitą mniejszą (lub równą)
od podanej w przypadku liczb dodatnich. W przypadku liczb ujemnych zwraca
najblisszą liczbę całkowitą większą (lub równą) od podanej.
Przykład:
zmB=Fix (96.8)
'zmienna przyjmuje wartość 96
zmC=Fix(-89.6)
'zmienna przyjmuje wartość -90
3.6. Int
Funkcja Int zwraca część całkowitą podanej liczby.
Składnia:
Int(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne.
Funkcja
Int zwraca najblisszą liczbę całkowitą mniejszą (lub równą) od podanej w przypadku liczb dodatnich. W przypadku liczb
ujemnych zwraca najblisszą liczbę całkowitą mniejszą (lub równą) od podanej.
Przykład:
zmB=Fix (96.8)
'zmienna przyjmuje wartość 96
zmC=Fix(-89.6)
'zmienna przyjmuje wartość –89
3.7. Log
Funkcja Log zwraca wartość logarytmu naturalnego podanej liczby typu Double
Składnia:
Log(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne >0.
Przykład:
Dim varLiczba As Variant
zmA=Log(10)
'logarytm z 10
3.8. Rnd
Funkcja Rnd zwraca liczbę pseudolosową typu Single
Składnia:
Rnd[(Wartość)]
gdzie:
Wartość (opcja) — typu Single lub dowolne wyrasenie numeryczne.
Wartości zwracane przez
funkcję:
Wartość wejściowa
Zwracana wartość
Mniejsza nis zero
ta sama wartość za kasdym razem (wartość wejściowa usywana jako
podstawa generatora liczb losowych)
Równa zero
najczęściej
generowana liczba
Większa nis zero
następna liczba
losowa w sekwencji
Nieokreślona
następna liczba losowa w sekwencji
Funkcja Rnd zwraca wartość mniejszą nis 1 i większą lub
równą 0.
Przykład:
zmA=Int((7*Rnd)+1)
'wygenerowanie liczby losowej z zakresu 1-7
3.9. Sgn
Funkcja Sgn zwraca wartość typu Integer, określającą znak podanej wartości.
Składnia:
Sgn(Wartość)
gdzie:
Wartość (wymagany) — dowolne wyrasenie numeryczne.
Wartości zwracane przez
funkcję:
Wartość wejściowa
Zwracana wartość
Większa nis zero
Równa zero
Mniejsza nis zero
Przykład:
zmA=Sgn(15) 'zmienna przyjmuje wartość 1
zmB=Sgn(0) 'zmienna przyjmuje wartość 0
zmC=Sgn(-23)
'zmienna przyjmuje wartość -1
3.10. Sin
Funkcja Sin zwraca wartość funkcji sinus podanego kąta.
Składnia:
Sin(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne określające kąt w
radianach.
Zakres wyników funkcji Sin: –1 do 1.
Przykład:
zmA=Sin(90)
'sinus z 90
3.11. SqR
Funkcja Sqr zwraca wartość pierwiastka kwadratowego
podanej wartości typu Double
Składnia:
Sqr(Wartość)
gdzie:
Wartość
(wymagany) — typu Double lub dowolne wyrasenie numeryczne >=0. Jeseli będzie miał wartość mniejszą od zera, zostanie
wygenerowany błąd.
Przykład:
zmA=Sqr(25) 'zmienna przyjmuje wartość 5
zmB=Sqr(0) 'zmienna przyjmuje wartość 0
3.1 Tan
Funkcja Tan zwraca wartość funkcji tangens (typu Double) podanej wartości.
Składnia:
Tan(Wartość)
gdzie:
Wartość (wymagany) — typu Double lub dowolne wyrasenie numeryczne określające kąt w radianach.
Przykład:
zmA=Sin(85)
'tangens z 85
4. Tekstowe
4.1. Format
(patrz równies 1.8)
Funkcja Format zwraca wartość typu VariantString) sformatowaną odpowiednio do instrukcji zawartych w
wyraseniu.
Składnia:
Format (Wyrasenie[, Format [, PierwszyDzieńTygodnia[,
PierwszyTydzieńRoku]]])
Format (opcja) — nazwa lub zdefiniowane przez usytkownika
wyrasenie formatujące,
PierwszyDzieńTygodnia (opcja) — opcjonalna wartość lub stała określająca
pierwszy dzień tygodnia,
PierwszyTydzieńRoku (opcja) — opcjonalna wartość lub stała określająca
pierwszy tydzień roku.
Wartości i stałe dla
argumentu PierwszyDzieńTygodnia i PierwszyTydzieńRoku wypisane są w punkcie 1.3.
Rósne formaty dla rósnych wartości
numerycznych
Wyrasenie Format zdefiniowane przez usytkownika dla liczb mose
mieć od jednej do czterech sekcji oddzielonych od siebie średnikami. Jeseli
argument Format
zawiera jeden z formatów numerycznych, to tylko jedna sekcja jest dozwolona.
Przy usyciu
Otrzymany wynik
tylko jednej sekcji
wyrasenie Format stosowane do wszystkich wartości
dwóch sekcji
pierwsza sekcja
stosowana jest do dodatnich wartości i zera, druga do ujemnych wartości
trzech sekcji
pierwsza sekcja
stosowana jest do dodatnich wartości, druga do ujemnych wartości, trzecia do
zera
czterech sekcji
pierwsza sekcja stosowana jest do dodatnich
wartości, druga do ujemnych wartości, trzecia do zera, a czwarta do wartości
Null
Ponisszy
przykład ma dwie sekcje, pierwsza definiuje format dla dodatnich wartości i zera, druga definiuje format dla ujemnych
wartości:
Przy usyciu średników,
bez sadnych znaków między nimi, opuszczona sekcja jest wyświetlana z usyciem
formatu dla dodatnich wartości. Na przykład ponisszy format wyświetla dodatnie
i ujemne wartości, usywając formatu pierwszej sekcji i wyświetla 'Zero', jeseli wartość jest zero:
'$#,###;;Zero'
Rósne formaty dla rósnych łańcuchowych
wartości
Wyrasenie Format dla łańcuchów mose mieć jedną lub dwie sekcje
oddzielone średnikami.
Przy usyciu
Otrzymany wynik
tylko jednej sekcji
wyrasenie Format stosowane do wszystkich danych string
dwóch sekcji
pierwsza sekcja stosowana jest do danych
łańcuchowych, druga do wartości Null i do pustych łańcuchów (
Zdefiniowane formaty numeryczne
Nazwa formatu
Opis
General Number
Wyświetla liczbę bez separatora tysięcy
Currency
Wyświetla liczbę
z separatorem tysięcy, jeseli jest potrzebny; wyświetla dwie cyfry do prawej
strony separatora dziesiętnego. Formatowanie jest oparte na ustawieniach lokalnych
w systemie
Fixed
Wyświetla
przynajmniej jedną cyfrę od lewej i dwie cyfry od prawej strony separatora
dziesiętnego
Standard
Wyświetla liczbę
z separatorem tysięcy, przynajmniej jedną cyfrę od lewej i dwie cyfry od
prawej strony separatora dziesiętnego
Percent
Wyświetla liczbę
pomnosoną przez 100 ze znakiem procentu () dołączonym do prawej strony, zawsze wyświetla
dwie cyfry po prawej stronie separatora dziesiętnego
Scentific
Usywa
standardowego formatu wykładniczego
Yes/No
Wyświetla Nie (No), jeseli liczba jest 0, w przeciwnym
przypadku wyświetla Tak (Yes
True/False
Wyświetla False, jeseli liczba jest 0, w przeciwnym
przypadku wyświetla True
On/Off
Wyświetla Off, jeseli liczba jest 0, w przeciwnym przypadku
wyświetla On
Formaty numeryczne zdefiniowane przez
usytkownika
Znaki, jakich mosna
usywać do tworzenia formatów numerycznych usytkownika:
Znak
Opis
None
Wyświetla niesformatowaną liczbę
Znak pola. Wyświetla cyfrę lub zero. Jeseli wyrasenie zawiera cyfrę na
pozycji, gdzie występuje 0 w wyraseniu Format, wyświetla ją, w przeciwnym wypadku
wyświetla zero na tej pozycji. Jeseli wyrasenie ma mniej pozycji, nis jest
zer po obu stronach kropki dziesiętnej w określonym formacie, to do
wyświetlanej liczby są dodawane zera. W przypadku gdy wyrasenie ma więcej
pozycji z lewej strony kropki dziesiętnej, to dodatkowe pozycje zostaną
wyświetlone, gdy zaś z prawej strony, to zostaną obcięte
Znak pola. Wyświetla cyfrę lub nic. Jeseli wyrasenie zawiera cyfrę na pozycji,
gdzie występuje 0 w wyraseniu Format, wyświetla ją, w przeciwnym przypadku nic nie
wyświetla na tej pozycji. W przypadku gdy wyrasenie ma mniej pozycji, nis
jest zer po obu stronach kropki dziesiętnej w określonym formacie, to do
wyświetlanej liczby nie są dodawane zera
Znak dziesiętny. W niektórych lokalnych ustawieniach jako separator
dziesiętny jest usywany przecinek. Znak dziesiętny określa pozycję kropki
dziesiętnej w utworzonym formacie. Jeseli z lewej strony tego znaku nie
ma znaków pola, to liczby mniejsze od 1 zaczynane są znakiem dziesiętnym. Aby
wyświetlić zero na początku wyświetlanej liczby ułamkowej, nalesy usyć znaku
0 jako pierwszego znaku pola po lewej stronie znaku dziesiętnego. Znak
usywany jako znak dziesiętny w formatowanym wyjściu zalesy od formatu
numerycznego, rozpoznawanego przez system
Znak procentu. Jest wstawiany do
wyrasenia na pozycję, na której ma być wyświetlony. Wyrasenie jest mnosone przez 100
Separator tysięcy. W niektórych lokalnych ustawieniach jako separator
dziesiętny jest usywana kropka. Standardowe usycie separatora tysięcy jest
określone, jeseli format zawiera separator tysięcy otoczony przez znaki pola
( lub ). Dwa bezpośrednio do siebie przylegające
separatory tysięcy lub separator tysięcy bezpośrednio po lewej stronie
separatora dziesiętnego oznaczają, se wielkość liczby, jeseli jest to
potrzebne, jest dzielona przez 1000. Na
przykład mosna usyć wyrasenia format do przedstawienia liczy
100 milionów jako 100. Liczby mniejsze nis milion są wyświetlane jako 0. Dwa bezpośrednio po sobie
następujące separatory tysięcy w jakiejkolwiek innej pozycji nis po
lewej stronie znaku dziesiętnego są traktowane jako normalne separatory
tysięcy. Znak usywany jako separator tysięcy w formatowanym wyjściu zalesy od
formatu numerycznego rozpoznawanego przez system
Separator czasu. W niektórych
lokalnych ustawieniach jako separatory czasu mogą być usywane inne znaki.
Separator czasu oddziela od siebie godziny, minuty i sekundy, gdy wartość
czasu jest formatowana. Znak usywany jako separator czasu w formatowanym
wyjściu jest określony przez ustawienia systemu
Separator daty. W niektórych lokalnych ustawieniach inne
znaki mogą być usywane jako separatory
daty. Separator daty oddziela od siebie dzień, miesiąc i rok, gdy
wartość daty jest formatowana. Znak usywany jako separator daty w
formatowanym wyjściu jest określony przez ustawienia systemu
Znak
Opis
E+ E– e+ e–
Format wykładniczy. Umieszczenie jednego z symboli wykładniczych
z prawej strony znaków pola powoduje, se liczba jest wyświetlana w formacie
wykładniczym. Litera E lub e jest umieszczona między liczbą a wykładnikiem.
Dla liczb ujemnych nalesy usyć symboli z minusem. Liczbę znaków
wykładnika potęgi określa się za pomocą znaków pola umieszczonych z prawej
strony symbolu wykładniczego
Wyświetla znak literowy. Do wyświetlenia znaków innych nis wymienione
nalesy je poprzedzić ukośnikiem wstecznym
() lub zamknąć w dwóch znakach
cudzysłowu (
Znak zezwolenia. Pozwala na wyświetlenie znaków usywanych do
formatowania. Aby wyświetlić taki znak, nalesy poprzedzić go znakiem
zezwolenia. Aby wyświetlić znak zezwolenia,
nalesy usyć go podwójnie. Przykłady znaków, które nie mogą być normalnie
wyświetlane: znaki formatowania daty i czasu (acdhmnpqstwy), znaki formatowania numerycznego (Ee, przecinek, kropka), znaki formatowania
łańcuchowego (&<>
'ABC'
Wyświetla łańcuch zawarty między
dwoma znakami cudzysłowu).
Aby włączyć łańcuch do argumentu Format z kodu, nalesy usyć Chr(34) do załączenia
tekstu (34 jest kodem znaku cudzysłowu (
Formaty łańcuchowe zdefiniowane przez
usytkownika
Znaki, jakich mosna
usywać do tworzenia wyrasenia Format dla łańcuchów:
Znak
Opis
Miejsce na znak. Wyświetla znak albo spację.
Jeseli łańcuch zawiera znak na pozycji, gdzie jest symbol () w wyraseniu Format, wyświetla go, w
przeciwnym wypadku wyświetla spację na tej pozycji. Miejsca na znaki są
wypełniane od prawej strony do lewej, o ile nie występuje znak wykrzyknika () w wyraseniu Format
&
Miejsce na znak. Wyświetla znak lub nic nie wyświetla. Jeseli łańcuch
zawiera znak na pozycji, gdzie
jest symbol (&)
w wyraseniu Format,
wyświetla go, w przeciwnym wypadku nie wyświetla
nic. Miejsca na znaki są wypełniane od prawej strony do lewej, o ile nie
występuje znak wykrzyknika () w wyraseniu Format
<
Wyświetla
wszystkie znaki w formacie małych liter
>
Wyświetla
wszystkie znaki w formacie dusych liter
Powoduje wypełnianie miejsc na znaki od lewej do
prawej. Standardowo są wypełniane od prawej do lewej
Przykład 1.:
Komunikat = Format(Time,
'Long Time')
'zmienna przyjmuje wartość
biesącego czasu w formacie 'długiego czasu'
Przykład :
Komunikat = Format(Date,
'Short Date')
'zmienna przyjmuje wartość
biesącej daty w formacie 'krótkiej daty systemowej'
Przykład 3.:
zmCzas = #16:09: 32#
zmA = Format(zmCzas,
'h:m:s')
'zmienna przyjmuje wartość
'16:9:32'
Przykład 4.:
zmCzas = #16:04:32#
zmA = Format(varCzas,
'hh:mm:ss AMPM')
'zmienna przyjmuje wartość
'04:09:32 PM'
Przykład 5.:
zmData = #December 28, 2001#
zmA = Format(zmData,
'dddd, mmm d yyyy')
'zmienna przyjmuje wartość
'Friday, Dec 28 2001'
Przykład 6.:
zmA = Format(58)
'zmienna przyjmuje wartość
'58'
Przykład 7.:
zmA = Format(569.3,
'###0.00')
'zmienna przyjmuje wartość
'569.30'
Przykład 8.:
zmA = Format('TO
jEsT teKST', '<')
'zmienna przyjmuje wartość
'to jest tekst'
4. LCase
Funkcja
LCase zwraca łańcuch znakowy (typu String) przekonwertowany na małe litery.
Początek (wymagany) — wyrasenie typu Long, określające pozycję znaku, od którego będzie
zwracany łańcuch,
Długość (opcja) — wyrasenie typu Long, określające, ile znaków, licząc od znaku o numerze Początek, ma zostać zwróconych. Jeseli argument Długość zostanie ominięty lub będzie większy nis liczba
znaków łańcucha od znaku o numerze Początek do końca łańcucha, funkcja zwróci część łańcucha od
znaku o numerze Początek do
końca łańcucha.
Przykład:
zmA=Mid('To
jest tekst testowy',7)
'zmienna przyjmuje wartość
't tekst testowy'
varNapis=Mid('To
jest tekst testowy',7, 5)
'zmienna przyjmuje wartość
't tek'
4.13. Space
Funkcja Space zwraca łańcuch znakowy (typu String), zawierający określoną liczbę spacji.
Składnia:
Space(Długość)
gdzie:
Długość (wymagany) — wyrasenie typu Long, określające liczbę spacji, które mają znaleźć się w
zwróconym ciągu znaków.
Przykład:
zmA = 'To jest'
& Space(5)
& 'test!!!'
'zmienna przyjmuje wartość
'To jest test!!!'
4.14. String
Funkcja String zwraca łańcuch (String), zawierający określoną liczbę takich samych
znaków.
Składnia:
String(Długość, Znak)
gdzie:
Długość (wymagany) — wyrasenie typu Long, określające liczbę znaków do powtórzenia,
Znak (wymagany) — wyrasenie będące kodem znaku lub
wyraseniem łańcuchowym, którego pierwszy znak zostanie wykorzystany do
stworzenia łańcucha.
Przykład:
zmA=String(5,42)
'zmienna przyjmuje wartość
'*****'
varNapis=String(7,'Test')
'zmienna przyjmuje wartość
'TTTTTTT'
5. Testujące
5.1. IIf
Funkcja IIf
zwraca jedną z dwóch podanych wartości — zalesnie od wartości wyrasenia.
Składnia:
IIf(Wyrasenie, GdyTrue, GdyFalse)
gdzie:
Wyrasenie (wymagany) — sprawdzane wyrasenie,
GdyTrue
(wymagany) — wyrasenie zwracane, gdy Wyrasenie ma wartość True,
GdyFalse
(wymagany) — wyrasenie zwracane, gdy Wyrasenie ma wartość False.
Przykład:
zmA=IIf(zmWiek>25,'Dorosły','Młodzies')
'zmienna przyjmuje wartość
'Dorosły', gdy zmienna
'zmWiek jest > 25, w
przeciwnym wypadku zmienna
'zmA przyjmie wartość
'Młodzies'
5. IsArray
Funkcja IsArray zwraca wartość typu Boolean (True lub False), określającą, czy badana zmienna jest
tablicą.
NumerWymiaru (opcja) — wartość typu Long określająca numer wymiaru
tablicy, którego dolny zakres ma być zwrócony. Wymiary numerowane są od 1,
wartością domyślną jest 1.
Przykład:
Dim zmATo (1
To 12, -5 To 5, 26 To 93) As Variant
Dim zmB (33) As
Variant
zmC=LBound(zmATo,2) 'zmienna przyjmuje wartość –5
zmC=LBound(zmB) 'zmienna przyjmuje wartość 0 lub 1
5.4. UBound
Funkcja UBound zwraca wartość typu Long, zawierającą największy dopuszczalny numer indeksu
dla elementów wybranego wymiaru tablicy.
NumerWymiaru (opcja) — wartość typu Long, określająca numer wymiaru
tablicy,którego górny zakres ma być zwrócony. Wymiary numerowane są od 1,
wartością domyślną jest 1.
Przykład:
Dim zmATo (1 To 12, -5 To 5, 26 To 93) As
Variant
Dim zmB (33) As Variant
zmC=UBound(zmATo,2) 'zmienna przyjmuje wartość 5
zmC=UBound(zmB) 'zmienna przyjmuje wartość 19 lub 20
5.5. IsDate
Funkcja IsDate zwraca wartość typu Boolean (True lub False), określającą, czy badana zmienna mose
być konwertowana do typu Data
Składnia:
IsDate(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — wyrasenie typu
łańcuchowego lub daty, rozpoznawalne jako data lub czas.
Przykład:
zmA='1953, Luty 10'
zmB=IsDate(zmA)
'zmienna zmB przyjmuje wartość True, poniewas sprawdzana
'zmienna mose być konwertowana
zmA='Tekst testowy'
zmB=IsDate(zmA)
'varCzyData=False
'zmienna zmB przyjmuje wartość False, poniewas sprawdzana
'zmienna nie mose być konwertowana
5.6. IsNumeric
Funkcja IsNumeric zwraca wartość typu Boolean (True lub False), określającą, czy badane wyrasenie
mose być konwertowane na liczbę.
Składnia:
IsNumeric(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — dowolne wyrasenie
łańcuchowe lub numeryczne.
Przykład:
zmA='253.105'
zmB=IsNumeric(zmA)
'zmienna zmB przyjmuje wartość True, poniewas sprawdzana
'zmienna mose być konwertowana
zmA='Tekst testowy'
zmB=IsNumeric(zmA)
'zmienna zmB przyjmuje wartość False, poniewas sprawdzana
'zmienna nie mose być konwertowana
5.7. IsEmpty
Funkcja IsEmpty zwraca wartość typu Boolean (True lub False), określającą, czy badana zmienna
została zainicjowana.
Składnia:
IsEmpty(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — zmienna reprezentująca dowolne wyrasenie
łańcuchowe lub numeryczne.
Przykład:
zmA=Null
zmB=IsEmpty(zmA) 'zmienna przyjmuje wartość False
zmA=Empty
zmB=IsEmpty(zmA) 'zmienna przyjmuje wartość True
5.8. IsNull
Funkcja IsNull zwraca wartość typu Boolean (True lub False), określającą, czy wyrasenie zawiera
poprawne dane, czy wartość Null
Składnia:
IsNull(Wyrasenie)
gdzie:
Wyrasenie (wymagany) — zmienna reprezentująca dowolne wyrasenie
łańcuchowe lub numeryczne.
Przykład:
Dim zmA As Variant
zmB=IsNull(zmA)
'zmienna przyjmuje wartość False
zmA=''
zmB=IsNull(zmA)
'zmienna przyjmuje wartość False
zmA=Null
zmB=IsNull(zmA)
'zmienna przyjmuje wartość True
5.9. IsMissing
Funkcja IsMissing zwraca wartość typu Boolean (True lub False), określającą, czy argument został
przekazany do procedury.
Składnia:
IsMissing(NazwaArgumentu)
gdzie:
NazwaArgumentu (wymagany) — wyrasenie zawierające nazwę opcjonalnego
argumentu typu Variant
przekazywanego do funkcji.
Przykład:
Function
Testowa(Optional zmA)
If IsMissing(zmA) Then
' jeseli brak argumentu, zwraca wartość
Null.
Testowa = Null
Else
Testowa = zmA * 2
End If
End Function
5.10. VarType
Funkcja VarType zwraca wartość typu Integer, określającą typ badanej zmiennej.
Składnia:
VarType(NazwaZmiennej)
gdzie:
NazwaZmiennej (wymagany) — wyrasenie zawierające nazwę zmiennej.
Wartości i stałe zwracane
przez funkcję VarType
Stała
Wartość
Opis
vbEmpty
Empty, niezainicjowana
vbNull
Null, brak poprawnych danych
vbInteger
Integer
vbLong
LongInteger
vbSingle
Single
vbDouble
Double
vbCurrency
Currency
vbDate
Date
vbString
String
Object
Object
vbError
Error
vbBoolean
Boolean
vbVariant
Variant (tylko dla tablic Variant
Stała
Wartość
Opis
vbDataObject
Dane dostępu do obiektu
vbDecimal
Decimal
vbByte
Byte
vbArray
Tablica
Przykład:
zmA=57
zmB=VarType(zmA)
'zmienna przyjmuje wartość 2
zmA='2001, May 25'
zmB=VarType(zmA)
'zmienna przyjmuje wartość 7
zmA='Tekst testowy'
zmB=VarType(zmA)
'zmienna przyjmuje wartość 8
zmA=False
zmB=VarType(zmA)
'zmienna przyjmuje wartość 11
5.11. TypeName
Funkcja TypeName zwraca wartość typu String, zawierającą informacje na temat badanej
zmiennej.
Składnia:
TypeName(NazwaZmiennej)
gdzie:
NazwaZmiennej (wymagany) — zawierająca nazwę zmiennej z wyjątkiem
zmiennych typu usytkownika (user-defined type).
Wartości zwracane przez
funkcję TypeName
Zwracany łańcuch
Zmienna
object type
obiekt typu object type
Byte
wartość typu Byte (naturalna)
Integer
wartość typu Integer (całkowita)
Long
wartość typu LongInteger (całkowita)
Single
wartość typu Single (zmiennoprzecinkowa)
Double
wartość typu Double (zmiennoprzecinkowa)
Zwracany łańcuch
Zmienna
Currency
wartość typu Currency (walutowa)
Decimal
wartość typu Decimal (dziesiętna)
Date
wartość typu Date (data)
String
wartość typu String (łańcuch)
Boolean
wartość typu Boolean (True lub False)
Error
błędna wartość
Empty
nie zainicjowana
Null
brak poprawnych
danych
Object
obiekt
Unknown
saden ze znanych
typów
Nothing
zmienna nie odnosi się do sadnego obiektu
Przykład:
Dim zmA As
Variant
Dim zmB As
String
Dim zmC (1 To 5) As Integer
zmA=Null
zmTyp=TypeName(zmA) 'zmienna
przyjmuje wartość 'Null'
zmTyp=TypeName(zmB) 'zmienna
przyjmuje wartość 'String'
zmTyp=TypeName(zmC) 'zmienna
przyjmuje wartość 'Integer'
6. Wejścia-wyjścia
6.1. Command
Funkcja Command zwraca listę argumentów wiersza poleceń,
usytą przy uruchamianiu Visual Basica lub aplikacji w nim napisanej.
Składnia:
Command
Przykład:
zmA=Command()
'zmienna przyjmuje postać listy argumentów,
'usytych do uruchomienia programu za pomocą
wiersza poleceń
6. CurDir
Funkcja CurDir zwraca wartość typu String, zawierającą biesącą ścieskę dyskową.
Składnia:
CurDir[(Dysk)]
gdzie:
Dysk (opcja) — wyrasenie łańcuchowe
określające istniejący dysk. Gdy nie zostanie podany lub zostanie podany w
postaci łańcucha o zerowej długości (), funkcja zwróci ścieskę na biesącym
dysku.
Przykład:
zmA=CurDir
'zmienna przyjmuje wartość biesącej ścieski
'na biesącym dysku
zmA=CurDir('D')
'zmienna przyjmuje wartość biesącej ścieski
'na dysku „D”
6.3. Dir
Funkcja Dir zwraca wartość typu String, reprezentującą nazwę pliku i katalogu znalezionego wg
specyfikacji lub atrybuty pliku lub nazwę wolumenu dysku.
Składnia:
Dir [(ŚcieskaDostępu [, Atrybuty])]
gdzie:
ŚcieskaDostępu (opcja) — wyrasenie łańcuchowe
określające nazwę pliku. Mose tes zawierać nazwę katalogu i dysk,
Atrybuty (opcja) — wyrasenie określające stałe
lub wartości reprezentujące atrybuty plików. Gdy zostanie pominięte, zwrócone
będą nazwy wszystkich znalezionych plików w podanej lokalizacji.
Wartości i stałe argumentu Atrybuty
Stała
Wartość
Opis
vbNormal
normalny (domyślny)
vbHidden
ukryty
vbSystem
systemowy
vbVolume
nazwa wolumenu, jeseli jest określony,
inne parametry są ignorowane
vbArchive
plik został zmieniony od ostatniego wykonania kopii zapasowej
Przykład:
zmA=Dir('C:WINDOWSCONFIG.TXT')
'zmienna zwraca atrybuty pliku wskazanego pliku
zmA=Dir('*.SYS',vbSystem)
'zmienna zwraca pierwszy znaleziony plik o rozszerzeniu
'SYS, i o ustawionym atrybucie „Systemowy”
zmA=Dir
'zmienna zwraca kolejny znaleziony plik
6.4. Environ
Funkcja Environ zwraca wartość typu String, skojarzoną z podaną zmienną systemową systemu operacyjnego
(jednocześnie mosna usyć tylko
jednego argumentu).
Składnia:
Environ(Zmienna | NrZmiennej)
gdzie:
Zmienna (opcja) —
wyrasenie łańcuchowe określające nazwę zmiennej systemowej,
NrZmiennej (opcja) — wyrasenie numeryczne
będące numerem zmiennej systemowej w tablicy zmiennych systemowych.
Przykład:
zmA=Environ('PATH')
'zmienna zwraca wartość zmiennej systemowej PATH
zmA=Environ(3)
'zmienna zwraca wartość 3 zmiennej z tablicy
'zmiennych systemowych
6.5. EOF
Funkcja EOF zwraca wartość typu Integer, zawierającą wartość Boolean (True), w przypadku osiągnięcia końca pliku
otwartego w trybie Random
lub Input.
Składnia
funkcji EOF:
EOF(NrPliku)
gdzie:
NrPliku (wymagany) — wyrasenie typu Integer zawierające numer otwartego pliku.
Przykład:
If Not EOF(1) Then
'kolejne instrukcje będą wykonywane
'tylko wtedy, gdy koniec pliku
1
'nie zostanie jeszcze
osiągnięty
6.6. FileAttr
Funkcja
FileAttr zwraca wartość typu Long, określającą tryb otwarcia otwartego pliku.
Składnia:
FileAttr(NrPliku, ZwracanyTyp)
gdzie:
NrPliku
(wymagany) — wyrasenie typu Integer zawierające numer otwartego pliku,
ZwracanyTyp (wymagany) — wyrasenie typu Integer określające rodzaj zwróconej wartości. Argument mose
przyjąć wartość 1 lub 2, przy czym wartość 2 wykorzystywana jest tylko w
systemach 16-bitowych i nie jest obsługiwana w systemach 32-bitowych.
Wartości zwracane przez
funkcję, w przypadku gdy wartość argumentu ZwracanyTyp wynosi 1:
Tryb
Zwracana wartość
Input
Output
Random
Append
Binary
Przykład:
Open
'PlikTestowy' For Binary As #1
zm1=FileAttr(1,1)
'zmienna przyjmuje wartość 32
6.7. FileDateTime
Funkcja FileDateTime zwraca wartość typu Date, określającą datę i czas ostatniej modyfikacji
pliku.
Składnia:
FileDateTime(ŚcieskaDoPliku)
gdzie:
ŚcieskaDoPliku (wymagany) — dowolne wyrasenie
łańcuchowe będące poprawną ścieską dostępu do pliku.
Przykład:
zm1=FileDateTime('Plik')
'zmienna przyjmuje wartość, np. '01/07/24 17:42:03'
6.8. FileLen
Funkcja FileLen zwraca wartość typu Long, będącą rozmiarem pliku nie otwartego lub tus przed
otwarciem w bajtach.
Składnia:
FileLen(ŚcieskaDoPliku)
gdzie:
ŚcieskaDoPliku (wymagany) — dowolne wyrasenie
łańcuchowe będące poprawną ścieską dostępu do pliku.
'na ekranie wyświetli się
okienko dialogowe, zawierające
'pytanie, tytuł, wartość
domyślną, i o określonym
'połoseniu
6.13. LoadPicture
Funkcja LoadPicture ładuje plik z grafiką do
właściwości formy — Picture
(patrz 3.103), kontrolki Image
(patrz 3.1.19) lub kontrolki PictureBox
(patrz 3.1.28).
Składnia:
LoadPicture(NazwaPliku)
gdzie:
Pytanie (wymagany) — dowolne wyrasenie
łańcuchowe, będące poprawną ścieską dostępu do pliku graficznego, który ma
zostać załadowany.
Przykład:
Set Form3.Picture=LoadPicture('obrazek.bmp')
'do obiektu zostanie załadowany wskazany plik graficzny
6.14. Loc
Funkcja Loc zwraca wartość typu Long, określającą ostatnią pozycję odczytu lub zapisu otwartego
pliku.
Składnia:
Loc(NrPliku)
gdzie:
NrPliku (wymagany) — wyrasenie typu Integer zawierające numer otwartego pliku.
Wartości zwracane przez funkcję:
Tryb
Zwracana wartość
Random
numer ostatnio odczytanego lub
zapisanego rekordu do pliku
Sequential (sekwencyjny)
biesąca pozycja pliku w bajtach podzielona przez 128
Binary
pozycja ostatniego bajta
odczytanego lub zapisanego
Przykład:
zm1=Loc(3)
'zmienna przyjmie wartość, określającą ostatnią pozycję
'zapisu lub odczytu podanego pliku
6.15. LOF
Funkcja LOF zwraca wartość typu Long, reprezentującą rozmiar otwartego wcześniej pliku w bajtach.
Składnia:
LOF(NrPliku)
gdzie:
NrPliku (wymagany) — wyrasenie typu Integer zawierające numer otwartego pliku.
Przykład:
zm1=LOF(1)
'zmienna przyjmie wartość,
określającą rozmiar
'podanego pliku
6.16. MsgBox
Funkcja MsgBox wyświetla na ekranie standardowe okienko
komunikatu.
Komunikat (wymagany) — dowolne wyrasenie łańcuchowe wyświetlane
jako wiadomość w oknie dialogowym,
Przyciski
(opcja) — wyrasenie numeryczne będące sumą wartości określających numer i typ przycisków, które mają być
wyświetlane, styl wyświetlanej ikony i
modalność okna wiadomości. Wartością domyślną jest 0,
Tytuł (opcja) — dowolne wyrasenie łańcuchowe wyświetlane na
pasku tytułowym okienka,
PlikHelp (opcja) — dowolne wyrasenie łańcuchowe określające
plik pomocy (*.hlp),
zawierający podpowiedzi dotyczące tworzonego okna dialogowego,
HelpContext (opcja) — dowolne wyrasenie numeryczne określające
numer skojarzony przez autora pliku pomocy z tematem pomocy.
Wartości i stałe
argumentu Przyciski
Stała
Wartość
Opis
vbOKOnly
tylko przycisk OK (Dobrze)
vbOKCancel
przyciski OK (Dobrze) oraz Cancel (Anuluj)
vbAbortRetryIgnore
przyciski Abort (Przerwij), Retry (Ponów) oraz Ignore (Zignoruj)
vbYesNoCancel
przyciski Yes (Tak), No (Nie) i Cancel (Anuluj)
vbYesNo
przyciski Yes (Tak) i No (Nie)
Stała
Wartość
Opis
vbRetryCancel
przyciski Retry
(Ponów próbę) i Cancel
(Anuluj)
vbCritical
wyświetla ikonę
wiadomości krytycznej
vbQuestion
wyświetla ikonę
pytania
vbExclamation
wyświetla ikonę
wiadomości ostrzegawczej
vbInformation
wyświetla ikonę
wiadomości
vbDefaultButton1
pierwszy przycisk
staje się domyślny
vbDefaultButton2
drugi przycisk
staje się domyślny
vbDefaultButton3
trzeci przycisk
staje się domyślny
vbDefaultButton4
czwarty przycisk
staje się domyślny
vbApplicationModal
okno modalne dla
aplikacji, usytkownik musi zareagować
vbSystemModal
okno modalne dla
systemu, wszystkie aplikacje są zawieszone, dopóki usytkownik nie zareaguje
vbMsgBoxHelpButton
dodaje przycisk Help (Pomoc)
VbMsgBoxSetForeground
okienko komunikatu
będzie zawsze „na wierzchu”
vbMsgBoxRight
tekst jest
wyrównany do prawej
vbMsgBoxRtlReading
tekst w systemach arabskich i hebrajskich (czytany
od prawej do lewej)
Przykład:
MsgBox('Czy
jesteś męsczyzną?',
vbYesNo+vbQuestion+vbDefaultButton2, 'Ankieta',
'Pomoc.hlp',
7)
'na ekranie wyświetli się
okienko komunikatu, zawierające
'pytanie, dwa przyciski
('Yes' oraz 'No'), określenie, se
'drugi przycisk jest domyślny,
tytuł, określenie pliku
'pomocy, określenie tematu w pliku
pomocy
6.17. Seek
Funkcja Seek zwraca wartość typu Long, określającą następną pozycję odczytu lub zapisu
otwartego pliku.
Składnia:
Seek(NrPliku)
gdzie:
NrPliku (wymagany) — wyrasenie typu Integer zawierające numer otwartego pliku.
Wartości zwracane przez funkcję:
Tryb
Zwracana wartość
Random
numer następnego rekordu do odczytu
lub zapisu w pliku
Binary, Output, Append, Input
pozycja bajta, na którym
będzie wykonana następna operacja
Przykład:
zm1=Loc(3)
'zmienna przyjmie wartość, określającą następną pozycję
ŚcieskaDoPliku (wymagany) — dowolne wyrasenie
łańcuchowe będące poprawną ścieską dostępu do pliku,
Atrybuty (wymagany) — wyrasenie będące sumą
stałych lub wartości, określających nadawane atrybuty.
Wartości i stałe argumentu Atrybuty
Stała
Wartość
Opis
vbNormal
normalny (domyślny)
vbReadOnly
tylko do odczytu
vbHidden
ukryty
vbSystem
systemowy
vbArchive
plik został zmieniony od
ostatniego wykonania kopii zapasowej
Przykład:
SetAttr 'Plik', vbSystem+vbReadOnly
'nadanie plikowi atrybutów 'Systemowy'
'oraz
'TylkoDoOdczytu'
6.19. Shell
Funkcja Shell uruchamia program wykonywalny.
Składnia:
Shell(ŚcieskaDostępu [, StylOkna])
gdzie:
ŚcieskaDostępu (wymagany) — dowolne wyrasenie
łańcuchowe, będące poprawną ścieską dostępu
do uruchamianej aplikacji (wraz z jej ewentualnymi argumentami wiersza poleceń),
StylOkna (opcja) — wyrasenie lub stała
określająca styl okna uruchamianej aplikacji.
Wartości i stałe atrybutu StylOkna
Stała
Wartość
Opis
vbHide
Okno jest ukryte i posiada fokus
vbNormalFocus
Okno ma normalny rozmiar i pozycję i posiada fokus
vbMinimizedFocus
Okno jest zminimalizowane i posiada fokus
vbMaximizedFocus
Okno jest zmaksymalizowane i posiada fokus
vbNormalNoFocus
Okno ma normalny rozmiar i pozycję. Aktualnie aktywne
okno pozostaje aktywne
vbMinimizedNoFocus
Okno jest zminimalizowane.
Aktualnie aktywne okno pozostaje aktywne
Przykład:
Shell('C:WindowsNotepad.exe',1)
'uruchomiona
zostanie wskazana aplikacja jako aktywna
7. Pozostałe
7.1. DoEvents
Funkcja DoEvents oddaje sterowanie, aby system operacyjny mógł wykonać
inne zdarzenia.
Składnia:
DoEvents
Przykład:
If zm1=2500 Then
DoEvents
'system wstrzymuje wykonywanie
aktualnego procesu
'i ustawia go w
kolejce procesów
Enf If
7. Error
Funkcja Error zwraca komunikat o błędzie o podanym numerze.
Składnia:
Error[(NrBłędu)]
gdzie:
NrBłędu (opcja) — poprawny numer błędu.
Przykład:
If zm1 = 'YES'
MsgBox(Error(63))
'w zalesności od stanu zmiennej zostanie
wyświetlony
'komunikat o błędzie o podanym numerze
End If
7.3. RGB
Funkcja RGB zwraca wartość typu Long, określającą wartość koloru RGB.
Składnia:
RGB(Czerwony, Zielony, Niebieski)
gdzie:
Czerwony (wymagany) — wyrasenie typu Integer będące wartością danej składowej,
Zielony (wymagany) — wyrasenie typu Integer będące wartością danej składowej,
Niebieski (wymagany) — wyrasenie typu Integer będące wartością danej składowej.
Wartości składowych
funkcji określające standardowe kolory:
