--- On Thu, 10/1/09, Graphics Designer <graphicdesigner3010@...> wrote:


From: Graphics Designer <graphicdesigner3010@...>
Subject: Fw: photoshop and flash video tutorials
To: graphicdesigner3010@...
Date: Thursday, October 1, 2009, 8:34 PM








--- On Thu, 10/1/09, Graphics Designer <graphicdesigner3010@...> wrote:


From: Graphics Designer <graphicdesigner3010@...>
Subject: Fw: photoshop and flash video tutorials
To: graphicdesigner3010@...
Date: Thursday, October 1, 2009, 8:31 PM













[Non-text portions of this message have been removed]

hi friends,

please help me to do a simple interface to the outer world through usb port by
using visual basic 6.

i need a very simple circuit diagram that consists of op-amps without using the
microcontrollers.

I dont want to use the serial port to usb converter.

thanks

would love to know when u solve this. please send me a message when u do. ill
try and help u solve it till then tho..

thanx,
james

--- In visualbasic6programming@yahoogroups.com, "Montadar" <muntather_moto@...>
wrote:
>
> hi friends,
>
> please help me to do a simple interface to the outer world through usb port by
using visual basic 6.
>
> i need a very simple circuit diagram that consists of op-amps without using
the microcontrollers.
>
> I dont want to use the serial port to usb converter.
>
> thanks
>

would pinouts.ru help at all on the hardware end?

--- On Wed, 10/7/09, james b <weekend4lust@...> wrote:


From: james b <weekend4lust@...>
Subject: [Visual Basic 6 programming] Re: usb by visual basic 6.
To: visualbasic6programming@yahoogroups.com
Date: Wednesday, October 7, 2009, 12:03 PM


 



would love to know when u solve this. please send me a message when u do. ill
try and help u solve it till then tho..

thanx,
james

--- In visualbasic6program ming@yahoogroups .com, "Montadar" <muntather_moto@
...> wrote:
>
> hi friends,
>
> please help me to do a simple interface to the outer world through usb port by
using visual basic 6.
>
> i need a very simple circuit diagram that consists of op-amps without using
the microcontrollers.
>
> I dont want to use the serial port to usb converter.
>
> thanks
>



















[Non-text portions of this message have been removed]

its a start. thanx

--- In visualbasic6programming@yahoogroups.com, aurora clark <blinkypoet@...>
wrote:
>
> would pinouts.ru help at all on the hardware end?
>
> --- On Wed, 10/7/09, james b <weekend4lust@...> wrote:
>
>
> From: james b <weekend4lust@...>
> Subject: [Visual Basic 6 programming] Re: usb by visual basic 6.
> To: visualbasic6programming@yahoogroups.com
> Date: Wednesday, October 7, 2009, 12:03 PM
>
>
>  
>
>
>
> would love to know when u solve this. please send me a message when u do. ill
try and help u solve it till then tho..
>
> thanx,
> james
>
> --- In visualbasic6program ming@yahoogroups .com, "Montadar" <muntather_moto@
...> wrote:
> >
> > hi friends,
> >
> > please help me to do a simple interface to the outer world through usb port
by using visual basic 6.
> >
> > i need a very simple circuit diagram that consists of op-amps without using
the microcontrollers.
> >
> > I dont want to use the serial port to usb converter.
> >
> > thanks
> >
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

Alessandro Zoboli wrote:
>
>
> Hallo
> What about these pictures with Visual basic??
>
> Le informazioni contenute in questa e-mail sono da considerarsi
> confidenziali e esclusivamente per uso personale dei destinatari sopra
> indicati. Questo messaggio puo' includere dati personali o sensibili.
> Qualora questo messaggio fosse da Voi ricevuto per errore vogliate
> cortesemente darcene notizia a mezzo e-mail e distruggere il messaggio
> ricevuto erroneamente. Quanto precede ai fini del rispetto del Decreto
> Legislativo 196/2003 sulla tutela dei dati personali e sensibili.
>
> This e-mail and any file transmitted with it is intended only for the
> person or entity to which is addressed and may contain information
> that is privileged, confidential or otherwise protected from
> disclosure.Copying, dissemination or use of this e-mail or the
> information herein by anyone other than the intended recipient is
> prohibited. If you have received this e-mail by mistake, please notify
> us immediately by telephone or fax.
>
> [Non-text portions of this message have been removed]
>
>
Moderator,
How much longer will you allow this trash to be posted?

