--------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBF00004 Date: 07/09/97 From: LAURENT TRABATTONI Time: 09:32pm \/To: DAVE SHEA (Read 5 times) Subj: Transparency in images [ sprites with transparent background ] LT>>In VB4.0, you can use the ImageList control. Then you could >>define a mask color, for transparency. DS> There's no such thing as the ImageList control in VB4.0..... I use the 'VB 4.0 Enterprise Edition' at my job, and I have the ImageList control... a+, Laurent --- * Origin: *Fideaunette* California Girls Paris *146.286.727* (2:320/603) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBF00005 Date: 07/09/97 From: LAURENT TRABATTONI Time: 09:32pm \/To: ROD JAMES (Read 5 times) Subj: Have i missed something? Hello Rod, RJ> Can anyone tell me why it is that when I use the SaveSetting command RJ> the info RJ> is saved to the registry under the VB And VBA Program RJ> Settings key... I'd Ask Microsoft. ;) If you want to save the programs settings in your own key, you must use the API calls, as OpenReg, CLoseReg, etc... a+, Laurent --- * Origin: *Fideaunette* California Girls Paris *146.286.727* (2:320/603) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBF00006 Date: 07/09/97 From: NIELS SCHOOT Time: 02:56am \/To: ALL (Read 5 times) Subj: Who Solves This Problem? Hello All, Very hard problem: When you normally want to ask a string of a certain length from the user (without using a textbox control) you would make something like this: Sub XXX 'Sub stops here and will only go on when 15 keys are pressed. Do If KeyPressed <> 0 and CharCount < 15 Then Label1.Caption = Label1.Caption + Chr$(KeyPressed) CharCount = CharCount + 1 End If Loop Until CharCount = 15 'Rest of Sub End Sub The value in KeyPressed is filled in the Form1_KeyPress event. When a user hits a key, the KeyPressed variable is filled with the ASCII code of the character and is then displayed in the Label. When the user has pressed 15 keys, the routine ends. So the program will remain in this Do..Loop circle until it has received 15 chars and then goes on. But know the problem. If this Do..Loop cicle is running, the CPU occupation rises to 90%-100%, just when it's waiting for some simple characters! What I want is that the program stops at certain point. Only the events should be working. The program should cound the KeyPresses and when it has received 15 chars, it should continue the program. Something like this. Sub XXX 'Sub stops here, until it's continued with the ContinueProgram Command InputKeysNeeded = 15 HaltProgram '(HaltProgram is a fictional command wich stops the program) 'Rest of the Sub End Sub The Form1_KeyPress event should look like this If CharCount < 15 then Label1.Caption = Label1.Caption + Chr$(KeyAscii) Else ContinueProgram '(Also fictional, which continues Program.) End If Does anybody know what I mean and have a solution to this problem?? What I currently use to solve the problem: Sub XXX 'Load new form, which will stop this sub until form2 is closed. Form2.Show 1 'Window closed, continue sub. End Sub Form2 is just an empty form which has only a keypress event. The form will close when 15 keypresses have been received. The Form2_KeyPress event looks like this If CharCount < 15 then Label1.Caption = Label1.Caption + Chr$(KeyAscii) Else Form2.Hide End If This solution only uses about 2% of the CPU occupation. Any idea's? Regards Niels Schoot Regards / groetjes, Niels Email: niels.schoot@wpaper.iwg.nl --- FMailX32 1.22 * Origin: Whitepaper BBS ++31-575-565697 - Mail for everyone (2:2802/281) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBG00000 Date: 07/10/97 From: BRANDON BURCHFIELD Time: 08:46am \/To: LILA GODEL (Read 5 times) Subj: Re: Load Notepad With Fil ...{Lila Godel} said this to {Brandon Burchfield}...`0 LG> This will work for opening any file, but I would like to open files I LG> right click on in Windows 95's explorer (the equivalent of Windows LG> file manager.) Hmmmm, I see. I do not have WIN95, so I am not familiar with it. I do use File Manager on a rgular basis. What I recommend you do to get around this is put some Drive + Directory + File Listing Boxes. That way you would have a built in FIle Managing device. And then you can set it up so that when you click(which may also be a right click) you can do your desired operation. If you would liek more info or even an example then send email to "chodeman@netxn.com" and I will see what I can do to assist you. In the email me tell what all you desire to accomplish. Thanks, BbB --- Telegard v3.02/mL * Origin: The Outer Limits 805-366-8566 (1:210/58) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBG00001 Date: 07/09/97 From: DAVE SHEA Time: 06:35pm \/To: KURT J. TISCHER (Read 5 times) Subj: Chessboard in VB3.1 ? KJT> Rather lengthy, but it should get you going. Hope it helps. Yeah, thanks a lot. =o) * OLX 2.1 TD * No Tagline Available due to HD crash. Gimme a week. --- Maximus 2.02 * Origin: Digital Encounters * Kamloops BC Canada 250/374-6168 (1:353/710) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBG00002 Date: 07/03/97 From: MARCEL TUIT Time: 09:38am \/To: ALL (Read 5 times) Subj: Midi in vb4 Hi, I'm a 15 years old boy and I like programming in VB and making music with midi. Now I ask: How can I play a midi file in Visual Basic 4.0 32-bit Prof Edition without using the Multimedia control or by using the media player. --- * Origin: BBS Brainstorm, the BEST place for BASIC progams (2:280/711@FidoNet) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBH00000 Date: 07/10/97 From: BUCKY CARR Time: 06:10pm \/To: EILEEN LOUISE (Read 5 times) Subj: hitchikers guide EL> Hopefully we will see it as an ADO object in VB6. This is how you twiddle those of us of limited knowledge. What's an ADO? Also, you are talking about VB6 already? Whew. Saw a comment about Win97 in Computer Shopper the other day, too. Things move so fast.... --- PPoint 2.00 * Origin: Vanishing Point 7198460140 Trinidad CO (1:15/7.1) --------------- ** A related thread FOLLOWS this message. FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBHB1238 Date: 07/13/97 From: TIMOTHY DUEHRING Time: 07:20am \/To: BUCKY CARR (Read 5 times) Subj: R: hitchikers guide Bucky, BC> Whew. Saw a comment about Win97 in Computer Shopper the other day, too. BC>Things move so fast.... Not until 98 Timothy Duehring tduehrin@execpc.com FIDO=1:154/280 ___ * UniQWK #5098* A smile CAN make my day...but it usually takes money or sex. --------------- >>>>>>>>>>>>>>>>>>>>>> LAST Message In Thread <<<<<<<<<<<<<<<<<<<<<< FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBH00001 Date: 07/11/97 From: BUCKY CARR Time: 01:36pm \/To: RICK PEDLEY (Read 5 times) Subj: PRINTER LESSONS 101 RP> I think you have been exposed to too much isofluorane over the years RP> ;-) You know the lingo? (and you are probably right) --- PPoint 2.00 * Origin: Vanishing Point 7198460140 Trinidad CO (1:15/7.1) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: EBH00002 Date: 07/11/97 From: MIKE SCIROCCO Time: 09:13pm \/To: NIELS SCHOOT (Read 5 times) Subj: Who Solves This Problem? NS> But know the problem. If this Do..Loop cicle is running, the NS> CPU occupation rises to 90%-100%, just when it's waiting for some NS> simple characters! I'm not sure I entirely understand what you are attempting to do here. Here is what I think you're asking for: 1. create a static variable to hold the string of characters entered in the textbox. On a KeyPress event add entered character to string. If it eaches 15 characters (use Len(String$) to see how long it is) and is acceptable, do the next event...form load or whatever. 2. or have an 'Accept Entry' button which they can click after entering any number of characters. 3. let the user enter or leave the textbox as they wish. Don't use any loop. Just let them enter anything they want ( a) and click the 'Accept' button any time they want, or b) if the Len(String$)=15 and String$ is acceptable then) continue. Have a message box with appropriate messages which can come up to tell them why the entry is inadequate if it is...e.g. too short, wrong entry etc. 4. is this what you're looking for? a way to avoid a loop and still react to the string in the right way? ms --- Squish/386 v1.11 * Origin: That's The Spirit BBS - (408) 336-5532 (1:216/511)