Xin hỏi về: Cho từng label di chuyển trên userform (1 người xem)

[nad582]

Xin chào các bạn trong gpe! Mình muốn tạo label trong userform, khi mở userform lên thì những label trong userform sẽ di chuyễn lên phía trên userform đến hết vùng userform, sau đó di chuuyển từ dưới lên trên cứ lập vòng như vậy....đến khi mình tắt userform đi thì thôi...
View attachment 113629
chân thành cảm ơn! Mong nhận được thông tin từ các bạn!!

 

[siwtom]

Xin chào các bạn trong gpe! Mình muốn tạo label trong userform, khi mở userform lên thì những label trong userform sẽ di chuyễn lên phía trên userform đến hết vùng userform, sau đó di chuuyển từ dưới lên trên cứ lập vòng như vậy....đến khi mình tắt userform đi thì thôi...
View attachment 113629
chân thành cảm ơn! Mong nhận được thông tin từ các bạn!!

Mỗi control được định vị bởi giá trị Left, Top. Muốn thay đổi vị trí thì theo lôgíc phải thay đổi Left, Top. Đó là toàn bộ triết lý.
Muốn di chuyển theo chiều dọc thì thay đổi Top, theo chiều ngang thì Left, theo hướng bất kỳ thì đồng thời Left, Top. Muốn tạo cảm giác "trôi" thì bật đồng hồ và trong mỗi nhịp đồng hồ dịch "một tí tẹo". Đồng hồ Thụy Sỹ hay Nhật thì có đầy trên GPE rồi, không ai tìm hộ rồi dâng tận tay bạn đâu.

 

[nad582]

Mỗi control được định vị bởi giá trị Left, Top. Muốn thay đổi vị trí thì theo lôgíc phải thay đổi Left, Top. Đó là toàn bộ triết lý.
Muốn di chuyển theo chiều dọc thì thay đổi Top, theo chiều ngang thì Left, theo hướng bất kỳ thì đồng thời Left, Top. Muốn tạo cảm giác "trôi" thì bật đồng hồ và trong mỗi nhịp đồng hồ dịch "một tí tẹo". Đồng hồ Thụy Sỹ hay Nhật thì có đầy trên GPE rồi, không ai tìm hộ rồi dâng tận tay bạn đâu.

Anh siwtom trình bày rất hay, nhưng em tim trên diễn đàn rồi nhưng chỉ xung quanh về chữ (ký tự) chạy ngang qua trong label thôi,...em không tìm ra được chủ đề này...a có thể gợi ý thêm 1 tý không,...
cảm ơn rất nhiều..

 

[ndu96081631]

Anh siwtom trình bày rất hay, nhưng em tim trên diễn đàn rồi nhưng chỉ xung quanh về chữ (ký tự) chạy ngang qua trong label thôi,...em không tìm ra được chủ đề này...a có thể gợi ý thêm 1 tý không,...
cảm ơn rất nhiều..

Ví dụ là cái này:
http://www.giaiphapexcel.com/forum/showthread.php?52515-Quay-đều-quay-đều-quay-đều
Cũng là 1 dạng di chuyển label đấy
Rảnh rồi làm chơi chơi chứ cũng không hứng thứ gì mấy vụ này

 

[siwtom]

Anh siwtom trình bày rất hay, nhưng em tim trên diễn đàn rồi nhưng chỉ xung quanh về chữ (ký tự) chạy ngang qua trong label thôi,...em không tìm ra được chủ đề này...a có thể gợi ý thêm 1 tý không,...
cảm ơn rất nhiều..

Tìm là ý tôi nói là tìm cách bật đồng hồ Thụy Sỹ, Nhật chứ cách di chuyển control (Label) thì tôi đã chả chỉ cho bạn ở bài #1 là gì? Thay đổi Top. Thế thôi. Chả nhẽ biết cách bật đồng hồ (tìm được trên GPE) và biết là phải thay đổi Top (thông tin do tôi cung cấp) bạn không viết được code di chuyển Label? Chuyện dịch chuyển, phát hiện khi nào Label "ra khỏi" Form ở phía trên (để cho Label bắt đầu "nhú" lên từ phía dưới) hoặc cho Top như thế nào để Label bắt đầu "nhú" lên từ phía dưới là tính toán thuần tũy về mặt Toán học. "Ra khỏi" khi Label.Top + Label.Height <= 0, vị trí mà từ đó bắt đầu nhú lên: Label.Top = UserForm1.InsideHeight, dịch chuyển: Label.Top = Label.Top - delta. Chả nhẽ những chuyện vặt đó bạn không nghĩ ra được? Nếu những chuyện vặt (dịch chuyển, phát hiện ra khỏi, cho nhú lên) mà bạn không làm được thì đọc xong bài của ndu bạn cũng sẽ không làm được.