Các cao thủ giúp đệ với

[duchuu1976]

Mình có 01 form với các control sau :

01 label : Mục đích để thay đổi tăng hay giảm kiểu chữ khi bấm command.
01 command ( name : cmdTang) : Khi click thì font chữ trong label sẽ tăng theo.
01 command ( name : cmdGiam ) : Khi click thì font chữ trong label sẽ giảm theo.
01 comnand ( name : cmdNormal ) : Khi click vào thì font chữ sẽ trở về bình thường
Dưới đây là dòng code của mình

Private Sub cmdTang_Click()
t = lblkieuchu.FontSize
t = t + 1
lblkieuchu.FontSize = t
End Sub

Private Sub cmdGiam_Click()
g = lblkieuchu.FontSize
g = g - 1
lblkieuchu.FontSize = g
End Sub

Private Sub cmdNormal_Click()
lblkieuchu.Font = "Arial"
lblkieuchu.FontSize = 12
lblkieuchu.ForeColor = &HFF0000
lblkieuchu.FontBold = False
lblkieuchu.FontItalic = False
lblkieuchu.FontUnderline = False
End Sub

Vậy mà khi run mình click vào nút Tăng và nút Giảm thì không thấy hiệu ứng gì cả. Chỉ đến khi nào mình bấm nút Normal rồi sau đó bấm hai nút kia thì mới có hiệu ứng.
Mong các cao thủ chỉ giáo cho tiểu đệ.

[zek3vil]

Mình ko có program VB nên ko rành lắm. Nếu như bạn nói sau khi click Normal thi 2 cái command kia hoạt động được thì có lẽ do khi mới chạy FontSize chưa được xác định, vậy bạn hãy cho lblkieuchu.FontSize = 12 trong cái OnLoad event. hoặc bạn có thể gọi cmdNormal_Click() trong OnLoad event. Ko biết chắc là có được hay ko nhưng mà cứ thử, may ra được.

[tien bac]

Bạn dại lắm không nên dung biến t và g như vậy
Bạn hãy cho 1 slider sau đó gán fontsize=slider.value...
Hoặc bạn dung code sau:

Private sub cmdTang_Click()
lblkieuchu.FontSize=lblkieuchu.FontSize+1
end sub


Private sub cmdGiam_click()
lblkieuchu.FontSize=lblkieuchu.FontSize-1
end sub

[zek3vil]

còn có cách ngắn hơn:
lblkieuchu.FontSize++
cách này tui hay dùng ở C# nhưng chắc ở VB cũng được thôi

[duchuu1976]

Cám ơn các bạn nhiều. những đóng góp của các bạn thật đáng giá.
Nhưng có điều mình đã thử đủ kiểu như các bạn chỉ dẫn nhưng vẫn không được.
Đặc biệt là khi mình update len VB.net thi OK không có vấn đề gì cả.
Mong các cao thủ tiếp tục tìm lời giải đáp

[White_Rose]

lblkieuchu.Font = "Arial"
lblkieuchu.FontSize = 12
lblkieuchu.ForeColor = &HFF0000
lblkieuchu.FontBold = False
lblkieuchu.FontItalic = False
lblkieuchu.FontUnderline = False đặt vào trong Form_Load