Quản lý học viên

[TranDang]

Ðề: Quản lý học viên

Cuối cùng cũng đã thi xong. mệt quá!
bạn phuyen89 cũng sinh năm 89 hả.hehe. hôm nay mới để ý.
mình cũng 89 nè.
Đoạn code bạn phuyen89 yêu cầu
Private Sub Form_Timer()
Select Case i
Case 1, 4, 7, 10, 13, 16, 19, 22, 25, 28
Me.Caption = Left(chuoi, i) & " /"
Case 2, 5, 8, 11, 14, 17, 20, 23, 26, 29
Me.Caption = Left(chuoi, i) & " --"
Case Else
Me.Caption = Left(chuoi, i) & " \"
End Select
i = i + 1
If i > Len(chuoi) Then
i = 1
End If
End Sub

 

[TranDang]

Ðề: Quản lý học viên

Chào Ngocchung89
Bạn xử lý ở sự kiện timer của form nhé.
Những bài viết này đã có trong diễn đàn.
bạn search tí là thấy thôi.
tụi mình cùng tuổi.
Dim x As String
Dim y As String
x = Left(Label11.Caption, 1)
y = Right(Label11.Caption, Len(Label11.Caption) - 1)
Label11.Caption = y + x

 

[TranDang]

Ðề: Quản lý học viên

Chào Thanhlan135
bạn làm gì mà không được chứ
Nói rõ tí đi

 

[TranDang]

Ðề: Quản lý học viên

Chào bạn Sangdigi
Cho mình hỏi là báo cáo thực tập của bạn như thế nào
có liên quan gì tới chủ đề này hay không.
Tính chất của báo cáo như thế nào.