By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,711 Members | 2,158 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,711 IT Pros & Developers. It's quick & easy.

VB to Access

P: n/a
Have a question. I have the following code running in VB6 that
dithers the background on a form from light to dark (like a setup
screen).
Sub Dither(vForm As Form)
Dim intLoop As Long
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(300 -
intLoop, 0, 0), B
Next intLoop

End Sub
What I would like is to run this in Access, but Access dosent hold the
constant "vbInsideSolid , vbCopyPen, vbPixels".
Does anyone know of a way to convert this constants to Access thru a
reference or otherwise?

thanks
Bryan
Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Bryan wrote:
Have a question. I have the following code running in VB6 that
dithers the background on a form from light to dark (like a setup
screen).
Sub Dither(vForm As Form)
Dim intLoop As Long
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(300 -
intLoop, 0, 0), B
Next intLoop

End Sub
What I would like is to run this in Access, but Access dosent hold the
constant "vbInsideSolid , vbCopyPen, vbPixels".
Does anyone know of a way to convert this constants to Access thru a
reference or otherwise?

thanks
Bryan


Find out the values in VB by typing "?vbInsideSolid" in the immediate
window then define them in Access, e.g. "Global Const vbInsideSolid = xxx"
--
But why is the Rum gone?
Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.