[Hỏi] Làm sao để xác định được chiều cao của Tab trong MultiPage? (1 người xem)

[Hoàng Trọng Nghĩa]

Tôi có 1 cái UserForm trong đó có 2 cái MultiPage, mỗi MultiPage chứa một cái TextBox.

Đặc điểm, cả 2 cái MultiPage này có TOP như nhau (đều là 0) và có HEIGHT như nhau (đều là 180). Song 2 cái TextBox, mặc dù đều có TOP là 0 nhưng 1 cái ở trên trời và 1 cái ở dưới đất.

Điểm khác biệt ở MultiPage là Font Size của mỗi cái khác nhau, 1 cái là 8 và cái kia là 48 (chưa kể mỗi font nó có chiều cao khác nhau, chưa kể khi nó được Bolt). Chính vì Font Size này đã làm thay đổi chiều cao của Tab và đẩy cái TextBox xuống phía dưới.

Vậy các Thầy, các Anh Chị và các bạn ai có thể tính được InsideHeight thực sự của MultiPage giúp tôi (cái thuộc tính này chỉ có ở UserForm và Frame).

Hoặc so sánh dùm tôi vị trí TOP thực tế của mỗi TextBox so với cái UserForm giúp tôi.

Xin Cám ơn rất nhiều!

 

[Lê Duy Thương]

Tôi có 1 cái UserForm trong đó có 2 cái MultiPage, mỗi MultiPage chứa một cái TextBox.

Đặc điểm, cả 2 cái MultiPage này có TOP như nhau (đều là 0) và có HEIGHT như nhau (đều là 180). Song 2 cái TextBox, mặc dù đều có TOP là 0 nhưng 1 cái ở trên trời và 1 cái ở dưới đất.

Điểm khác biệt ở MultiPage là Font Size của mỗi cái khác nhau, 1 cái là 8 và cái kia là 48 (chưa kể mỗi font nó có chiều cao khác nhau, chưa kể khi nó được Bolt). Chính vì Font Size này đã làm thay đổi chiều cao của Tab và đẩy cái TextBox xuống phía dưới.

Vậy các Thầy, các Anh Chị và các bạn ai có thể tính được InsideHeight thực sự của MultiPage giúp tôi (cái thuộc tính này chỉ có ở UserForm và Frame).

Hoặc so sánh dùm tôi vị trí TOP thực tế của mỗi TextBox so với cái UserForm giúp tôi.

Xin Cám ơn rất nhiều!

sao tôi mở lên thấy 2 cái bằng nhau vậy bạn hiền

 

[Hoàng Trọng Nghĩa]

sao tôi mở lên thấy 2 cái bằng nhau vậy bạn hiền

Thì cái nào lại không bằng nhau về Top và Height? Chỉ khác là cái Tab của chúng có chiều cao khác nhau thôi, biết cái tab là cái nào không bạn? Là cái mà chứa chữ Page1, Page2 đấy!

Hết hồn, tưởng bạn mình trả lời được chứ!

 

[doveandrose]

MsgBox MultiPage2.Pages(0).InsideHeight

 

[Hoàng Trọng Nghĩa]

MsgBox MultiPage2.Pages(0).InsideHeight

Ai chà chà, lo tìm mãi với MultiPage mà không tính đến trường hợp Page! Cám ơn bạn nhiều nhé!

 

[Hoàng Trọng Nghĩa]

Mà lẽ ra thuộc tính này phải nằm ở MultiPage chứ tại sao lại nằm trong Page nhỉ? Khi Font Size tác động thì nó tác động trực tiếp lên tất cả các Tab của nó nên InsideHeight đều giống nhau mà? Mỗi page đâu được quyền chỉnh font riêng đâu? Đôi khi các Control của VBA thật sự khó hiểu!

Mà công nhận, nói về tính Định Vị thì doveandrose luôn tiên phong hen!

 

[doveandrose]

Mà lẽ ra thuộc tính này phải nằm ở MultiPage chứ tại sao lại nằm trong Page nhỉ? Khi Font Size tác động thì nó tác động trực tiếp lên tất cả các Tab của nó nên InsideHeight đều giống nhau mà? Mỗi page đâu được quyền chỉnh font riêng đâu? Đôi khi các Control của VBA thật sự khó hiểu!

Mà công nhận, nói về tính Định Vị thì doveandrose luôn tiên phong hen!

em mới tìm google có thấy đâu , quay lại mò thử cái Page ai dè có luôn , Ta nói người ta thường sáng suốt khi giải quyết chuyện của người khác mà =))

 

[Hoàng Trọng Nghĩa]

em mới tìm google có thấy đâu , quay lại mò thử cái Page ai dè có luôn , Ta nói người ta thường sáng suốt khi giải quyết chuyện của người khác mà =))

Nhờ vậy mà Calendar sắp có bản cập nhật cho các vấn đề xác định vị trí trong MultiPage và Frame rồi đấy!

 

