|
GetCoordinatesFromStr
(XAPI2000)
Deklaration VB
6.0
Function GetCoordinatesFromStr (ByVal sText As String, ByRef
X As Long, ByRef Y As Long) As Boolean
Deklaration VB.NET
Function GetCoordinatesFromStr (ByVal sText As String, ByRef
X As Integer, ByRef Y As Integer) As Boolean
Beskrivning
Hämtar koordinater (X,Y) från en textsträng. Parametern sText
är en inparameter som innehåller en textsträng med koordinater.
Koordinaterna returneras som heltal via utparametrarna X
och Y.
Koordinaterna i textsträngen
(dvs innehållet i sText) ska lagras efter följande
princip:
"X,Y"
där X och Y ska ersättas med
numeriska värden. Koordinaterna kan vara omslutna med en av
följande parentestyper: "[ ]", "{ }", "( )". Nedan finns några
exempel på hur koordinaterna kan anges i textsträngen:
"100,20"
"[100,20]"
"{100,20}"
"(100,20)"
Det är också möjligt att lägga in ett plus- eller minustecken
före det numeriska värden. Några exempel:
"100,-20"
"[+100,-20]"
"{-100,-20}"
"(-100,+20)"
De två talen i strängen med koordinater ska alltid vara
separerade med ett kommatecken.
Returvärden
Funktionen returnerar True om allt gått bra eller
False om det blivit något fel och inga koordinater kan
erhållas från textsträngen. |
Exempel
Nedanstående exempel hämtar
koordinaterna från textsträngen S och lagrar dem i heltalsvariablerna X
och Y.
Dim bOK As Boolean
Dim X As Long
Dim Y As Long
Dim S As String
...
// Följande funktionsanrop ger X = 10, Y = 15
S = "{10,15}"
bOK = GetCoordinatesFromStr(S, X, Y)
...
// Följande funktionsanrop ger X = 10, Y = -15
S = "{+10,-15}"
bOK = GetCoordinatesFromStr(S, X, Y)
|
