Вы не должны использовать For Each
здесь, так как вам нужен указатель. Вы можете написать так:
Dim n as Integer = ListBox1.Items.Count
For i = 0 to n - 1
Dim oItem as String = ListBox1.Items(i), item2 as String = ListBox2.Items(i)
My.Computer.FileSystem.RenameFile(TextBox1.Text & oItem & ".png", item2)
Next
код внутри RenameFile должен быть написан на основе того, что вы хотите. (item2 является связанным элементом из второго списка)
Необходимо будет включать плагин как Реальное Аудио или QuickTime для обработки .wav файла, но это должно работать...
//======================================================================
var soundEmbed = null;
//======================================================================
function soundPlay(which)
{
if (!soundEmbed)
{
soundEmbed = document.createElement("embed");
soundEmbed.setAttribute("src", "/snd/"+which+".wav");
soundEmbed.setAttribute("hidden", true);
soundEmbed.setAttribute("autostart", true);
}
else
{
document.body.removeChild(soundEmbed);
soundEmbed.removed = true;
soundEmbed = null;
soundEmbed = document.createElement("embed");
soundEmbed.setAttribute("src", "/snd/"+which+".wav");
soundEmbed.setAttribute("hidden", true);
soundEmbed.setAttribute("autostart", true);
}
soundEmbed.removed = false;
document.body.appendChild(soundEmbed);
}
//======================================================================
При использовании Mootools существует плагин MooSound.
При использовании Прототипа библиотека Scriptaculous имеет звуковой API. jQuery, кажется, имеет плагин, также.
Я полагаю, что самый простой и наиболее удобный способ состоял бы в том, чтобы играть звук с помощью маленького клипа Flash. Я ценю, это не решение JavaScript, но это - самый легкий способ достигнуть Вашей цели
Некоторые дополнительные ссылки от предыдущего подобного вопроса:
код dacracots - это чистый базовый код, но, может быть, он написан без задних мыслей? Конечно, вы сначала проверяете наличие более ранней вставки и сохраняете дубликат встроить линии создания.
var soundEmbed = null;
//=====================================================================
function soundPlay(which)
{
if (soundEmbed)
document.body.removeChild(soundEmbed);
soundEmbed = document.createElement("embed");
soundEmbed.setAttribute("src", "/snd/"+which+".wav");
soundEmbed.setAttribute("hidden", true);
soundEmbed.setAttribute("autostart", true);
document.body.appendChild(soundEmbed);
}
Здесь я натолкнулся на эти мысли, пока искал решение для похожей ситуации. К сожалению, мой браузер Mozilla / 5.0 (X11; U; Linux i686; en-US; rv: 1.9.0.15) Gecko / 2009102814 Ubuntu / 8.04 (hardy) Firefox / 3.0.15 умирает при попытке этого.
После установки последних обновлений , firefox продолжает вылетать, опера продолжает работать.