tailieunhanh - Lập trình Visual Basic 6 căn bản part 10

Tham khảo tài liệu 'lập trình visual basic 6 căn bản part 10', 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ả | Màn hình giao diện của chương trình này có một biểu máu một đối tượng hình vẽ và thực đơn. Trong đới tượng hình vẽ có một hình vuông. Đối tượng ánh cúa chương trình này có các thuộc tính sau đây Bảng . Các thuộc tính của đối tượng hình vẽ của chương trình HoatHinh Thuộc tính ỷ nghĩa Name HVuong BackColor 0 - Transparent Borderstyle Solid BoderWidth 1 DrawMode 13 - Copy Pen Fi HColor HOOFFOOOO Fillstyle 6 - Cross Shape 1 - Square Visible True Thực dơn cùa chương trình này gồm cú các chức năng sau đây Tiêu đế của chức năng Tên thủ tục biến cô của chức năng Chay Chay Doc Chay Ngang Chay Xien - Chay Ngau nhien Hình Hĩnh Vuong Hình Tron Mau Mau Do Mau Xanh - -Mau Tim Ket Thuc mnuChayDoc_Clỉck mnuChayNgang_Click mnuChayXien_Click mnuChayNN_Click mnuVuong_Click mnuTron_Clíck mnuDo_Click mnuXanh_Click mnuTim_Click mnuKThiiC_Click 325 Các thú tục - biến cô cửa chương trình này như sau Option txplici t DíìTl i k x y dx đy tt Private Sab mnuChayDoc_Clifk Chay doc o giua man hình X - Int FrrrJDoHoa .Width 2 - ỉ 2 y - 0 dy - 200 For k 1 To 50 X y Tao thoi gian cho doi For i 1 To 5000 For j 1 To 1000 Next j Next i y y dy IỄ y - 1500 Then y - . Hej ght - 1500 dy -100 El F e If y 0 Then y 0 dy - 100 End If End 1. f 326 Next MsgBox Net that ve hinh 16 End Sub Private Sub 1 Chay ngang o giua man hình y Int . Height 2 - rlVuong . Height X - 0 dx - 200 For k 1 To 50 X y Tao thoi gian cho do i For i 1 To 5000 For j 1 To 1000 Next j Next i X - X t dx If X FruiDoHoa. width - 1500 Then X - - 1500 dx -100 Else If X 0 Then X 0 dx 100 End T Ế End I f Next. MsgBox Kct. thuc ve hinh 16 .

crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.