Visual Basic Inputbox Examples

inputbox_1.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add(InputBox("Ad ve Soyad giriniz", "Bilgi girisi", " "))
    End Sub
End Class

inputbox_2.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = InputBox("Sayı giriniz", "Integer Örnek", "", 120, 120)
        b = 2
        c = a * b
        MessageBox.Show("Sonuç" & c, "Integer Örnek")
    End Sub
End Class

inputbox_3.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ad, liste, sonuc As String
        ad = Microsoft.VisualBasic.Interaction.InputBox("Adınız ve Soyadınız", "Öğrenci bilgi girişi", "", 120, 120)
        liste = ad
        sonuc = Microsoft.VisualBasic.Strings.Right(liste, 3)
        MessageBox.Show(sonuc)

    End Sub
End Class