FJ>Buffer$ must an Longint :-((((( -------------------- | FJ>Please, please and once more please help !!! ;-))))) Well, I'm not using VB32 bit. I'm using 3.0, so I don't have any info on the 32bit version of this API. You could try calling the Miscrosoft Download Service at (206) 936-6735 and see if they have the 32 bit knowledge base available there. The above code came from the 16bit knowledge base. You could also try taking a look at www.microsoft.com and see if they have it there. Sorry, it didn't work for ya... Kurt * SLMR 2.1a * --T-A+G-L-I+N-E--+M-E-A+S-U-R+I-N-G+--G-A+U-G-E-- --- 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: E2F00003 Date: 02/09/97 From: FRANK SCHNEIDER Time: 11:03pm \/To: FRANCOIS ROY (Read 4 times) Subj: VB3 - which Windows? Hallo Francois, FS> Declare Function GetVersion& Lib "Kernel" () FS> Declare Function GetWinFlags& Lib "Kernel" () FR> Thanks! nada.. FR> I ended up doing the NT test by looking for the environment FR> variable OS="Windows_NT" which appears to be set that way on all FR> NT systems, but, somehow, I trust your GetWinFlags more FR> than I do an environment variable that can be modified... that's the problem - wouldn't rely on that. to avoid it, use the solution I posted.. FR> This problem also showed me how silly Bill's programmers can get FR> at times: when I actually looked at the result of GetVersion&() on FR> a NT system, it turned out that _all_ NT systems, even NT 4.0, FR> return the Windows version as 3.10 and the Dos version as 5.00. Things get even worse - how do you detect if NT 3.1, 3.5, 3.51 or 4.0 is your platform? There might be a solution in the high bits of getwinflags.. FR> Yet, the same call with the Win32 API returns the correct Windows FR> version. How do you get there from vb3? Gruss, Frank. --- * Origin: armageddon (2:2444/5011) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E2F00004 Date: 02/09/97 From: JIM BROADBENT Time: 10:34pm \/To: RICHARD GLIDDEN (Read 4 times) Subj: bullet-proof problem solved Hi Richard; Well I took my own advice and created this proceedure to check for non-numeric input....as well as checking for misplaced commas. >-------------------------cut here---------------------------< Sub Checknumeric(strTest, iFlag_exit) ' Purpose: to check whether or not a text box ' input is a valid numeric expression. ' strTest is the string to be tested ' iFlag_exit is the flag indicating whether strTest is ' numeric (=0) or not numeric (=1) ' the main check is via the isNumeric function. However, unless a comma ' appears at the start of an expression, they are ignored. Therefore, ' the rest of the proceedure checks for proper placement of commas if ' they are shown to exist. If Not IsNumeric(strTest) Then strMsg = "Data input is not NUMERIC" MsgBox strMsg, vbExclamation, "Invalid Data" iFlag_exit = 1 Exit Sub End If ' Testing for presence and improper use of commas. ' First determine if a comma is present in the .Text expression. ' If this test proves false then the number is definately numeric. ' If the test is true then one must see that all commas are properly ' located. iComma = InStr(strTest, ",") If iComma > 0 Then ' at least one comma detected ' check for a decimal point iDecimal = InStr(strTest, ".") ' check for comma to the right of the decimal place If iDecimal > 0 Then ' a decimal point detected If InStr(iDecimal, strTest, ",") > 0 Then strMsg = "Comma placed right of the decimal place" MsgBox strMsg, vbExclamation, "Invalid Data" iFlag_exit = 1 Exit Sub End If End If ' check for improper positioning of a comma to the left of the decimal ' by checking each position to the left of the decimal point and ' determine if a comma is in the correct location if it is present. ' if there is no decimal then must start at the begining of the string If iDecimal = 0 Then iDecimal = Len(strTest) + 1 iCommacount = 0 For I = (iDecimal - 1) To 1 Step -1 iCommacount = iCommacount + 1 ' Test if a comma >>is<< present but not at a thousand position If Mid(strTest, I, 1) = "," And iCommacount <> 4 Then strMsg = "Improper positioning of comma to the " strMsg = strMsg + "left of the decimal place" MsgBox strMsg, vbExclamation, "Invalid Data" iFlag_exit = 1 Exit Sub End If ' Test if a comma >>is not<< present at a thousand position If Mid(strTest, I, 1) <> "," And iCommacount = 4 Then strMsg = "Improper positioning of comma to the " strMsg = strMsg + "left of the decimal place" MsgBox strMsg, vbExclamation, "Invalid Data" iFlag_exit = 1 Exit Sub End If ' reset iCommacount for next thousand test If iCommacount = 4 Then iCommacount = 0 Next I End If iFlag_exit = 0 ' no problems with the data End Sub >----------------------------------cut here----------------------< --- Maximus 2.01wb * Origin: RASCAL Calgary, Alberta (403)686-2550 USR V.Everything (1:134/122) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E2F00005 Date: 02/09/97 From: JAN ARKESTEIJN Time: 10:29am \/To: EUGENE KALININ (Read 4 times) Subj: may be stupid questions.. 08 Feb 97, Eugene Kalinin of 2:5030/203.55 wrote to All EK> I have big file(from 256kb to 1024kb) and it's contains EK> strings EK> (all string has len=100(strings contains diff simbols)) and EK> i'm trying to use line input to get information. Offcouse EK> it's work but really slowly(i have only 3 If..then with some EK> Mid$ and some flags).so i nede speed. First my idea was put EK> all file into memory(mem not so big problem today) but i do EK> not know how to get so big array of strings(1)..or i need EK> faster function for reading file(2). EK> Help me with Your suggestions plz. Hi Eugene, May be the following is of some help for (1) : Normally arrays in Vb are limeted to 64 kB. . . but. . you can define huge _FIXED LENGTH_ string arrays, up to 1 MB in windows standard-mode and 64 MB in windows enhanced-mode. You can do it just like this : Dim array(10000) as String * 100 for an array with 10,000 elements each having a length 100. See you in Cyberspace, Jan A. --- MBM v4.10 * Origin: MBM v3 Turbo Vision (2:500/155.6528) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E2F00006 Date: 02/10/97 From: GARY SONNENBERG Time: 11:30pm \/To: DIK COATES (Read 4 times) Subj: Beginner VB40 -=> Quoting DIK COATES to JEFFREY LOCKE <=- Hi Dik, >>>> QUOTING Jeffrey Locke to Gary Sonnenberg <<<< > Load form1 > Then when you click that button, you should see your first form. JL> Tried that, didn't do a thing! DC> Loading it does not make it visible... you may have to set DC> frmName.show equal to 1... Duh! Thanks, Dik. Sorry, Jeffrey. Gary ... ARRRRRGGGHHH!!!! ... Tension breaker, had to be done. --- * Origin: *YOPS ]I[* 3.1 GIG * RA/FD/FE RADist * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E2F00007 Date: 02/10/97 From: JEFFREY LOCKE Time: 05:22pm \/To: BRIAN SCHWARTZ (Read 4 times) Subj: Beginner VB40 > JL> > Double click on the first button (at design time, not while running > JL> > the program), and in the code window that pops up, enter: > JL> > Form1.Show > JL> > or > JL> > Form1.Show 1 > JL>Tried this, got an error that said "Run time error '424'; object > required." any ideas? Appreciate the help. > Run it again, and when the error appears, hit F1. You'll get VB's help > for that error. Only thing I can think of other than that is to make sure > you spelled the form name right. Well after practicing with some programs from Peter Norton's Guide to VB4.0, I went back to my program and entered Load frmname, then frmname.show for each of the icons and for some strange reason it worked this time. I know I've tried this before and it didn't work. Oh well, why question success! Thanks for all the help. --- FMailX32 1.22+ * Origin: The Key BBS -=> Arlington, Texas (817/557-9638) (1:130/7) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E2F00008 Date: 02/10/97 From: JEFFREY LOCKE Time: 05:24pm \/To: GARY SONNENBERG (Read 4 times) Subj: Beginner VB40 > Hi Jeffrey...me again, >> Form1.Show >> or >> Form1.Show 1 >> If you use the second format, the user won't be able to click on any of >> the other buttons until Form1 is hidden or unloaded. > JL> Tried this, got an error that said "Run time error '424'; object > JL> required." any ideas? Appreciate the help. > Show is supposed to load and show the form if it's available. What is > the name of your first form as found in the properties box? Sounds like ou > maybe aren't using the right name if VB couldn't find the form object > at all. Well after practicing with some programs from Peter Norton's Guide to VB4.0, went back to my program and entered Load frmname, then frmname.show for each of the icons and for some strange reason it worked this time. I know I've tried this before and it didn't work. Oh well, why question success! Thanks for all the help. --- FMailX32 1.22+ * Origin: The Key BBS -=> Arlington, Texas (817/557-9638) (1:130/7) --------------- FIDO MESSAGE AREA==> TOPIC: 178 VISUAL BASIC Ref: E2F00009 Date: 02/10/97 From: JEFFREY LOCKE Time: 05:25pm \/To: DIK COATES (Read 4 times) Subj: Beginner VB40 >>>>> QUOTING Jeffrey Locke to Gary Sonnenberg <<<< >> Load form1 >> Then when you click that button, you should see your first form. > JL> Tried that, didn't do a thing! > Loading it does not make it visible... you may have to set frmName.show > equal to 1... Well after practicing with some programs from Peter Norton's Guide to VB4.0, went back to my program and entered Load frmname, then frmname.show for each of the icons and for some strange reason it worked this time. I know I've tried this before and it didn't work. Oh well, why question success! Thanks for all the help. --- FMailX32 1.22+ * Origin: The Key BBS -=> Arlington, Texas (817/557-9638) (1:130/7)