Objects จะต้องประกอบไปด้วย Property, Method, Event Property, Method, Event ที่ได้เรียนไปแล้ว แต่ไม่เฉพาะเจาะจงว่าเป็นของคอนโทรลหรือออปเจคชนิดใด แต่ในตอนเรียนมักใช้ Button เป็นหลัก มีดังนี้ Property 1.Name 2.Text 3.Backcolor 4.Forecolor 5.Font 6.Enabled 7.Visible 8.Cursor 9. Location 10.Size 11. Lock Event 1.Click Method 1.Focus 2.Show 3.Hide 4. Dispose ------------------------------------------------------------------ Property (เรียนต่อ) -Dock การวางตำแหน่งในรูปแบบที่สั่งให้จัดซ้าย ขวา ด้านบน ด้านล่าง และตรงกลาง เท่านั้น โดยคอนโทรล จะรักษาตำแหน่งเช่นนั้นตลอดไม่ว่าจะการย่อขยายขนาดหน้าต่างอย่างไรก็ตาม GroupBox dock-Bottom Button วางในgroupbox dock -left Button วางในgroupbox dock-right TextBox วางในgroupbox dock-center -Anchor สมอ จะปรับความห่างของขอบหน้าต่าง กับตัวคอนโทรลให้ได้ระยะเดิมเสมอ มีบางProperty เซตค่าให้โดยตรงแบบง่ายๆดังเช่น Enabled กับ Visible ไม่ได้ ยกตัวอย่าง เช่น Backcolor, Forecolor Cursor Font Cursor Button1.Cursor = Cursors.WaitCursor Color Button1.Backcolor = Color.FromArgb(54, 222, 226) Dim f As New Font("AngsanaNew", 18, FontStyle.Regular) Button1.Font = f บางproperty ก็จะมี help มาช่วย เช่น TextAlign Event Driven Programming การเขียนโปรแกรมโดยใช้เหตุการณ์เป็นตัวขับเคลื่อน สรุปขั้นตอนในการสร้างโปรแกรม 1. สร้างโปรเจ็คและเพิ่มฟอร์ม 2. นำคอนโทรลมาวางลงในฟอร์ม ตกแต่งหน้าจอ (วาดหน้าตาส่วนติดต่อกับผู้ใช้งาน) 3. เซตproperty ตอน design time ตั้งชื่อวัตถุ(คอนโทรล) และ เซตค่าเริ่มต้นต่างๆ 4. ใส่เหตุการณ์ให้ ตรงกับวัตถุที่ผู้ใช้สั่งทำงาน และ ตรงกับชนิดเหตุการณ์ 5. เขียนโค้ดในเหตุการณ์ โค้ดในเหตุกาณ์ส่วนใหญ่มักจะเป็นการเซตProperty หรือ การสั่งโดยใช้Method **Event เหตุการณ์** จุดประสงค์ของการเรียนรู้ คือศึกษาว่าแต่ละเหตุการณ์จะทำงานเมื่อไหร 1. Click 2. Enter ใน VB6 จะเรียกเหตุการณ์นี้ว่า GotFocus จะทำงานเมื่อมาโฟกัส ดังนั้นอาจเกิดจากการคลิ๊ก หรือ กดtab เลื่อนโฟกัสมาที่ปุ่ม 3. Leave ใน VB6 จะเรียกเหตุการณ์นี้ว่า LostFocus จะทำงานเมื่อคอนโทรลตัวนั้นสูญเสียการโฟกัส Private Sub Button2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Leave MsgBox("จะหนีจากฉันเหรอ Button2 กล่าว") End Sub Private Sub Button1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Enter MsgBox("ยินดีที่มาสนใจฉัน Button1 เอย") End Sub 4. MouseEnter เมื่อนำเมาส์เข้ามาในพื้นที่ของคอนโทรล 5. MouseLeave เมื่อนำเมาส์ออกจากพื้นที่ของคอนโทรล Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter TextBox1.Text = i i = i + 1 End Sub Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave TextBox2.Text = i i = i + 1 End Sub 6. MouseMove ทำงานทุกครั้งที่เลื่อนเมาส์ เมาส์เคลื่อนที่เหนือคอนโทรล โจทย์ เมื่อมีการนำเมาส์มาอยู่บนปุ่ม ปุ่มจะขึ้นสีแดง เมื่อเลื่อนออกไปปุ่มจะกลับเป็นสีเดิม(เขียว) 7. MouseHover เมาส์เคลื่อนมาจากด้านนอกเข้ามาในพื้นที่ของคอนโทรลแล้วหยุดนิ่ง จึงจะเกิดEventนี้ จะให้เกิดซ้ำต้องทำขั้นตอนเดิม คือ เริ่มเข้ามาจากด้านนอก 8. MouseDown คลิ๊กปุ่มซ้ายของเมาส์ให้จมลง 9. MouseUp ปล่อยเมาส์จากการกด ข้อสังเกต Event Click ที่เรียนไปในตอนแรก จะเกิดอยู่ระหว่าง MouseDown และ MouseUp และตำแหน่งของพอย์นเตอร์ การคลิ๊กให้ปุ่มซ้ายและการปล่อยปุ่มเมาส์จะต้องอยู่ในพื้นที่คอนโทรล **Method** 1. SetBounds เป็นMethodที่ใช้กำหนดตำแหน่งและขนาด ถ้าต้องการกำหนดที่ละอย่างจะต้องใช้ Property ต่อไปนี้เข้ามาช่วย Left , Top , Width , Height