Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to draw Dots on a form 1
- Thread starter granni
- Start date
[tt]
For i = 1 to MyForm.scalewidth Step 10
[tab]For j = 1 to MyForm.scaleheight Step 10
[tab][tab]MyForm.CurrentX = i
[tab][tab]MyForm.CurrentY = j
[tab][tab]MyForm.PSet
[tab]Next j
Next i
[/tt]
You will also need to do things like set the correct color, change the step distance, etc.
BTW: This is not the fastest way to do this. You might look at creating a bitmap with the pattern you want and setting the background of the form to it.
Chip H.
For i = 1 to MyForm.scalewidth Step 10
[tab]For j = 1 to MyForm.scaleheight Step 10
[tab][tab]MyForm.CurrentX = i
[tab][tab]MyForm.CurrentY = j
[tab][tab]MyForm.PSet
[tab]Next j
Next i
[/tt]
You will also need to do things like set the correct color, change the step distance, etc.
BTW: This is not the fastest way to do this. You might look at creating a bitmap with the pattern you want and setting the background of the form to it.
Chip H.
-
1
- #3
edderic
Programmer
- May 8, 1999
- 628
you most First set the Form AutoRedraw To True and then
For i = 0 To ScaleWidth Step 45
For j = 0 To ScaleHeight Step 45
Me.PSet (i, j)
Next
Next Eric De Decker
vbg.be@vbgroup.nl
License And Copy Protection AxtiveX.
Download Demo version on my Site:
For i = 0 To ScaleWidth Step 45
For j = 0 To ScaleHeight Step 45
Me.PSet (i, j)
Next
Next Eric De Decker
vbg.be@vbgroup.nl
License And Copy Protection AxtiveX.
Download Demo version on my Site:
- Thread starter
- #4
MichaelRed
Programmer
granni,
I do not know how you did the 'dotting', or what ver of Ms. Access you are using, so this may be completely irrevelant, but ...
PSet does not apply to FORMS in Ms. Access 2K, so if you are using that method and a previous ver of Ms. Accees, you need to be careful about the (enventual/inevitable) upgrade to ver 2K (or later)
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over
I do not know how you did the 'dotting', or what ver of Ms. Access you are using, so this may be completely irrevelant, but ...
PSet does not apply to FORMS in Ms. Access 2K, so if you are using that method and a previous ver of Ms. Accees, you need to be careful about the (enventual/inevitable) upgrade to ver 2K (or later)
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over
but how do i speed up the drawing process, coz i may have dots that are spaced 30 twips apart.
Look at creating a bitmap like I suggested. Drawing a bitmap as a background is a single BitBlt operation, versus several thousand for doing it inside nested loops. Be sure to create it large enough for people using 1600x1280 resolution.
Chip H.
Look at creating a bitmap like I suggested. Drawing a bitmap as a background is a single BitBlt operation, versus several thousand for doing it inside nested loops. Be sure to create it large enough for people using 1600x1280 resolution.
Chip H.
Use the Line method and set the Forms DrawStyle property to vbDot.
Me.DrawStyle = vbDot
Me.Line (X1,Y1) - (X2,Y2)
To Draw a Solid Grid contour line, use
Me.DrawStyle = vbSolid
Me.Line (X1,Y1) - (X2,Y2),,B
Some restrictions may apply: if you set DrawWidth to a value different from 1, it will be ignored. _________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]
Me.DrawStyle = vbDot
Me.Line (X1,Y1) - (X2,Y2)
To Draw a Solid Grid contour line, use
Me.DrawStyle = vbSolid
Me.Line (X1,Y1) - (X2,Y2),,B
Some restrictions may apply: if you set DrawWidth to a value different from 1, it will be ignored. _________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]
MichaelRed
Programmer
Re: Help in ver 2K, DrawStyle and Linr apply to REPORTS, NOT forms.
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over
MichaelRed
Programmer
OOPs! Sorry. I think I also sometimes 'forget' when I'm programming. Get some "Strange looks on occassion.
(or at least I did before started doing this for free on a full time basis)
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over
(or at least I did before started doing this for free on a full time basis)
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over
Correction: Read the last paragraph as follows:
Some restrictions may apply: if you set DrawWidth to a value different from 1, DrawStyle will be ignored (a solid line will be produced). _________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]
Some restrictions may apply: if you set DrawWidth to a value different from 1, DrawStyle will be ignored (a solid line will be produced). _________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]
- Status
Similar threads
