精华内容
下载资源
问答
  • 个人开发的VB窗体修饰控件集,内含漂亮按钮、ListView、下拉列表、TAB标签选项卡、树形控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等,相信这些控件对于从事vb6编程的朋友来说,是相当实用的。 某内部控件代码...
  • 控件使用VB.NET开发(暂无C#的代码,可以自行转换),仿Edge浏览器标签页风格,不过稍做调整,可以作为浏览器容器使用。 控件具有ReadOnly属性,开启后可以防止用户键盘鼠标操作控件及网页。标签条只有在鼠标移动到...
  • 111116 VB WebBrowser 加入

    2011-11-16 19:35:56
    右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件标签,找到Microsoft Internet Controls,在它前面的小框中打钩,然后确定。 发现工具箱中多了图标,其中,地球图标代表的控件...

    右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件”标签,找到Microsoft Internet Controls,在它前面的小框中打钩,然后确定

    发现工具箱中多了图标,其中,地球图标代表的控件正是我们需要的WebBrowser。


    展开全文
  • 菜单中包含了所有的VB提供的功能的选项,而其中一些常用的功能或操作选项则被提取出来放在了“便捷工具按钮”中,通过点击这些快捷按钮可以加快程序开发的速度,下图标出了常见的工具按钮的作用。 Visual Basic...
  • 当鼠标位于其图标上时,在鼠标下方会自动“掉出”一个小标签,说明它的功能。而且常居上层,不会被打开的文件所覆盖。并且可以改变形状及位置,尽可能地减少所占用的桌面面积。 能不能在我们自己的应用程序中使用...
    通过形象化的图标,浮动工具箱可以省去用户点击主菜单的麻烦。当鼠标位于其图
    标上时,在鼠标下方会自动“掉出”一个小标签,说明它的功能。而且常居上层,
    不会被打开的文件所覆盖。并且可以改变形状及位置,尽可能地减少所占用的桌面
    面积。 能不能在我们自己的应用程序中使用这种先进手段呢?
    这里介绍一种用VB来实现的简单方法。主要编程思路是:引用 Windows APL函数,
    实现表单常居上层;建立控件数组,通过控件的 MouseMove事件,引发注释的弹出
    和消失。
    一、浮动工具箱的可视化实现方法
    1.在Form1 上放置控件SSRIBBON按钮(因为它本身有三种状态:按下、弹 起、禁止
    使用,大部分图标按钮都是这类按钮)。再放置文本框 Text1(也可以用 Label控件,
    但效果会有所不同,稍后会讲到),再放置一个命令按钮Command1。各控件属性见
    表1(表中只列出一个例子,其它的只要修改相应的属性即可)。
    2.单击GP3D1,按 ALT+Del剪切,然后按 ALT+Insert 复制若干,形成 控件数
    组GP3D1(0)、GP3D1(2)、GP3D1(3)……,再如法建立Text1(0)、T ext1(1)、Text1
    (3)……。
    3.调整按钮及文本框位置如图所示,右表为Tools窗体的特性表。 在此期间,每
    一项工作都是必要的,如文本框的Visible值为 False,以 确保程序启动时不显示
    文本框,而Enable值为False是为了在运行过程中 ,文本框不能输入文本。如果使
    用标签(Label)代替文本框,则不能纵向 排列图标按钮,只能横向。因为下面的按
    钮会盖住Label,但使用Label要比文本框省内存。 为了实现常居上层的效果,必
    须调用Windows API 函数,事实上VB的很多方法都引用于Windows API 。这里我们
    用SetWindowsPos过程,此过程在User.exe中定义,它是Windows系统重要的动态链
    接库。在VB中引用 API函数时,必须在通用声明部分声明注册。声明API函数往往
    比较麻烦且易出错,比如: Declare Sub SetWindowPos Lib ″User″ (ByVal
    hwnd As Integer, B yVal hWndInsertAfter As Integer,ByVal X As Integer,
    ByVal Y As Integer,ByVal cx As Integer, ByVal cy As Integer, ByVal
    wFlags As Integer) 如果所有的API函数声明都这么输入,效率太低。好在各版本
    的VB都提供了一个Windows API Help程序,打开它,搜索 SetWindowPos ,找到以
    后点击超文本带出解释, 拷贝即可。
    二、创建代码 在通用声明部分输入下列代码并声明一些常量及全程变量:
    Declare Sub setwindowpos Lib ″User″ (ByVal hwnd As Integer, B yVal
    hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer,
    ByVal cx As Integer, ByVal cy As Integer, ByVal wFlag s As Integer)
    Const SWP_NOSIZE = 1 Const SWP_nomove = 2 Const flags = SWP_NOSIZE Or
    SWP_nomove Const hwnd_topmost = -1 Const hwnd_notopmost = -2 Dim i As
    Integer Dim B As Integer 为GP3D1按钮的MouseMove 事件添加如下代码,这里仅
    实现鼠标在其上时注释器弹出、不在其上时隐去的功能,读者可再加一个计时器控
    件和一些代码,即可很容易地实现鼠标位于其上片刻后注释器弹出的效果,这样就
    不会出现鼠标“路过”按钮时,注释器即出现的结果了。
    Sub GP3D1_MouseMove (index As Integer, Button As Integer, Shift As
    Integer, X As Single, Y As Single) i = index ′记录下当前鼠标位于哪个按
    钮上
    text1(i).Visible = True ″使其弹出 If B <> i Then ′使其它按钮隐去
    text1(B).Visible = False End If B = i ′请好好体会这个变量B的作用
    End Sub
    为Command1按钮的Click事件添加如下代码:
    Sub Command1_Click ()
    do While DoEvents() ′用DoEvents()实现空闲循环下的多任务监 测
    setwindowpos hwnd, hwnd_topmost, 0, 0, 0, 0, flags ′实现常 居上层
    loop
    End Sub
    为Command1按钮的MouseMove事件添加如下代码:
    Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As
    Single, Y As Single)
    text1(i).Visible = False ′鼠标离开按钮区,位于命令按钮上 时隐去注释器
    End Sub
    为Form1的MouseMove事件添加如下代码:
    Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y
    As Single)
    text1(i).Visible = False ′鼠标离开按钮区,进入表单时 隐去注释器
    End Sub
    展开全文
  • ballon_tip_src.zip 一个很酷的TOOLTIP(4KB)<END><br>80,grid_strl_src.zip MFC网格控件(57KB)<END><br>81,grid_strl_demo.zip MFC网格控件演示程序(115KB)<END><br>82,tabwnd.zip 标签视(37KB)<END><br...
  • WebBrowser应用

    2005-03-07 08:27:00
    当然,缺省状态下VB的工具箱中并没有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件标签,找到Microsoft Internet Controls,在它前面的小框中打钩...

    网络下载。


    程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没
    有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,
    确保在弹出的对话框中选中“控件”标签,找到Microsoft Internet Controls,在它前
    面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代
    表的控件正是我们需要的WebBrowser。
      由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正
    我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程
    序中用到的:
      属性:LocationURL 返回控件显示WEB页面的URL。
      方法:Navigate 转移到指定的URL或打开指定HTML文件。
      事件:1.DownloadBegin 下载操作开时触发。
      2.DownloadComplete 下载操作完成、终止或失败时触发。
      3.ProgressChange WebBrowser控件跟踪下载操作的过程,并定期触发此事件。
    其语法为:Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal
    ProgressMax As Long)。Progress变元是当前已下载的数据总量,ProgressMax变元
    是将要下载的数据总量。
      4.TitleChange 当前文档标题改变时触发
      除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:
    combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:
    ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件
    Microsoft Windows Common Controls5.0的成员,加入工具箱的方法同WebBrowser控件),
    这些控件的属性值都用缺省值。
      以下是程序清单:
      Option Explicit
      
      Private Sub Form_Load()
      Me.Caption =“My Explorer”
      Label1.Caption = “URL”
      Combo1.Text = “”
      Combo1.Top = Label1.Height
      Combo1.Left = 0
      WebBrowser1.Top = Combo1.Top + Combo1.Height
      WebBrowser1.Left = 0
      Form_Resize
      StatusBar1.Style = sbrSimple
      ProgressBar1.ZOrder
      End Sub
      
      Private Sub Form_Resize()
      On Error GoTo a
      Combo1.Width = Form1.Width - 100
      WebBrowser1.Width = Combo1.Width
      WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
      ProgressBar1.Top = Me.Height - StatusBar1.Height - 330
      ProgressBar1.Left = 0.25 * StatusBar1.Width
      ProgressBar1.Width = 0.75 * Me.Width - 250
      a:
      End Sub
      
      Private Sub Combo1_Click()
      `转到指定网址
      WebBrowser1.Navigate Combo1.Text
      End Sub
      
      Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
      Dim i As Long
      Dim existed As Boolean
      If KeyCode = 13 Then
      If Left(Combo1.Text, 7) <> “http://”Then
      Combo1.Text = “http://”+ Combo1.Text
      End If
      WebBrowser1.Navigate Combo1.Text
      For i = 0 To Combo1.ListCount - 1
      If Combo1.List(i) = Combo1.Text Then
      existed = True
      Exit For
      Else
      existed = False
      End If
      Next
      If Not existed Then
      Combo1.AddItem (Combo1.Text)
      End If
      End If
      End Sub
      
      Private Sub WebBrowser1_DownloadBegin()
      `下载开始时状态栏显示“Now Linking...”
      StatusBar1.SimpleText = “Now Linking...”
      End Sub
      
      Private Sub WebBrowser1_DownloadComplete()
      `下载完成时状态栏显示“Link Finished”
      StatusBar1.SimpleText = “Link Finished”
      ProgressBar1.Value = 0
      End Sub
      
      Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,
    ByVal ProgressMax As Long)
      `下载进行时进度条变化
      If ProgressMax = 0 Then Exit Sub
      ProgressBar1.Max = ProgressMax
      If Progress <> -1 And Progress <= ProgressMax Then
      ProgressBar1.Value = Progress
      End If
      End Sub
      
      Private Sub WebBrowser1_TitleChange(ByVal Text As String)
      Combo1.Text = WebBrowser1.LocationURL
      End Sub

    展开全文
  • 实例316 使用标签控件模拟按钮动作 实例317 限制文本框输入字符数 实例318 限制文本框只能输入数字 实例319 自动删除文本中的非法字符 实例320 格式化文本为指定格式 实例321 限定文本框只允许输入日期型数据 ...
  • 程序4 完全用户定制的标签控件 程序5 形状可改变的进度控件 程序6 Smart Grid—表格控件 程序7 静态发光二极管控件 程序8 液晶显示控件 第ll章 对话框 程序l 可“钉住”的对话框基类 程序2 扩展MFC文件通用...
  • 实例029 利用MMControl控件播放AVI动画 64 实例030 满屏播放AVI文件 65 实例031 视频画中画 66 实例032 宣传视频 66 2.2 资源提取与画面捕捉 68 实例033 提取FLV文件中的视频资源 68 实例034 USB摄像头视频...
  • 实例029 利用MMControl控件播放AVI动画 64 实例030 满屏播放AVI文件 65 实例031 视频画中画 66 实例032 宣传视频 66 2.2 资源提取与画面捕捉 68 实例033 提取FLV文件中的视频资源 68 实例034 USB摄像头视频...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    自定义的标签控件对话框。 Undo_demo.zip undo_src.zip 在VC中实现Undo和Redo功能。 VC 利用底层键盘钩子屏蔽任意按键MaskKey 动态链接库实现钩子,然后程序调用。 VC 透明窗口效果的电子标尺源代码 实现了屏幕...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    自定义的标签控件对话框。 Undo_demo.zip undo_src.zip 在VC中实现Undo和Redo功能。 VC 利用底层键盘钩子屏蔽任意按键MaskKey 动态链接库实现钩子,然后程序调用。 VC 透明窗口效果的电子标尺源代码 实现了屏幕...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    自定义的标签控件对话框。 Undo_demo.zip undo_src.zip 在VC中实现Undo和Redo功能。 VC 利用底层键盘钩子屏蔽任意按键MaskKey 动态链接库实现钩子,然后程序调用。 VC 透明窗口效果的电子标尺源代码 实现了屏幕...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    内含各种例子(vc下各种控件的使用方法、标题栏与菜单栏、工具栏与状态栏、图标与光标、程序窗口、程序控制、进程与线程、字符串、文件读写操作、文件与文件夹属性操作、文件与文件夹系统操作、系统控制操作、程序...
  • DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1345个易语言模块

    2012-01-27 19:41:59
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1350多个精品易语言模块提供下载

    热门讨论 2011-06-06 17:51:09
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 修改扩展界面支持库一,禁止透明标签在父窗口刷新时自动刷新,以解决其导致窗口刷新缓冲的问题。 8. 改进应用接口支持库中“设置屏幕分辨率”命令。 9. 修改外部数据库在“表中记录数为零”时可能导致程序崩溃的...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...

空空如也

空空如也

1 2
收藏数 23
精华内容 9
关键字:

vb标签控件图标