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

ACTIVATING MS OFFICE WITHOUT KEY

Step1 Open cmd as admin Step2 copy office directory Step3  Go to office directory, type cd on cmd then paste the office directory you copied e.g., for a 64-bit machine it will look like this. cd C:\Program Files (x86)\Microsoft Office\Office16 Step4 Type in the following commands into cmd then hit enter after every command: cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 cscript ospp.vbs /unpkey:BTDRB >nul cscript ospp.vbs /unpkey:KHGM9 >nul cscript ospp.vbs /unpkey:CPQVG >nul cscript ospp.vbs /sethst:kms8.msguides.com cscript ospp.vbs /setprt:1688 cscript ospp.vbs /act METHOD 2 Copy script https://gist.github.com/amitbd1508/fe64e926005c85d424e8e79a943b3b60 @echo off title Activate Microsoft Office 2019 (ALL versions) for FREE - MSGuides.com&cls&echo =====================================================================================&echo #Project: Activating Microsoft software products for FREE without additional software&echo =====================...
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