डायलोग बॉक्स इन वीबी 6.0

Dialouge Box In VB6.0

:-Dialougebox की सहायता से हम वीबी टूल बॉक्स के टूल्स का बिना उपयोग किए प्रोग्राम के runtime मे कोई मैसेज को डिस्प्ले कर सकते है अथवा इनपुट ले सकते है वीबी मे मुख्यतः दो प्रकार के dialogue बॉक्स पाये जाते है

1 –msgbox()    2। inputbox() 

Msgboxका उपयोग वीबी मे dialogue मैसेज अथवा कोई प्रॉम्प्ट डिस्प्ले करेने के लिए किया जाता है वीबी मे हम बिना किसी control का उपयोग किए आउटपुट अथवा मैसेज को डिस्प्ले कर सकते है

Syntax of messagebox

msgbox(prompt,buttons,title,helpfile,context)

उपरोक्त syntax मे prompt वह मैसेज होता है जिसे हमे डिस्प्ले करना होता है ,button के रूप मे हम कई बटन को ले सकते है जैसे ok cancle retry yes no abort आदि , title मे box का title प्रदर्शित होता है और helpfile किसी हेल्प से संबन्धित topics को दर्शाता है तथा कांटेक्स्ट helpfile के contents को दर्शाता है  

MsgBox ("Welcome to Online Class")

a = MsgBox("Welcome to Online Class", vbYesNoCancel)

a = MsgBox("Welcome to Online Class", vbYesNoCancel + vbDefaultButton3)यहा पर defaultbutton msgbox मे bydefault कौन सा बटन फोकस मे रहेगा दर्शाता है

Private Sub Command1_Click()

a = MsgBox("Welcome to Online Class", vbYesNoCancel + vbDefaultButton3, "DCA-Project") 

End Sub

Inputbox

इसका उपयोग वीबी मे किसी वैल्यू को runtime मे इनपुट लेने के लिए उपयोह किया जाता है इसमे मुख्यतः prompt title default value x-position y-position helpfile तथा context होते है
inputbox मे सिर्फ दो button का उपयोग होता ok और cancel का यहाँ पे xpos तथा ypos बॉक्स की स्क्रीन पर पोसिशन को दर्शाता है की वह x-axix तथा y-axix से स्क्रीन से कितनी दूरी पे डिस्प्ले होगा 

Syntax:-

Inputbox(Prompt,Title,Xpos,yPos,helpfile,context)

Example:-

Private Sub Command2_Click()

Dim a As Integer

a = InputBox("input any number", "DCA-Pro", 0, 1000, 2000)

MsgBox (a)

End Sub