• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Chương trình vẽ 13 dòng code

Các thủ thuật về truyền thông đa phương tiện, đồ họa

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Chương trình vẽ 13 dòng code

Gửi bàigửi bởi clarkkent » CN 14/12/2008 10:48 am

Thủ thuật: Chương trình vẽ 13 dòng code
Tác giả: Nguyễn Trung Tín
Mô tả: Chương trình vẽ 13 dòng code


:) >:P @-)

Mã: Chọn hết

  1.    Dim bNhan As Boolean
  2.     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
  3.         bNhan = True
  4.     End Sub
  5.     Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
  6.         bNhan = False
  7.     End Sub
  8.     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
  9.         If bNhan Then
  10.             Dim graphic As Graphics = CreateGraphics()
  11.             graphic.FillRectangle(New SolidBrush(Color.Red), e.X, e.Y, 4, 4)
  12.         End If
  13.     End Sub


• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Quay về “[.NET] Âm thanh và Đồ họa”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách