Thanks, Tom. No one has asked for it, but I don't like the way the screens are smaller at the lower resolution. I'll copy your post and code and look at it. I have an Access db that can determine the user's screen resolution with probably a similar module in it. I agree, two fe's is not the way to simplify the workday. Jim --- In [email protected], "Tom Oakes" <[EMAIL PROTECTED]> wrote: > I think maintaining two front-ends is a horrible idea, but it's your > workday. I design everything at 800 x 600 unless the client specifically > asks for/agrees to be tethered to 1024 x 768. > > I don't know of a way to read the resolution via DOS, but you certainly can > via this API: > > '***** code start *****' > Private Declare Function api_GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" > (ByVal hdc As Long, ByVal nIndex As Long) As Long > > Public Function atGetdevcaps%(ByVal intCapability%) > '=========================================================== > ' Purpose: Returns information on the capabilities of > ' a given device. Which device is determined > ' by the arguments to api_CreateIC. Which > ' capability is determined by the intCapability > ' argument which is one of the constants > ' defined for the GetDeviceCaps Windows API > ' function. > ' Arguments: intCapability - index of capability to check > ' see win32api.txt for list of values > ' Returns: Results of call to GetDeviceCaps > '----------------------------------------------------------- > On Error GoTo getdevcapsError > 'LogPixels X = 88 for capability > 'LogPixels Y = 90 for capability > > Dim hdc& 'handle for the device context > 'Specify the device -- use "DISPLAY' to check screen capabilities > Const DRIVER_NAME = "DISPLAY" > Const DEVICE_NAME = 0& > Const OUTPUT_DEVICE = 0& > Const LPDEVMODE = 0& > > 'Get a handle to a device context (hDC) > hdc = api_CreateIC(DRIVER_NAME, DEVICE_NAME, OUTPUT_DEVICE, LPDEVMODE) > If hdc > 0 Then > 'If a valid hDC was returned, call GetDeviceCaps and then release the DC > atGetdevcaps = api_GetDeviceCaps(hdc, intCapability) > hdc = api_DeleteDC(hdc) > End If > > getdevcapsExit: > Exit Function > getdevcapsError: > MsgBox "Error: " & Error$, 48, "System Information" > Resume getdevcapsExit > End Function > '***** code end *****' > > atGetdevcaps(10) will give you the vertical > atGetdevcaps(8) will give you the horizontal > > ...however, I've found that the horizontal is quirky. It works very well as > the source of a form textbox, but running it in the immediate window (or in > code), it will return 0 about half the time. I hack around this by looping > about 5 times, until it's non-zero - this has worked very consistently. > > Anyway, back to your problem, you could have them start an external Access > or VB file that uses this API to read the resolution and open the > appropriate file. > > Tom Oakes > Personal PC Consultants, Inc. > [EMAIL PROTECTED] > 503.230.0911 (O) > 402.968.6946 (C) > 734.264.0911 (F) > > > > > _____ > > From: [email protected] > [mailto:[EMAIL PROTECTED] On Behalf Of jmw95823 > Sent: Friday, August 05, 2005 10:14 AM > To: [email protected] > Subject: [AccessDevelopers] Determining Screen Resolution Via a Batch File > > > We've played around a bit with changing the size of controls on a > form > based on users' screen resolution(s). We still need to work with it > some more to get it right because we had some problems with it. > Temporarily I was thinking that I might resize the forms to fit > 1024x768 and make that a second front-end in addition to the original > designed at 800x600. > We have a batch file that looks at the network to determine if there > is a newer version of the front end on the user's pc. If there is, > the new version is copied to the local drive. > In this startup batch file is there some code I could use to > determine > the user's screen resolution and then have it open the mdb that > corresponds to it? Thanks for any help. Jim > > > > > > Please zip all files prior to uploading to Files section. > > > > > SPONSORED LINKS > Microsoft > <http://groups.yahoo.com/gads? t=ms&k=Microsoft+access+database&w1=Microsoft+ > access+database&w2=Free+microsoft+access+database&w3=Microsoft+access +develo > per&w4=Microsoft+access&w5=Microsoft+access+database+design&w6=Micros oft+acc > ess+database+training&c=6&s=199&.sig=hi30IqLkuABFugfT9filIA> access database > Free > <http://groups.yahoo.com/gads? t=ms&k=Free+microsoft+access+database&w1=Micro > soft+access+database&w2=Free+microsoft+access+database&w3=Microsoft+a ccess+d > eveloper&w4=Microsoft+access&w5=Microsoft+access+database+design&w6=M icrosof > t+access+database+training&c=6&s=199&.sig=8aWfZOdhV-CniHJ94pwcNA> microsoft > access database Microsoft > <http://groups.yahoo.com/gads? t=ms&k=Microsoft+access+developer&w1=Microsoft > +access+database&w2=Free+microsoft+access+database&w3=Microsoft+acces s+devel > oper&w4=Microsoft+access&w5=Microsoft+access+database+design&w6=Micro soft+ac > cess+database+training&c=6&s=199&.sig=N4ByQG88k5msTEkYfiqr5A> access > developer > Microsoft > <http://groups.yahoo.com/gads? t=ms&k=Microsoft+access&w1=Microsoft+access+da > tabase&w2=Free+microsoft+access+database&w3=Microsoft+access+develope r&w4=Mi > crosoft+access&w5=Microsoft+access+database+design&w6=Microsoft+acces s+datab > ase+training&c=6&s=199&.sig=caIXrnkA0j_IkiWQ2YhnBg> access Microsoft > <http://groups.yahoo.com/gads? t=ms&k=Microsoft+access+database+design&w1=Mic > rosoft+access+database&w2=Free+microsoft+access+database&w3=Microsoft +access > +developer&w4=Microsoft+access&w5=Microsoft+access+database+design&w6 =Micros > oft+access+database+training&c=6&s=199&.sig=BGgv9psemJdkdjRCvcygZA> access > database design Microsoft > <http://groups.yahoo.com/gads? t=ms&k=Microsoft+access+database+training&w1=M > icrosoft+access+database&w2=Free+microsoft+access+database&w3=Microso ft+acce > ss+developer&w4=Microsoft+access&w5=Microsoft+access+database+design& w6=Micr > osoft+access+database+training&c=6&s=199&.sig=308KnMkTEj0KSRo7LpDQRw> access > database training > > _____ > > YAHOO! GROUPS LINKS > > > > * Visit your group "AccessDevelopers > <http://groups.yahoo.com/group/AccessDevelopers> " on the web. > > > * To unsubscribe from this group, send an email to: > [EMAIL PROTECTED] > <mailto:[EMAIL PROTECTED] subject=Unsubscribe> > > > * Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service > <http://docs.yahoo.com/info/terms/> . > > > _____
------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12h01j64e/M=362131.6882499.7825260.1510227/D=groups/S=1705115370:TM/Y=YAHOO/EXP=1123277403/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org ">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life - brought to you by One Economy</a>.</font> --------------------------------------------------------------------~-> Please zip all files prior to uploading to Files section. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AccessDevelopers/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
