' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)
อันนี้เอามาจากเว็บ microsoft คือก่อนจะค้นหาเราก็ตัดคำ
Dim imagegroup As String = Mid(textbox.Text, 1, 7)
ลองมองให้มันเชื่อมกัน SKU ที่มี Index เหมือน Index หนึ่ง มีหลายๆรูป
เวลาค้นก็ค้นจาก Index ตารางแระ อย่างมี 6 รูป(อย่าไปสนใจเรื่องชื่อเลยทีนี้ )
ไอ้เจ้า 6 รูปที่ว่า เอาไปเก็บใน datagrid หรือ list หรือ binding ต่างๆ ให้เรียกใช้ง่าย
ส่วน
Code (VB.NET)
Private Sub pic_Click(ByVal sender As Object, ByVal e As EventArgs)
' etc... เลื่อนรูปได้เลยครับ โดยดึงชื่อไฟล์จาก datagrid หรือ list หรือ binding
End Sub