jAK WYKONAĆ TAKI KOMUNIKAT?

http://forum.dobreprogramy.pl/%5C/gallery/image_page.php?album_id=4&image_id=656 żródło: Forum DobreProgramy

Jeśli znasz delphi to onCreate i poczytaj o application.messagebox i bodajże sendMessage.

Jak Ci bardzo zależy i będę miał czas to Ci to napisze (5 min xD)

SyntaxError , przecież wystarczy prosty VBS-ik :lol:

MsgBox "Czy SheepShoters ma prostate?", vbCritical + vbYesNo, "Prostata SheepShotersa"

Zpisujesz to jako plik vbs i odpalasz, oto efekt:

aapcp0.png

Aha a jak zrobić takie tylko w postaci nie komunikatu tylko ostrzeżenie żeby nie był krzyżyk tylko trójkąt obok napisu

marcinch7 , Przestań pisać post pod postem. Jeśli chcesz coś dopisać to skorzystaj z opcji “Edytuj”

SheepShoters , vbCritical zastąp vbExclamation.

A da się coś zrobić by tych komunikatów wyskakiwało pare?

Tak, w takim przypadku dodajesz jeszcze raz tą linjike co podałem, dokument wygląda wtedy tak:

MsgBox "Czy SheepShoters ma prostate?", vbCritical + vbYesNo, "Prostata SheepShotersa"

MsgBox "A jednak ma!", vbExclamation, "Prostata SheepShotersa"

A czy da się zrobić tak żeby pod tak i pod nie kryło się coś innego?

na stronie wykaz parametrów dla MsgBox (wyświetlane ikony i przyciski w okienku)

Tak, potrzebna jest instrukcja warunkowa “If”:

dim wynik

wynik = MsgBox("Wciśnij Tak albo Nie.", 64 + vbYesNo, "TEST")

if wynik = vbYes then

MsgBox "Wciśnięto Tak!", vbExclamation, "TEST"

else

MsgBox "Wciśnięto Nie!", vbExclamation, "TEST"

end if