Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound If ((e.Row.RowType = ListItemType.Item) Or (e.Row.RowType = ListItemType.AlternatingItem)) Then 'Dim filepic As String = "S" & e.Item.Cells(1).Text & "." & e.Item.Cells(2).Text '//กำหนดชื่อไฟล์รูปภาพ 'Dim strpic As String = "<img width=40 height=40 src=" & filepic & " alt=" & filepic & "></a>" '//กำหนดข้อความสำหรับแสดงรูปภาพ 'e.Item.Cells(0).Text = strpic '//นำรูปภาพไปแสดงที่คอลัมน์ที่ 0 '//การแสดงรูปภาพเพื่อลบชั่วคราว, เรียกคืน, ลบถาวร If (e.Row.Cells(6).Text = "-") Then Dim strdel As String = "<a href='DailyDelete.aspx?id=" + e.Row.Cells(1).Text + " 'Onclick='return confirmDelete()''><img src='pic/delete.gif' alt='ลบชั่วคราว' width='40' height='40' border='0'></a>" e.Row.Cells(7).Text = strdel Else Dim strPack As String = "<a href='DailyPack.aspx?id=" + e.Row.Cells(1).Text + " 'Onclick='return confirmPack()''><img src='pic/pack.gif' alt='ลบถาวร' width='40' height='40' border='0'></a>" strPack = strPack + " <a href='DailyRecall.aspx?id=" + e.Row.Cells(1).Text + " 'Onclick='return confirmRecall()''><img src='pic/recall.gif' alt='เรียกคืน' width='40' height='40' border='0'></a>" e.Row.Cells(7).Text = strPack End If '//กำหนดให้มีการลิงค์รูปภาพเพื่อพิมพ์รายการเฉพาะสินค้า Dim strpicprint As String = "<a href='DailyPE.aspx?id=" + e.Row.Cells(1).Text + " 'Onclick='return confirmPrintEach()'' TARGET='_BLANK'><img width=40 height=40 src='pic/Print.bmp' alt='พิมพ์รายงานเฉพาะรายการ' width='22' height='23' border='0'></a>" '//กำหนดให้มีการลิงค์รูปภาพเพื่อพิมพ์รายการเฉพาะสินค้า e.Row.Cells(8).Text = strpicprint ' //กำหนดข้อความสำหรับแสดงรูปภาพstrpic;//นำรูปภาพไปแสดงที่คอลัมน์ที่ 4 End If
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง