jAK WYKONAĆ TAKI KOMUNIKAT?


(Marlena Gorska) #1

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


(Krzkaczor) #2

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)


(Marcinch7) #3

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


(Marcinch7) #4
MsgBox "Czy SheepShoters ma prostate?", vbCritical + vbYesNo, "Prostata SheepShotersa"

Zpisujesz to jako plik vbs i odpalasz, oto efekt:

aapcp0.png


(Marlena Gorska) #5

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


(sdar) #6

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


(Marcinch7) #7

SheepShoters , vbCritical zastąp vbExclamation.


(Marlena Gorska) #8

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


(Marcinch7) #9

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"

(Marlena Gorska) #10

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


(Kmazur) #11

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


(Marcinch7) #12

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