--------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECJ00004 Date: 08/12/97 From: JEFF HUNTER Time: 01:04pm \/To: JASON JURIC (Read 5 times) Subj: API's JJ> Would anyone happen to know a Windows API call which would allow me to extra JJ> ICONS from EXE/ICO/DLL (and possibly ICA) files? JJ> Or if they know another way of doing it please tell me :) Get a copy of Spy++ (it comes with MS Developer's Studio as well as VC++). You can steal icons from EXE's and DLL's all day long. --- SLMR 2.1a -+- OLMS 2.5 UNREG --- GEcho 1.00 * Origin: &TOTSE -> Raw Data for Raw Nerves <- 510/935-5845 (1:161/211) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECJ00005 Date: 08/14/97 From: STEVEN LAGER Time: 11:24am \/To: BUCKY CARR (Read 5 times) Subj: VB4-16 with VB5 =========================================================================== Originally From: Bucky Carr Originally To : Jeff Hunter Message Subject: VB4-16 with VB5 =========================================================================== BC> I was reading through the MSDN stuff I got a couple of weeks ago, BC> including BC> the "What's new in VB5" info, and am not sure I'm sure yet. Eileen BC> said BC> it is worth the upgrade, I think. Bucky - I've been using VB5 for quite awhile now after moving up from VB4 and while you may lose the ability to create 16bit apps (no loss in my opinion) the trade-off is worth it. just my two cents worth. Steven Lager [ Sysop - On-Site Consulting ] 1:253/234@fidonet 100:1019/1@gds.net --- Msged/386 4.10 * Origin: oO Mail H.Q. for the NEW GDS EchoMail Network Oo (1:253/234@fidonet.org) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECJ00006 Date: 08/14/97 From: STEVEN LAGER Time: 11:27am \/To: CHARLES P CADDY (Read 5 times) Subj: BBS Software =========================================================================== Originally From: Charles P Caddy Originally To : Val Message Subject: BBS Software =========================================================================== CPC> I don't know If there is any popular ones. But I know i have made my CPC> own, private use, BBS Client and a BBS Server... Charles, What message base do you use on the package you created. The reason I ask is that I have been wanting to write a Sysop Mail reader for some time (for Win95) but I have been unable to find any of the message base structures in anything other than Pascal or C. Steven Lager [ Sysop - On-Site Consulting ] 1:253/234@fidonet 100:1019/1@gds.net --- Msged/386 4.10 * Origin: oO Mail H.Q. for the NEW GDS EchoMail Network Oo (1:253/234@fidonet.org) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECJ00007 Date: 08/14/97 From: PAUL SMITH Time: 03:53am \/To: ALEXANDRE PHILIPPE (Read 5 times) Subj: DELETE file in VB Comment Ca Va Alexandre AP> How I can do to delete a file in VB To avoid a crash 1. open the file in RANDOM mode 2. close the file 3. kill the file As a routine in your library: SUB EraseFile(file$) F% = FREEFILE OPEN file$ FOR RANDOM AS F% CLOSE F% KILL File$ END SUB call with: EraseFile "C:\DUMMY.FIL" Reason: Killing a file that doesn't exist will crash your program. Opening the file in random mode will create it if it doesn't exist, thereby preventing a crash. ... --- VBD-QwkMail v1.0 (c) Great River Computing Svcs. All Rights Reserved. --- QScan/PCB v1.19b / 01-0154 * Origin: MicroLink BBS * Dinuba, CA 209-591-8753 (1:214/80) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECJ00008 Date: 08/14/97 From: PAUL SMITH Time: 03:53am \/To: PEDRO A. GIL (Read 5 times) Subj: hi! Hola Pedro, ************************************************************************ * Estamos aqui... Pero ahora usted ha desaparecido... * ************************************************************************ Burlington, Iowa E.U. Luego ... --- VBD-QwkMail v1.0 (c) Great River Computing Svcs. All Rights Reserved. --- QScan/PCB v1.19b / 01-0154 * Origin: MicroLink BBS * Dinuba, CA 209-591-8753 (1:214/80) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECJ00009 Date: 08/14/97 From: PAUL SMITH Time: 03:53am \/To: VINCENT WONG (Read 5 times) Subj: keypress function VW ~I have a small problem that I can't figure out as yet... VW ~...to accept the following: -,.,1,2,3,4,5,6,7,8,9,0 and backspace. ---------------------------------8<----------------------------- SUB Keypress() OK$ = "-.1234567890" + CHR$(8) IF INSTR(OK$, STR$(KeyAscii) THEN Process correct input here.... ELSE Rtn% = MSGBOX( "Unacceptable input Bozo",1,"WARNING") SELECT CASE Rtn% CASE 1: Do this CASE 2: Do That CASE ELSE: Auto Fall Thru END SELECT END IF END SUB NOT TRUE CODE ----- EVALUATE FOR ERRORS/SUITABILITY & MODIFY --------------------------------->8------------------------------ ... --- VBD-QwkMail v1.0 (c) Great River Computing Svcs. All Rights Reserved. --- QScan/PCB v1.19b / 01-0154 * Origin: MicroLink BBS * Dinuba, CA 209-591-8753 (1:214/80) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECK00000 Date: 08/14/97 From: BRANDON BURCHFIELD Time: 12:15pm \/To: ALEXANDRE PHILIPPE (Read 5 times) Subj: Re: DELETE file in VB ...{Alexandre Philippe} said this to {All}... AP> How I can do to delete a file in VB and also put an data base control I believe the proper way to delete a file in VB is with the KILL function. You pass in the filename(preferrably with full path) and it will delete it. I cannot offer any guidance ont he second question, SOrry! LATER BbB --- Telegard v3.02/mL * Origin: The Outer Limits BBS 805-366-8566 Bakersfield,CA (1:210/58) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: ECK00001 Date: 08/14/97 From: KURT J. TISCHER Time: 09:02pm \/To: VINCENT WONG (Read 5 times) Subj: keypress function Try this: Sub Text1_KeyPress(KeyAscii As Integer) If Not IsNumeric(Text1.Text) Then DoWhatever End If End Sub kjt * SLMR 2.1a * I've used Basic so long, my brain has gonesub permanently --- SLMAIL v4.5a (#4334) * Origin: TEST FOR ECHO BBS - Middleburg Hts., OH (216) 234-6088 (1:157/438)