Chọn môn học

· [FONT=&quot][/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]Code :[/FONT][FONT=&quot][/FONT]
[FONT=&quot]Private Sub btnchuyen1_Click[/FONT][FONT=&quot](ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchuyen1.Click[/FONT]
[FONT=&quot] If lstmonhoc.SelectedIndex <> -1 Then[/FONT]
[FONT=&quot] lstnhan.Items.Add(lstmonhoc.Text)[/FONT]
[FONT=&quot] lstmonhoc.Items.RemoveAt(lstmonhoc.SelectedIndex)[/FONT]
[FONT=&quot] Else[/FONT]
[FONT=&quot] MsgBox("Bạn chưa chọn thì làm sao mà chuyển được ! ", MsgBoxStyle.Information, " Thông Báo khẩn ")[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub bttnchuyenhet_Click[/FONT][FONT=&quot](ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnchuyenhet.Click[/FONT]
[FONT=&quot] For i As Integer = 0 To lstmonhoc.Items.Count - 1[/FONT]
[FONT=&quot] lstnhan.Items.Add(lstmonhoc.Items(i))[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] lstmonhoc.Items.Clear()[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnlai1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlai1.Click[/FONT]
[FONT=&quot] If lstnhan.SelectedIndex <> -1 Then[/FONT]
[FONT=&quot] lstmonhoc.Items.Add(lstnhan.Text)[/FONT]
[FONT=&quot] lstnhan.Items.RemoveAt(lstnhan.SelectedIndex)[/FONT]
[FONT=&quot] Else[/FONT]
[FONT=&quot] MsgBox("Bạn chưa chọn thì làm sao mà chuyển được ! ", MsgBoxStyle.Information, " Thông Báo khẩn ")[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnquahet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquahet.Click[/FONT]
[FONT=&quot] For i As Integer = 0 To lstnhan.Items.Count - 1[/FONT]
[FONT=&quot] lstmonhoc.Items.Add(lstnhan.Items(i))[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] lstnhan.Items.Clear()[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnhocphi_Click[/FONT][FONT=&quot](ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhocphi.Click[/FONT]
[FONT=&quot] Dim chiphi As Integer = 0[/FONT]
[FONT=&quot] For i As Integer = 0 To lstnhan.Items.Count - 1[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Anh văn 1" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 4 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Tin Học" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 4 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Triết Học" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 6 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Toán" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 4 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Anh Văn 2" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 4 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Kinh Tế Chính Trị" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 5 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Xác suất thống kê" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 4 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] If lstnhan.Items(i) = "Pháp luật" Then[/FONT]
[FONT=&quot] chiphi = chiphi + 3 * 100000[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] txtketqua.Text = chiphi[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchen.Click[/FONT]
[FONT=&quot] If lstmonhoc.SelectedIndex >= 0 Then[/FONT]
[FONT=&quot] lstmonhoc.Items.Insert(lstmonhoc.SelectedIndex, txtthaydoi.Text)[/FONT]
[FONT=&quot] Else[/FONT]
[FONT=&quot] lstmonhoc.Items.Insert(0, txtthaydoi.Text)[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoa.Click[/FONT]
[FONT=&quot] If lstmonhoc.SelectedIndex >= 0 Then[/FONT]
[FONT=&quot] lstmonhoc.Items.RemoveAt(lstmonhoc.SelectedIndex)[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot][/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]


[FONT=&quot] [/FONT]
[FONT=&quot]Nếu bạn muốn chọn cùng một lúc nhiếu cái thì ta sẽ thay đổi đoạn code 1 chút :[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnchuyen1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchuyen1.Click[/FONT]
[FONT=&quot] If lstmonhoc.SelectedIndex >= 0 Then[/FONT]
[FONT=&quot] For i As Integer = 0 To lstmonhoc.Items.Count - 1[/FONT]
[FONT=&quot] If lstmonhoc.GetSelected(i) = True Then[/FONT]
[FONT=&quot] lstnhan.Items.Add(lstmonhoc.Items.Item(i))[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] For i As Integer = lstmonhoc.Items.Count - 1 To 0 Step -1[/FONT]
[FONT=&quot] If lstmonhoc.GetSelected(i) = True Then[/FONT]
[FONT=&quot] lstmonhoc.Items.RemoveAt(i)[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] End Sub[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Private Sub btnlai1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlai1.Click[/FONT]
[FONT=&quot] If lstnhan.SelectedIndex >= 0 Then[/FONT]
[FONT=&quot] For i As Integer = 0 To lstnhan.Items.Count - 1[/FONT]
[FONT=&quot] If lstnhan.GetSelected(i) = True Then[/FONT]
[FONT=&quot] lstmonhoc.Items.Add(lstnhan.Items.Item(i))[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] For i As Integer = lstnhan.Items.Count - 1 To 0 Step -1[/FONT]
[FONT=&quot] If lstnhan.GetSelected(i) = True Then[/FONT]
[FONT=&quot] lstnhan.Items.RemoveAt(i)[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] End Sub[/FONT]

viết lại đi bạn .

viết lại đi bạn .ma nào biêt

OH MY GOD! HIỂU CHẾT LIỀN