Printing Reports
Download
1 / 78

Printing Reports การออกรายงาน - PowerPoint PPT Presentation


  • 93 Views
  • Uploaded on

Printing Reports การออกรายงาน. วัตถุที่ยอมให้พิมพ์ข้อมูลลงได้ ( Printable Objects ). แบบฟอร์ม ( Forms ). เครื่องพิมพ์ (Printer). กล่องรูปภาพ ((Picture Box). หน้าต่างอิมมิเดียด ((Immediate Window). คำสั่งพิมพ์. Form1.Print พิมพ์ลง Form1. Printer.Print พิมพ์ลง เครื่องพิมพ์.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' Printing Reports การออกรายงาน' - ryder


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

Printing Reportsการออกรายงาน


วัตถุที่ยอมให้พิมพ์ข้อมูลลงได้ (Printable Objects)

  • แบบฟอร์ม (Forms)

  • เครื่องพิมพ์ (Printer)

  • กล่องรูปภาพ ((Picture Box)

  • หน้าต่างอิมมิเดียด ((Immediate Window)


คำสั่งพิมพ์ (

Form1.Print พิมพ์ลง Form1

Printer.Print พิมพ์ลง เครื่องพิมพ์

Picture1.Print พิมพ์ลง กล่องรูปภาพPicture1

Debug.Print พิมพ์ลง Immediate Window


รูปแบบคำสั่งพิมพ์ (

Object.Print varList or contList

Object หมายถึง วัตถุที่สามารถสั่งพิมพ์ลงได้ ได้แก่ Form, PictuerBox, Printer, Debug (แทน Immediate Window)

varList หมายถึงค่าตัวแปร ที่จะให้พิมพ์ออกมา ตั้ง แต่หนึ่งตัวขึ้นไป ถ้ามีมากกว่า 1 ตัว ต้อง คั่นด้วยเครื่องหมาย คอมมา ( , ) หรือเซมิ คอลอน ( ; )


cont (List หมายถึงค่าคงที่ ที่จะให้พิมพ์ออกมา ตั้ง แต่หนึ่งตัวขึ้นไป ถ้ามีมากกว่า 1 ตัว ต้อง คั่นด้วยเครื่องหมาย คอมมา ( , ) หรือเซมิ โคลอน ( ; )


การใช้เครื่องหมายคอมมาและเซมิโคลอน จะส่งผลถึงรูปแบบการพิมพ์ดังนี้

ถ้าคั่นด้วยเครื่องหมายเซมิโคลอน ค่าของตัวแปรหรือค่าคงที่ จะพิมพ์ชิดกัน

ถ้าคั่นด้วยเครื่องหมายคอมมา ค่าของตัวแปรหรือค่าคงที่ จะพิมพ์ลงที่จุดเริ่มต้นของเขตการพิมพ์ (Print Zone) โดยที่ 1 เขตการพิมพ์ = 14 ตัวอักษร


ตัวอย่าง จะส่งผลถึงรูปแบบการพิมพ์ดังนี้ ให้พิมพ์ข้อความลงบนแบบฟอร์ม

Private Sub Form_Click()

Form1.Print “I am studying VB”

End Sub

คีย์โปรแกรมย่อยนี้ลงที่ Form1 เมื่อสั่ง Run โปรแกรมแล้ว ทุกครั้งที่ใช้เมาส์คลิกที่แบบฟอร์ม ข้อความ I am studying VB จะพิมพ์ลงบนฟอร์ม


ตัวอย่าง จะส่งผลถึงรูปแบบการพิมพ์ดังนี้การใช้เครื่องหมายเซมิโคลอน

Private Sub Form_Click()

Dim j as Integer

Dim x as Single

Dim t as String

j = 1500

x = 12.25

t = “Thai”

Form1.Print j;x;t

End Sub


ตัวอย่าง จะส่งผลถึงรูปแบบการพิมพ์ดังนี้การใช้เครื่องหมายคอมมา

Private Sub Form_Click()

Dim j as Integer

Dim x as Single

Dim t as String

j = 1500

x = 12.25

t = “Thai”

Form1.Print j,x,t

End Sub


ฟังก์ชันช่วยการพิมพ์ จะส่งผลถึงรูปแบบการพิมพ์ดังนี้

ชื่อฟังก์ชั่น การทำงาน

Spc(n) เว้นระยะไป n ตัวอักษร แล้วพิมพ์

Tab(n) เริ่มพิมพ์ตำแหน่งที่ n

String(n,c) พิมพ์อักขระ c ต่อเนื่องไป n ครั้ง


ตัวอย่าง จะส่งผลถึงรูปแบบการพิมพ์ดังนี้การใช้ฟังก์ชัน Spc และ Tab

Private Sub Form_Click()

Dim j as Integer

Dim x as Single

Dim t as String

j = 1500 : x = 12.25 : t = “Thai”

Form1.Print "Space using Spc”

Form1.Print Spc(10); j ; Spc(10) ; x

Form1.Print "Space using Tab"

Form1.Print Tab(10) ; j ; Tab(20) ; x

End Sub


ตัวอย่าง จะส่งผลถึงรูปแบบการพิมพ์ดังนี้การใช้ฟังก์ชัน String สั่งพิมพ์จุดออกมาบนแบบฟอร์ม จำนวน 10 บรรทัด ๆ ละ 80 จุด

Private Sub Form_Click()

Dim I as Integer

for I = 1 to 10

Form1.Print String(80,”.”)

Next

End Sub


คำสั่งจัดรูปแบบข้อมูลเลขจำนวนคำสั่งจัดรูปแบบข้อมูลเลขจำนวน

ชื่อรูปแบบ การทำงาน

Currency ใส่เครื่องหมายคอมมาที่หลักพัน และหลักล้าน

Fixed แสดงตัวเลข อย่างน้อย 1 หลักที่หน้า และ 2 หลัก หลังจุดทศยนิยม


คำสั่งจัดรูปแบบข้อมูลเลขจำนวนคำสั่งจัดรูปแบบข้อมูลเลขจำนวน

ชื่อรูปแบบ การทำงาน

Standard ใส่เครื่องหมายคอมมาที่หลักพันและ หลักล้าน และแสดงตัวเลข อย่างน้อย 1 หลัก หน้าจุดทศนิยม และ 2 หลัก ที่หลังจุดทศนิยม

Percent แสดงเครื่องหมายร้อยละ (%)

Scientific แสดงเลขจำนวนที่มีอักษร E และ กำลังของ E


คำสั่งจัดรูปแบบข้อมูลเลขจำนวนคำสั่งจัดรูปแบบข้อมูลเลขจำนวน

ชื่อรูปแบบ การทำงาน

Yes/No แสดง Yes ถ้าค่าไม่ใช่ 0 และ No ถ้า ค่าเป็น 0

True/False แสดง Trueถ้าค่าไม่ใช่ 0 และ Falseถ้าค่า เป็น 0

On/Off แสดง Onถ้าค่าไม่ใช่ 0 และ Offถ้า ค่าเป็น 0


สั่งพิมพ์ตามปกติคำสั่งจัดรูปแบบข้อมูลเลขจำนวน

Private Sub Form_Click()

Dim j as Long

Dim x,y as Double

j = 1285547204

x = 0.000000456

y = 7562.2147

Form1.Print j

Form1.Print x

Form1.Print y

End Sub


สั่งพิมพ์โดยใช้รูปแบบ Currency

Private Sub Form_Click()

Dim j as Long

Dim x,y as Double

j = 1285547204

x = 0.000000456

y = 7562.2157

Form1.Print Format(j, "Currency")

Form1.Print Format(x, "Currency")

Form1.Print Format(y, "Currency")

End Sub


สั่งพิมพ์โดยใช้รูปแบบ Fixed

Private Sub Form_Click()

Dim j as Long

Dim x,y as Double

j = 1285547204

x = 0.000000456

y = 7562.2157

Form1.Print Format(j, "Fixed")

Form1.Print Format(x, "Fixed")

Form1.Print Format(y, "Fixed")

End Sub


สั่งพิมพ์โดยใช้รูปแบบ Standard

Private Sub Form_Click()

Dim j as Long

Dim x,y as Double

j = 1285547204

x = 0.000000456

y = 7562.2157

Form1.Print Format(j, "Standard")

Form1.Print Format(x, "Standard")

Form1.Print Format(y, "Standard")

End Sub


สั่งพิมพ์โดยใช้รูปแบบ Percent

Private Sub Form_Click()

Dim j as Long

Dim x,y as Double

x = 0.0245759

Form1.Print Format(x, ”Percent")

End Sub


สั่งพิมพ์โดยใช้รูปแบบ Scientific

Private Sub Form_Click()

Dim j as Long

Dim x,y as Double

j = 1285547204

x = 0.000000456

y = 7562.2157

Form1.Print Format(j, "Scientific")

Form1.Print Format(x, " Scientific ")

Form1.Print Format(y, " Scientific ")

End Sub


สั่งพิมพ์โดยใช้รูปแบบ Yes/No, True/False และ On/Off

Private Sub Form_Click()

Dim j,k,i as Integer

j = 0

k = 2

l = 1

Form1.Print Format(j, Yes/No”")

Form1.Print Format(k, " True/False ")

Form1.Print Format(l, " On/Off ")

End Sub


กำหนดตำแหน่งของเลขจำนวนตามที่ต้องการกำหนดตำแหน่งของเลขจำนวนตามที่ต้องการ

สัญลักษณ์ การทำงาน

0 แสดงเลขจำนวน ถ้าไม่มี ให้ใส่ 0

# แสดงเลขจำนวน ถ้าไม่มี ให้ว่าง

.ให้แสดงจุดทศนิยมที่ตำแหน่งนั้น

,ให้ใส่เครื่องหมายคอมมาที่ตำแหน่งนั้น

% ให้ใส่เครื่องหมายร้อยละ


สัญลักษณ์ การทำงาน

E-,E+,e-,e+ ใช้ E-, e- เมื่อต้องการให้แสดงเครื่อง หมายลบหน้ากำลังที่เป็นลบ ถ้ากำลังเป็น บวก ไม่ ต้องแสดงเครื่องหมาย และใช้ E+, e+ ถ้าต้องการให้แสดงเครื่องหมายทั้งบวก และลบ


การจัดกรูปแบบข้อมูลเวลาการจัดกรูปแบบข้อมูลเวลา

ชื่อรูปแบบ การทำงาน

Long Date พิมพ์วันที่ เดือน ปี

Medium Date พิมพ์วันที่ เดือนย่อ และสองหลักสุด ท้ายของเลขท้ายปี

Short Date พิมพ์วัน เดือน และสองหลักสุดท้าย ของปีเป็นตัวเลข โดยมีเครื่องหมาย ทับคั่น


ชื่อรูปแบบ การทำงาน

Long Time ชั่วโมง:นาที:วินาที

Medium Time ชั่วโมง:นาที:AM หรือ PM

Short Time ชั่วโมง:นาที


ตัวอย่างโปรแกรมแสดงวันและเวลาตัวอย่างโปรแกรมแสดงวันและเวลา

Private Sub Form_Click()

Dim dateX As Date

dateX = Now

Form1.Print " General date ", dateX

Form1.Print "Long Date ", Format(dateX, "Long Date")

Form1.Print "Medium Date ", Format(dateX, & _"Medium Date")

Form1.Print "Short Date ", Format(dateX, "Short Date")

Form1.Print " Long Time ", Format(dateX, "Long Time")

Form1.Print " Medium Time ", Format(dateX, "Medium Time")

Form1.Print " Short Time", Format(dateX, "Short Time")

End Sub


Working with Fonts ตัวอย่างโปรแกรมแสดงวันและเวลาการปรับปรุงแบบอักษร


คุณสมบัติเกี่ยวกับชื่อ ขนาด และรูปร่างของแบบอักษร

คุณสมบัติ ความหมาย

Name กำหนดชื่อแบบอักษรที่ต้องการ เช่น ถ้า ต้องการกำหนดชื่อแบบอักษรที่จะพิมพ์ บน Form1 เขียนคำสั่งดังนี้

Form1.Font.Name = “AngsanaUPC”


คุณสมบัติ ความหมาย

Size กำหนดความสูงตัวอักษร มีหน่วยเป็นจุด เช่น

Form1.Font.Size = 14

Picture1.Font.Size = 72

Bold กำหนดอักษรตัวหนา หรือยกเลิกอักษร ตัวหนา เช่น

Form1.Font.Bold = True

ให้อักษรหลังจากคำสั่งนี้เป็นตัวหนา


คุณสมบัติ ความหมาย

Form1.Font.Bold = False

ให้อักษรที่เป็นตัวหนาอยู่หลังจากคำสั่ง นี้ เป็นตัวปรกติ

Italic กำหนดอักษรเป็นตัวเอียง หรือยกเลิก ตัวเอียงเช่น

Form1.Font.Italice = True

ให้อักษรหลังจากคำสั่งนี้เป็นตัวเอียง


คุณสมบัติ ความหมาย

Underline กำหนดให้ขีดใต้ 1 เส้น หรือยกเลิก การขีดเส้นใต้ เช่น

Picture1.Font.Underline = True

ให้อักษรหลังจากคำสั่งนี้เป็นตัวที่มีขีด เส้นใต้ เช่น

Picture1.Font.Underline = False

ให้อักษรที่มีขีดเส้นใต้ หลังจากคำสั่งนี้ กลับมาเป็นเป็นตัวปรกติ


คุณสมบัติ ความหมาย

StrikeThrough กำหนดให้ขีดเส้นทับ 1 เส้น หรือยกเลิก การขีดเส้นทับ เช่น

Picture.Font.StrikeThrough = True

ให้อักษรหลังจากคำสั่งนี้เป็นตัวที่มีขีด เส้นทับ เช่น

Picure1.Font.StrikeThrough = False

ให้อักษรที่มีขีดเส้นทับ หลังจากคำสั่งนี้ กลับมาเป็นเป็นตัวปรกติ


คุณสมบัติ ความหมาย

Weight กำหนดความหนาของเส้นที่ใช้แสดงตัว อักษร มีหน่วยเป็นจุด เช่น

Form1.Font.Weight = 400

เป็นตัวอักษรปรกติ

Form1.Font.Weight = 700

เป็นตัวอักษรตัวหนา


ค่าคงที่เกี่ยวกับสี ความหมาย

สีมาตรฐานของวิชวลเบสิก

ค่าคงที่ สี

vbBlack ดำ (Black)

vbRed แดง (Red)

vbGreen เขียว (Green)

vbYellow เหลือง (Yellow)

vbBlue น้ำเงิน (Blue)

vbMagenta ม่วง (Magenta)

vbCyan ฟ้า (Cyan)

vbWhite ขาว ( White )

White


ฟังก์ชันแดงเขียวน้ำเงิน (RGB)

รูปแบบ

RGB(red, green, blue)

redค่าของสีแดง เป็นเลขจำนวนเต็ม 0 - 255

greenค่าของสีเขียว เป็นเลขจำนวนเต็ม 0 - 255

blueค่าของสีน้ำเงิน เป็นเลขจำนวนเต็ม 0 - 255


สี ค่าสีแดง ค่าสีเขียว ค่าสีน้ำเงิน

Black 0 0 0

Blue 0 0 255

Green 0 255 0

Cyan 0 255 255

Red 255 0 0

Magenta 255 0 255

Yellow 255 255 0

White 255 255 255

White

ฟังก์ชันแดงเขียวน้ำเงิน RGB


ฟังก์ชันคิวบี ( ค่าสีเขียว ค่าสีน้ำเงินQBColor)

รูปแบบ

QBColor(color)

colorเป็นค่าคงที่ของสีคิวบี เป็นเลขจำนวนเต็ม มีค่า 0 - 15


ค่าของสี สี ค่าของสี สีค่าของสี สี ค่าของสี สี

0 Black 8 Gray

1 Blue 9 Light Blue

2 Green 10 Light Green

3 Cyan 11 Light Cyan

4 Red 12 Light Red

5 Magenta 13 Light Magenta

6 Yellow 14 Light Yellow

7 White 15 Bright White


การกำหนดสีอักษรที่จะพิมพ์ลงบนวัตถุต่าง ๆ จะต้องกำหนด ForeColor ให้รับสีต่าง ๆ ตามที่ต้องการ เช่น

Form1.ForeColor = vbRed หรือ

Form1.ForColor = RGB(255,0,0) หรือ

Form1.ForColor = QBColor(4)

Form1.Print “ภาษาวิชวลเบสิก”

ข้อความ “ภาษาวิชวลเบสิก” ที่พิมพ์บน Form1 จะเป็นแดง


ตัวอย่าง ๆ จะต้องกำหนด พิมพ์ข้อความลงบนแบบฟอร์ม ให้มีขนาดและสีที่แตกต่างกัน

กำหนดวัตถุ

ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน

Form1

Picture1 Picture1

Command1 cmdPrintForm พิมพ์บนแบบฟอร์ม

Command3 cmdPrintPicture พิมพ์บนกล่องรูปภาพ

Command3 cmdExit เลิก


เขียนโปรแกรมให้วัถุควบคุมเขียนโปรแกรมให้วัถุควบคุม


สั่ง เขียนโปรแกรมให้วัถุควบคุมRun โปรแกรม แล้วคลิก “พิมพ์บนแบบฟอร์ม” และ “พิมพ์บนกล่องรูปภาพ”


Displaying Graphic เขียนโปรแกรมให้วัถุควบคุมการแสดงผลกราฟิก


การกำหนดจุดโคออดิเนตเขียนโปรแกรมให้วัถุควบคุม

การวาดรูป หรือพิมพ์ข้อความใด ๆ แบบกราฟิกลงบนวัตถุ ต้องมีการกำหนดระยะว่า จะวาดลงตำแหน่งใด การกำหนดตำแหน่งนี้ต้องอาศัยกฏเกณฑ์ของการสร้างกราฟ คือกำหนดจุดออริยินและจุดโคออดิเนตของกราฟ แล้วกำหนดระยะตามแนวแกน Xและ แกน Y


แกน เขียนโปรแกรมให้วัถุควบคุมX และ Y ของจอภาพ

แกน X

จุดออริยิน

แกน Y


หน่วยวัด (เขียนโปรแกรมให้วัถุควบคุมScaleMode)

ทวิพ (Twip) 1 ทวิพ = 1440 นิ้ว หรือ 567 เซนติเมตร

จุด (Point) 1 จุด= 72 นิ้ว

พิกเซล (Picxel) จุดเล็กที่สุดในจอภาพ

อักขระ (Character) ขนาดอักขระ 1 ตัว ที่กว้างระมาณ 120 ทวิพ สูงประมาณ 240 ทวิพ).


ค่าคงที่ของหน่วยวัดเขียนโปรแกรมให้วัถุควบคุม

รูปแบบ

object.ScaleMode = value

ค่า ค่าคงที่

1 VbTwips (ค่าโดยปริยาย)

2 VbPoints

3 VbPixels

4 vbCharacters

5 VbInches

6 VbMillimeters

7 VbCentimeters


Drawing Methods เขียนโปรแกรมให้วัถุควบคุมวิธีการการวาด


สามารถแสดงผลออกมาในรูปแบบ เอกสาร เส้นตรง รูปทรงเรขาคณิต แผนภูมิ รวมถึงภาพ ประเภท Bitmap, JPEG และ GIF


คุณสมบัติเกี่ยวกับขนาดของวัตถุคุณสมบัติเกี่ยวกับขนาดของวัตถุ

Height ScaleHeight

Width ScaleWidth

Top ScaleTop

Left ScaleLeft


Height, Width คุณสมบัติเกี่ยวกับขนาดของวัตถุเป็นความสูงและความกว้าง.ที่แท้จริงของวัตถุ เช่น Height และWidthของแบบฟอร์ม เป็นความสูงและความกว้างซึ่งรวมเอาแถบหัวเรื่อง แถบเมนู และแถบเครื่องมือต่าง ๆ เข้าไปด้วย

ScaleHeight,ScaleWidth เป็นความสูงและความกว้าง ที่เป็นเนื้อที่ภายในของวัตถุ ตัวอย่าง เช่น ScaleHeight และ ScaleWidthเป็นความสูงและความกว้างที่สามารถจะพิมพ์ข้อความหรือวาดรูปต่าง ๆ ลงไปได้


Top คุณสมบัติเกี่ยวกับขนาดของวัตถุคือตำเหน่งขอบบนของวัตถุวัดจากขอบบนของจอภาพ

Left คือตำแหน่งขอบซ้ายของวัตถุ วัดจากขอบซ้ายของจอภาพ

ScaleTop เป็นตำแหน่งขอบบนด้านในของวัตถุ ซึ่งจะมีค่าเป็น 0 เสมอ

ScaleLeft เป็นตำแหน่งขอบซ้ายด้านในของวัตถุ ซึ่งจะมีค่าเป็น 0 เสมอ


Top, Leftคุณสมบัติเกี่ยวกับขนาดของวัตถุ

ScaleTop,ScaleLeft

FORM

Height

ScaleHeight

ScaleWidth

Width


การปรับ คุณสมบัติเกี่ยวกับขนาดของวัตถุScaleHeight และ ScaleWidth

การปรับScaleHeight และ ScaleWidth ให้อยู่ในสัดส่วนตามความต้องการ โดยไม่ต้องสนใจว่า ขณะนั้นแบบฟอร์มใช้หน่วยวัด (ScaleMode) อะไรอยู่ ทำให้ผู้เขียนโปรแกรม สามารถกำหนดระยะของแกน X และ Y ได้ง่ายและสะดวกขึ้น และไม่ว่าแบบฟอร์มจะปรับขนาดให้ใหญ่หรือเล็กอย่างไร สัดส่วนนั้นจะยังคงอยู่


ตัวอย่างเช่นคุณสมบัติเกี่ยวกับขนาดของวัตถุ

ScaleHeight = 100

ScaleWidth = 100

หมายความว่า ความสูงของแบบฟอร์ถูกแบ่งออกเป็น 100 ส่วนเท่า ๆ กัน และความกว้างของแบบฟอร์มถูกแบ่งออกเป็น 100 ส่วนเท่า ๆ กัน


ตัวอย่าง คุณสมบัติเกี่ยวกับขนาดของวัตถุ เขียนโปรแกรม

1 กำหนดขนาดของแบบฟอร์ม

2 ให้ฟอร์มอยู่กลางจอเสมอ

3 แบ่งพื้นที่แบบฟอร์มออกเป็น 100 ส่วน

4 แสดงข้อความตามตำแหน่งที่กำหนด


กำหนดขนาดของแบบฟอร์ม 0.9 เท่าของขนาดจริง

ให้แบบฟอร์มอยู่กลางจอภาพเสมอ

กำหนด ขนาดอักษร 14 จุด ตัวเข้ม และสีน้ำเงิน สำหรับพิมพ์จุด (.) เพื่อแสดงจุดแบ่งพื้นที่


สั่งพิมพ์จุด 0.9 เท่าของขนาดจริง

พิมพ์ข้อความที่ X = 20, Y = 50


ผลลัพธ์ 0.9 เท่าของขนาดจริง



ผลลัพธ์ อย่างอื่นคงเดิม


วิธีการการวาดในวิชวลเบสิกวิธีการการวาดในวิชวลเบสิก

  • Cls สำหรับลบสิ่งที่วาดออก

  • Line สำหรับลากเส้นตรง หรือกล่องบนวัตถุ

  • Circle สำหรับลาก วงกลม วงรี เส้นโค้ง

  • Point สำหรับดึงค่าของสีจากจุดในจอภาพ

  • Pset สำหรับกำหนดสีให้กับจุดในจอภาพ

  • Print สำหรับแสดงข้อความ


การลากเส้นตรงวิธีการการวาดในวิชวลเบสิก

รูปแบบคำสั่ง

object.Line (x1, y1) - Step (x2, y2), [color], [B][F]

object หมายถึงวัตถุที่สามารถวาดลงได้

Line หมายคำสั่งให้วาด

(x1, y1) ค่าโคออดิเนตจุดแรก

- ถึง

Step ถ้ามีคำสั่งนี้ค่าx,yที่ตามมาจะเป็นระยะ ที่ห่างจากจุดที่อยู่ก่อนหน้านี้ ถ้าไม่มี

Step ค่าของx,yคือค่าโคออดิเนตจริง


(x2, y2) วิธีการการวาดในวิชวลเบสิกถ้าไม่มี Step คือค่าโคออดิเนตจุดที่สอง ถ้ามี Step คือระยะที่ห่างจากจุดที่สอง

colorหมายถึงสีของเส้น ใช้ค่าคงที่ของสีวิชวลเบสิก ฟังก์ชัน RGB หรือฟังก์ชัน QBColor ก็ได้

B ถ้ามีตัวเลือกนี้ หมายถีงการวาดกล่องสี่เหลี่ยม โดยใช้จุดสองจุดเป็นมุมตรงข้ามของกล่อง

F ถ้าวาดกล่องจึงจะใช้ตัวเลือกนี้ได้ หมายถีง ให้ ระบายสีกล่อง สีที่ใช้ระบายเป็นไปตามคุณสม บัติของ FillColor และ FillStyle ของวัตถุ


ตัวอย่างวิธีการการวาดในวิชวลเบสิก การลากเส้นตรงโดยใช้ค่าโคออดิเนตจริง

กำหนดวัตถุ

ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน

Command1 cmdLine เส้นตรง

Command2 cmdExit เลิก


สั่ง วิธีการการวาดในวิชวลเบสิกRun โปรแกรม แล้วคลิก “เส้นตรง”


ตัวอย่างวิธีการการวาดในวิชวลเบสิก การลากเส้นตรงโดยใช้ค่าโคออดิเนตจริง ลากเส้นตรงต่อกันเป็นสี่เหลี่ยมผืนผ้า

ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน

Command1 cmdLine กล่อง

Command2 cmdExit เลิก


ออกแบบวัตถุควบคุมวิธีการการวาดในวิชวลเบสิก


เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม



ตัวอย่าง การสร้างกล่อง

กำหนดวัตถุ

ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน

Command1 cmdLine กล่อง

Command2 cmdExit เลิก



เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม


สั่ง Run โปรแกรม แล้วคลิก “วาดกล่อง”


ad