ДА! Официальное заявление о поддержке :
Базовая среда выполнения Visual Basic 6.0 будет поддерживаться в течение всего срока службы Windows Vista, Windows Server 2008 и Windows 7 EDIT, а теперь и Windows 8 , то есть пять лет основной поддержки, а затем пять лет расширенной поддержки
Я не знаю, когда она была изменена, потому что она Я не говорил этого пару недель назад, но сейчас. Ура!
Как указал VonC в своем ответе, IDE больше не поддерживается, что вызывает беспокойство, если вы хотите сохранить и обновить свой код VB6.
Среда Visual Basic 6.0 будет поддерживаться в Windows Vista и Windows Server 2008 как часть политики расширенной поддержки Visual Basic 6.0 до 8 апреля 2008 г.
Люди используют IDE на Vista с несколькими изменениями . И при необходимости всегда можно будет запустить его на виртуальной машине.
Этот код довольно короткий и (надеюсь) его легко понять:
public const int CHUNK_SIZE = 4096;
public const string UPLOAD_URI = "http://localhost:55087/FileUpload.ashx?filename={0}&append={1}";
private Stream _data;
private string _fileName;
private long
_bytesTotal;
private long _bytesUploaded;
private void UploadFileChunk()
{
string uploadUri = ""; // Format the upload URI according to wether the it's the first chunk of the file
if (_bytesUploaded == 0)
{
uploadUri = String.Format(UPLOAD_URI,_fileName,0); // Dont't append
}
else if (_bytesUploaded < _bytesTotal)
{
uploadUri = String.Format(UPLOAD_URI, _fileName, 1); // append
}
else
{
return; // Upload finished
}
byte[] fileContent = new byte[CHUNK_SIZE];
_data.Read(fileContent, 0, CHUNK_SIZE);
WebClient wc = new WebClient();
wc.OpenWriteCompleted += new OpenWriteCompletedEventHandler(wc_OpenWriteCompleted);
Uri u = new Uri(uploadUri);
wc.OpenWriteAsync(u, null, fileContent);
_bytesUploaded += fileContent.Length;
}
void wc_OpenWriteCompleted(object sender, OpenWriteCompletedEventArgs e)
{
if (e.Error == null)
{
object[] objArr = e.UserState as object[];
byte[] fileContent = objArr[0] as byte[];
int bytesRead = Convert.ToInt32(objArr[1]);
Stream outputStream = e.Result;
outputStream.Write(fileContent, 0, bytesRead);
outputStream.Close();
if (_bytesUploaded < _bytesTotal)
{
UploadFileChunk();
}
else
{
// Upload complete
}
}
}
Полное загружаемое решение см. В моем сообщении в блоге: Загрузка файлов в Silverlight - простое решение