TAILIEUCHUNG - Visual Basic 6 Vovisoft part 28

Tham khảo tài liệu 'visual basic 6 vovisoft part 28', 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 Circle để vẽ hình tròn hình bầu dục và đường cung với bên trong trống rỗng hay được sơn đầy bằng một màu ta chỉ định. Ta phải cho biết tọa độ của tâm điểm vòng tròn và bán kính của nó. Bạn hãy khởi động một dự án VB6 mới đặt lên form một button với tên frmCircle và caption Circle Lines. DoubleClick lên button ấy và viết code sau đây Private Sub CmdCircleLine_Click Draw a circle centered at 2000 1500 with radius equal 800 Circle 2000 1500 800 Draw a vertical line from center Line 2000 1500 -Step 0 800 Draw a horizontal line from center Line 2000 1500 -Step 800 0 End Sub Bây giờ hãy đặt lên form một button khác tên CmdArc và caption Draw Arc. Thay vì vẽ nguyên một vòng tròn ta sẽ chỉ vẽ một hình vòng cung bằng màu đỏ. Để chỉ định rằng ta sẽ vẽ từ vị trí nào trên vòng tròn đến vị trí nào khác thí dụ từ 45độ đến 230độ ta cần phải đổi degree ra đơn vị Radian bằng cách dùng Function Rads như sau Private Function Rads ByVal Degree As Single As Single Convert Degrees to Radian Const PI 22 7 Rads Degree 180 PI End Function Vòng cung luôn luôn được vẽ ngược chiều kim đồng hồ. Dưới đây là code để vẽ một đường vòng cung màu đỏ bán kính 800 tâm điểm ở 4000 2000 từ 45độ đến 230độ Private Sub CmdArc_Click Circle 4000 2000 800 vbRed Rads 45 Rads 230 End Sub Ta có thể cho sơn bên trong các hình tròn hay Pie Slices một phần của hình tròn bằng cách set FillStyle bằng 0 và chỉ định màu FillColor. Một Pie Slice là một vòng cung đóng kính bởi hai đường thẳng bán kính ở hai đầu. Muốn vẽ một Pie Slice ta đánh thêm dấu trừ - trước hai trị số Radian tức là dùng -Rads 45 -Rads 230 thay vì Rads 45 Rads 230 . Dưới đây là code vẽ hai Pie Slices có tâm điểm lệch nhau một tí đồng thời thêm chú thích và . Private Sub CmdPie_Click FillStyle 0 Fill inside any closed shaped FillColor vbYellow Draw a Pie Slice from 90deg to 45deg in Yellow Circle 3000 4000 800 -Rads 90 -Rads 45 Position the graphic cursor to Print some text CurrentX 2800 CurrentY 4400 Print FillColor .

• Kỹ thuật lập trình
• Thủ thuật lập trình
• tài liệu lập trình
• hướng dẫn lập trình
• kĩ thuật lập trình
• Visual Basic 6 vovisoft
• kỹ thuật lập trình
• kỹ năng lập trình
• bí quyết lập trình
• phương pháp lập trình
• tư liệu lập trình
• kĩ năng lập trình
• AutoIT