> Moderator,
> How much longer will you allow this trash to be posted?
>

The moderators don't see it until it gets to our inboxes.  By that time, it is
already live.  The only thing we can do it delete it, and ban the person who
posted it, which we do.

The problem lies in the fact that posts are not *truly* moderated.  Any member
can post, anything they want.  It's up to us mods to ban/delete as needed.

I've tried to contact Fornoman about the possibility of changing the moderation
mode, but he doesn't respond, and he is the only one that can change it.

hello everyone,
Good morning,

can any one please help me regarding how to connect combo box to ADO, and how to
delete combo box value & add value in combo box with ADO.

Thanks
Regards

HELLO

I am trying to write a program to generate unique random numbers each time the
command button is clicked (no zeros and no duplicate) however when i use the
undermentioned code there are zeros and duplicate random numbers being
generated.

Can some one help me with a SIMPLE code to solve this problem?

Dim r as integer

Randomize
r = Int(Rnd(1) * 3) + 1


label1.caption = r



Thank you
Nigel

Difficult to understand what you want here, but if it is a number between 1
and 3, the example in VB3 says to use:



Myvalue = Int((3 * Rnd) + 1)   ' Generate random value between 1 and 3



Bart



   _____

From: visualbasic6programming@yahoogroups.com
[mailto:visualbasic6programming@yahoogroups.com] On Behalf Of nigeeb2002
Sent: Sunday, October 18, 2009 6:31 AM
To: visualbasic6programming@yahoogroups.com
Subject: [Visual Basic 6 programming] RANDOM NUMBERS





HELLO

I am trying to write a program to generate unique random numbers each time
the command button is clicked (no zeros and no duplicate) however when i use
the undermentioned code there are zeros and duplicate random numbers being
generated.

Can some one help me with a SIMPLE code to solve this problem?

Dim r as integer

Randomize
r = Int(Rnd(1) * 3) + 1

label1.caption = r

Thank you
Nigel





[Non-text portions of this message have been removed]

thanks Bart

I made a typo,  I really wanted is random number between 1 and 13.

Your code works fine if i replace the 3 with 13 however each time I
click the command button some of the random numbers repeats themselves
in the sequence as seen in the following example where the numbers
highlighted yellow: e.g. 8, 2, 12, 12, 5, 7, 9, 3, 12, 1, 13, 5,  5.

This example shows how your code generates the random numbers but the
code suppose to work in a way that each time the command button is
clicked a different random number is generated in the sequence.

thank you.





--- In visualbasic6programming@yahoogroups.com, "Bart Toole"
<batoole@...> wrote:
>
> Difficult to understand what you want here, but if it is a number
between 1
> and 3, the example in VB3 says to use:
>
>
>
> Myvalue = Int((3 * Rnd) + 1)   ' Generate random value between 1 and 3
>
>
>
> Bart
>
>
>
>   _____
>
> From: visualbasic6programming@yahoogroups.com
> [mailto:visualbasic6programming@yahoogroups.com] On Behalf Of
nigeeb2002
> Sent: Sunday, October 18, 2009 6:31 AM
> To: visualbasic6programming@yahoogroups.com
> Subject: [Visual Basic 6 programming] RANDOM NUMBERS
>
>
>
>
>
> HELLO
>
> I am trying to write a program to generate unique random numbers each
time
> the command button is clicked (no zeros and no duplicate) however when
i use
> the undermentioned code there are zeros and duplicate random numbers
being
> generated.
>
> Can some one help me with a SIMPLE code to solve this problem?
>
> Dim r as integer
>
> Randomize
> r = Int(Rnd(1) * 3) + 1
>
> label1.caption = r
>
> Thank you
> Nigel
>
>
>
>
>
> [Non-text portions of this message have been removed]
>



