MsgBox funtzioa

Mezu bat duen elkarrizketa-koadroa bistaratzen du eta balio bat ematen du.

Sintaxia:


MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer

Parametroak:

prompt: Elkarrizketa-koadroan mezu gisa bistaratutako kate-adierazpena. Lerro-jauziak txertatzeko, erabili Chr$(13).

title: Elkarrizketa-koadroaren izenburu-barran bistaratutako kate-adierazpena. Erabiltzen ez bada, izenburu-barrak aplikazioaren izena erakutsiko du.

buttons: Elkarrizketa-koadroaren mota, bistaratuko diren botoien kopurua eta mota eta ikono mota zehazten dituen edozein osoko adierazpen. buttons parametroak bit-ereduen konbinazio bat adierazten du, hau da, elementuen konbinazioak sortu daitezke botoi bakoitzari dagokion zenbakia gehituta:

Izendun konstantea

Balio osoa

Definizioa

MB_OK

0

Bistaratu 'Ados' botoia soilik.

MB_OKCANCEL

1

Bistaratu 'Ados' eta 'Utzi' botoiak.

MB_ABORTRETRYIGNORE

2

Bistaratu 'Abortatu', 'Saiatu berriro' eta 'Ez ikusi' botoiak.

MB_YESNOCANCEL

3

Bistaratu 'Bai', 'Ez' eta 'Utzi' botoiak.

MB_YESNO

4

Bistaratu 'Bai' eta 'Ez' botoiak.

MB_RETRYCANCEL

5

Bistaratu 'Saiatu berriro' eta 'Utzi' botoiak.

MB_ICONSTOP

16

Gehitu 'Gelditu' ikonoa elkarrizketa-koadroari.

MB_ICONQUESTION

32

Gehitu 'Galdera' ikonoa elkarrizketa-koadroari.

MB_ICONEXCLAMATION

48

Gehitu 'Harridura-puntua' ikonoa elkarrizketa-koadroari.

MB_ICONINFORMATION

64

Gehitu 'Informazioa' ikonoa elkarrizketa-koadroari.

128

Elkarrizketa-koadroko lehen botoia botoi lehenetsi gisa.

MB_DEFBUTTON2

256

Elkarrizketa-koadroko bigarren botoia botoi lehenetsi gisa.

MB_DEFBUTTON3

512

Elkarrizketa-koadroko hirugarren botoia botoi lehenetsi gisa.


Itzulera-balioa:

Osoko zenbakia

Izendun konstantea

Balio osoa

Definizioa

IDOK

1

Ados

IDCANCEL

2

Utzi

IDABORT

3

Abortatu

IDRETRY

4

Saiatu berriro

IDIGNORE

5

Ez ikusi

IDYES

6

Bai

IDNO

7

Ez


Errore-kodeak:

5 Prozedura-deia ez baliozkoa

Adibidea:


Sub ExampleMsgBox
Dim sVar As Integer
 sAlda = MsgBox("Las Vegas")
 sAlda = MsgBox("Las Vegas",1)
 sAlda = MsgBox( "Las Vegas",256 + 16 + 2,"Elkarrizketa-koadroaren titulua")
 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Elkarrizketa-koadroaren izenburua")
End Sub

Emaguzu laguntza!