51.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

窗体加入抖动背景
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).