Struktur Keputusan Case Left And Right

Public Class Form1

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-Gen"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Right(kode.Text, 3)
        Select Case x
            Case "001" : nama.Text = "Flashdisk 4GB"
            Case "002" : nama.Text = "Flashdisk 2GB"
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub
End Class

Author : Unknown

Share this

Related Posts