--------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00009 Date: 03/07/97 From: LAWRENCE KELLIE Time: 04:38am \/To: GARY SONNENBERG (Read 5 times) Subj: Ini files > LK> However, at this point, I am desiring a routine to sort the entries n > LK> the ini file. > I'm wondering why you need/want to sort ini file listings when you > can > always load them into a listbox and sort them there. Can't you? Without using the ReDim Preserve commands, I was loading all 40 items in a list box. If the Sorted property is off (False), the list is as they come from the ini file. If the Sorted property is True, however, all the "" ini entries are listed first.....an unworkable situation. Lawrence --- FMail 1.0g * Origin: Cala Creek Resort (in seclusion) (1:343/70.164) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00010 Date: 03/06/97 From: JIM BROADBENT Time: 08:42am \/To: CHRIS ROACH (Read 5 times) Subj: BITBLT Hi Chris; CR> You'll need to look at Bitblt for XOR... CR> BitBlt is an API (Applications Programming Interface) for the GDI CR> (Graphics Device Interface) for Windows. The GDI CR> is the graphics engine I think I have found the solution to some of my problems with "Picture Clip". I can have all of the cards on 1 bitmap and randomly access each one. Kinda slick really. I will look at BitBlt though to see how it's used. ....so many functions...so little time :-) Regards Jim --- Maximus 2.01wb * Origin: RASCAL Calgary, Alberta (403)686-2550 USR V.Everything (1:134/122) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00011 Date: 03/06/97 From: JIM BROADBENT Time: 08:30am \/To: PAUL JOHNSTON (Read 5 times) Subj: Graphic Sprites Hi Paul; JB> However, in reviewing the docs on VB4.0 the graphical PUT and GET JB> instructions seem to have disappeared. The JB> replacement seems to be JB> something called RESOURCE files (.res) holding Bit Maps of the JB> graphics. PJ> A simple solution is to save the graphics as .BMPs. PJ> Load these into picture boxes PJ> (picture1.picture=loadpicture("....bmp") ). BitBlt PJ> (see API help!) can be used like put and get. Actually I have discovered.....finally.....the best way to solve my playing card problem. I'm not sure if it was you, but someone in the echo suggested I make a "postage-stamp" type bitmap with all of the cards arranged on it. I didn't understand at the time what he meant but I have got the Proffessional version of VB4.0 and have read about "Picture Clip". This is a marvelous proceedure where you define the size of each card and can access them in a random fashion. The only thing is that I have to make up my own set of cards and am doing that now. (the kings/queens/jacks are the only hard ones but I have 1/2 made in the first day. PJ> Playing with resources requires a resource editor like Borland PJ> Resource Workshop. No resource editor is supplied PJ> with VB. Apparently this is a new way of doing things. It is very poorly documented as to how to use it. Personally....coming from a Basic programming background I find it disconserting to see all of the "C" references. Anyway, I can now proceed with my program upgrade for my old blackjack software. Regards Jim --- Maximus 2.01wb * Origin: RASCAL Calgary, Alberta (403)686-2550 USR V.Everything (1:134/122) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00012 Date: 03/07/97 From: GARY SONNENBERG Time: 07:29pm \/To: LAWRENCE KELLIE (Read 5 times) Subj: Ini files -=> Quoting Lawrence Kellie to Gary Sonnenberg <=- Hi Lawrence, > I'm wondering why you need/want to sort ini file listings when you > can > always load them into a listbox and sort them there. Can't you? LK> Without using the ReDim Preserve commands, I was loading all 40 items LK> in a list box. If the Sorted property is off (False), the list is as LK> they come from the ini file. If the Sorted property is True, however, LK> all the "" ini entries are listed first.....an unworkable situation. Okay, I see where you're going now. Could you post an example of how you use a loop with ini file entries? It seems more complex than I first thought. I'm wondering if I'm thinking straight on it. Thanks. Gary ... "Scotty, beam me up another Blue Wave message." --- * Origin: *YOPS ]I[* 3.1 GIG * RA/FD/FE RADist * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00013 Date: 03/07/97 From: GARY SONNENBERG Time: 07:36pm \/To: CHARLES CADDY (Read 5 times) Subj: Graphic specifications -=> Quoting Charles Caddy to Gary Sonnenberg <=- Hi Charles, CC> --- CC> ! Origin: Melbourne PC User Group BBS (3:632/309) I hope you didn't have anything ver important or urgent to say, because this is all I got. :-) Gary ... New Mail not found. Start whine-pout sequence? (Y/N) --- * Origin: *YOPS ]I[* 3.1 GIG * RA/FD/FE RADist * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00014 Date: 03/07/97 From: GARY SONNENBERG Time: 07:51pm \/To: EILEEN LOUISE (Read 5 times) Subj: .ini files -=> Quoting Eileen Louise to Gary Sonnenberg <=- Hi Eileen, [much cut here] EL> you can do it differently of course, but i do recommend plugging your EL> error handler into a function instead of into a call whenever EL> possible. if some of these declarations seem a little redundant, i EL> agree. but it's nice to be clear when you are plugging in a function EL> youy haven't used in three months instead of relying on your memory of EL> what you did. Thanks for all the above. It might take me some time to digest your method, but I'll get it. I may have to get back to you on this again later. Gary ... He who dies with the most TAGLINES wins! --- * Origin: *YOPS ]I[* 3.1 GIG * RA/FD/FE RADist * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00015 Date: 03/06/97 From: FRANS HERSBACH Time: 07:28am \/To: PETER DE LEEUW (Read 5 times) Subj: TextBox question (Tough problem) Special message for Peter De Leeuw! You wrote to All on Saturday, 1 March 1997 about "TextBox question (Tough problem)" PDL> How can I limit a multi-line textbox in the way that it for PDL> example only permits to enter 5 lines of text and that these lines PDL> can for example be maximum 30 characters long. That must be possible. PDL> It should be some short code that is as stand-alone as can be, Isn't that always the case?!? :-) PDL> so i can use it for 10 or so textboxes without copying the code into PDL> all the events of these boxes. Have these 10 txtboxes created as one array? PDL> Tanx for the reactions and greetings from Peter De Leeuw. You could read the contents of the listbox(es) into 1 string, and via a loop search for CHR$(13) and/or CHR$(10). While doing this you could check the length between those CHR$'s. I think this should be happening at every Change_Text event... Searching for the CHR$()'s won't take that much thime, the other may indeed cause delays while you type... Greetings, Frans FidoNet : 2:282/610.15 Internet: fjh@worldonline.nl .!. Sir, sonar reports screw noises. --- Terminate 4.00/Pro * Origin: TMQ = Ultimate Assistant for Termail... (2:282/610.15) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00016 Date: 03/07/97 From: DIK COATES Time: 05:56pm \/To: HARRY SOUDERS (Read 5 times) Subj: Printing Problem >>>> QUOTING Harry Souders to Dik Coates <<<< HS> I have no idea what you sent me, but I've got all weekend to try and HS> figure it out. From the message... I have no idea what I sent you... so hope you have fun with it... HS> By the way, have you checked out VB Tricks & Tips? HS> I found a _bunch_ of good VB stuff in it. Not sure... the VBPJ, every few months, has a supplement... 101 Tips and Tricks... Is that what you're referring to? If it is... there's about 10% of the stuff that looks pretty good... the other 90% is of little use... for the time being... Regards Dik ... This pickled tongue is so good it licks your lips for you. ___ Blue Wave/QWK v2.12 --- Shotgun v1.38a * Origin: StarLab! In Orbit, Lindsay, Ont. (705) 328-2954 (1:253/232) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00017 Date: 03/07/97 From: GARY MORRIS Time: 03:38pm \/To: CHRIS ROACH (Read 5 times) Subj: WORST CASE 3500+ FILES > Congrats..on a worst case scenerio...3500 files in one > dir.... what a > bummer to be avoided when calling file dialogs. I've never Yeah, it wasn't that bad, but I did manage to incorporate the cmdialog into the child form and.. you guessed it, it was just about as slow. This is on a network too. Unfortunately I didn't create the program, my boss did and asked me if I would include routines to check for changes in the child windows so that our users would not make mods and forget to save before leaving. That part was easy. One thing I have noticed is that there is a cmdialog.dll and I thought that it might have some calls that would speed things up. All I need to know is how to include and use it, and if so would that speed things up. If not we'll just have to deal with it or break up the DIR. Just so you'll know, this DIR is a massive collection of CNC programs for several different machines. We differentiate between them with one letter prefixes, like B10538 for BNC, V12209 for one of the milling machines, etc. It only grows bigger and bigger and we have several applications accessing this DIR frequently. Thanks for the info, I'll see if a different approach will help. L8R --- GEcho 1.11+ * Origin: The Transporter Room: 16 lines SLIP/Telnet/FTP 704/567-9513 (1:379/1) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E3C00018 Date: 03/07/97 From: MICHELE MAURO Time: 10:30am \/To: BUCKY CARR (Read 5 times) Subj: recordsource + SQL BC> ' select by acctnum BC> BC> strSQL$ = "select * from PtINSURANCES where [AcctNum] = '" & _ BC> strExistingAcctNum & "';" BC> BC> Set rsPtINS = dbMedDB.OpenRecordset(strSQL$, dbOpenDynaset) BC> BC> The above works, though it took me hours to figure out. You _don't_ want to know how long it took me to figure this one out: SQL$ = "INSERT INTO Drivers IN " & Chr$(34) & WorkingFile & Chr$(34) & _ " SELECT Drivers.* FROM Drivers" & _ " WHERE LastFirst NOT IN (SELECT * FROM Drivers IN " & _ Chr$(34) & WorkingFile & Chr$(34) & ")" All I wanted to do was find any records in the Drivers Table in one database that weren't in the Drivers Table of another database and add them. I could have Replicated the database, but that's not very feasible to keep updated for a shareware app. It looks so obviously simple now... after I spent a week figuring it out! Have fun, Michele Internet: chaos@ao.net FIDO: 1:363/340 * 42? 7.5 million years and all you can come up with is 42 RoseReader 2.52T P001948 Entered at [COMPLICATIONS] --- * Origin: Complications, Altamonte Spgs, FL 407-297-8298 (1:363/340)