vba滚动条事件怎么写,vba窗体滚动条怎么实现滚动

http://www.itjxue.com  2023-01-21 22:47  来源:未知  点击次数: 

请教,Excel VBA中的Image控件,能否实现图片在该控件中的上下滚动?也就是,能否添加上下滚动条。谢谢。

原始图片

第一步:打开VBA,插入窗体,调整合适的窗体大小

第二步:添加一个Frame控件,在Frame控件里添加一个Image控件,在Frame控件右边添加一个ScrollBar控件,改名为VScrollBar,在Frame控件下边添加一个ScrollBar控件,改名为HScrollBar。

第三步:把Image控件的AutoSize属性设置为True,Picture属性选择你要载入的图片

第四步:填写控件代码。

'*?窗体初始化事件

Private?Sub?UserForm_Initialize()

????'*?赋值竖向滚动条最大值

????VScrollBar.Max?=?(Image1.Height?-?Frame1.Height)?/?50?'如果嫌滚动条滑块小的话可以把这段中文注释删掉,只留/50。滑块就变大了?/?50

????'*?赋值横向滚动条最大值

????HScrollBar.Max?=?(Image1.Width?-?Frame1.Width)?/?50?'如果嫌滚动条滑块小的话可以把这段中文注释删掉,只留/50。滑块就变大了?/?50

End?Sub

'*?竖向滚动条滚动事件

Private?Sub?VScrollBar_Scroll()

????'*?通过调整图像控件的Top值来实现图片滚动

????Image1.Top?=?0?-?VScrollBar.Value?*?50?'如果嫌滚动条滑块小的话可以把这段中文注释删掉,只留*50。滑块就变大了?*?50

End?Sub

'*?横向滚动条滚动事件

Private?Sub?HScrollBar_Scroll()

????'*?通过调整图像控件的Left值来实现图片滚动

????Image1.Left?=?0?-?HScrollBar.Value?*?50?'如果嫌滚动条滑块小的话可以把这段中文注释删掉,只留*50。滑块就变大了?*?50

End?Sub

第五步:运行测试效果图(滚动条滑块初始状态)

第六步:运行测试效果图(滚动条滑块增大状态)

本教程为原创作品,有什么问题请及时追问,满意请及时采纳。

不知道为什么知道里回答的图片这么模糊,刚为你写了条百度经验,正在审核中,如果看不清不能用的话追问我,明天给你补上百度经验的链接。

求Excel VBA实现工作表鼠标滚动事件功能

上下滚动表格:在Excel工作表中,选择某个单元格,然后上下滚动滚轮,表格将上下滚动。这有点类似点击滚动条的上下箭头。但点击滚动条的上下箭头每次只能滚动一行, 而滚动鼠标滚轮可以滚动一行或多行。在Windows XP或Windows Vista中,可以在控制面板中设置每次滚动的行数。以Vista为例,方法是:单击“开始→控制面板→3鼠标”,弹出“鼠标属性”对话框,选择“滑轮”选 项卡,在“垂直滚动”区域中,选择“一次专滚动下列行数”,并设置所需的数量。如果选择“一次滚动一个屏幕”,则每滚动一次滚轮,Excel表格将滚动屏幕 所显示的行数,相当于按PageUp或PageDown键。这种方法同样适用于Word或在浏览器中浏览网页。属

vb 滚动条 怎么用

1、新建一个工程,调整好软件的界面大小。

2、给界面里面添加一个图片。

3、然后点击滚动条。画到界面里面,就像这样。这样界面就构建好了。

4、接下来给图片空间添加图片,拉动右边的滚动条,找到picture。

5、在picture右边的按钮给他添加图片。

6、拉动滚动条,找到autoredraw,和autosize进行设置。

7、在右上角选择scroll,输入相应代码。

8、运行一下。

如何通过VBA代码来滚动Excel的窗口

与之相关的知识: 在Excel中,ScrollRow 属性的功能为返回或设置指定窗格或窗口最上面的行号。Long 类型,可读写。 ScrollRow - ScrollRow 属性说明 如果指定窗口处于拆分状态,Window 对象的 ScrollRow 属性表示左上方的窗格。如果某些窗格处于冻结状态,则 Window 对象的 ScrollRow 属性将不包括冻结的区域。 ②滚动列 Worksheets("Sheet2").Activate ActiveWindow.ScrollColumn =6 代码解释:上述代码的功能是,先激活Sheet2,将其作为活动工作表,然后,自动拖动水平滚动条,将第6列拖到第一列的位置,即第一列至第5列将被拖到窗口中的左边,并看不到,而第6列则显示在可视窗口的最左边(在可视范围的第一列位置)。 与此相关的知识: Window.ScrollColumn 属性 返回或设置指定窗格或窗口最左边的列号。Long 型,可读写。 语法 表达式.ScrollColumn 表达式 一个代表 Window 对象的变量。 说明:如果窗口处于拆分状态,则 Window 对象的 ScrollColumn 属性表示左上方的窗格。

(责任编辑:IT教学网)

更多