01.If strHN = dgvMedicine.Item(0, i).Value Then
02. For j As Integer = 0 To dgvMedicine.RowCount - 1
03. Select Case dgvMedicine.Item(6, j).Value
04. Case "MBOX01"
05. Me.btnMedBox01.Enabled = True
06. Me.btnMedBox01.BackColor = Color.Red
07. My.Computer.Audio.Play("C:\MEDCLASSET\MEDCLASSET\Sound\MEDBOX01.wav")
08. Case "MBOX02"
09. Me.btnMedBox02.Enabled = True
10. Me.btnMedBox02.BackColor = Color.Red
11. My.Computer.Audio.Play("C:\MEDCLASSET\MEDCLASSET\Sound\MEDBOX02.wav")
12..
13..
14..
15. Case "MBOX20"
16. Me.btnMedBox20.Enabled = True
17. Me.btnMedBox20.BackColor = Color.Red
18. My.Computer.Audio.Play("C:\MEDCLASSET\MEDCLASSET\Sound\MEDBOX20.wav")
19. End Select
20. Next
ที่มาให้ความรู้เพิ่ม
