[RESOLVED] picturebox upsidedown-gradient

[Schmidt]

FWIW, here's Code which renders a "seamless RainBow-Pattern" with the help of the VB6-CairoWrapper (available on vbRichClient.com):

Option Explicit

Private Sub Form_Resize()
  RenderToFormOrPicBox Me, Array(vbRed, vbYellow, vbGreen, vbCyan, vbBlue, vbMagenta, vbRed)
End Sub

Private Sub RenderToFormOrPicBox(Canvas, ColorStops)
  Canvas.ScaleMode = vbPixels
  
  Dim CC As cCairoContext, Pat As cCairoPattern, i As Long
  Set CC = Cairo.CreateSurface(Canvas.ScaleWidth, Canvas.ScaleHeight).CreateContext
  
  Set Pat = Cairo.CreateLinearPattern(0, 0, CC.Surface.Width, 0) 
  For i = 0 To UBound(ColorStops) 'add the Color-Stops for this gradient-pattern
      Pat.AddColorStop i / UBound(ColorStops), ColorStops(i)
  Next
  CC.Paint 1, Pat 'now render the gradient-pattern via the CairoContext
  
  Set Canvas.Picture = CC.Surface.Picture
End Sub

HTH

Olaf

[softv]

FWIW, here's Code which renders a "seamless RainBow-Pattern" with the help of the VB6-CairoWrapper (available on vbRichClient.com):

Option Explicit

Private Sub Form_Resize()
  RenderToFormOrPicBox Me, Array(vbRed, vbYellow, vbGreen, vbCyan, vbBlue, vbMagenta, vbRed)
End Sub

Private Sub RenderToFormOrPicBox(Canvas, ColorStops)
  Canvas.ScaleMode = vbPixels
  
  Dim CC As cCairoContext, Pat As cCairoPattern, i As Long
  Set CC = Cairo.CreateSurface(Canvas.ScaleWidth, Canvas.ScaleHeight).CreateContext
  
  Set Pat = Cairo.CreateLinearPattern(0, 0, CC.Surface.Width, 0) 
  For i = 0 To UBound(ColorStops) 'add the Color-Stops for this gradient-pattern
      Pat.AddColorStop i / UBound(ColorStops), ColorStops(i)
  Next
  CC.Paint 1, Pat 'now render the gradient-pattern via the CairoContext
  
  Set Canvas.Picture = CC.Surface.Picture
End Sub

HTH

Olaf

Professional and sophisticated indeed. Great! I know about this superb work (RichClient) of yours since many years but somehow not able to get the opportunity to utilize your grand work in my programs. Many others must be using it and getting benefited of course. Thanks a TON for the same.

Kind Regards.