Blog Lê Trung Hiếu

Just another WordPress.com site

Ôn tập tin – đồ họa 1 -vẽ điểm

Bài 1: Vẽ điểm
Tạo Menu Draw\Point


Code:
Dim vX1 As Single, vY1 As Single
Dim Linecolor As Long
Dim Lenh As String
Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub
With PicView
.Left = 0
.Top = 0
.Width = Me.ScaleWidth
.Height = Me.ScaleHeight
End With
End Sub
Private Sub MnuColor_Click()
CdlView.ShowColor
Linecolor = CdlView.Color
End Sub
Private Sub MnuPoint_Click()
Lenh = “Point”
End Sub

Private Sub PicView_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Lenh
Case “Point”
vX1 = X
vY1 = Y
DrawPoint vX1, vY1
End Select
End Sub
Private Sub DrawPoint(vX1 As Single, vY1 As Single)
PicView.PSet (vX1, vY1), Linecolor
End Sub

Bài mẫu :
Down

One response to “Ôn tập tin – đồ họa 1 -vẽ điểm

  1. NHACF.COM Tháng Năm 27, 2010 lúc 10:26 sáng

    Đây là trang nhạc của các webmaster vn nhacf.com – được viết với mục đích chỉ để nghe nhạc.Trang nhạc trình bày đơn giản nhanh gọn chuyên nghiệp, nghe nhạc nhanh, tìm kiếm bhát dễ dàng.Mới chỉ có ít người biết đến. nhưng nhacf được dân lập trình đánh giá rất cao về chất lượng và cách thể hiện.Để làm trang web giống như nhacf.com, bạn có thể dùng blogspot để tạo & copy sourcecode của nó ở đâyPhù hợp với ~ người có sở thích đơn giản nhanh gọn và muốn khám phá..

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

%d bloggers like this: