Tham khảo tài liệu 'visual basic 6 vovisoft part 27', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Ta dùng method PSet đến từ chữ Point Set để vẽ một pixel lên form. Ta cần cho biết PSet ở đâu và với màu gì tức là ta cho nó tọa độ X Y của pixel và một màu tính từ function RGB. Dưới đây là code để vẽ pixels đủ màu lên form một cách bất chừng randomly về vị trí và màu sắc khi user clicks lên form chính Private Sub Form_Click Dim i As Integer Variables for pixel coordinates Dim iXCoord As Integer Dim iYCoord As Integer Variable for primary colours Dim iRed As Integer Dim iGreen As Integer Dim iBlue As Integer Start the Random number generation Randomize Plot 2000 dots randomly For i 1 To 2000 get a random XCoord. Note that Rnd 1 returns a real number between 0 and 1 eg iXCoord Int Rnd 1 ScaleWidth get a random YCoord. iYCoord Int Rnd 1 ScaleHeight Get a random number between 0 and 254 for each primary colour iRed Int Rnd 1 255 iGreen Int Rnd 1 255 iBlue Int Rnd 1 255 Plot the pixel at iXCoord iYCoord PSet iXCoord iYCoord RGB iRed iGreen iBlue Next MsgBox All done End Sub Trong thí dụ trên ta dùng method Randomize để generate sẵn trong bộ nhớ các con số real bất chừng từ 0 đến . Sau đó mỗi lần ta gọi Function Rnd 1 là nó sẽ trả về một con số real lấy bất chừng từ bộ số do method Randomize generated. Do đó Rnd 1 ScaleWidth sẽ cho ta một con số real có trị số từ 0 đến ScaleWidth. Muốn đổi con số real đó ra Integer ta dùng Function Int. Khi khởi động chương trình và Click lên form ta sẽ có hình giống như dưới đây Mách nước Để xóa một đóm bạn Pset lại tại chỗ ấy một đóm mới có cùng màu với BackColor của form. Bạn có thể tải về chương trình tại đây. Method Line Method Line vẽ một đường thẳng từ một tọa độ nầy đến một tọa độ khác trong màu do ta chỉ định. Với hai methods PSet và Line ta có thể làm được rất nhiều chuyện. Thí dụ muốn cho một vật di động ta xóa vật ấy bằng cách vẽ lại nó với cùng màu của BackColor của form rồi vẽ vật ấy ở vị trí mới. Muốn vẽ một đa giác như tam giác hay chữ nhật ta ráp nhiều đường thẳng lại với nhau đầu của mỗi đường .
