Skip to main content

Posts

Showing posts from November, 2020
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
 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