Chọn môn học

Thảo luận trong 'Khoa Học Máy Tính' bắt đầu bởi khacviendbit, 9 Tháng mười 2011.

  1. Offline

    khacviendbit

    • Thành Viên Mới

    Số bài viết:
    17
    Đã được thích:
    4
    Điểm thành tích:
    0
    · [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]
    [IMG][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]
    interpol thích bài này.
  2. Offline

    duykhanhviethan

    • Thành Viên Mới

    Số bài viết:
    15
    Đã được thích:
    2
    Điểm thành tích:
    0
    viết lại đi bạn .:-/
  3. Offline

    duykhanhviethan

    • Thành Viên Mới

    Số bài viết:
    15
    Đã được thích:
    2
    Điểm thành tích:
    0
    viết lại đi bạn .ma nào biêt
    :-/
  4. Offline

    truongitec

    • Windows NT

    Số bài viết:
    63
    Đã được thích:
    50
    Điểm thành tích:
    60
    OH MY GOD! HIỂU CHẾT LIỀN

Chia sẻ trang này

Advertising: Linux system admin | nukeviet | nukeviet 4 | Upload ảnh miễn phí