请大家帮忙解释下语句 第4部分 谢谢 vb6.0的
With r_ctlTempBuffer
For l_lngLineNumber = 0 To l_lngNumberOfLines
.CurrentY = v_lngCurrentY + (l_lngLineNumber * .FontSize + (6 * l_lngLineNumber))
If (v_enuAlignment = vbCenter) Then
.CurrentX = (l_lngScaleWidth - .TextWidth(v_strTextArray(l_lngLineNumber))) / 2
ElseIf (v_enuAlignment = vbLeftJustify) Then
.CurrentX = 0
ElseIf (v_enuAlignment = vbRightJustify) Then
.CurrentX = l_lngScaleWidth - .TextWidth(v_strTextArray(l_lngLineNumber))
End If
.CurrentX = .CurrentX + v_lngLeftMargine
If Not (.CurrentY > l_lngScaleHeight) And _
Not (.CurrentY < -l_sngTextHeight) Then
If (v_lngRGBStartColor <> v_lngRGBEndColor) Then
l_lngCurrentRed = Abs(l_lngEndRed - (l_sngRedOffset * .CurrentY))
l_lngCurrentGreen = Abs(l_lngEndGreen - (l_sngGreenOffset * .CurrentY))
l_lngCurrentBlue = Abs(l_lngEndBlue - (l_sngBlueOffset * .CurrentY))
End If
.ForeColor = RGB(l_lngCurrentRed, l_lngCurrentGreen, l_lngCurrentBlue)
r_ctlTempBuffer.Print v_strTextArray(l_lngLineNumber)
End If
If (l_lngLineNumber = l_lngNumberOfLines) And (.CurrentY <= -l_sngTextHeight) Then
g_funScrollText = False
End If
Next
End With
[ 本帖最后由 yahoodavid 于 2008-5-14 11:28 编辑 ]
