DELPHI 怎么加载模版 在窗体内打开网页 网页随窗体的大小而自动改变 窗体随屏幕的大小而自动改变

Posted 2023-03-19

怎么加载模版 在窗体内打开网页 网页随窗体的大小而自动改变
窗体随屏幕的大小而自动改变

VB 源代码

Private Sub Form_Load()
Me.Width = 0.8 * VB.Screen.Width
Me.Height = 0.8 * VB.Screen.Height WebBrowser1.Navigate "URL"
Skin1.ApplySkin Me.hWnd
End Sub Private Sub Form_Resize()
WebBrowser1.Top = 0
WebBrowser1.Left = 0
WebBrowser1.Height = Me.Height - 80
WebBrowser1.Width = Me.Width - 80
End Sub

Delphi一样的。帮你改成Delphi了，你参考下。

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Width := round(0.8 * screen.Width);
self.Height := round(0.8 * screen.Height);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
WebBrowser1.Top := 0;
WebBrowser1.Left := 0;
WebBrowser1.Height := self.Height - 80;
WebBrowser1.Width := self.Width - 80;
end; 参考技术A Width ：= 0.8 * Screen.Width;
Height ：= 0.8 * Screen.Height ;
WebBrowser1.Navigate：=‘url’;

WebBrowser1.Top ：= 0;
WebBrowser1.Left ：= 0;
WebBrowser1.Height ：= Height - 80;
WebBrowser1.Width ;= Width - 80; 参考技术B procedure TForm1.FormCreate(Sender: TObject);
begin
self.Width := round(0.8 * screen.Width);
self.Height := round(0.8 * screen.Height);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
WebBrowser1.Top := 0;
WebBrowser1.Left := 0;
WebBrowser1.Height := self.Height - 80;
WebBrowser1.Width := self.Width - 80;
end;

c#窗体中怎么实现用按扭打开一个网页？

很简单啊
一句代码就行
//这个是使用默认浏览器打开的
System.Diagnostics.Process.Start("http://www.baidu.com");
//这个是使用ie打开的,你想换成甚么浏览器,就吧路径写该浏览器的地址就行推荐使用默认
System.Diagnostics.Process.Start(@"C:\Program Files\Internet Explorer\iexplore.exe","http://www.baidu.com"); 参考技术A 一个代码，“打开指定网址”：

System.Diagnostics.Process.Start("你的网址")

比如说打开百度就是：
System.Diagnostics.Process.Start("http://www.baidu.com") 参考技术B 拖一个LinkLable到窗体中，在它的点击事件里这样：
private void linkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)


System.Diagnostics.Process.Start("www.baidu.com");

参考技术C window.open