TheSwamp

Code Red => VB(A) => Topic started by: Kheilmann on November 09, 2006, 02:03:08 PM

Title: .Keyword not returning the whole string selected
Post by: Kheilmann on November 09, 2006, 02:03:08 PM

Why does the following return only the 1st # of each string?  "4x4x4" gets put in no matter which one I select...

With ThisDrawing.Utility
    .InitializeUserInput 1, "4x4x4 4x4x3 4x4x2"
    strPartSize = .GetKeyword(vbCr & "Pipe Sizes: [4x4x4/4x4x3/4x4x2]: ")
End With

And this one returns the whole string? 

With ThisDrawing.Utility
    .InitializeUserInput 1, ".5 .75 1 1.25 1.5 2"
    PipeSize = .GetKeyword(vbCr & "Enter Pipe Size: [.5/.75/1/1.25/1.5/2]: ")
End With

Thanks In Advance for your help.

Title: Re: .Keyword not returning the whole string selected
Post by: Fatty on November 09, 2006, 03:52:10 PM

Kevin,
Not sure about if this will be help but
I like to use something like this:

Code: [Select]

With ThisDrawing.Utility
    .InitializeUserInput 1, "4 3 2"
    strPartSize = .GetKeyword(vbCr & "Pipe Sizes: (4x4x[4]/4x4x[3]/4x4x[2]): ")
End With
Select Case strPartSize
Case Is = "4"
strPartSize = "4x4x4"
Case Is = "3"
strPartSize = "4x4x3"
Case Is = "2"
strPartSize = "4x4x2"
End Select

~'J'~