CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
可用分押宝游戏火热进行中... 专题改版:Java Web 专题
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  .NET技术 >  VB.NET

简易浏览器源码

楼主FEB15(张郎)2005-08-03 14:35:36 在 .NET技术 / VB.NET 提问

Public   Class   Form1  
          Inherits   System.Windows.Forms.Form  
   
  #Region   "   Windows   窗体设计器生成的代码   "  
   
          Public   Sub   New()  
                  MyBase.New()  
   
                  '该调用是   Windows   窗体设计器所必需的。  
                  InitializeComponent()  
   
                  '在   InitializeComponent()   调用之后添加任何初始化  
   
          End   Sub  
   
          '窗体重写   dispose   以清理组件列表。  
          Protected   Overloads   Overrides   Sub   Dispose(ByVal   disposing   As   Boolean)  
                  If   disposing   Then  
                          If   Not   (components   Is   Nothing)   Then  
                                  components.Dispose()  
                          End   If  
                  End   If  
                  MyBase.Dispose(disposing)  
          End   Sub  
   
          'Windows   窗体设计器所必需的  
          Private   components   As   System.ComponentModel.IContainer  
   
          '注意:   以下过程是   Windows   窗体设计器所必需的  
          '可以使用   Windows   窗体设计器修改此过程。  
          '不要使用代码编辑器修改它。  
          Friend   WithEvents   AxWebBrowser1   As   AxSHDocVw.AxWebBrowser  
          <System.Diagnostics.DebuggerStepThrough()>   Private   Sub   InitializeComponent()  
                  Dim   resources   As   System.Resources.ResourceManager   =   New   System.Resources.ResourceManager(GetType(Form1))  
                  Me.AxWebBrowser1   =   New   AxSHDocVw.AxWebBrowser  
                  CType(Me.AxWebBrowser1,   System.ComponentModel.ISupportInitialize).BeginInit()  
                  Me.SuspendLayout()  
                  '  
                  'AxWebBrowser1  
                  '  
                  Me.AxWebBrowser1.Dock   =   System.Windows.Forms.DockStyle.Fill  
                  Me.AxWebBrowser1.Enabled   =   True  
                  Me.AxWebBrowser1.Location   =   New   System.Drawing.Point(0,   0)  
                  Me.AxWebBrowser1.OcxState   =   CType(resources.GetObject("AxWebBrowser1.OcxState"),   System.Windows.Forms.AxHost.State)  
                  Me.AxWebBrowser1.Size   =   New   System.Drawing.Size(772,   473)  
                  Me.AxWebBrowser1.TabIndex   =   0  
                  '  
                  'Form1  
                  '  
                  Me.AllowDrop   =   True  
                  Me.AutoScaleBaseSize   =   New   System.Drawing.Size(7,   15)  
                  Me.ClientSize   =   New   System.Drawing.Size(772,   473)  
                  Me.Controls.Add(Me.AxWebBrowser1)  
                  Me.Font   =   New   System.Drawing.Font("Verdana",   9.0!,   System.Drawing.FontStyle.Regular,   System.Drawing.GraphicsUnit.Point,   CType(0,   Byte))  
                  Me.FormBorderStyle   =   System.Windows.Forms.FormBorderStyle.FixedDialog  
                  Me.Icon   =   CType(resources.GetObject("$this.Icon"),   System.Drawing.Icon)  
                  Me.KeyPreview   =   True  
                  Me.Name   =   "Form1"  
                  Me.Text   =   "ws   System   -   World   Sea   Co.,   Ltd."  
                  CType(Me.AxWebBrowser1,   System.ComponentModel.ISupportInitialize).EndInit()  
                  Me.ResumeLayout(False)  
                  Me.AxWebBrowser1.Navigate("http://10.0.0.2:8080/ws/")  
   
          End   Sub  
   
  #End   Region  
   
  End   Class  
   
  -------------------------------------  
  上面的代码,用VS.Net自己生成的,就加了一个Me.AxWebBrowser1.Navigate("http://10.0.0.2:8080/ws/")  
   
  如何让AxWebBrowser1和Form1不显示滚动条?如何不用Navigate直接指定URL? 问题点数:50、回复次数:5Top

1 楼pupo(泡泡)回复于 2005-08-03 15:19:02 得分 5

加个文本框,加个按纽,按纽一点执行  
   
  Me.AxWebBrowser1.Navigate(Me.TextBox1.Text)  
  Top

2 楼FEB15(张郎)回复于 2005-08-03 19:14:36 得分 0

我就是不要文本框也不要按钮,只要指定一个URLTop

3 楼sx_lxh(路漫漫)回复于 2005-08-03 20:17:49 得分 30

把:Me.AxWebBrowser1.Navigate(“http://10.0.0.2:8080/ws/")加在form_load中Top

4 楼zhilunchen(他山居士)回复于 2005-08-03 20:53:51 得分 5

关注中Top

5 楼pupo(泡泡)回复于 2005-08-04 08:39:15 得分 10

自己继承一个AxWebBrowser,将URL写死Top

相关问题

  • 浏览器源码???
  • 简易浏览器
  • 哪里有Netscape浏览器的源码!
  • 那里有分页浏览器的源码?
  • Delphi做的多页面浏览器源码,谁要?
  • 寻求自定义浏览器源码!急!
  • 如何用WinForm制作一个简易浏览器?
  • 怎样以文本形式读取浏览器中的页面的html源码?
  • 大家注意了(多窗口浏览器--代码实现版)源码正式发布
  • 各位大侠,有谁知道那里有数据库浏览器(如DBExplore)的源码?

关键词

  • me
  • 代码
  • ws
  • axwebbrowser1
  • ctype
  • disposing
  • 窗体设计器
  • drawing
  • axwebbrowser
  • 必需

得分解答快速导航

  • 帖主:FEB15
  • pupo
  • sx_lxh
  • zhilunchen
  • pupo

相关链接

  • CSDN .NET频道
  • .NET类图书
  • C#类图书
  • .NET类源码下载

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
世纪乐知(北京)网络技术有限公司 版权所有, 京 ICP 证 020026 号
北京创新乐知广告有限公司 提供技术支持
Copyright © 2000-2007, CSDN.NET, All Rights Reserved
GongshangLogo