cho tôi hỏi làm sao để mở nhiều file.wav trong 1 khoảng thời gian mà không bị treo chương trình không ạ?

0 thích 0 không thích
38 lượt xem
đã hỏi 15 Tháng 3, 2016 bởi loidotat (1,130 điểm)
    

1 câu trả lời

0 thích 0 không thích
đã trả lời 15 Tháng 3, 2016 bởi loidotat (1,130 điểm)
cụ thể là ví dụ có text "abcd" có file a.wav, b.wav, c.wav, d.wav và ... rất nhiều, khi chạy new sound player.

Ví dụ 1 hàm

sub doctext(byval text as string, delay as integer)

dim i as integer

for i =0 to text.lenght-1

select case text(i)

case "a"

   my.computer.audio.play(..."\a.wav")

   threading.thread.sleep(delay)

case "b"

 my.computer.audio.play(..."\b.wav")

   threading.thread.sleep(delay)

.....

next

khi text có nhiều kí tự thì chương trình sẽ treo cho đến khi đọc xong hết các từ.

có cách nào  khi text đang đọc mình vẫn thao tác được với form không?
...