[Non-text portions of this message have been removed]

When selecting random numbers from a limited series, the same number is
frequently generated in successive draws.  The RND function produces pseudo
random numbers by taking (IIRC) a 4 digit seed, dividing by 0.998 (this value is
critical to the quality of the number series and I may have this wrong),
returning the first 4 digits in the fractional portion of the result, and then
using those digits as the next seed.  The result is a different number each
time, but not a perfectly randomized series.

If you want to randomize the 13 integers from 1 to 13, take 13 'random' numbers,
associate them with the integers 1 to 13, and sort the pairs based on the value
of the random numbers.  With only 13 numbers, this goes pretty quickly even with
a simple bubble sort.

--- In visualbasic6programming@yahoogroups.com, "nigeeb2002" <nigeeb2002@...>
wrote:
>
> thanks Bart
>
> I made a typo,  I really wanted is random number between 1 and 13.
>
> Your code works fine if i replace the 3 with 13 however each time I
> click the command button some of the random numbers repeats themselves
> in the sequence as seen in the following example where the numbers
> highlighted yellow: e.g. 8, 2, 12, 12, 5, 7, 9, 3, 12, 1, 13, 5,  5.
>
> This example shows how your code generates the random numbers but the
> code suppose to work in a way that each time the command button is
> clicked a different random number is generated in the sequence.
>
> thank you.
>
>
>
>
>
> --- In visualbasic6programming@yahoogroups.com, "Bart Toole"
> <batoole@> wrote:
> >
> > Difficult to understand what you want here, but if it is a number
> between 1
> > and 3, the example in VB3 says to use:
> >
> >
> >
> > Myvalue = Int((3 * Rnd) + 1)   ' Generate random value between 1 and 3
> >
> >
> >
> > Bart
> >
> >
> >
> >   _____
> >
> > From: visualbasic6programming@yahoogroups.com
> > [mailto:visualbasic6programming@yahoogroups.com] On Behalf Of
> nigeeb2002
> > Sent: Sunday, October 18, 2009 6:31 AM
> > To: visualbasic6programming@yahoogroups.com
> > Subject: [Visual Basic 6 programming] RANDOM NUMBERS
> >
> >
> >
> >
> >
> > HELLO
> >
> > I am trying to write a program to generate unique random numbers each
> time
> > the command button is clicked (no zeros and no duplicate) however when
> i use
> > the undermentioned code there are zeros and duplicate random numbers
> being
> > generated.
> >
> > Can some one help me with a SIMPLE code to solve this problem?
> >
> > Dim r as integer
> >
> > Randomize
> > r = Int(Rnd(1) * 3) + 1
> >
> > label1.caption = r
> >
> > Thank you
> > Nigel
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
> [Non-text portions of this message have been removed]
>

Thanks Hacketet

I understand what you are saying, i even read about the 4 digit seed that you
are referring too.  A very nice idea but can you shed some light with the actual
coding to associate and sort the random numbers with integers? A simple example
will be very helpful. I tried many other ways to eliminate the duplication that
the random numbers produces in series with no success.

Any help would be gladly appreciated.

Thank you
Nigel.





