Ülkelere göre Selamlaşma (VB)

DERS NOTLARI

Public Class form1

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstulkekutusu.Items.Add("ingiltere")
lstulkekutusu.Items.Add("almanya")
lstulkekutusu.Items.Add("meksika")
lstulkekutusu.Items.Add("italya")
End Sub

Private Sub lstulkekutusu_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstulkekutusu.MouseHover
If lstulkekutusu.SelectedIndex <> 4 Then
lblselamlama.Text= ülke adını tıklayın"
End If

End Sub

Private Sub lstulkekutusu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstulkekutusu.SelectedIndexChanged
lblulke.text = lstulkekutusu.SelectedIndex
Select Case lstulkekutusu.SelectedIndex

Case 0
lblselamlama.Text = "hello, programmer"
Case 1

lblselamlama.Text = "hallo, programmer"
Case 2

lblselamlama.Text = "hola, programmer"
Case 3
lblselamlama.Text = "ciao, programmer"
End Select
End Sub
End Class

ASP ÖRNEĞİ

Yukarınadaki kodu ch1.asp olarak kaydetin.

Seçtiğiniz bölümler
<% if request.form("asp")="on" then response.write("ASP, ") end if if request.form("html")="on" then response.write("HTML, ") end if if request.form("vis")="on" then response.write("VISUAL BASIC, ") end if if request.form("java")="on" then response.write("JAVASCRIPT, ") end if if request.form("cprog")="on" then response.write("C PROGRAMLAMA ") end if %>
. Teşekkürler


Yukarınadaki kodu ch2.asp olarak kaydetin.
Bu Kodlar checkbox internet sayfasına ekler ve çalıştır.

Hangi bölümde program yazmasını seversiniz.

ASP
HTML
VISUAL BASIC
JAVASCRIPT
C PROGRAMLAMA

Yorum

Bu sayfa yorum ekleyebilirsin