Datu bāzes

Logu ģenerē ar šādu kodu:
MsgBox "Pieeja liegta!," _
& vbCrLf & "Jums tas nav atļauts darīt.", _
vbExclamation, "Paziņojums"
Lai noteiktu paziľojuma loga izskatu, ar argumentu palīdzību, nodod
informāciju MsgBox funkcijai. MsgBox funkcijai ir šāda sintakse:
MsgBox( prompt [, buttons] [, title])
MsgBox funkcijas argumenti
165
19.3.tabula
Arguments Paskaidrojums
prompt Lietotājam adresētā paziľojuma teksts.
buttons Nosaka komandpogu skaitu un daudzumu, kā arī tipu ikonai, kas parādās
paziľojuma laukā. Šie iestādījumi tiek veidoti summējot atbilstošas VBA
konstantes.
title Teksts, kas parādās paziľojuma loga virsraksta joslā.
Paziľojuma logu parasti lieto, lai saľemtu informāciju, kura programmai
nepieciešama darba turpināšanai. Lai šo informāciju izmantotu, piešķir funkcijas
atgriezto vērtību mainīgajam un uzraksta kodu, kurš apstrādā saľemto atbildi.
Dots koda piemērs, kurš attēlo paziľojuma logu un pēc tam veic vienu no
divām iespējamām darbībām, balstoties uz lietotāja atbildi. Paziľojuma logs
brīdina lietotāju, ka izmaiľas failā nav saglabātas un piedāvā tās saglabāt.
Msg = "Vai saglabāt atvērto failu?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Izmaiņas nav saglabātas!"
Atbilde = MsgBox(Msg, Style, Title)
If Atbilde = vbYes Then 'Lietotājs izvēlējies Yes.
Msgbox "Yes" 'Veic kādu darbību.
Else 'Lietotājs izvēlējies No komandpogu.
MsgBox "No" 'Veic kādu darbību.
End If
Šajā kodā Style mainīgais kombinē VBA konstantes, lai noteiktu attēlojamā
paziľojuma loga izskatu. VBA konstantes izmantotas, apstrādājot lietotāja
atbildes.
InputBox funkcijas lietošana
Ievada logs (input box) ir ērts risinājums, ja nepieciešams saľemt
informāciju, kuru nevar iegūt vienkārši noklikšķinot uz komandpogas. Ievada
logu ģenerē InputBox funkcija, kurai ir šāda sintakse:
InputBox( prompt[, title] [, default] [, xPos] [, yPos])
© Vladimirs Ivanovs, 2007