home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.visual.basic      MS Visual Basic discussions, NOT dot-net      10,840 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 10,287 of 10,840   
   Steve Gerrard to Geoff   
   Re: Loading and unloading forms   
   05 Nov 06 12:54:26   
   
   From: mynamehere@comcast.net   
      
   "Geoff"  wrote in message   
   news:_LadnftESINv1tPYRVnygQ@brightview.com...   
   > VB6. When selecting from drop down menu options I display different forms by   
   > using the Load (filename) and leave the form with Unload(Filename)   
   >   
   > The Load  event allows me to program the  opening of a particular direct   
   > access file and  the Unload event lets me program the closing of the file.   
   > Things are kept 'tidy' this way.   
   >   
   > My problem is that I want to pass in a parameter when a particular form   
   loads.   
   > This will control which record is to be displayed.   I want Pointer to come   
   in   
   > as a parameter.   
   >   
      
   I would create a public method in the target form, and put the file opening   
   code   
   in that instead. Something like   
       Public Sub InitForm(Pointer As Long)   
           ' open the file...   
           ' seek for pointer...   
           ' get the data....   
       End Sub   
      
   Then in the menu code of the main form, do   
       Load frmTarget   
       Call frmTarget.InitForm(27)   
       frmTarget.Show   
      
   The parameters can be any type you need.   
      
   By the way, you should use FreeFile to get a file handle, not hard-code in #1,   
   as in   
       nFile = FreeFile   
       Open "filename" For Random As nFile   
       Seek #nFile, Pointer   
       ' etc   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca