Muốn Textbox luôn nổi dưới cùng bên trái của Form tự tạo (7 người xem)

[bebeen]

Em muốn textbox luôn xuất hiện ở dưới cùng bên trái của Form khi Form mở?

Private Sub UserForm_Initialize()
    With UserForm1
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

Em đã tạo một Form rồi giờ em sẽ tạo 1 textbox và muốn nó hiện ở dưới. Vậy code em sẽ phải thiết lập như thế nào?
Cám ơn A/C nhiều!

 

[giangleloi]

Em muốn textbox luôn xuất hiện ở dưới cùng bên trái của Form khi Form mở?

Private Sub UserForm_Initialize()
    With UserForm1
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

Em đã tạo một Form rồi giờ em sẽ tạo 1 textbox và muốn nó hiện ở dưới. Vậy code em sẽ phải thiết lập như thế nào?
Cám ơn A/C nhiều!

Sao ngộ quá vậy nhỉ? Bạn cứ vẽ cho nó nằm dưới cùng góc trái của Form thì nó luôn hiện ở vị trí đó mà. Hay ý của bạn là như thế nào?

 

[bebeen]

Sao ngộ quá vậy nhỉ? Bạn cứ vẽ cho nó nằm dưới cùng góc trái của Form thì nó luôn hiện ở vị trí đó mà. Hay ý của bạn là như thế nào?

Vẽ như vậy thì đơn giản rồi. Nhưng mình đã sử dụng code:

Private Sub UserForm_Initialize()
    With UserForm1
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub
[COLOR=#222222][FONT=Verdana]

Nên rất khó để mặc định nó ở một vị trí nào đó mà mỗi khi mở ra là nó xuất hiện ở góc trái dưới cùng Form (màn hình)?[/FONT][/COLOR]

 

[vu_tuan_manh_linh]

Vẽ như vậy thì đơn giản rồi. Nhưng mình đã sử dụng code:

Private Sub UserForm_Initialize()
    With UserForm1
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

Nên rất khó để mặc định nó ở một vị trí nào đó mà mỗi khi mở ra là nó xuất hiện ở góc trái dưới cùng Form (màn hình)?

Theo mình nghĩ thì bạn xóa code đi, "vẽ hình" như bài #2. Sao cứ phải khổ thế nhỉ, mục tiêu của bạn là đạt được điều bạn muốn, người ta chỉ cách dễ cho thì cứ thế mà làm đi.

 

[bebeen]

Theo mình nghĩ thì bạn xóa code đi, "vẽ hình" như bài #2. Sao cứ phải khổ thế nhỉ, mục tiêu của bạn là đạt được điều bạn muốn, người ta chỉ cách dễ cho thì cứ thế mà làm đi.

Vì nếu chương trình nếu sep up ở mỗi máy sinh thì màn hình sẽ hiển thị khác mà. Em phải dùng code đó để cho Form hiện đầy màn hình ạ! Chẳng lẽ lại không có cách ư!?

 

[doveandrose]

Vì nếu chương trình nếu sep up ở mỗi máy sinh thì màn hình sẽ hiển thị khác mà. Em phải dùng code đó để cho Form hiện đầy màn hình ạ! Chẳng lẽ lại không có cách ư!?

Private Sub UserForm_Initialize()
With UserForm1
    .Width = Application.Width
    .Height = Application.Height
    TextBox1.Left = .Left
    TextBox1.Top = .Height - TextBox1.Height - 22
End With


End Sub

 

[vu_tuan_manh_linh]

Vì nếu chương trình nếu sep up ở mỗi máy sinh thì màn hình sẽ hiển thị khác mà. Em phải dùng code đó để cho Form hiện đầy màn hình ạ! Chẳng lẽ lại không có cách ư!?

Theo mình thì giải pháp dễ nhất là cho form chính Full màn hình. Còn những thứ khác cứ để nó yên vị trên form chính.

 

[giangleloi]

Private Sub UserForm_Initialize()
With UserForm1
    .Width = Application.Width
    .Height = Application.Height
    TextBox1.Left = .Left
    TextBox1.Top = .Height - TextBox1.Height [B][COLOR=#ff0000]- 22[/COLOR][/B]
End With
End Sub

Cái chỗ bôi đỏ cũng phải tùy màn hình của từng máy khi show form ra mà ta?

 

[befaint]

Vì nếu chương trình nếu sep up ở mỗi máy sinh thì màn hình sẽ hiển thị khác mà. Em phải dùng code đó để cho Form hiện đầy màn hình ạ! Chẳng lẽ lại không có cách ư!?

Bạn thử đoạn sau:

Private Sub UserForm_Initialize()
    With UserForm1
        .Width = Application.Width
        .Height = Application.Height
    End With
    
    With TextBox1
        .Top = UserForm1.Height - 2 * TextBox1.Height
        '.Left = UserForm1.Width - TextBox1.Width 'To alignment: Right on UserForm
        .Left = 0              'To alignment: Left on UserForm
    End With
End Sub

 

[VMH0307]

Bạn nên chèn thêm code này:

    TextBox1.Top = Me.InsideHeight - TextBox1.Height
    TextBox1.Left = 0

 

[doveandrose]

Cái chỗ bôi đỏ cũng phải tùy màn hình của từng máy khi show form ra mà ta?

máy bạn chạy code trên thấy sai à ?
muốn chính xác thì đi mà chơi với mấy hàm API . lười thì có thể ước chừng . mục đích là nhìn thấy được textbox chứ đâu phải bắt nó nằm ngay góc đáy .

 

[befaint]

Theo mình thì giải pháp dễ nhất là cho form chính Full màn hình. Còn những thứ khác cứ để nó yên vị trên form chính.

Ý của chủ topic là kích thước của Form khi hiện ra thì bằng kích thước cửa sổ của Excel:

.Width = Application.Width
.Height = Application.Height

Khi Excel mở to /nhỏ như nào thì Form cũng có kích thước như thế.

Thứ nữa, màn hình hiện thị của máy tính có thể là tỉ lệ 16:9 hoặc 4:3.

 

[giangleloi]

máy bạn chạy code trên thấy sai à ?
muốn chính xác thì đi mà chơi với mấy hàm API . lười thì có thể ước chừng . mục đích là nhìn thấy được textbox chứ đâu phải bắt nó nằm ngay góc đáy .

Hihi. Sai thì không có sai đâu. Nhưng cơ mà không thấy được textbox ấy chứ. Thử ước chừng 45 thì mới thấy nó ló lên. Còn mấy hàm API gì đó có biết đâu mà chơi.

 

[doveandrose]

Hihi. Sai thì không có sai đâu. Nhưng cơ mà không thấy được textbox ấy chứ. Thử ước chừng 45 thì mới thấy nó ló lên. Còn mấy hàm API gì đó có biết đâu mà chơi.

bài #10 là chính xác 100% luôn khỏi suy nghĩ . sát thủ đó