Tạo các label hiện thị với các nội dung đi kèm đối với từng TextBox trên Form nhập (1 người xem)

[lacbuidoi]

- Kính nhờ các Thầy, Cô, Anh, Chị và các bạn trên diễn đàn giúp đỡ em vấn đề mà em đã ghi rõ trong file đính kèm!
_ Xin chân thành cảm ơn các Thầy, cô, Anh, Chị và các bạn ............

 

[nghiaphuc]

- Kính nhờ các Thầy, Cô, Anh, Chị và các bạn trên diễn đàn giúp đỡ em vấn đề mà em đã ghi rõ trong file đính kèm!
_ Xin chân thành cảm ơn các Thầy, cô, Anh, Chị và các bạn ............

Làm biếng viết mới nên tạm thời sửa lại những gì đã có trên file bạn nhé:
1. Đầu tiên, đã khai báo biến a trên Module1 thì khai báo thêm 2 biến b, c giống như vậy nữa:

Public a As String, b As String, c As String

2. Sửa code trên Form FChon:
[GPECODE=vb]Private Sub CommandButton1_Click()
a = FChon.ListBox1.Column(0)
b = FChon.ListBox1.Column(1)
c = FChon.ListBox1.Column(2)
Unload Me
End Sub[/GPECODE]
3. Sửa code trong Form Fthuchanh:
[GPECODE=vb]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyF3 Then
TextBox1 = ""
FChon.Show
TextBox1 = a: Label3 = b: Label5 = c
End If
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyF3 Then
TextBox2 = ""
FChon.Show
TextBox2 = a: Label8 = b: Label10 = c
End If
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyF3 Then
TextBox3 = ""
FChon.Show
TextBox3 = a: Label13 = b: Label15 = c
End If
End Sub[/GPECODE]

 

[lacbuidoi]

- Em cảm ơn anh nghiaphuc rất nhiều ak!!!!!!!!!!!!!!!!!!