--- In visualbasic6programming@yahoogroups.com, "hacketet" <hacketet@...> wrote:
>
> When selecting random numbers from a limited series, the same number is
frequently generated in successive draws.  The RND function produces pseudo
random numbers by taking (IIRC) a 4 digit seed, dividing by 0.998 (this value is
critical to the quality of the number series and I may have this wrong),
returning the first 4 digits in the fractional portion of the result, and then
using those digits as the next seed.  The result is a different number each
time, but not a perfectly randomized series.
>
> If you want to randomize the 13 integers from 1 to 13, take 13 'random'
numbers, associate them with the integers 1 to 13, and sort the pairs based on
the value of the random numbers.  With only 13 numbers, this goes pretty quickly
even with a simple bubble sort.
>
> --- In visualbasic6programming@yahoogroups.com, "nigeeb2002" <nigeeb2002@>
wrote:
> >
> > thanks Bart
> >
> > I made a typo,  I really wanted is random number between 1 and 13.
> >
> > Your code works fine if i replace the 3 with 13 however each time I
> > click the command button some of the random numbers repeats themselves
> > in the sequence as seen in the following example where the numbers
> > highlighted yellow: e.g. 8, 2, 12, 12, 5, 7, 9, 3, 12, 1, 13, 5,  5.
> >
> > This example shows how your code generates the random numbers but the
> > code suppose to work in a way that each time the command button is
> > clicked a different random number is generated in the sequence.
> >
> > thank you.
> >
> >
> >
> >
> >
> > --- In visualbasic6programming@yahoogroups.com, "Bart Toole"
> > <batoole@> wrote:
> > >
> > > Difficult to understand what you want here, but if it is a number
> > between 1
> > > and 3, the example in VB3 says to use:
> > >
> > >
> > >
> > > Myvalue = Int((3 * Rnd) + 1)   ' Generate random value between 1 and 3
> > >
> > >
> > >
> > > Bart
> > >
> > >
> > >
> > >   _____
> > >
> > > From: visualbasic6programming@yahoogroups.com
> > > [mailto:visualbasic6programming@yahoogroups.com] On Behalf Of
> > nigeeb2002
> > > Sent: Sunday, October 18, 2009 6:31 AM
> > > To: visualbasic6programming@yahoogroups.com
> > > Subject: [Visual Basic 6 programming] RANDOM NUMBERS
> > >
> > >
> > >
> > >
> > >
> > > HELLO
> > >
> > > I am trying to write a program to generate unique random numbers each
> > time
> > > the command button is clicked (no zeros and no duplicate) however when
> > i use
> > > the undermentioned code there are zeros and duplicate random numbers
> > being
> > > generated.
> > >
> > > Can some one help me with a SIMPLE code to solve this problem?
> > >
> > > Dim r as integer
> > >
> > > Randomize
> > > r = Int(Rnd(1) * 3) + 1
> > >
> > > label1.caption = r
> > >
> > > Thank you
> > > Nigel
> > >
> > >
> > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>

Here's a simple solution.  In your case the list is a 1 based array with the
digits 1 to 13, min is 1, max is 13.

Public Sub RandomizeList(List() As Long, min As Long, max As Long)
Dim i As Long
Dim pos As Long
Dim tmp As Long

     For i = min To max - 1
         pos = Int((max - i + 1) * Rnd + i)
         tmp = List(pos)
         List(pos) = List(i)
         List(i) = tmp
     Next i
End Sub

--- In visualbasic6programming@yahoogroups.com, "nigeeb2002" <nigeeb2002@...>
wrote:
>
> Thanks Hacketet
>
> I understand what you are saying, i even read about the 4 digit seed that you
are referring too.  A very nice idea but can you shed some light with the actual
coding to associate and sort the random numbers with integers? A simple example
will be very helpful. I tried many other ways to eliminate the duplication that
the random numbers produces in series with no success.
>
> Any help would be gladly appreciated.
>
> Thank you
> Nigel.
>

If I recall, using simply "Randomize" will seed the generator the same all the
time, resulting in the same string of "Random" numbers to be chosen each time.

So why not seed the generator with a more hard to pin down seed?

Something like the system timer:

