Office中国论坛/Access中国论坛

标题: 寻求过往论坛上的例子（关于直线控件，其特殊效果为凿痕时，当用vba语句改变其宽度 [打印本页]

作者: mrl 时间: 2006-4-24 00:47
标题: 寻求过往论坛上的例子（关于直线控件，其特殊效果为凿痕时，当用vba语句改变其宽度
不记得什么时候在论坛上见过关于直线控件，其特殊效果为凿痕时，当用vba语句要改变其宽度时，线条就有显示不全的解决方案的例子，找了很久都没有找到，望各位帮助找下或提供解决方案。谢谢！

例子找到了但还没有解决我的问题，请看付件

[attach]17355[/attach]

不知为什么窗体上的图片移动后有点影子留下。

[此贴子已经被作者于2006-4-23 18:32:58编辑过]

作者: 一点通 时间: 2006-4-24 02:13
看看是不是这个

http://www.office-cn.net/forum.php?mod=viewthread&tid=17243

作者: mrl 时间: 2006-4-24 02:36
例子我找到了但还没有解决我的问题，请看上面付件

作者: 一点通 时间: 2006-4-24 02:56
将图片的上边距改为0.05

作者: sgrshh29 时间: 2006-4-24 03:08

以下是引用mrl在2006-4-23 18:36:00的发言：
例子我找到了但还没有解决我的问题，请看上面付件

试试:

Private Sub Form_Resize()
Me.Painting = False
Me.Image1.Left = Me.InsideWidth - Me.Image1.Width
Me.Box0.Width = Me.InsideWidth
Me.Section(acDetail).Height = Me.Section(acDetail).Height
Me.Painting = True
End Sub

作者: mrl 时间: 2006-4-24 03:29

Private Sub Form_Resize()
Me.Painting = False
Me.Image1.Left = Me.InsideWidth - Me.Image1.Width
Me.Box0.Width = Me.InsideWidth
Me.Section(acDetail).Height = Me.Section(acDetail).Height
Me.Painting = True
End Sub

谢谢，终于可以了。

我之前是用

Me.Visible = False

Me.Visible = True 就是觉得窗体会闪一下。谢谢两位的回复，谢谢……

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)