Cách tích hợp thanh theo dõi vào Visual Basic: 3 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:36

OK, vì vậy điều này nghe có vẻ dễ dàng nhưng những người mới bắt đầu hoàn toàn không biết cách làm điều này. Trackbars có thể là công cụ hữu ích. Từ việc quyết định ngân sách đến việc chọn bao nhiêu pháo hoa để kích nổ, sử dụng trackbars đều rất dễ dàng.

LƯU Ý: Có ai biết cách tăng số lượng vị trí trên thanh theo dõi không? Tôi chỉ có thể nhận được 11…

Bước 1: Chuẩn bị sẵn biểu mẫu của bạn

Điều này là khá dễ dàng. Thực hiện khi bạn muốn chương trình của mình trông như thế nào. Tôi không làm bất cứ điều gì cụ thể. Tôi sẽ làm thứ gì đó thay đổi màu của hộp văn bản. == Đừng quên thêm thanh theo dõi !!! == ^{_{Vâng, rất nhiều người quên điều đó}}

Bước 2: Mã

Vậy là bạn đã hoàn thành giao diện người dùng của mình rồi, bây giờ thì sao? Tất nhiên là mã !! Nhấp đúp vào thanh theo dõi. 2 dòng mã sẽ bật lên. Cái gì đó như:

Private Sub TrackBar1_Scroll (Người gửi ByVal là System. Object, ByVal e As System. EventArgs) Xử lý TrackBar1. Scroll End SubBây giờ chúng ta tìm hiểu về các giá trị. Trên thanh theo dõi này, chúng tôi chỉ có thể nhận được 11 giá trị, 0-10. Giá trị 0 là bên trái trong khi giá trị 10 là bên phải. Hiểu chưa? Tiếp tục nào.

Để làm cho cuộc sống dễ dàng hơn, tất cả văn bản trong bước này từ giờ trở đi sẽ ở dạng mã

Ở giữa hai dòng mã, hãy nhập: If TrackBar1. Value = originceavaluenumberhere ThenEnd Ifreplacing placeavaluenumberhere với số giá trị của vị trí bạn muốn. Bây giờ, ở giữa 4 dòng mã đó, hãy nhập những gì bạn muốn làm. Trong trường hợp này: TextBox1. BackColor = Color. Black Sau khi bạn thực hiện xong, hãy lặp lại cho từng nơi. Khi tôi hoàn tất, nó trông như thế này: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Xử lý TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Giá trị = 1 Thì TextBox1. BackColor = Color. White End Nếu TrackBar1. Value = 2 Thì TextBox1. BackColor = Color. Red End Nếu TrackBar1. Value = 3 thì TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Sau đó TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Then TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Then TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Bước 3: Đã xong

Chà, dù sao thì tôi cũng vậy. Nếu bạn chưa hoàn thành chương trình của mình, thì hãy tiếp tục. Ồ, và chúc may mắn! Nhưng đối với những người đã hoàn thành, thì điều đó không quá khó phải không? Và nếu bạn đang thắc mắc, mã để đặt lại và đóng là:

Nút phụ riêng tư2_Click (Người gửi ByVal là System. Object, ByVal e As System. EventArgs) Xử lý nút2. Nhấp kết thúc kết thúc phụ nút phụ riêng tư1_Click (Người gửi ByVal dưới dạng System. Object, ByVal e As System. EventArgs) Nút xử lý1. Nhấp vào TrackBar1. Value = 0 Kết thúc Sub