Вот вроде простая, казалось бы, проблема, а никак не могу понять, почему работает не так, как ожидалось...
В общем, есть программа, считывает данные из порта, потом на основе этих данных формирует имя файла и открывает диалоговое окно с предложением файл сохранить. И вот почему-то у меня не получается сделать так, чтобы окно диалога выводило сформированное имя файла целиком, хотя формируется оно правильно, я специально сделал скрин с точкой останова, там видно, что имя верное. Но вот уже после открытия окна диалога имя выведено не полностью.
Подскажите, что тут не так, в чем проблема? Вот тот участок кода и скрины, на которых видно сформированное имя, и то же имя уже в открытом диалоге. Вроде бы все настройки окна диалога пролазил, так ничего и не нашел...
- Код: Выделить всё
'Байтовый массив приема
Dim OutThread() As Byte = New Byte(List.Count - 1) {}
OutThread = List.ToArray(GetType(Byte))
'Проверка корректности считанного файла
If GetAllData(OutThread) = True Then
'Вывод данных на метки
Label8.Text = Model
Label9.Text = ProdNum
Label10.Text = SerNum
Label11.Text = ChSumWrite
Label12.Text = ChSumRead
'Подстановка имени сохраняемого файла в диалог сохранения
SaveFileDialog1.FileName = Me.NameForDialog
'Открытие диалога
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
'Выбор формата сохранения
If SaveFileDialog1.FilterIndex = 1 Then 'Вариант (*.bin)
OutThread = RotateData(OutThread)
My.Computer.FileSystem.WriteAllBytes(SaveFileDialog1.FileName, OutThread, False)
Else
'Вариант (*.eep)
My.Computer.FileSystem.WriteAllBytes(SaveFileDialog1.FileName, OutThread, False)
End If
End If
Else
'Сообщение о некорректном считанном файле
MessageBox.Show("Файл не соответствует формату или поврежден", "Ошибка",
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
End Sub