窗体加入抖动背景

领测软件测试网

　　 
　　Ever wonder how the SETUP.EXE screen gets its cool shaded background coloring? This color shading is called dithering, and you can easily incorporate it into your forms. Add the following routine to a form:

   Sub Dither(vForm As Form)
   Dim intLoop As Integer
      vForm.DrawStyle = vbInsideSolid
      vForm.DrawMode = vbCopyPen
      vForm.ScaleMode = vbPixels
      vForm.DrawWidth = 2
      vForm.ScaleHeight = 256
      For intLoop = 0 To 255
         vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 -intLoop), B
      Next intLoop
   End Sub

Now, add to the Form_Activate event the line

   Dither ME

This version creates a fading blue background by adjusting the blue value in the RGB function. (RGB stands for Red-Green-Blue.) You can create a fading red background by changing the RGB call to

   RGB(255 - intLoop, 0, 0).
(VB爱好者乐园--转)

文章来源于领测软件测试网 https://www.ltesting.net/