查看完整版本: 请大家帮忙解释下语句 第3部分 谢谢 vb6.0的

请大家帮忙解释下语句 第3部分 谢谢 vb6.0的

If (v_lngRGBStartColor <> v_lngRGBEndColor) Then
      Call g_subGetRGBColors(v_lngRGBStartColor, l_lngStartRed, l_lngStartGreen, l_lngStartBlue)
      Call g_subGetRGBColors(v_lngRGBEndColor, l_lngEndRed, l_lngEndGreen, l_lngEndBlue)
      
      l_sngRedOffset = (CSng(l_lngEndRed - l_lngStartRed) / (l_lngScaleHeight - l_sngTextHeight))
      l_sngGreenOffset = (CSng(l_lngEndGreen - l_lngStartGreen) / (l_lngScaleHeight - l_sngTextHeight))
      l_sngBlueOffset = (CSng(l_lngEndBlue - l_lngStartBlue) / (l_lngScaleHeight - l_sngTextHeight))
   Else
      Call g_subGetRGBColors(v_lngRGBStartColor, l_lngCurrentRed, l_lngCurrentGreen, l_lngCurrentBlue)
   End If

[[i] 本帖最后由 yahoodavid 于 2008-5-14 11:28 编辑 [/i]]