InputBox Function

         इसका use user से input लेने के लिए किया जाता है। इसमे एक dialog box display होता है जिसमे एक textbox होता है जिसमे डाटा input कर OK button पर क्लिक करते है। यह input की गई value को calling program को return कर देता है। इसमे एक textbox और दो button तथा एक message होता है।

Public Function InputBox(ByVal Prompt As String [,ByVal Title As String = ""] [ByVal DefaultResponse As String = ""] [,ByVal XPos As Integer = -1] [, ByVal YPos As Integer =-1]) As String

Arguments:

• Prompt: Required, string expression, इसका use input box मे display होने वाले message को define करने के लिए किया जाता है। इसकी maximum length 1024 character होती है।
• Title:  Optional, string expression , इसे input box के title bar मे title को define करने के लिए करते है।
• Default Response: optional, string expression: यह किसी भी प्रकार की value न देने पर default प्रयोग की जाती है। 
•  XPos: Optional, numerical expression : इसका प्रयोग input box की position define करने के लिए होती है। यह input box के left edge की दूरी screen से define करता है।
• YPos:  Optional, numerical expression : इसका प्रयोग input box की position define करने के लिए होती है। यह input box के Top edge की दूरी screen से define करता है।

Return Value: input box function input box के अंदर लिखे गए text को string form मे return करता है।

Ex-

         Dim s As String

        s = InputBox("Enter your name", "Input Box", "AMAN")

        MsgBox(s)

Continue Reading

MsgBox Function

                     इस function का use message dialog box display करने के लिए किया जाता है। यह message box user click का wait करता है और click करने पर एक value return करता है जो की click की गई button को indicate करती है।

यह function इसी तरह से कई प्रकार के message dialog box display करने के लिए use होता है।

इसका syntax निम्नलिखित है।

Public Function MsgBox(ByVal Prompt As Object[, ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly] [,ByVal Title As Object = Nothing]) As MsgBoxResult

Arguments:

1.   Prompt: Required, String Expression, इसका use dialog box मे display होने वाले Text message को define करने के लिए किया जाता है। prompt का maximum size 1024 characters होती है। prompt मे multiple lines हो सकती हैं इसके लिए chr(13) और chr(10) का use किया जाता है।

2.   Buttons: Optional , numeric expression: इसका use msgbox मे display होने वाले buttons, icons, default button etc. के लिए किया जाता है। यह buttons, icon style, default  button, text position etc. के लिए use किया जाता है।

3.   Title: optional , String expression: इसका use message box के title bar मे display होने वाले title को define करने के लिए किया जाता है।

Settings: इन settings का प्रयोग msgbox मे buttons के place पर लिखा जाता है। यह msgbox के appearance और behavior को define करती है।

Member	Value	Description
OKOnly	0	OK button display करने के लिए
OKCancel	1	Cancel और OK button को display करने के लिए
AbortRetryIgnore	2	Abort, retry और Ignore button के लिए
YesNoCancel	3	Yes, no और Cancel के लिए
YesNo	4	Yes और no के लिए
RetryCancel	5	Retry और Cancel के लिए
Critical	16	Critical icon के लिए
Question	32	Question icon के लिए
Exclamation	48	Exclamation icon के लिए
Information	64	Information icon के लिए
DefaultButton1	0	First button को default करने के लिए
DefaultButton2	256	Second button को default करने के लिए
DefaultButton3	512	Third button को default करने के लिए
ApplicationModal	0	इस mode मे user को application मे work करने के लिए msgbox मे click करना आवश्यक होता है।
SystemModal	4096	इसमे user के click करने तक सभी application suspend हो जाते हैं।
MsgBoxSetForeground	65536	Msgbox को foreground window बनाने के लिए
MsgBoxRight	524288	Text को right align करने के लिए
MsgBoxRtlReading	1048576	इसमे text Arabic system के अनुसार right to left हो जाते हैं।

इसमे 0-5 तक value buttons, 16,32,48,64 icons, 0,256,512 default button के लिए होते है।

Return Value

---

Constants	Value
OK	1
Cancel	2
Abort	3
Retry	4
Ignore	5
Yes	6
No	7

Ex-

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim mr As MsgBoxResult

        mr = MsgBox("Are you want to exit", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "Close")

        If mr = MsgBoxResult.Yes Then

            e.Cancel = False

        Else

            e.Cancel = True

        End If

End Sub

Continue Reading