Cần pro giúp đỡ về textboxtrong VB 6

[hoangha1990]

Đề bài của mình là yêu cầu nhập:
Mã SV=textbox(txt1)
Họ tên=textbox(txt2)
Thêm=cmd1
thoát=cmd2
xóa=cmd3
sửa=cmd4
Danh mục mã SV = combo box(cbo1)
Danh mục họ tên= list box(lit1)

Nội dung là khi ấn Thêm thì mã SV nhập vao combobox danh mục mã SV,Họ tên nhập vào danh mục họ tên.Mình hiện tại làm được nút Thêm xóa thoát rồi chỉ còn nút sửa là không biết làm thế nào cả.Mong các bạn chỉ cho mình cách làm với.À mình muốn hỏi thêm rằng làm thế nào thế khi ấn vào text box thì các chữ trong text box được bôi đen luôn để dễ cho lần nhập kế tiếp.

Đây là đoạn code mình đang làm:

Private Sub cmd1_Click()
list1.AddItem txt2.Text
cbo1.AddItem txt1.Text
End Sub

Private Sub cmd2_Click()
Dim ans As Integer
ans = MsgBox("Ban co chac chan thoat khong ?", vbQuestion + vbYesNo + vbDefaultButton1)
If ans = vbNo Then Cancel = True
If ans = vbYes Then Unload Me
End Sub

Private Sub cmd3_Click()
Dim i As Integer
For i = list1.ListCount - 1 To 0 Step -1
If list1.Selected(i) = True Then
list1.RemoveItem i
cbo1.RemoveItem i
End If
Next
End Sub

Private Sub Form_Load()
cmd1.Enabled = False
cmd2.Enabled = True
cmd3.Enabled = False
cmd4.Enabled = False
End Sub

Private Sub list1_Click()
If list1.ListIndex >= 0 Then
cmd3.Enabled = True
cmd4.Enabled = True
End If
End Sub

Private Sub txt1_Change()
If Trim(txt1.Text) <> " " Then
cmd1.Enabled = True
End If
End Sub

Private Sub txt2_Change()
If Trim(txt1.Text) <> " " Then
cmd1.Enabled = True
End If
End Sub

Mình cảm ơn các bạn một lần nữa nhé!

[=========> Bổ sung bài viết <=========]

À còn 1 bài nữa mình vẫn đang làm giở là:
Form load vào list1 gồm thứ 2 3 4 5 6 7 CN,list2 để trống và 2 nút chuyển 1 nút chuyển tất cả các ngày từ list1 sang list2 nút kia làm ngược lại.Mình làm được 1 nút chuyển tất cả từ list1 sang list2 rồi nhưng khi làm ngược lại thì gặp lỗi.Mong các bạn chỉ bảo mình với
Đây là đoạn code của mình:

Private Sub cmd1_Click()
If List1.ListIndex >= 0 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub cmd2_Click()
If List2.ListIndex >= 0 Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End If
End Sub
Private Sub cmd3_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
Next
End Sub

Private Sub cmd4_Click()
Dim i As Integer
For i = 0 To List2.ListCount - 1
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
Next
End Sub

Private Sub cmd5_Click()
Dim ans As Integer
ans = MsgBox("Ban co chac chan thoat khong ?", vbQuestion + vbYesNo + vbDefaultButton1)
If ans = vbNo Then Cancel = True
If ans = vbYes Then Unload Me
End Sub

Private Sub Form_Load()
List1.AddItem "Thu 2"
List1.AddItem "Thu 3"
List1.AddItem "Thu 4"
List1.AddItem "Thu 5"
List1.AddItem "Thu 6"
List1.AddItem "Thu 7"
List1.AddItem "Chu Nhat"
cmd1.Enabled = False
cmd2.Enabled = False
cmd3.Enabled = False
cmd4.Enabled = False
End Sub

Private Sub List1_Click()
If List1.ListIndex >= 0 Then
cmd1.Enabled = True
cmd2.Enabled = False
cmd3.Enabled = True
cmd4.Enabled = False
End If
End Sub

Private Sub List2_Click()
If List2.ListIndex >= 0 Then
cmd1.Enabled = False
cmd2.Enabled = True
cmd3.Enabled = False
cmd4.Enabled = True
End If
End Sub

2 nút cmd1 và cmd2 là 2 nút chuyển từng cái 1