--------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EAH00003 Date: 06/10/97 From: BUCKY CARR Time: 03:41pm \/To: EILEEN LOUISE (Read 6 times) Subj: More efficient EL> you've seen lots of wizards in MS products, right? i meant one that EL> was devoted to claim preparation. but perhaps your way is better. I haven't seen many (or any, really) wizards, but I think I know what you are talking about. EL> EL>> office girl who couldn't live without a hcfa form on her screen. EL> well, it is a neat idea if you have it working fairly fast and nice. I won't use it if it isn't fast. Almost ready to test it today, matter of fact. It is slower than crud under MSDOS. Better be fast with Win95 or I'll ditch it. Under MSDOS it is possible to have one thing loading while you are viewing another thing on the CRT. Is it possible to be viewing one form while another is being populated with data in prep for viewing? EL> thru a couple of them a year in a good year. and many get a new girl EL> at least annually or so. usually without experience. so my bent EL> would have been to simplify so she didn't have to understand the form EL> she was filling out. I may be naive (left over from my days as a college prof teaching grad school), but I'd think that helping them understand the form would be very worthwhile. EL> that meant jcaho hcfa and medicaid inspections. groan! I'll never undergo another JCAHO inspection (will retire first or someone else will suffer it). EL> o yes. it is muchly important to have a domain expert at the EL> architecture level. saves a lot of mistakes. Wow - I'm a "domain expert". EL> printing onto preprinted forms is a pain. Agreed. EL> your program will eventually promulgate a list, rite? Easy to make that an option and will eventually do that. Was going to add that to the MSDOS version, but I've quit working in that environment for the near-infinite improvements of the Win95/VB IDE. EL> kewl! but i dn't know about this PD business. Just depends. I tend to be pretty insecure about my programming, even when it works. I'll see. EL> consider releasing a lite version to the PD (or more EL> accurately as shareware, even if you only require it to be registered EL> at no charge) and yoru full bown version for real money. See, you know all about this sort of thing. I know little/nothing. My biggest plus is that I'm completely tenacious in my pursuit of the goal. EL> data model. i want to look at the organization of your information. EL> evaluate the entity relationship. i want to see how your data is EL> related and normalized. you can pick up some serious speed gains from EL> good data structure. you may already have it :) EL> i'm also interested in how you have implemented icd-9 coding :) Check your internet e-mail account - goodies there for you to look at, critique, suggest about, rewrite, rave about, laugh about, barf about, ad nauseum :). EL> this is access, rite? if you don't mind, send me your database EL> structures (don't really need data ... doesn't matter.) Access, rite. But not using data bound control approach at all. I think I understand your desire in re: 'database structures' - they are in your e-mail inbox, too. The whole project is around 3 megs source code right now, so I'll send a smattering so you can see how I'm approaching this. Thanks, BTW, since I know you need to spend the time on other things. I may try to make a big .LZH file which I'll UUENCODE if I can and break up over many messages. --- PPoint 2.00 * Origin: Vanishing Point 7198460140 Trinidad CO (1:15/7.1) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EAH00004 Date: 06/10/97 From: BUCKY CARR Time: 04:10pm \/To: EILEEN LOUISE (Read 6 times) Subj: Combo Boxes EL> it needs to be 0 to ListCount-1 Yup, missed that. Thanks. --- PPoint 2.00 * Origin: Vanishing Point 7198460140 Trinidad CO (1:15/7.1) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EAH00005 Date: 06/11/97 From: EILEEN LOUISE Time: 05:28am \/To: HANS VAN DEN HEUVEL (Read 6 times) Subj: systemdate in records Hi Hans, Hans van den Heuvel to Iedereen on Sunday June 08 1997 HH> "twenty" and not "ninetien" is edited to "nineteen") Do you have HH> to lookup all the fields in a record in order to update the HH> records date no, you do not have to load them. you can use a SQL UPDATE statement. UPDATE MyTable SET MyField=NewValue MyOtherField=NewOtherValue etc ... WHERE you don't get a resultset with this method tho, so you have to be careful. --- eileen@technologist.com * Origin: Television is furniture. (1:326/431) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EAH00006 Date: 06/11/97 From: EILEEN LOUISE Time: 05:34am \/To: BRIAN FRASER (Read 6 times) Subj: CNTL-ALT-DELETE Hi Brian, Brian Fraser to Willy Jansen on Tuesday June 10 1997 BF> Reset is OK. My program loads from startup and takes control of BF> the PC. What I want to do is prevent the user from disabling my BF> program by using Cntl-Alt-Delete. query unload won't prohibit the task manager (nor should it) but it will dictate the behavior of the program after a request to shut down is issued from the tasklist. you can continue execution there. --- eileen@technologist.com * Origin: Television is furniture. (1:326/431) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EAH00007 Date: 06/12/97 From: KURT J. TISCHER Time: 12:35pm \/To: DAVID WEBB (Read 6 times) Subj: VB3 AND SOUND 1/2 DW>have two snags. The first one is, how do I get WAV files to play in VB? How to Play a Waveform (.WAV) Sound File in Visual Basic Article ID: Q86281 ---------------------------------------------------------------------- The information in this article applies to: - Standard and Professional Editions of Microsoft Visual Basic for Windows, versions 2.0 and 3.0 - Microsoft Visual Basic programming system for Windows, version 1.0 ---------------------------------------------------------------------- SUMMARY ======= You can play a waveform (.WAV) sound file from Microsoft Visual Basic for Windows by calling the sndPlaySound API function from the MMSYSTE .DLL file. In order to be able to call the sndPlaySound API function, you must be using either Microsoft Windows, version 3.1 or the Microsoft Multimedia Extensions for Windows, version 3.0. The following information discusses the sndPlaySound parameters, and includes an example of how to use this function from Visual Basic for Windows. MORE INFORMATION ================ To use the sndPlaySound API from within a Visual Basic for Windows application, you must Declare the sndPlaySound function in either the global module or from within the Declarations section of your Code window. To declare the function, enter the following Declare statement as one, single line: Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal lpszSoundName As Any, ByVal wFlags%) As Integer The parameters listed above are explained as follows: Parameters ---------- lpszSoundName$ Specifies the name of the sound to play. The function first searches the [sounds] section of the WIN.INI file for an entry with the specified name, and plays the associated waveform sound file. If no entry by this name exists, then it assumes the specified name is the name of a waveform sound file. If this parameter is NULL, any currently playing sound is stopped. That is, use a 0& to provide a NULL value. wFlags% Specifies options for playing the sound using one or more of the following flags: SND_SYNC The sound is played synchronously and the function does not return until the sound ends. SND_ASYNC The sound is played asynchronously and the function returns immediately after beginning the sound. SND_NODEFAULT If the sound cannot be found, the function returns silently without playing the default sound. SND_LOOP The sound will continue to play repeatedly until sndPlaySound is called again with the lpszSoundName$ parameter set to null. You must also specify the SND_ASYNC flag to loop sounds. SND_NOSTOP If a sound is currently playing, the function will immediately return False without playing the requested sound. The sndPlaySound function returns True (-1) if the sound is played, otherwise it returns False (0). The following code example illustrates how to use the sndPlaySound API function to play a waveform (.WAV) sound file. Add the following code to the global module or general Declarations section of your form: ' The following Declare statement must appear on one line. Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal lpszSoundName$, ByVal wFlags%) As Integer Global Const SND_SYNC = &H0000 Global Const SND_ASYNC = &H0001 Global Const SND_NODEFAULT = &H0002 Global Const SND_LOOP = &H0008 Global Const SND_NOSTOP = &H0010 Add the following line of code to the appropriate function or subroutine in your application: SoundName$ = "c:\windows\tada.wav" wFlags% = SND_ASYNC Or SND_NODEFAULT x% = sndPlaySound(SoundName$,wFlags%) NOTE: If a large waveform (.WAV) sound file is specified and the above call fails to play the file in its entirety, you will need to adjust the settings on the appropriate sound driver. For more information on adjusting the sound driver settings, query on the following words in the Microsoft Knowledge Base: >>> Continued to next message * SLMR 2.1a * Put the cat out? I didn't know it was on fire! --- SLMAIL v4.5a (#4334) * Origin: TEST FOR ECHO BBS - Middleburg Hts., OH (216) 234-6088 (1:157/438) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EAH00008 Date: 06/12/97 From: KURT J. TISCHER Time: 12:35pm \/To: DAVID WEBB (Read 6 times) Subj: VB3 AND SOUND 2/2 >>> Continued from previous message Speaker and Sound and Driver and Settings and .Wav and File REFERENCES ========== "Microsoft Multimedia Development Kit: Programmer's Reference" version 1.0 Additional reference words: 1.00 2.00 3.00 KBCategory: kbprg KBSubcategory: APrgOther ======================================================================== DW>And,is there any way I can co DW>take up much space??? I'm doing animation with them, but it's eating DW>up alot of HD space??? I would appreciate any and all suggestions!!! How to Use LZCOPYFILE Function to Decompress or Copy Files Article ID: Q88257 --------------------------------------------------------------------- The information in this article applies to: - Standard and Professional Editions of Microsoft Visual Basic for Windows, versions 2.0 and 3.0 - Microsoft Visual Basic programming system for Windows, version 1.0 --------------------------------------------------------------------- SUMMARY ======= Included with Windows versions 3.0 and 3.1 is a dynamic-link library (DLL) named LZEXPAND.DLL that contains routines to manipulate compressed files. The functions in LZEXPAND.DLL manipulate files that are compressed by the COMPRESS.EXE utility supplied with the Windows Software Development Kit (SDK) versions 3.0 and 3.1. These functions allow you to expand (decompress) a compressed file. The following example demonstrates how to use the LZCOPYFILE function included in LZEXPAND.DLL. This function is used to expand a compressed file or to copy a file. MORE INFORMATION ================ The following is a small program that will copy or decompress a file in Visual Basic for Windows: 1. Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default. 2. In the general Declarations section of Form1, add the following declaration entirely on one, single line: Declare Function LZCOPY Lib "LZEXPAND.DLL" (ByVal SOURCEHANDLE As Integer, ByVal DESTHANDLE As Integer) As Long 3. In the Form1 Click event procedure, add the following code: Open "Source" For Input As #1 ' Insert the name and path of the ' file to be decompressed, or copied. Open "Dest" For Output As #2 ' Insert the name and path of the ' destination file here. SOURCEHANDLE% = Fileattr(1,2) DESTHANDLE% = Fileattr(2,2) RETURNCODE& = Lzcopy(Sourcehandle%, Desthandle%) Close 4. From the Run menu, choose Start (ALT, R, S) to run the program. The return code will be set to the number of bytes copied or set to the following value if an error occurs: -1 invalid input handle -2 invalid output handle -3 corrupt compressed file format -4 out of space for output file -5 insufficient memory for LZFile struct -6 bad global handle -7 input parameter out of range -8 compression algorithm not recognized Additional reference words: 1.00 2.00 3.00 KBCategory: kbprg KBSubcategory: APrgOther ======================================================================== Hope this helps! kjt * SLMR 2.1a * Put the cat out? I didn't know it was on fire! --- SLMAIL v4.5a (#4334) * Origin: TEST FOR ECHO BBS - Middleburg Hts., OH (216) 234-6088 (1:157/438)