Dim MyRandomNumber As Long 'The chosen number
Dim RandomMax As Long 'top end of range to pick from
Dim RandomMin As Long 'low end of range to pick from
Dim Kount As Long 'loop to pick ten random numbers

RandomMin = 1
RandomMax = 13

Randomize Timer

For Kount = 1 To 10

     MyRandomNumber = Int(Rnd(1) * RandomMax) + RandomMin
     Debug.Print MyRandomNumber

Next


--- In visualbasic6programming@yahoogroups.com, "nigeeb2002" <nigeeb2002@...>
wrote:
>
> HELLO
>
> I am trying to write a program to generate unique random numbers each time the
command button is clicked (no zeros and no duplicate) however when i use the
undermentioned code there are zeros and duplicate random numbers being
generated.
>
> Can some one help me with a SIMPLE code to solve this problem?
>
> Dim r as integer
>
> Randomize
> r = Int(Rnd(1) * 3) + 1
>
>
> label1.caption = r
>
>
>
> Thank you
> Nigel
>

RIGHT ON THE HEAD OF THE NAIL DWIRCH... thanks exactly what i wanted, can't wait
to implement it in my program.


Thanks again
Nigel



--- In visualbasic6programming@yahoogroups.com, "dwirch" <dwirch@...> wrote:
>
>
> If I recall, using simply "Randomize" will seed the generator the same all the
time, resulting in the same string of "Random" numbers to be chosen each time.
>
> So why not seed the generator with a more hard to pin down seed?
>
> Something like the system timer:
>
> Dim MyRandomNumber As Long 'The chosen number
> Dim RandomMax As Long 'top end of range to pick from
> Dim RandomMin As Long 'low end of range to pick from
> Dim Kount As Long 'loop to pick ten random numbers
>
> RandomMin = 1
> RandomMax = 13
>
> Randomize Timer
>
> For Kount = 1 To 10
>
>     MyRandomNumber = Int(Rnd(1) * RandomMax) + RandomMin
>     Debug.Print MyRandomNumber
>
> Next
>
>
> --- In visualbasic6programming@yahoogroups.com, "nigeeb2002" <nigeeb2002@>
wrote:
> >
> > HELLO
> >
> > I am trying to write a program to generate unique random numbers each time
the command button is clicked (no zeros and no duplicate) however when i use the
undermentioned code there are zeros and duplicate random numbers being
generated.
> >
> > Can some one help me with a SIMPLE code to solve this problem?
> >
> > Dim r as integer
> >
> > Randomize
> > r = Int(Rnd(1) * 3) + 1
> >
> >
> > label1.caption = r
> >
> >
> >
> > Thank you
> > Nigel
> >
>

HI, I am undergoing in developing a software called "ORACLE GUI" in which i have
selected back end development tool as VB 6.0 to design the menu forms. I need to
make my forms very attractive. so tel me where do i find a good codes for
writing.
 
plz send me.


       From cricket scores to your friends. Try the Yahoo! India Homepage!
http://in.yahoo.com/trynew

[Non-text portions of this message have been removed]

Hi, once I have changed my monitor wich habitualy got the same resolution than
the other, then visual basic 6 adjust itself to about 300X200 maybe I don't know
but absolutly unusable without moving the image up and down all the time to see
all the real screen, then I got back to the precedent monitor but the resolution
was still that corrupted and I did not find how to get it back to normal, I
can't reinstall visual basic 6 because it's on a windows98 hard disk I boot with
only to use visual basic 6 and I don't have any visual basic 6 installation
source available. Did someone got a pilot or some advice to send me?

If I recall correctly, the IDE remembers your last settings.  Meaning that when
you close the IDE, it saves the window positions.  When you fire it next, it
places everything back the way it was when you fired it last.

If you are having monitor resolution issues, you might want to check  your
display drivers to ensure that you are running the monitor at the correct
resolution.

Let me know if I have misunderstood your issue.


