.NET Framework
VB प्रपत्र

VB.NET फॉर्म में हैलो वर्ल्ड

एक संदेश बॉक्स दिखाने के लिए जब फॉर्म दिखाया गया है:

Public Class Form1
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        MessageBox.Show("Hello, World!")
    End Sub
End Class
To show a message box before the form has been shown:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MessageBox.Show("Hello, World!")
    End Sub
End Class

लोड () को पहले कहा जाएगा, और केवल एक बार, जब फॉर्म पहले लोड होगा। उपयोगकर्ता द्वारा फ़ॉर्म को लॉन्च करने पर हर बार शो () कहा जाएगा। उपयोगकर्ता द्वारा फॉर्म को सक्रिय करने के लिए हर बार सक्रिय () कहा जाएगा।

लोड () शो से पहले निष्पादित किया जाएगा () कहा जाता है, लेकिन चेतावनी दी जाए: msgBox () को शो में कॉल करने से लोड () समाप्त होने से पहले msgBox () निष्पादित हो सकता है। यह आमतौर पर लोड (), शो (), और समान के बीच घटना के आदेश पर निर्भर करने के लिए एक बुरा विचार है।

नौसिखिये के लिए

कुछ चीजें जो सभी शुरुआती लोगों को जानना चाहिए / करना चाहिए, इससे उन्हें वीबी .नेट के साथ एक अच्छी शुरुआत करने में मदद मिलेगी। "

निम्नलिखित विकल्प सेट करें:

'can be permanently set
' Tools / Options / Projects and Soluntions / VB Defaults
Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

End Class

स्ट्रिंग समंजन के लिए & का प्रयोग करें, न कि +। स्ट्रिंग्स का कुछ विस्तार से अध्ययन किया जाना चाहिए क्योंकि वे व्यापक रूप से उपयोग किए जाते हैं।

मूल्य और संदर्भ प्रकारों को समझने में कुछ समय बिताएं।

कभी भी Application.DoEvents का उपयोग न करें। 'सावधानी' पर ध्यान दें। जब आप किसी ऐसे बिंदु पर पहुँच जाते हैं जहाँ ऐसा लगता है कि आपको कुछ उपयोग करना है, तो पूछें।

प्रलेखन आपका मित्र है।

प्रपत्र टाइमर

Windows.Forms.Timer घटक का उपयोग उपयोगकर्ता जानकारी प्रदान करने के लिए किया जा सकता है जो समय के लिए महत्वपूर्ण नहीं है । एक बटन, एक लेबल और एक टाइमर घटक के साथ एक फॉर्म बनाएं।

उदाहरण के लिए इसका उपयोग उपयोगकर्ता को समय-समय पर समय-समय पर दिखाने के लिए किया जा सकता है।

'can be permanently set
' Tools / Options / Projects and Soluntions / VB Defaults
Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Timer1.Interval = 60 * 1000 'one minute intervals
        'start timer
        Timer1.Start()
        Label1.Text = DateTime.Now.ToLongTimeString
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = DateTime.Now.ToLongTimeString
    End Sub
End Class

लेकिन यह टाइमर समय के लिए अनुकूल नहीं है। एक उदाहरण इसका उलटी गिनती के लिए उपयोग कर रहा होगा। इस उदाहरण में हम तीन मिनट के लिए एक उलटी गिनती अनुकरण करेंगे। यह बहुत अच्छी तरह से सबसे महत्वपूर्ण बोरिंग उदाहरणों में से एक हो सकता है।

'can be permanently set
' Tools / Options / Projects and Soluntions / VB Defaults
Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        ctSecs = 0 'clear count
        Timer1.Interval = 1000 'one second in ms.
        'start timers
        stpw.Reset()
        stpw.Start()
        Timer1.Start()
    End Sub

    Dim stpw As New Stopwatch
    Dim ctSecs As Integer

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ctSecs += 1
        If ctSecs = 180 Then 'about 2.5 seconds off on my PC!
            'stop timing
            stpw.Stop()
            Timer1.Stop()
            'show actual elapsed time
            'Is it near 180?
            Label1.Text = stpw.Elapsed.TotalSeconds.ToString("n1")
        End If
    End Sub
End Class

बटन 1 पर क्लिक करने के बाद, लगभग तीन मिनट बीत जाते हैं और लेबल 1 परिणाम दिखाता है। क्या लेबल 1 180 दिखाता है? शायद ऩही। मेरी मशीन पर यह 182.5 दिखाया गया है!

विसंगति का कारण प्रलेखन में है, "विंडोज फॉर्म टाइमर घटक एकल-थ्रेडेड है, और 55 मिलीसेकेंड की सटीकता तक सीमित है।" यही कारण है कि यह समय के लिए इस्तेमाल नहीं किया जाना चाहिए।

टाइमर और स्टॉपवॉच का उपयोग करके थोड़ा अलग तरीके से हम बेहतर परिणाम प्राप्त कर सकते हैं।

'can be permanently set
' Tools / Options / Projects and Soluntions / VB Defaults
Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Timer1.Interval = 100 'one tenth of a second in ms.
        'start timers
        stpw.Reset()
        stpw.Start()
        Timer1.Start()
    End Sub

    Dim stpw As New Stopwatch
    Dim threeMinutes As TimeSpan = TimeSpan.FromMinutes(3)

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If stpw.Elapsed >= threeMinutes Then '0.1 off on my PC!
            'stop timing
            stpw.Stop()
            Timer1.Stop()
            'show actual elapsed time
            'how close?
            Label1.Text = stpw.Elapsed.TotalSeconds.ToString("n1")
        End If
    End Sub
End Class

अन्य टाइमर हैं जिन्हें आवश्यकतानुसार उपयोग किया जा सकता है। इस खोज को उस संबंध में मदद करनी चाहिए।