please tell me code to end this app {for quit button}

Question

{code to end i.e to quit }

  Private Sub bt_Click(sender As Object, e As RoutedEventArgs) Handles bt.Click
        textbox1.Text = " "
        textbox2.Text = " "
        textbox3.Text = " "
    End Sub

    Private Sub bt1_Click(sender As Object, e As RoutedEventArgs) Handles bt1.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 + tb2
        textbox3.Text = rlt

    End Sub

    Private Sub bt2_Click(sender As Object, e As RoutedEventArgs) Handles bt2.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 - tb2
        textbox3.Text = rlt
    End Sub

    Private Sub bt3_Click(sender As Object, e As RoutedEventArgs) Handles bt3.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 * tb2
        textbox3.Text = rlt
    End Sub

    Private Sub bt4_Click(sender As Object, e As RoutedEventArgs) Handles bt4.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 / tb2
        textbox3.Text = rlt
    End Sub

    Private Sub bt5_Click(sender As Object, e As RoutedEventArgs) Handles bt5.Click

tell me code here to quit app

    End Sub
End Class

Answer 1

{code to end i.e to quit }

  Private Sub bt_Click(sender As Object, e As RoutedEventArgs) Handles bt.Click
        textbox1.Text = " "
        textbox2.Text = " "
        textbox3.Text = " "
    End Sub

    Private Sub bt1_Click(sender As Object, e As RoutedEventArgs) Handles bt1.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 + tb2
        textbox3.Text = rlt

    End Sub

    Private Sub bt2_Click(sender As Object, e As RoutedEventArgs) Handles bt2.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 - tb2
        textbox3.Text = rlt
    End Sub

    Private Sub bt3_Click(sender As Object, e As RoutedEventArgs) Handles bt3.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 * tb2
        textbox3.Text = rlt
    End Sub

    Private Sub bt4_Click(sender As Object, e As RoutedEventArgs) Handles bt4.Click
        Dim rlt As Double
        Dim tb1 As Double
        Dim tb2 As Double
        tb1 = textbox1.Text
        tb2 = textbox2.Text
        rlt = tb1 / tb2
        textbox3.Text = rlt
    End Sub

    Private Sub bt5_Click(sender As Object, e As RoutedEventArgs) Handles bt5.Click

tell me code here to quit app

    End Sub
End Class

Answer 2

Hi VS Chaithanya,

I think the Application Lifecycle for Store app is a good guide for you to know that app close is not possible by coding.

Generally, users don't need to close apps, they can let Windows manage them. However, users can choose to close an app using the close gesture or by pressing Alt+F4. You can't include any UI in your app to enable the user to close your app, or it won't pass the Store certification process.

By the way, I will move this thread to a C#/VB forum.

Best Regards,

--James

---

<THE CONTENT IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, WHETHER EXPRESS OR IMPLIED>
Thanks
MSDN Community Support

Please remember to "Mark as Answer" the responses that resolved your issue. It is a common way to recognize those who have helped you, and makes it easier for other visitors to find the resolution later.