--- In visualbasic6programming@yahoogroups.com, cedric52 <no_reply@...> wrote:
>
> Hi, once I have changed my monitor wich habitualy got the same resolution than
the other, then visual basic 6 adjust itself to about 300X200 maybe I don't know
but absolutly unusable without moving the image up and down all the time to see
all the real screen, then I got back to the precedent monitor but the resolution
was still that corrupted and I did not find how to get it back to normal, I
can't reinstall visual basic 6 because it's on a windows98 hard disk I boot with
only to use visual basic 6 and I don't have any visual basic 6 installation
source available. Did someone got a pilot or some advice to send me?
>

I have written a VB6 app that writes to the Program Files folder, which has
created problems now with Windows 7 security issues (Virtual Store, writing to
the Program Files folder, etc). Can I hard-code my app to store its .exe file,
as well as its data files, in a folder that works with Windows XP, Vista, and 7?
How about installing the app and storing all its files in the C:\ drive? Will
that work?

Or, is coding using App.Path to store files the best way to avoid or work-around
these security issues?

I realize its not advisable to hard-code to a specific folder, but am asking if
hard-coding to  C:\  would avoid the Windows 7 security issues.

Thanks much, any answers appreciated...

Chris

noo!  Don't write to the root of C:\.  You'll do nothing but make people mad.

Windows 7 has an environment variable for the "C:\program files", called
interestingly enough, "ProgramFiles".

This environment variable will point to the current program files folder for
Windows, wherever it is.

There is also another variable for 64-bit systems, called "ProgramFiles(x86)",
which holds the name of the folder for the 32-bit program root.

So once you're program is installed, use app.path.  Keep all your programs files
in the same folder, or sub-folders, as your program.  Configuration settings? 
Why not use the registry?  Using the registry is the prescribed method, but .ini
files are still used *lots*.  I use them myself, for quick, portable projects.

Hope this helps,

Derek

--- In visualbasic6programming@yahoogroups.com, christmile <no_reply@...> wrote:
>
> I have written a VB6 app that writes to the Program Files folder, which has
created problems now with Windows 7 security issues (Virtual Store, writing to
the Program Files folder, etc). Can I hard-code my app to store its .exe file,
as well as its data files, in a folder that works with Windows XP, Vista, and 7?
How about installing the app and storing all its files in the C:\ drive? Will
that work?
>
> Or, is coding using App.Path to store files the best way to avoid or
work-around these security issues?
>
> I realize its not advisable to hard-code to a specific folder, but am asking
if hard-coding to  C:\  would avoid the Windows 7 security issues.
>
> Thanks much, any answers appreciated...
>
> Chris
>

--- In visualbasic6programming@yahoogroups.com, cedric52 <no_reply@...> wrote:
>
> Hi, once I have changed my monitor wich habitualy got the same resolution than
the other, then visual basic 6 adjust itself to about 300X200 maybe I don't know
but absolutly unusable without moving the image up and down all the time to see
all the real screen, then I got back to the precedent monitor but the resolution
was still that corrupted and I did not find how to get it back to normal, I
can't reinstall visual basic 6 because it's on a windows98 hard disk I boot with
only to use visual basic 6 and I don't have any visual basic 6 installation
source available. Did someone got a pilot or some advice to send me?
>
I remember a post to this group I found interesting and made a copy of the
content.  My copy is dated 3/14/2005.  I was going to use it, but have never
added it to my program so I can't vouch for it.  Here is what I saved:

If you mean to resize the screen and not the form, try the Resize() function
buried in this code:


Option Explicit
'
-------------------------------------------------------------------------
-----
Private Const BITSPIXEL               As Long = 12
Private Const HORZRES                 As Long = 8
Private Const VERTRES                 As Long = 10
Private Const VREFRESH                As Long = 116

Private Const CCDEVICENAME            As Long = 32
Private Const CCFORMNAME              As Long = 32

