Kennethj
Apr 16th, 2002, 02:45 AM
BITBLT:
Copy image1 to form.
I have tried tutorials but I it wont copy.
LINE:
Draw Grid on form.
Sometimes the grid wont fit right, try different bricksx and bricksy
Why?? please help me get the grid to fit at all times.
dim x,y as integer
dim heightarea as integer
dim bricksx,bricksy as integer
dim brickwidth,brickheight as integer
heightarea=int((form1.scaleheight/4)*3)
'bricks won't fill whole screen. Stops at 3/4 of scaleheight.
bricksx=25 'number of bricks at x-axis
bricksy=23 ' y-axis
brickwidth=form1.scalewitdh/bricksx
brickheight=heightarea/bricksx
'line going right
for x=0 to bricksy
form1.line(0,x*brickheight,)-(form1.scalewidth,x*brickheight),vbwhite
next x
'line going down
for y=0 to bricksx
form1.line(y*brickwidth,0)-(y*brickwidth,heightarea),vbwhite
next y
Copy image1 to form.
I have tried tutorials but I it wont copy.
LINE:
Draw Grid on form.
Sometimes the grid wont fit right, try different bricksx and bricksy
Why?? please help me get the grid to fit at all times.
dim x,y as integer
dim heightarea as integer
dim bricksx,bricksy as integer
dim brickwidth,brickheight as integer
heightarea=int((form1.scaleheight/4)*3)
'bricks won't fill whole screen. Stops at 3/4 of scaleheight.
bricksx=25 'number of bricks at x-axis
bricksy=23 ' y-axis
brickwidth=form1.scalewitdh/bricksx
brickheight=heightarea/bricksx
'line going right
for x=0 to bricksy
form1.line(0,x*brickheight,)-(form1.scalewidth,x*brickheight),vbwhite
next x
'line going down
for y=0 to bricksx
form1.line(y*brickwidth,0)-(y*brickwidth,heightarea),vbwhite
next y