Max Diesel писал(а):Понятия не имею... проверьте.
Как-то не хочется так экспериментировать на этих форматах... Если найду хороший способ проверить, то обязательно проверю и напишу.
Max Diesel писал(а):Особенно радует фраза "возможно с некоторой задержкой", при которой задержка вероятно должна субъективно определяться программой исходя из размера файла, мощности компьютера и уровня замученности операционной системы...
Зачем же так сложно? Неужели нельзя проверить, загружен файл или нет?
А если нельзя, то можно сделать очень просто:
Код: Выделить всё
Public Class Form1
Private Sub LstFiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstFiles.SelectedIndexChanged
BtnViewer.Text = LstFiles.SelectedItem
Dim Lim As Date = Now().AddSeconds(10)
Do While Now() < Lim
If BtnViewer.Focused() Then LstFiles.Focus()
My.Application.DoEvents()
Loop
End Sub
Private Sub BtnViewer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnViewer.TextChanged
BtnViewer.Focus()
End Sub
End Class
Здесь LstFiles символизирует файловую панель, а BtnViewer - просмоторщик. В таком виде программа работает. Думаю, что если вставить в UC
Код: Выделить всё
Dim Lim As Date = Now().AddSeconds(10)
Do While Now() < Lim
If BtnViewer.Focused() Then LstFiles.Focus()
My.Application.DoEvents()
Loop
то будет нормально...
Всё-таки быстрый просмотр предназначен для просмотра, а не для редактированися, поэтому ему фокус не нужен. Заметьте, что в этом варианте даже если промежуток времени слишком большой, то это не помешает пользоваться какими-либо функциями...
Max Diesel писал(а):Быстрый просмотр потому и "быстрый", что не предполагает индивидуальных настроек... зато Universal Viewer, вызываемый по F3, индивидуальные настройки предполагает.
А по-моему, просмотр "быстрый" не потому, что у него нет настроек, а потому, что он отображается одновременно со списком файлов и
не должен мешать свободно перемещаться по файлам в этом списке...