Private Const DM_BITSPERPEL           As Long = &H40000
Private Const DM_PELSWIDTH            As Long = &H80000
Private Const DM_PELSHEIGHT           As Long = &H100000
Private Const DM_DISPLAYFREQUENCY     As Long = &H400000

Private Const CDS_UPDATEREGISTRY      As Long = &H1
Private Const CDS_TEST                As Long = &H2

Private Const DISP_CHANGE_SUCCESSFUL  As Long = 0
Private Const DISP_CHANGE_RESTART     As Long = 1
Private Const DISP_CHANGE_FAILED      As Long = -1
Private Const DISP_CHANGE_BADMODE     As Long = -2
Private Const DISP_CHANGE_NOTUPDATED  As Long = -3 'Nur NT!

Private Type DEVMODE
     dmDeviceName        As String * CCDEVICENAME
     dmSpecVersion       As Integer
     dmDriverVersion     As Integer
     dmSize              As Integer
     dmDriverExtra       As Integer

     dmFields            As Long
     dmOrientation       As Integer
     dmPaperSize         As Integer
     dmPaperLength       As Integer
     dmPaperWidth        As Integer
     dmScale             As Integer
     dmCopies            As Integer
     dmDefaultSource     As Integer
     dmPrintQuality      As Integer
     dmColor             As Integer
     dmDuplex            As Integer
     dmYResolution       As Integer
     dmTTOption          As Integer
     dmCollate           As Integer

     dmFormName          As String * CCFORMNAME
     dmUnusedPadding     As Integer
     dmBitsPerPel        As Integer
     dmPelsWidth         As Long
     dmPelsHeight        As Long
     dmDisplayFlags      As Long
     dmDisplayFrequency  As Long
End Type

'
-------------------------------------------------------------------------
-----
Private Declare Function EnumDisplaySettings Lib "user32" Alias
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long,
lpDevMode As DEVMODE) As Boolean Private Declare Function ChangeDisplaySettings
Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As DEVMODE, ByVal dwFlags
As Long) As Long

'
-------------------------------------------------------------------------
-----
Private OldWidth  As Long
Private OldHeight As Long

'
-------------------------------------------------------------------------
-----
Private Sub Resize(ByVal NewWidth As Long, ByVal NewHeight As Long, Optional
PromptAfterChange As Boolean = True)
   On Error GoTo E
   Dim lpDevMode As DEVMODE
   Dim dwFlags   As Long
   Dim Ret       As Boolean
   Dim i         As Long

   ' Get the current display settings
   i = 0
   Do
     DoEvents
     Ret = EnumDisplaySettings(0, i, lpDevMode)
     i = i + 1
   Loop Until Ret = False

   ' Change the display setting variable to match the requested screen size
   With lpDevMode
     OldWidth = Screen.Width / Screen.TwipsPerPixelX
     OldHeight = Screen.Height / Screen.TwipsPerPixelY

     .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
     .dmPelsWidth = NewWidth
     .dmPelsHeight = NewHeight
   End With

   ' Change the actual display settings
   Call ChangeDisplaySettings(lpDevMode, dwFlags)

   Exit Sub
E:
End Sub

The problem related to programs written in VB6.

When I update an EXE file, there is no problem. I send the updated *.exe to
my friends and tell them to copy it to the appropriate folder in C:\Program
Files, overwriting the previous version.

However, Versions 2 and 3 go further than updating the EXE file. They
include additional files, such as DLL and OCX. How can I send these to my
friends with instructions on how to install them? Better still, can I send
them a mini-program which will actually do the installation?

Michael

I have successfully used Visual Studio Installer which is free from Microsoft. 
It determines what dll's and ocx's must be included.  It allows you to choose
where to install the program.

Bart

