表单内容过多，我想实现上下滚动条录入资料。请教怎么实现？ - 编程论坛

#2

sam_jiang2023-06-29 11:31

form不是有滚动条吗？多少控件都可以放在表单里。
或者把录入资料的那些控件放到container里，那也是有滚动条的。

#3

weiyisc2023-06-29 11:51

回复 2楼 sam_jiang

container 滚动条属性是那个？

#4

csyx2023-06-29 12:05

以下是引用weiyisc在2023-6-29 11:51:13的发言：

container 滚动条属性是那个？

vfp 原生的容器没这玩意儿。搜搜 ctl32 类库，里面有个 Scontainer 是可滚动容器

#5

weiyisc2023-06-29 12:32

以下是引用csyx在2023-6-29 12:05:09的发言：

vfp 原生的容器没这玩意儿。搜搜 ctl32 类库，里面有个 Scontainer 是可滚动容器

方面发一个吗？找了很多，没有看见这个控件。谢谢。

#6

吹水佬2023-06-29 12:46

form.ScrollBars

#7

csyx2023-06-29 13:21

在老机器上找半天找到一个
[attach]1089944[/attach]
打开项目文件发现少了几个图片文件，应该不影响，试了下可以运行
这是个很庞杂的类库，只要可滚动容器的话需要你自己去精简
具体用法可参照里面的示例

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2023-7-1 16:21编辑过]

#8

easyppt2023-06-29 13:44

这个 ctl32滚动条容器，使用有个BUG，就是内容会【出界】，但是出界的内容又不可操作，很奇怪的现象
不过这个滚动条容器相当不错，导航主界面我一直用的这个。

#9

csyx2023-06-29 14:08

以下是引用easyppt在2023-6-29 13:44:32的发言：

这个 ctl32滚动条容器，使用有个BUG，就是内容会【出界】，但是出界的内容又不可操作，很奇怪的现象
不过这个滚动条容器相当不错，导航主界面我一直用的这个。

也许不是这个控件的 bug 而是你的用法错误，所有 vfp 控件都不要直接放在 Scontainer 上，作者示例都是把所有要滚动的部分先放入一个容器中，再把这个容器放入 Scontainer。不过，如果可滚动部分有 ActiveX 控件就难说了，vfp 容器没法裁剪 Winddows 子窗口

#10

weiyisc2023-06-30 09:46

感谢。。。。

#11

sam_jiang2023-07-01 12:12

回复 3楼 weiyisc

form有个scollbars属性，就是用来显示窗口上显示不下的控件或内容的。
container没有这个属性，我记差了，呵呵。但是可以自己写个模拟鼠标或键盘操作，然后给container里所有的控件的top属性增加或减少某个值就可以实现。。。

#12

shenlancwz2023-07-01 14:40

回复 11楼 sam_jiang

这个点子也不错，按这个思路做了测试，好用。
*Thisform.MouseWhell

LPARAMETERS nDirection, nShift, nXCoord, nYCoord
IF nDirection>0  &&向上滚动
    FOR nCount = 1 TO  This.ControlCount
        cControlName = This.Controls[nCount].name
        This.&cControlName..top=This.&cControlName..top+10
    ENDFOR
ELSE      &&向下滚动
    FOR nCount = 1 TO  This.ControlCount
        cControlName = This.Controls[nCount].name
        This.&cControlName..top=This.&cControlName..top-10
    ENDFOR
ENDIF

[此贴子已经被作者于2023-7-1 15:43编辑过]

#13

sam_jiang2023-07-01 19:35

回复 12楼 shenlancwz

可以记录container里所有控件的top属性，以便当你离开这个控件，再重新返回这个控件后，可以快速定位。

#14

shizi02023-07-02 16:07

滚动操作，总感觉不太舒服。内容太多的话，也许页框归类更贴合使用习惯。

#15

laowan0012023-07-02 21:11

grid.view = 3
这样可以吗？