Tạo Scrollbar trong usefrom

[tuanh]

Chào các bạn, mình tạo một from nhập dữ liệu mình muốn tạo Scrollbar để có thể đi xuống phần dưới của from để nhập ( from của mình dài 2 trang ). Các bạn làm ơn chỉ giúp. Thanks

 

[atmt17]

Chào các bạn, mình tạo một from nhập dữ liệu mình muốn tạo Scrollbar để có thể đi xuống phần dưới của from để nhập ( from của mình dài 2 trang ). Các bạn làm ơn chỉ giúp. Thanks

Thử đoạn code này xem:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
  Dim hWnd As Long
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &HFF0000
End Sub

 

[tuanh]

Mình đã làm theo đoạn code của bạn nhưng k được. Ban xem lại giúp mình nhé. Xin lỗi mình không attached file được.

 

[atmt17]

Mình đã làm theo đoạn code của bạn nhưng k được. Ban xem lại giúp mình nhé. Xin lỗi mình không attached file được.

Xem file đính kèm đây! Lỗi chổ nào đâu?

 

[tuanh]

Kéo được Scroll bar nhưng không hiển thị được nội dung bên dưới của Usefrom

Bác ơi, kéo được Scrollbar lên xuống được nhưng thả chuột ra là nó chạy lên trên cùng và usefrom thì không dịch chuyển, không xem được nội dung bên dưới. Bác chỉ giúp mình nhé. Thank Bác nhiều nhiều.

 

[atmt17]

Bác ơi, kéo được Scrollbar lên xuống được nhưng thả chuột ra là nó chạy lên trên cùng và usefrom thì không dịch chuyển, không xem được nội dung bên dưới. Bác chỉ giúp mình nhé. Thank Bác nhiều nhiều.

Xin lỗi vì tôi đã không test kỹ
Xem lại code này:

Private Sub UserForm_Initialize()
  With Me
     Cmd.Move ((.InsideWidth - Cmd.Width) / 2), ((.InsideHeight - Cmd.Height) / 2)
    .ScrollBars = fmScrollBarsBoth
    .ScrollHeight = .InsideHeight * 2
    .ScrollWidth = .InsideWidth * 2
  End With
End Sub

Với Cmd là CommandButton
Xem file đính kèm

 

[tuanh]

Tuyệt vời, mình copy đoạn code của bạn và đã dùng được Scroll Bar. Thank bác.:1luvu::1luvu::1luvu::1luvu::1luvu::1luvu::1luvu::1luvu:

 

[tuanh]

Làm mới from nhập liệu sau khi nhập

Bác cho mình hỏi thêm chút là sau khi nhập dữ liệu từ from vào bảng tính, mình mở from mới ra để nhập tiếp thì trên from mới vẫn nhận dữ liệu của from cũ, mình phải đóng lại và mở ra lần nữa thì là from mới hoàn toàn. Làm thế nào để refress from sau khi mở cái mới nhỉ

 

[atmt17]

Bác cho mình hỏi thêm chút là sau khi nhập dữ liệu từ from vào bảng tính, mình mở from mới ra để nhập tiếp thì trên from mới vẫn nhận dữ liệu của from cũ, mình phải đóng lại và mở ra lần nữa thì là from mới hoàn toàn. Làm thế nào để refress from sau khi mở cái mới nhỉ

E rằng phải xem file và code của bạn mới hiểu được vấn đề
Gữi file lên đây và trình bày thật rõ về các trục trặc mà bạn đang gặp phải nhé

 

[tuanh]

Mình gửi file đính kèm, nhưng mình phải xóa bỏ đi rất nhiều nên file không được hoàn chỉnh, Bác xem lại giúp mình cái from nhập liệu nhé. Thank bác

 

[tuanh]

Các bác giúp mình nhé. Khi mình mở from, from thường nhận dữ liệu của lần nhập trước đó, mình phải đóng vào và mở lại lần nữa thì là from mới hòan toàn. Mình muốn khi mở ra thì sẽ nhận được from mới luôn. Các bác xem giúp mình. Thank các bác