บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
อัพเดตล่าสุด เมื่อวันที่ :: 14/04/2551
สำหรับบทความนี้เป็น การ comment ครั้งละหลาย ๆ บรรทัดพร้อมกัน
ปกติใน VB นั้น หาก เราต้องการ หมายเหตุ หรือทำ comment คำสั่ง สามารถใช้เครื่องหมาย ' (single quote) ซึ่งทำได้แค่ 1 บรรทัด
ดัง ต.ย.
Public Class myPrinter
Friend TextToBePrinted As String
Public Sub prt(ByVal text As String)
TextToBePrinted = text
Dim prn As New Printing.PrintDocument
Using (prn)
'--- prn.PrinterSettings.PrinterName = "PrinterName"
AddHandler prn.PrintPage,
AddressOf Me.PrintPageHandler
prn.Print()
'RemoveHandler prn.PrintPage, AddressOf Me.PrintPageHandler
End Using
End Sub
Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)
Dim myFont As New Font("Microsoft San Serif", 10)
args.Graphics.DrawString(TextToBePrinted,
New Font(myFont, FontStyle.Regular), Brushes.Black, 50, 50)
End Sub
End Class |
หาก เราต้องการทำการ comment หลาย ๆ บรรทัด ก็ ต้องใส่ ' หน้าคำสั่ง ทุกบรรทัด จึงเป็นการยุ่งยาก แต่เรามีวิธีที่ง่ายกว่า นั้น โดยทำได้ ดังนี้
1. Dragเมาส์ คลุมคำสั่งทุกบรรทัดที่ต้องการ จะทำการ comment
2. ไปที่เมนู Edit แล้วเลือกเมนูย่อย Advanced
3. ที่เมนู ย่อย Advanced ให้เลือก comment selection
แค่นี้เราก็จะได้การ comment ให้ทุกบรรทัดตามต้องการ
บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
|