Bài Tập Tách họ và tên(bài số 8)

Khi Bấm cmdhiệuđính thì nó sẽ sắp xếp theo hình sau...:




Sau Đây là Cách ghi code:
code nút HiệuĐính:
Private Sub cmdHieudinh_Click()
Dim hoten As String
Dim i As Integer
hoten = Trim(txtHovaten.Text)
Do While InStr(hoten, " ") > 1
hoten = Replace(hoten, " ", " ")
Loop
txtHovaten.Text = hoten
hoten = LCase(hoten)
hoten = UCase(Left(hoten, 1)) & Mid(hoten, 2)
For i = 1 To Len(hoten)
If Mid(hoten, i, 1) = " " Then
hoten = Left(hoten, i) & UCase(Mid(hoten, i + 1, 1)) & Mid(hoten, i + 2)
End If
Next
txtHoadautu.Text = hoten
End Sub

code txthovaten.text:

Private Sub txtHovaten_Change()
Dim hoten As String
hoten = Trim(txtHovaten.Text)
cmdHieudinh.Enabled = False
cmdForm2.Enabled = False
chkDam.Enabled = False
chkNghieng.Enabled = False
chkChudo.Enabled = False
chkGachduoi.Enabled = False
If Len(hoten) > 0 And InStr(hoten, " ") > 1 Then
cmdHieudinh.Enabled = True
cmdForm2.Enabled = True
chkDam.Enabled = True
chkNghieng.Enabled = True
chkChudo.Enabled = True
chkGachduoi.Enabled = True
End If
End Sub


code txthoadautu.text:
Private Sub txtHoadautu_Change()

End Sub
--------------------------------------------------------------------------------------------------------

Sau đây là hiệu lệnh của nút các nut chk: xem hình



Sau đây là code của các nút chkđậm,chknghiên......

Private Sub chkNghieng_Click()
If chkNghieng.Value = 1 Then
txtHoadautu.FontItalic = True
Else
txtHoadautu.FontItalic = False
End If
End Sub

Private Sub chkDam_Click()
If chkDam.Value = 1 Then
txtHoadautu.FontBold = True
Else
txtHoadautu.FontBold = False
End If
End Sub

Private Sub chkChudo_Click()
If chkChudo.Value = 1 Then
txtHoadautu.ForeColor = vbRed
Else
txtHoadautu.ForeColor = vbBlack
End If
End Sub



CHÚC CÁC BẠN THÀNH CÔNG************

Long[sheva]***[N-gage]PRO

hix....thì mài thans 1 tiếng cũng hem dc sao...bùn gê...

Mày lấy bài giảng của ông thầy mà thank cái gì!

oạch...bùn gê chưa...hixhix