private void repaint_menu()
{
switch (num_prev_menu)
{
case 1:
pictureBox1.Image.Dispose();
pictureBox1.Image = imageList1.Images[0];
break;
case 2:
pictureBox2.Image.Dispose();
pictureBox2.Image = imageList1.Images[1];
break;
case 3:
pictureBox3.Image.Dispose();
pictureBox3.Image = imageList1.Images[2];
break;
case 4:
pictureBox4.Image.Dispose();
pictureBox4.Image = imageList1.Images[3];
break;
}
switch (num_menu)
{
case 1:
pictureBox1.Image.Dispose();
pictureBox1.Image = imageList2.Images[0];
break;
case 2:
pictureBox2.Image.Dispose();
pictureBox2.Image = imageList2.Images[1];
break;
case 3:
pictureBox3.Image.Dispose();
pictureBox3.Image = imageList2.Images[2];
break;
case 4:
pictureBox4.Image.Dispose();
pictureBox4.Image = imageList2.Images[3];
break;
}
}
Dim ftpclient As New BytesRoad.Net.Ftp.FtpClient
ftpclient.PassiveMode = True
AddHandler ftpclient.DataTransfered, AddressOf data_transfered
//Выполняем всё необходимое
//Я скачивал все файлы из директории (Progressbar1 - обновлялся по количеству файлов, а ProgressBar2 - отображал процесс текущего файла
Dim dirlist() As BytesRoad.Net.Ftp.FtpItem = ftpclient.GetDirectoryList(FTP_TIMEOUT)
ProgressBar1.Maximum = dirlist.lenght
Dim cnt As Integer = 0
For Each itm As BytesRoad.Net.Ftp.FtpItem In dirlist
Select Case itm.ItemType
Case BytesRoad.Net.Ftp.FtpItemType.File
ProgressBar2.Value = 0
ProgressBar2.Maximum = itm.Size
ftpclient.GetFile(FTP_TIMEOUT, "d:\_ftp\" + itm.Name, itm.Name)
ProgressBar1.Value = cnt + 1
ProgressBar1.Update()
Application.DoEvents()
cnt += 1
End Select
Next
//Обработчик события.
Private Sub data_transfered(ByVal sender As Object, ByVal e As BytesRoad.Net.Ftp.DataTransferedEventArgs)
ProgressBar2.Value += e.LastTransfered
Application.DoEvents()
End Sub
result = result + file.FullName + "\n";На:result = file.FullName;string file = search_file("путь с которого ищем", "файл который ищем").Replace("\\","\\\\");if (openFileDialog1.ShowDialog() == DialogResult.OK)Нужно вставитьopenFileDialog1.RestoreDirectory = true;, что вернёт настройки основного каталога в исходное состояние, до использования openFileDialog1.//Записываем источник данных в XML
myDS.WriteXml(@".\dataset.xml",XmlWriteMode.WriteSchema);ReportDocument myReport = new ReportDocument();
//Загружаем форму отчёта
myReport.Load(@".\CrystalReport1.rpt");
//Указываем отчёту откуда брать данные.
myReport.SetDataSource(myDS);
//Создаём форму на которой лежит crystalReportViewer!
Form2 frm = new Form2();
//Указываем отчёт для CrystalReportViewer
frm.crystalReportViewer1.ReportSource = myReport;
//Открываем форму.
frm.Show();

myReport.SetParameterValue("param1", "Go Go Go!");
myDS.Tables[0].Rows.CountmyDS.WriteXml("ваш_файл.xml", XmlWriteMode.WriteSchema);
client.GetFile(MainParams.FtpTimeout * 1000, MainParams.Path + MainParams.GetFile, MainParams.GetFile);
Файл скачивается. проблем нет. Проблема в том что если запустить эту часть кода когда файл отсутствует на ФТП. В локальной папке на компе просто появляется файл. Пустое файл. Как обойти не знаю.
xazrad