Login
网站首页 > 文章中心 > 其它

滚动条控件怎么设置_如何通过代码设置容器控件的滚动条

作者:小编 更新时间:2023-07-09 13:07:44 浏览量:59人看过

分享MFC子窗口滚动条添加详细教程

第一步,把控件拖到窗口上,第二步,绑定变量与控件的值 第三步,初始子窗口时,设置Slider的范围 第四步,添加消息 第五步,自己写运算代码

EXCEL控件添加滚动条滚动区域怎么设置?/

网友们,你做这个是为了达到什么目的?也许有更好的办法解决,比如冻结窗口,如果要插入控件,那插入的是同excel一样的窗口控件,恐怕不符合你的初衷

滚动条控件怎么设置_如何通过代码设置容器控件的滚动条-图1

powerpoint中控件工具箱中滚动条的设置

创建PPT

1.在PPT中新建空幻灯片。

2.选择"视图→工具栏→控件工具箱"菜单,打开控件工具箱。

添加代码

Dim X1, X2, X3, X4, X5, X6 As Integer, Y1, Y2, Y3, Y4, Y5, Y6 As Integer, Down As Boolean '设置全局变量,X1、Y1等为Label1等对象的初始坐标值

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Not Down Then

滚动条控件怎么设置_如何通过代码设置容器控件的滚动条-图2

X1=X

Y1=Y

Down=True

End If

End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'如果鼠标已按下,设置Label1新的坐标值

If Down Then

Label1.Left=Label1.Left X-X1

滚动条控件怎么设置_如何通过代码设置容器控件的滚动条-图3

Label1.Top=Label1.Top Y-Y1

Private Sub Label1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Down=False

SlideShowWindows(1).View.First'刷新屏幕,使用PowerPoint XP/2003时加入此句

为Image1加入以下VBA代码:

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

X4=X

Y4=Y

Down = True

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'如果鼠标已按下,设置Label1新的坐标值。

Image1.Left=Image1.Left X-X4

Image1.Top=Image1.Top Y-Y4

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

以上就是土嘎嘎小编大虾米为大家整理的滚动条控件怎么设置_如何通过代码设置容器控件的滚动条相关主题介绍,如果您觉得小编更新的文章对您有所帮助,不要忘记讲本站分享给您身边的朋友哦!!

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章