Skip to main content

 HOW TO USE MESSAGE BOX TO DISPLAY OUTPUT FROM A SELECTION CASE IN VB




Public Class Form1
    Dim mark As Double
    Private Sub txtTest_TextChanged(sender As Object, e As EventArgs) Handles txtTest.TextChanged

    End Sub

    Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
        mark = Double.Parse(txtTest.Text)

        Select Case (mark)
            Case 0 To 49
                MsgBox("Fail!", MsgBoxStyle.Information, "COMMENT")
            Case 50 To 64
                MsgBox("Pass", MsgBoxStyle.Information, "COMMENT")
            Case 65 To 74
                MsgBox("Credit", MsgBoxStyle.Information, "COMMENT")
            Case 75 To 100
                MsgBox("Distinction", MsgBoxStyle.Information, "COMMENT")
            Case < 0
                MsgBox("Invalid! Cannot be less than 0", MsgBoxStyle.Information, "COMMENT")
            Case > 100
                MsgBox("Invalid! Cannot be greater than 100", MsgBoxStyle.Information, "COMMENT")
        End Select

    End Sub
End Class


Comments

Post a Comment

Popular posts from this blog

HOW TO SOLVE WINDOWS 10 BLACK SCREEN WITH CURSOR PROBLEM

Perhaps you have done some updates or installed new software on your windows computer and then all you can see after logging in is a black screen with a white mouse cursor. Something more like this.. This could have happened due to some malware or some system update that is conflicting with your system settings. There are various methods you can solve this; - Manually correcting the user shell - Troubleshooting from advanced start-up option. Method 1: Manually correct the user shell 1. Open task manager while on the black screen. Press the keyboard combination Ctrl+Alt+Del or right-click at the bottom part of your black screen then move three times with your upper arrow key and press enter to open task manager. 2. A task manager window will show. Go to File >> Run new task >> type in regedit >> check the checkbox (create this task with administrator privileges) >> then click OK. 3. Double click / Expand the HKEY_LOCAL_MACHINE folder. 4. Double click / Expand ...
Post a Comment
Read more
1. activity_main.xml Inside the activity_main.xml. <? xml version ="1.0" encoding ="utf-8" ?> <androidx.constraintlayout.widget.ConstraintLayout xmlns: android ="http://schemas.android.com/apk/res/android" xmlns: app ="http://schemas.android.com/apk/res-auto" xmlns: tools ="http://schemas.android.com/tools" android :layout_width ="match_parent" android :layout_height ="match_parent" tools :context =".MainActivity" android :background ="#182b5c" > <WebView android :layout_width ="match_parent" android :layout_height ="match_parent" android :id ="@+id/webView" android :layout_alignParentLeft ="true" android :layout_alignParentStart ="true" android :layout_alignParentTop ="true" android :layout_alignParentRight ="true" android...
Post a Comment
Read more