- Код: Выделить всё
......
Set Form1.webV = Form1.Controls.Add("SHell.Explorer.2", "webV",Form1)
.......
set wmp=form1.Controls.add( "MediaPlayer.MediaPlayer.1", _
"wmp", Form1)
....
После этого старый контрол выглядит также, как и новый, из wmp.dll .
Не могу понять, в чём дело. Пробовал не создавать Webbrowser, но делать LoadLibrary c "explorer.exe" и "wmp.dll" - эффект не достигается.
Не хотелось бы пользоваться этим ломовым решением. По науке хочу - без создания webbrowser.
Плюсы от использлвания самого кода под старый контрол тоже есть.
Во-первых, это проще.
Во-вторых, код под новый контрол глючит ( а может сам новый контрол глючит). ПО окончании проигрывания он зачем-то САМОВОЛьНО меняет свой размер, вместо того, чтобы оставить тот, что я ему указал ранее.
Если я выставляю свойство uimode="full", то это абсолютно не означает, что он всё покажет. А как заставить его показать статусную строку, сведения об испольнителе и пр - не известно.
Одно замечание. Если вновь зарегистрировать msdxm.ocx, эффект улучшения внешнего вида старого контрола пропадает.