分享MFC子窗口滚动条添加详细教程
第一步,把控件拖到窗口上,第二步,绑定变量与控件的值 第三步,初始子窗口时,设置Slider的范围 第四步,添加消息 第五步,自己写运算代码
EXCEL控件添加滚动条滚动区域怎么设置?/
网友们,你做这个是为了达到什么目的?也许有更好的办法解决,比如冻结窗口,如果要插入控件,那插入的是同excel一样的窗口控件,恐怕不符合你的初衷
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
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
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)
以上就是土嘎嘎小编大虾米为大家整理的滚动条控件怎么设置_如何通过代码设置容器控件的滚动条相关主题介绍,如果您觉得小编更新的文章对您有所帮助,不要忘记讲本站分享给您身边的朋友哦!!