In some software demonstrations, this screen content is often switched with some interesting clear screen patterns, and some like the opening, closing, some like shutters, and some round, diamond A clear screen pattern of different forms. VB as a development language under excellent Windows, which is also very strong.
We can use the drawing pattern provided by it to make the following clear screen pattern, the following program gives a common clear screen pattern program: Sub Filscro 'Set background color me.backcolor = RGB (int (rND * 256), int (RND * 256), INT (RND * 256)) End Sub Clrs CLRL () 'From the left and right sides to the middle clear screen DIM I as integer: randomize: color = RGB (int (rND * 256), int (rND * 256 ), Int (rND * 256)) for i = 0 to Scalewidth / 2 line (i, 0) - (i, scaleheight), Color line (Scalewidth-i, 0) - (Scalewidth-i, scaleheight), Color Next I end Sub Sub Clrser20 'from the middle to the left and right sides clear screen DIM I as integer: randomize: color = RGB (int (rND * 256), int (rND * 256), int (rND * 256)) for i = scalewidth / 2 TO 0 Step -1 Line (I, 0) - (I, ScaleHeight-1), Color Line (Scalewidth-I, 0) - (Scalewidth-I, ScaleHeight), Color Next I end Sub Clrs CRSCR30 'from top ( Top (low) to the middle clear screen DIM I as integer: randomize: color = RGB (int (RND * 256), int (rND * 256), int (rND * 256)) for i = 0 TO ScaleHeight / 2 Line (0, I) - (Scalewidth, I), Color Line (0, ScaleHeight-i) - (Scalewidth, ScaleHeight-i), Color Next I end Sub Clrs CRSCR40 'from the middle to the top (bottom) Qingdou DIM I as Integer: Randomize: Color = RGB (INT * 256), INT (RND * 256), INT (RND * 256)) for i = scaleheight / 2 to 0 step -1 line (0, i ) _ (SC AleWidth, I), Color Line (Scalewidth, ScaleHeight-i), Color Next I end Sub Clrs CLR50 'diamond clear screen, from the quarter to the center DIM i, J AS integer: randomize: color = RGB (IND * 256), INT (RND * 256) 0, J), Color Line (Scalewidth-
