การสร้างสี่เหลี่ยมสีแดงโดยใช้ คลาส Graphics
ก่อนอื่นอย่าลืม import นะครับImports System.Drawing

และต้องอยู่ในโหมด form_Paint นะครับ

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim gDraw As Graphics
Dim p As New Pen(Color.DarkRed) ''ช่วงนี้จะเป็นการกำหนดสีให้ปากกา
gDraw = Me.CreateGraphics
gDraw.PageUnit = GraphicsUnit.Inch
gDraw.DrawLine(p, 2, 2, 2, 3)
End Sub
ลองทำแล้วดูนะครับถ้าทำได้คุณจะได้เห็นสี่เหลี่ยมสีแดงเกิดในฟอร์ม

Comment

Comment:

Tweet

#13 By 5 (203.114.111.133) on 2010-09-01 10:05

#12 By 5 (203.114.111.133) on 2010-09-01 10:05

#11 By (118.175.134.14) on 2010-06-20 11:55

embarrassed 555

#10 By 555 (124.122.238.90) on 2009-11-26 13:57

#9 By แม่5 (222.123.231.238) on 2009-07-22 00:38

cry wink question tongue angry smile sad smile

#8 By (125.26.70.5) on 2009-07-18 20:38

cry wink question tongue angry smile sad smile

#7 By (125.26.70.5) on 2009-07-18 20:37

tongue wink

#6 By (125.27.230.44) on 2009-06-21 10:57

คือ เราทำโปรเจคเกี่ยวกับ DFD อ่า พอจะเข้าใจป่ะ
เรามีการทำงานกับผู้ใช้ คือให้ผู้ใช้กรอกเข้าไปว่าต้องการโปรเซส เมื่อผู้ใช้ กด ok มันจะสร้างรูป สี่เหลี่ยมมุมมนมาให้ แล้วถ้าผู้ใช้ต้องการโปรเซสนั้นอีกจะทำอย่างไรที่ไม่ใช้รูปสี่เหลี่ยมมุมมนนั้นไม่ทับของเดิม

#5 By (202.12.73.19) on 2008-06-18 18:35

อยากทราบว่าเมื่อเราได้รูปสี่เหลี่ยมมาแล้ว อยากให้รูปสี่เหลี่ยมนั้นเคลื่อนที่ได้ ตามเม้าท์ มีฟังก์ชั่นทำได้มั้ยค่ะ

#4 By (202.12.73.19) on 2008-06-18 18:33

wink

#3 By (203.172.184.166) on 2008-05-22 09:47

wink

#2 By (203.172.184.166) on 2008-05-22 09:47

#1 By (203.172.184.166) on 2008-05-22 09:47