[dovanhoc84]

Tôi có 1 cái UserForm trong đó có 2 cái MultiPage, mỗi MultiPage chứa một cái TextBox.

Đặc điểm, cả 2 cái MultiPage này có TOP như nhau (đều là 0) và có HEIGHT như nhau (đều là 180). Song 2 cái TextBox, mặc dù đều có TOP là 0 nhưng 1 cái ở trên trời và 1 cái ở dưới đất.

Điểm khác biệt ở MultiPage là Font Size của mỗi cái khác nhau, 1 cái là 8 và cái kia là 48 (chưa kể mỗi font nó có chiều cao khác nhau, chưa kể khi nó được Bolt). Chính vì Font Size này đã làm thay đổi chiều cao của Tab và đẩy cái TextBox xuống phía dưới.

Vậy các Thầy, các Anh Chị và các bạn ai có thể tính được InsideHeight thực sự của MultiPage giúp tôi (cái thuộc tính này chỉ có ở UserForm và Frame).

Hoặc so sánh dùm tôi vị trí TOP thực tế của mỗi TextBox so với cái UserForm giúp tôi.

Xin Cám ơn rất nhiều!

Vậy tôi muốn hỏi mục đích của việc tìm cho được con số đó để phục vụ điều gì?
hay chỉ để biết chơi chơi vậy thôi?
Vì thường hiếm khi(hoặc có thể nói là không) có ai để fontsize của tab khác nhau, hoặc làm quá to lên một cách bất thường như vậy cả.


chết thật, có câu trả lời bên trên rồi...

 

[doveandrose]

Nhờ vậy mà Calendar sắp có bản cập nhật cho các vấn đề xác định vị trí trong MultiPage và Frame rồi đấy!

mình nghi nghi nãy giờ rồi mà chưa dám hỏi . Chưa đánh đã ....

 

[Hoàng Trọng Nghĩa]

Vậy tôi muốn hỏi mục đích của việc tìm cho được con số đó để phục vụ điều gì?
hay chỉ để biết chơi chơi vậy thôi?
Vì thường hiếm khi(hoặc có thể nói là không) có ai để fontsize của tab khác nhau, hoặc làm quá to lên một cách bất thường như vậy cả.

Đó, bài số #8 đã trả lời rồi đó cậu!

 

[Hoàng Trọng Nghĩa]

mình nghi nghi nãy giờ rồi mà chưa dám hỏi . Chưa đánh đã ....

Mình chia sẻ công khai và mình hỏi để hoàn thiện cho cái mình chia sẻ cũng công khai mà! Hehehehe.

 

[Hoàng Trọng Nghĩa]

Nhân tiện đề tài này, các Thầy, các Anh Chị và các bạn ai có thể tính được một TextBox được chứa trong nhiều controls như bắt đầu từ UserForm, MultiPage, Frame1, Frame2, ... , v.v... Ý là làm sao chỉ là 1 thông tin TextBox1 mà biết được tên các controls chứa nó (UserForm, MultiPage, Frame1, Frame2, ...)

Xin cám ơn rất nhiều.

(P/s: Còn giải pháp cho Calendar đã có, việc này nếu thành công thì bổ sung thêm, còn không thì điền thông tin thủ công để xác định vị trí).

 

[Hoàng Trọng Nghĩa]

Nhân tiện đề tài này, các Thầy, các Anh Chị và các bạn ai có thể tính được một TextBox được chứa trong nhiều controls như bắt đầu từ UserForm, MultiPage, Frame1, Frame2, ... , v.v... Ý là làm sao chỉ là 1 thông tin TextBox1 mà biết được tên các controls chứa nó (UserForm, MultiPage, Frame1, Frame2, ...)

Xin cám ơn rất nhiều.

(P/s: Còn giải pháp cho Calendar đã có, việc này nếu thành công thì bổ sung thêm, còn không thì điền thông tin thủ công để xác định vị trí).

Cái vấn đề này nó tương tự như ta tìm tên của workbook vậy đó:

?thisworkbook.Name
HuongDan.xls


?thisworkbook.FullName
C:\Users\Hoang Trong Nghia\Desktop\HuongDan.xls

 

[jack nt]

Cái vấn đề này nó tương tự như ta tìm tên của workbook vậy đó:

?thisworkbook.Name
HuongDan.xls


?thisworkbook.FullName
C:\Users\Hoang Trong Nghia\Desktop\HuongDan.xls

Private Sub CommandButton1_Click()
    Dim Str$, Ctrl As Control
    Str = vbNullString
    Set Ctrl = TextBox1
    Do Until Ctrl.Parent.Name = Me.Name
        Set Ctrl = Ctrl.Parent
        Str = Ctrl.Name & "\" & Str
    Loop
    MsgBox Me.Name & "\" & Str & TextBox1.Name
End Sub

kết quả: UserForm1\MultiPage1\Page1\Frame1\Frame2\TextBox1