Релиб / Программирование / Программирование / Установка размеров встроенного объекта WebBrowser / Latest PostsInstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 17 May 2008 08:24:40 GMT20Установка размеров встроенного объекта WebBrowserhttp://www.relib.com/forums/Topic914531-15-1.aspx<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Добрый день!</FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT></FONT></FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Если кто-нибудь может помочь или подсказать ссылку по интересующему меня вопросу - помогите!</FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"> <o:p></o:p></FONT></FONT></FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Как можно увеличить размер объекта <SPAN lang=EN-US style="mso-ansi-language: EN-US">WebBrowser</SPAN>, встроенного в форму в <SPAN lang=EN-US style="mso-ansi-language: EN-US">MS</SPAN><SPAN lang=EN-US> </SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US">Access</SPAN> (не растягивая его вручную в конструкторе). В <SPAN lang=EN-US style="mso-ansi-language: EN-US">Excel</SPAN> это будет выглядеть так:</FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"> <o:p></o:p></FONT></FONT></FONT></P><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana>Private Sub Workbook_Open()<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>ThisWorkbook.Worksheets("Browser").Activate<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>SetSettings<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>With Application<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>.WindowState = xlMaximized<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana> <o:p></o:p></FONT></SPAN></B></PRE><PRE><B><FONT face=Verdana><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><SPAN style="mso-spacerun: yes"> </SPAN></SPAN><SPAN style="COLOR: black">'-- максимальный размер для WebBrowser<o:p></o:p></SPAN></FONT></B></PRE><PRE><FONT face=Verdana><B><SPAN style="COLOR: black"><SPAN style="mso-spacerun: yes"> </SPAN></SPAN></B><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US">If ThisWorkbook.Worksheets("Browser") _<o:p></o:p></SPAN></B></FONT></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>.OLEObjects(1).Height &lt;&gt; .UsableHeight Then<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>ThisWorkbook.Worksheets("Browser") _<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>.OLEObjects(1).Height = .UsableHeight<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>End If<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>If ThisWorkbook.Worksheets("Browser") _<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>.OLEObjects(1).Width &lt;&gt; .UsableWidth Then<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>ThisWorkbook.Worksheets("Browser") _<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>.OLEObjects(1).Width = .UsableWidth<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana><SPAN style="mso-spacerun: yes"> </SPAN>End If<o:p></o:p></FONT></SPAN></B></PRE><PRE><B><FONT face=Verdana><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><SPAN style="mso-spacerun: yes"> </SPAN></SPAN><SPAN style="COLOR: black">End With<o:p></o:p></SPAN></FONT></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana>End Sub<o:p></o:p></FONT></SPAN></B></PRE><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"> <o:p></o:p></FONT></FONT></FONT></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"><SPAN lang=EN-US style="mso-ansi-language: EN-US">P</SPAN>.<SPAN lang=EN-US style="mso-ansi-language: EN-US">S</SPAN>.: Простите, если вопрос составлен некорректно. Очень нужна помощь. Заранее благодарю всех, кто уделит мне хотя бы немного своего времени. <SPAN lang=EN-US style="mso-ansi-language: EN-US"><o:p></o:p></SPAN></FONT></FONT></FONT>Thu, 05 Jul 2007 16:13:04 GMTProgredi