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

mrl

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

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





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

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

一点通

看看是不是这个

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

mrl

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

一点通

将图片的上边距改为0.05

sgrshh29

以下是引用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

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     就是觉得窗体会闪一下。谢谢两位的回复，谢谢……