这是一段画线代码,如何才能得到只画竖线不画横线?

laiguiyou

Dim CtlDetail As Control
Dim intLineMargin As IntegerintLineMargin = 60For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        If CtlDetail.Name <> "Memo" Then
        Me.Line ((.Left + .Width + intLineMargin), 1)-(.Left + .Width + _
intLineMargin, Me.Height)
        End If
    End With
Next
        With Me
        Me.Line (1, 1)-Step(.Width, .Height), 1, B
    End WithSet CtlDetail = Nothing

[此贴子已经被作者于2006-9-9 10:30:12编辑过]

andymark

try:

Dim CtlDetail As Control
Dim intLineMargin As Integer
Dim IntLeft As Integer
intLineMargin = 20

For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        If CtlDetail.Name <> "Memo" Then
       Me.Line (.Left, 1)-(.Left, Me.Height)
       IntLeft = .Left + .Width
        
        End If
    End With
Next
    Me.Line (IntLeft, 1)-(IntLeft, Me.Height)


Set CtlDetail = Nothing

mmchen

知道了,谢谢