--- In visualbasic6programming@yahoogroups.com, "Michael Hodge" <vb6prog@...>
wrote:
>
> The problem related to programs written in VB6.
>
> When I update an EXE file, there is no problem. I send the updated *.exe to
> my friends and tell them to copy it to the appropriate folder in C:\Program
> Files, overwriting the previous version.
>
> However, Versions 2 and 3 go further than updating the EXE file. They
> include additional files, such as DLL and OCX. How can I send these to my
> friends with instructions on how to install them? Better still, can I send
> them a mini-program which will actually do the installation?
>
> Michael
>

I want to display charts on forms of VB6 for that I am using MSChart control.
now i have 2 queries
1)  Is there any more powerfull microsoft control for plotting charts/graphs.
2)  How can i use recordset data to plot charts (without using arrays). I am
using DAO 3.6

Thanks All

1.  I am new to  Visual Basic programming. However, I have a good knowledge of
C, C++, shell programming, Foxpro,etc.

2.  I have made a functional program in Foxpro to generate a question paper.
However,I am having difficulty to make the same in VB6.In it, I am having 5
tables in Access, say Table1, 2,3,4,5 containing say approx 100 questions each
of different types ( MCQ, True False, Matching, Blanks & Long qns). A question
may occupy a number of rows in master table. I have an additional master table.
For Qn 1, I have to open Table1, randomly generate 10 non-repititive random
numbers between 1 and Maximum number of question and then pick up these values
and place themin master Table. Similarly with Table2, 3, 4 and 5.  And Finally I
get a print out from the Master Table in to word /text format.

3.   Can anyone help please? I can post my program in forxpro and /or access
tables, if required.

1.  I am new to  Visual Basic programming. However, I have a good knowledge of
C, C++, shell programming, Foxpro,etc.

2.  I have made a functional program in Foxpro to generate a question paper.
However,I am having difficulty to make the same in VB6.In it, I am having 5
tables in Access, say Table1, 2,3,4,5 containing say approx 100 questions each
of different types ( MCQ, True False, Matching, Blanks & Long qns). A question
may occupy a number of rows in master table. I have an additional master table.
For Qn 1, I have to open Table1, randomly generate 10 non-repititive random
numbers between 1 and Maximum number of question and then pick up these values
and place themin master Table. Similarly with Table2, 3, 4 and 5.  And Finally I
get a print out from the Master Table in to word /text format.

3.   Can anyone help please? I canpost my program in forxpro and /or access
tables, if required.

The listbox control I'm using has a "lastadded" property, and, for my
application, using it is the only way I can think of to do what I need.
I know it's not efficient, so I'd like to know about other ways. My
apartment building has four floors with no "x07" on any floor. Also, the
apartments go from "x00" to "x37" on the first two floors, and from
"x00" to "x42" on the third and fourth floors (where "x" is the floor
number.

Allen J. Bennett



[Non-text portions of this message have been removed]

I forgot to post my code

  For I% = 1 To 4
         For J% = 0 To 42
             If J% <> 7 Then
                 Mh3dList1.AddItem I% * 100 + J%
             End If
             If I% < 3 And J% > 37 Then
                 Mh3dList1.RemoveItem (Mh3dList1.LastAdded)
             End If
         Next J%
     Next I%


[Non-text portions of this message have been removed]

I would only add items to the list box that qualify.

For I = 1 to 4
   For J = 0 to 42
     If I > 2 And J > 37 Then
        'Ignore
        Exit For
     End If
     Mh3dList1.AddItem I% * 100 + J%
   next J
Next I

Bart
--- In visualbasic6programming@yahoogroups.com, "Allen Bennett" <Allen@...>
wrote:
>
> I forgot to post my code
>
>  For I% = 1 To 4
>         For J% = 0 To 42
>             If J% <> 7 Then
>                 Mh3dList1.AddItem I% * 100 + J%
>             End If
>             If I% < 3 And J% > 37 Then
>                 Mh3dList1.RemoveItem (Mh3dList1.LastAdded)
>             End If
>         Next J%
>     Next I%
>
>
> [Non-text portions of this message have been removed]
>