精华内容
下载资源
问答
  • WindowsXP风格VB滚动条控件(V1.0)
  • 滚动条控件具有水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar),他们除了方向不同外,其它没有什么区别。使用滚动条控件可以浏览比较大的图片、文本等内容,这样以节省窗体空间。 Private Sub ...

    主讲老师:郭盛华

     

    什么是滚动条:

     

    滚动条控件具有水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar),他们除了方向不同外,其它没有什么区别。使用滚动条控件可以浏览比较大的图片、文本等内容,这样以节省窗体空间。
     
    Private Sub HScroll1_Change()
    Label1.Caption = "滚动条值为:" & HScroll1.Value
    End Sub
    
    
     
     
    具体请看视频教程:微博@郭盛华老师
     
    展开全文
  • VB自制作漂亮的窗体滚动条控件,可为滚动条增加背景图片,学会了这种方法,你就可以美化你的应用程序窗口中的滚动条,本例中的方法简单,新手也可轻松学会。本控件核心文件为ctlScrollbar.ctl,是一个ctl控件,...
  • 我通过剪切板判断该控件其他功能都是正常的,唯一的问题就是自带的横向/纵向滚动条失效,虽然可以拖动,但无法刷新图形,请问是否有办法解决这个问题,如果不能解决,我只能从剪切板读取图形到另一个picturebox了,...
  • 摘要:VB源码,其它类别,时钟,滚动条 VB时钟+VB滚动条+字体,里面包括了VB的时钟、text、滚动条等控件的用法和实例源代码,学习学习如何适时预览的字体设置程序,可适时设置字体的大孝字号、垂直和水平宽度。
  • 内容索引:VB源码,界面编程,滚动条 VB窗体滚动条控件,简单写一应用实例附上源代码,从截图就可以看出,是不是有点个性?上侧的滚动条是不能拖动的,可以作为指示用,类似进度条的功能,拖动下边的滚动条,上边的会...
  • 运用vb语言编写程序代码,使用滚动条来改变颜色
  • 网络收藏的VB6.0专用的窗体滚动条控件源代码,用于在VB中实现各种颜色的有立体感的的滚动条,有的是平面化的滚动条,根据你的喜好选择对应的滚动条,让软件项目窗体更漂亮,有些滚动条带数值显示功能,改变拖动条的...
  • VB自制控件大致运行顺序 init-Resize - readproperty - let-get-paint 代码中一些函数位置没有进行整理, 可能会有点乱
  • 更改滚动条背景色,此代码来自别人,非本人所写,本人看后觉得不错,发上来贡献下,小拿点下载分。
  • VB绘制ComboBox控件,水平滚动、垂直滚动、列表框!控件里面其实包括了之前所有的控件,水平滚动、垂直滚动、列表框,虽然组合框是拼凑起来的,但想慢慢地摆脱系统控件,自己写控件其实也挺有意思的。
  • VB 滚动条的应用

    2008-06-18 10:28:54
    VB 滚动条的应用,对初学者很有用~~~多些评论~~~
  • 要求利用滚动条和标签控件实现对标签字体大小的任意改变,如图所示。 提示 将滚动条的Min、Max分别设置为字号的最小值和最大值 当拖动滑块时,字体取原来值,字号跟着变化。 参考代码 P...

    题目来源:大工慕课 链接
    原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验4-9
    作者:Caleb Sung

    题目要求

    任意改变文本的字号。要求利用滚动条和标签控件实现对标签字体大小的任意改变,如图所示。
    这里写图片描述

    提示

    1. 将滚动条的Min、Max分别设置为字号的最小值和最大值
    2. 当拖动滑块时,字体取原来值,字号跟着变化。

    参考代码

    Private Sub HScroll1_Change()
        n = HScroll1.Value
        Label1.FontSize = n
        Label1.Caption = n & "号字"
    End Sub
    
    展开全文
  • 注释:VB6的控件本身是不支持鼠标滚轮滚动的事件,以前写的代码有点low,参考了一个大神的代码,重新写了一个类模块用来支持滚动事件,记录一下…… 文章目录一、效果二、原理三、代码 ----------## 标题 一、效果...

    日期:2019年12月12日
    作者:Commas
    注释:VB6的控件本身是不支持鼠标滚轮滚动的事件,以前写的代码有点low,参考了一个大神的代码,重新写了一个类模块用来支持滚动事件,记录一下……
    【资源下载】



    一、效果

    1. 窗体上放一个text控件,命名为txtNum
      在这里插入图片描述
    2. txtNum响应鼠标滚轮滚动,我做了一个前滚+1,后滚-1的操作,显示在txtNum.text里面。想要实现什么效果,自行更改txtNum_MouseWheel()子过程(写成了和事件一样的格式,目的很简单,为了统一风格)。
      (i)鼠标滚轮向前滚动示意图
      变化范围:-2→2
      在这里插入图片描述
      (ii)鼠标滚轮向后滚动示意图
      变化范围:2→-2
      在这里插入图片描述

    二、原理

    本质:
    1、Hook消息处理函数
    2、自己处理想要处理的消息(自定义的消息),比如做一个“鼠标滚轮的滚动事件”

    在这里插入图片描述

    三、代码

    1. Demo窗体代码
    Option Explicit
    
    Private Sub Form_Load()
    On Error Resume Next
        Call BindMyWndProc(Me)
    End Sub
    
    
    1. 类模块代码
    Option Explicit
    
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Const GWL_WNDPROC = (-4)
    Private Const WM_MOUSEWHEEL As Long = &H20A& ' 滚轮事件的消息
    Private Const WHEEL_DELTA = 120
    
    '需要增加滚轮事件的控件相关变量
    Private txtNum_hWnd As Long                  'txtNum的hWnd值
    Private txtNum_OldWndProc As Long            'txtNum的旧消息处理函数的地址
    Private oContainer As Object
    
    '初始化操作(绑定容器对象,指定接收消息的对象),控件才能识别鼠标滚轮。
    Public Sub BindMyWndProc(ByRef objContainer As Object)
    On Error Resume Next
        Set oContainer = objContainer'设置容器窗体
        '(1)txtNum
        txtNum_hWnd = oContainer.txtNum.hWnd
        txtNum_OldWndProc = GetWindowLong(txtNum_hWnd, GWL_WNDPROC)                 '取得原先的消息处理函数的入口
        SetWindowLong txtNum_hWnd, GWL_WNDPROC, AddressOf registerWindowMessage      '接收自定义消息处理函数
        '(2)其它控件
    End Sub
    
    '自定义消息处理函数
    Private Function registerWindowMessage(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    On Error Resume Next
        If Msg = WM_MOUSEWHEEL Then  '(1)滚轮消息
            Dim lngDelta As Long, lngButton As Long, lngX As Long, lngY As Long
            lngButton = wParam And &HFFFF&
            lngDelta = wParam \ &H10000
            lngX = lParam And &HFFFF&
            lngY = lParam \ &H10000
    
            '(1-1)txtNum控件的消息
            If hWnd = txtNum_hWnd Then Call txtNum_MouseWheel(lngDelta, lngButton, lngX, lngY)
            '(1-2)其它控件的消息,若有则继续
        Else                            '(2)其它消息:原路走xxx_OldWndProc
            '(2-1)txtNum控件的消息
            If hWnd = txtNum_hWnd Then registerWindowMessage = CallWindowProc(txtNum_OldWndProc, hWnd, Msg, wParam, lParam)
    '''        '(2-2)其它控件的消息,若有则继续
        End If
        
    End Function
    
    '需要实现的“txtNum滚轮事件”
    Private Sub txtNum_MouseWheel(ByVal Delta As Long, ByVal Button As Long, ByVal X As Long, ByVal Y As Long)
    On Error Resume Next
        Delta = Delta / WHEEL_DELTA
        With oContainer.txtNum
            .Text = Val(.Text) + Delta
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    End Sub
    
    

    本文参考:https://www.0xaa55.com/thread-1635-1-1.html


    版权声明:本文为博主原创文章,如需转载,请给出:
    原文链接:https://blog.csdn.net/qq_35844043/article/details/103514150

    展开全文
  • VB给ListBox滚动条皮肤控件添加背景、颜色渐变、添加图片背景等,有没有用处自己下载试下。
  • vb.net做的一个滚动字幕的程序,程序的运行效果为滚动的字条,
  • vb6的 win10 界面控件

    2019-01-02 13:49:13
    vb6的 win10 界面控件,简单实用,让vb6界面耳目一新。
  • 摘要:VB源码,控件组件,动态删除,控件组,滚动条 运行环境:Windows/VB6
  • vb源码,未使用外部控件。 1.vb定时器 2.定时切换背景图 3.滚动条的例子
  • VB带有滚动条的窗体

    2013-01-26 11:25:47
    一款在窗体上增加了滚动条的源代码,就想记事本那样可以上下翻看!
  • 内容索引:VB源码,界面编程,滑块,滚动条,字体 VB使用拖动条改变字体大小,用鼠标拖动滑块,窗口内的文字会跟着变大变小,很实用的一个例子,希望对大家有帮助。
  • VB美化水晶进度条按键等控件皮肤LIST,,滚动条等, 希望对大家有帮助,..... VB美化水晶进度条按键等控件皮肤LIST,,滚动条等, 希望对大家有帮助,.....
  • 想在VB6里面用滑轮控制滚动条上下移动,这个东西就是你需要的
  • 超漂亮的VB界面控件集,下载源码包后,运行LAUNCH ME !!.vbg文件,即可编译生成,查看运行效果,示例演示多行vkTextBox文本框. 单击可以在窗口标题中显示当前行 !... vkVScroll 和vkHScroll 水平和垂直滚动条控件
  • 运用vb编程,用来改变字体的大小,包含源代码。有利于初学者的学习
  • 这是使用VB Image、滚动条控件设计的看图程序, 支持缩放图片、浏览同一文件夹中的图片, 非常实用。另外, 在程序中加入了自定义鼠标指针。
  • VB使用拖动改变字体大小,用鼠标拖动滑块,窗口内的文字会跟着变大变小,很实用的一个例子,希望对大家有帮助。
  • vb中用滚动条控制窗体,包括图片框和各种控件,如果再带上最大化自动放大就更好了
  • VB 等待状态条控件源码(4种滚动风格)
  • 内容索引:VB源码,报表打印,ListBox,滚动条 VB在ListBox列表上增加一个水平滚动条的功能,这样更方便于用户的操作,大家都知道,原有的listbox控件一般都没有自带这种功能,这样将ListBox里的文字比较多时,就会被...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,916
精华内容 1,966
关键字:

vb滚动条控件