Bài học thiết kế số 01
Bài học thiết kế số 02
Bài học thiết kế số 03
Bài học thiết kế số 04
Bài học thiết kế số 05
Bài học thiết kế số 06
Bài học thiết kế số 07
Bài học thiết kế số 08
Bài học thiết kế số 09
Bài học thiết kế số 10
Bài học thiết kế số 11
Bài học thiết kế số 12 xem
Bài học thiết kế số 13 xem
=========================
Trong bài học này, tôi sẽ giới thiệu mọi người cách tạo đường kẻ ngang trên UserForm.
Video thuyết minh:
Cơ sở lý thuyết:
Và ở đây:
Nếu có sẵn Label trên US rồi, thì dùng code này:
Hoặc: Dùng code tạo ra Label trên US rồi thiết định các thuộc tính cho nó.
Bạn cần đăng nhập để thấy link
Bài học thiết kế số 02
Bạn cần đăng nhập để thấy link
Bài học thiết kế số 03
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 04
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 05
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 06
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 07
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 08
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 09
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 10
Bạn cần đăng nhập để thấy link
. Bài học thiết kế số 11
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 12 xem
Bạn cần đăng nhập để thấy link
.Bài học thiết kế số 13 xem
Bạn cần đăng nhập để thấy link
.=========================
Trong bài học này, tôi sẽ giới thiệu mọi người cách tạo đường kẻ ngang trên UserForm.
Video thuyết minh:
Bạn cần đăng nhập để thấy đa phương tiện
File demo:
Bạn cần đăng nhập để thấy link
Cơ sở lý thuyết:
Bạn cần đăng nhập để thấy link
Và ở đây:
Bạn cần đăng nhập để thấy link
Nếu có sẵn Label trên US rồi, thì dùng code này:
Mã:
Private Sub UserForm_Initialize()
With Label1
.Height = 0.75
.Caption = ""
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbScrollBars 'vbScrollBars
End With
End Sub
Mã:
Private Sub UserForm_Initialize()
Dim ob(1 To 5) As Object
Dim i As Integer
For i = 1 To 5 Step 1
Set ob(i) = Me.Controls.Add("Forms.label.1", "name_tuhocvba" & i, True) 'True: cho phep hien thi
With ob(i)
.Left = 5
.Top = 30 + (i * 10)
.Width = Me.Width - 15
.Height = 0.75
.Caption = "" 'Quan trong
.BorderStyle = fmBorderStyleSingle 'Quan trong
.BorderColor = vbScrollBars 'vbScrollBars 'Quan trong
End With
Next i
End Sub