1 | ' com/variant.ab |
---|
2 | |
---|
3 | '#require <com/index.ab> |
---|
4 | |
---|
5 | Namespace ActiveBasic |
---|
6 | Namespace COM |
---|
7 | |
---|
8 | Class Variant |
---|
9 | Implements System.IDisposable, System.ICloneable |
---|
10 | Public |
---|
11 | Sub Variant() |
---|
12 | VariantInit(v) |
---|
13 | End Sub |
---|
14 | |
---|
15 | Sub Variant(ByRef y As VARIANT) |
---|
16 | VariantInit(v) |
---|
17 | VariantCopy(v, y) |
---|
18 | End Sub |
---|
19 | |
---|
20 | ' 仮 |
---|
21 | Sub Variant(y As Variant) |
---|
22 | VariantInit(v) |
---|
23 | VariantCopy(v, y.v) |
---|
24 | End Sub |
---|
25 | |
---|
26 | Sub Variant(n As SByte) |
---|
27 | v.vt = VT_I1 |
---|
28 | SetByte(VarPtr(v.val), n) |
---|
29 | End Sub |
---|
30 | |
---|
31 | Sub Variant(n As Byte) |
---|
32 | v.vt = VT_UI1 |
---|
33 | SetByte(VarPtr(v.val), n) |
---|
34 | End Sub |
---|
35 | |
---|
36 | Sub Variant(n As Integer) |
---|
37 | v.vt = VT_I2 |
---|
38 | SetWord(VarPtr(v.val), n) |
---|
39 | End Sub |
---|
40 | |
---|
41 | Sub Variant(n As Word) |
---|
42 | v.vt = VT_UI2 |
---|
43 | SetWord(VarPtr(v.val), n) |
---|
44 | End Sub |
---|
45 | |
---|
46 | Sub Variant(n As Long) |
---|
47 | v.vt = VT_I4 |
---|
48 | SetDWord(VarPtr(v.val), n) |
---|
49 | End Sub |
---|
50 | |
---|
51 | Sub Variant(n As DWord) |
---|
52 | v.vt = VT_UI4 |
---|
53 | SetDWord(VarPtr(v.val), n) |
---|
54 | End Sub |
---|
55 | |
---|
56 | Sub Variant(n As Int64) |
---|
57 | v.vt = VT_I8 |
---|
58 | SetQWord(VarPtr(v.val), n) |
---|
59 | End Sub |
---|
60 | |
---|
61 | Sub Variant(n As QWord) |
---|
62 | v.vt = VT_UI8 |
---|
63 | SetQWord(VarPtr(v.val), n) |
---|
64 | End Sub |
---|
65 | |
---|
66 | Sub Variant(n As Single) |
---|
67 | v.vt = VT_R4 |
---|
68 | SetSingle(VarPtr(v.val), n) |
---|
69 | End Sub |
---|
70 | |
---|
71 | Sub Variant(n As Double) |
---|
72 | v.vt = VT_R8 |
---|
73 | SetDouble(VarPtr(v.val), n) |
---|
74 | End Sub |
---|
75 | |
---|
76 | Sub Variant(bs As BString) |
---|
77 | v.vt = VT_BSTR |
---|
78 | SetPointer(VarPtr(v.val), bs.Copy()) |
---|
79 | End Sub |
---|
80 | |
---|
81 | Sub Variant(unk As IUnknown) |
---|
82 | If ObjPtr(unk) <> 0 Then unk.AddRef() |
---|
83 | v.vt = VT_UNKNOWN |
---|
84 | SetPointer(VarPtr(v.val), ObjPtr(unk)) |
---|
85 | End Sub |
---|
86 | |
---|
87 | Sub Variant(disp As IDispatch) |
---|
88 | If ObjPtr(disp) <> 0 Then disp.AddRef() |
---|
89 | v.vt = VT_DISPATCH |
---|
90 | SetPointer(VarPtr(v.val), ObjPtr(disp)) |
---|
91 | End Sub |
---|
92 | /* |
---|
93 | Sub Variant(b As VARIANT_BOOL) |
---|
94 | v.vt = VT_BOOL |
---|
95 | SetWord(VarPtr(v.val), b) |
---|
96 | End Sub |
---|
97 | */ |
---|
98 | Sub Variant(b As Boolean) |
---|
99 | v.vt = VT_BOOL |
---|
100 | If b Then |
---|
101 | SetWord(VarPtr(v.val), VARIANT_TRUE) |
---|
102 | Else |
---|
103 | SetWord(VarPtr(v.val), VARIANT_FALSE) |
---|
104 | End If |
---|
105 | End Sub |
---|
106 | |
---|
107 | Sub Variant(s As String) |
---|
108 | v.vt = VT_BSTR |
---|
109 | If IsNothing(s) Then |
---|
110 | initWithStr(0) |
---|
111 | Else |
---|
112 | initWithStr(0) |
---|
113 | End If |
---|
114 | End Sub |
---|
115 | |
---|
116 | Sub Variant(s As BSTR) |
---|
117 | initWithStr(s) |
---|
118 | End Sub |
---|
119 | Private |
---|
120 | Sub initWithStr(bs As BSTR) |
---|
121 | v.vt = VT_BSTR |
---|
122 | If bs = NULL Then |
---|
123 | SetPointer(VarPtr(v.val), SysAllocStringLen(0, 0)) |
---|
124 | Else |
---|
125 | SetPointer(VarPtr(v.val), SysAllocStringByteLen(bs As PCSTR, SysStringByteLen(bs))) |
---|
126 | End If |
---|
127 | End Sub |
---|
128 | |
---|
129 | Public |
---|
130 | |
---|
131 | Sub Variant(n As Currency) |
---|
132 | v.vt = VT_CY |
---|
133 | SetQWord(VarPtr(v.val), n.Cy As QWord) |
---|
134 | End Sub |
---|
135 | |
---|
136 | Sub Variant(n As Decimal) |
---|
137 | Dim p = VarPtr(v) As *DECIMAL |
---|
138 | p[0] = n.Dec |
---|
139 | v.vt = VT_DECIMAL |
---|
140 | End Sub |
---|
141 | |
---|
142 | Sub ~Variant() |
---|
143 | Dispose() |
---|
144 | End Sub |
---|
145 | |
---|
146 | Sub Dispose() |
---|
147 | VariantClear(v) |
---|
148 | v.vt = VT_EMPTY |
---|
149 | End Sub |
---|
150 | |
---|
151 | Sub Clear() |
---|
152 | Dispose() |
---|
153 | End Sub |
---|
154 | |
---|
155 | Virtual Function Clone() As Variant |
---|
156 | Clone = New Variant(This) |
---|
157 | End Function |
---|
158 | |
---|
159 | Function Copy() As VARIANT |
---|
160 | Variant.Copy(Copy, v) |
---|
161 | End Function |
---|
162 | |
---|
163 | Function Detach() As VARIANT |
---|
164 | Variant.Move(Detach, v) |
---|
165 | End Function |
---|
166 | |
---|
167 | Static Function CopyFrom(ByRef from As VARIANT) As Variant |
---|
168 | CopyFrom = New Variant |
---|
169 | Variant.Copy(CopyFrom.v, from) |
---|
170 | End Function |
---|
171 | |
---|
172 | Static Function Attach(ByRef from As VARIANT) As Variant |
---|
173 | Attach = New Variant |
---|
174 | Variant.Move(Attach.v, from) |
---|
175 | End Function |
---|
176 | |
---|
177 | Static Function CopyIndirectFrom(ByRef from As VARIANT) As Variant |
---|
178 | CopyIndirectFrom = New Variant |
---|
179 | VariantCopyInd(CopyIndirectFrom.v, from) |
---|
180 | End Function |
---|
181 | |
---|
182 | 'Operators |
---|
183 | /* |
---|
184 | Function Operator ^(y As Variant) As Variant |
---|
185 | Dim ret = New Variant |
---|
186 | Windows.ThrowIfFailed(VarPow(This.v, y.v, ret.v)) |
---|
187 | Return ret |
---|
188 | End Function |
---|
189 | */ |
---|
190 | Function Operator +() As Variant |
---|
191 | ' Return Clone() |
---|
192 | End Function |
---|
193 | |
---|
194 | Function Operator -() As Variant |
---|
195 | Dim ret = New Variant |
---|
196 | Windows.ThrowIfFailed(VarNeg(This.v, ret.v)) |
---|
197 | Return ret |
---|
198 | End Function |
---|
199 | |
---|
200 | Function Operator *(y As Variant) As Variant |
---|
201 | Dim ret = New Variant |
---|
202 | Windows.ThrowIfFailed(VarMul(This.v, y.v, ret.v)) |
---|
203 | Return ret |
---|
204 | End Function |
---|
205 | |
---|
206 | Function Operator /(y As Variant) As Variant |
---|
207 | Dim ret = New Variant |
---|
208 | Windows.ThrowIfFailed(VarDiv(This.v, y.v, ret.v)) |
---|
209 | Return ret |
---|
210 | End Function |
---|
211 | |
---|
212 | Function Operator \(y As Variant) As Variant |
---|
213 | Dim ret = New Variant |
---|
214 | Windows.ThrowIfFailed(VarIdiv(This.v, y.v, ret.v)) |
---|
215 | Return ret |
---|
216 | End Function |
---|
217 | |
---|
218 | Function Operator Mod(y As Variant) As Variant |
---|
219 | Dim ret = New Variant |
---|
220 | Windows.ThrowIfFailed(VarMod(This.v, y.v, ret.v)) |
---|
221 | Return ret |
---|
222 | End Function |
---|
223 | |
---|
224 | Function Operator +(y As Variant) As Variant |
---|
225 | Dim ret = New Variant |
---|
226 | Windows.ThrowIfFailed(VarAdd(This.v, y.v, ret.v)) |
---|
227 | Return ret |
---|
228 | End Function |
---|
229 | |
---|
230 | Function Operator -(y As Variant) As Variant |
---|
231 | Dim ret = New Variant |
---|
232 | Windows.ThrowIfFailed(VarSub(This.v, y.v, ret.v)) |
---|
233 | Return ret |
---|
234 | End Function |
---|
235 | |
---|
236 | Function Operator &(y As Variant) As Variant |
---|
237 | Dim ret = New Variant |
---|
238 | Windows.ThrowIfFailed(VarCat(This.v, y.v, ret.v)) |
---|
239 | Return ret |
---|
240 | End Function |
---|
241 | |
---|
242 | Function Operator And(y As Variant) As Variant |
---|
243 | Dim ret = New Variant |
---|
244 | Windows.ThrowIfFailed(VarAnd(This.v, y.v, ret.v)) |
---|
245 | Return ret |
---|
246 | End Function |
---|
247 | |
---|
248 | Function Operator Or(y As Variant) As Variant |
---|
249 | Dim ret = New Variant |
---|
250 | Windows.ThrowIfFailed(VarOr(This.v, y.v, ret.v)) |
---|
251 | Return ret |
---|
252 | End Function |
---|
253 | |
---|
254 | Function Operator Xor(y As Variant) As Variant |
---|
255 | Dim ret = New Variant |
---|
256 | Windows.ThrowIfFailed(VarXor(This.v, y.v, ret.v)) |
---|
257 | Return ret |
---|
258 | End Function |
---|
259 | |
---|
260 | Function Operator Not() As Variant |
---|
261 | Dim ret = New Variant |
---|
262 | Windows.ThrowIfFailed(VarNot(This.v, ret.v)) |
---|
263 | Return ret |
---|
264 | End Function |
---|
265 | |
---|
266 | Static Function Imp(x As Variant, y As Variant) As Variant |
---|
267 | Dim ret = New Variant |
---|
268 | Windows.ThrowIfFailed(VarImp(x.v, y.v, ret.v)) |
---|
269 | Return ret |
---|
270 | End Function |
---|
271 | |
---|
272 | Static Function Eqv(x As Variant, y As Variant) As Variant |
---|
273 | Dim ret = New Variant |
---|
274 | Windows.ThrowIfFailed(VarEqv(x.v, y.v, ret.v)) |
---|
275 | Return ret |
---|
276 | End Function |
---|
277 | |
---|
278 | Function Abs() As Variant |
---|
279 | Abs = New Variant |
---|
280 | Windows.ThrowIfFailed(VarAbs(This.v, Abs.v)) |
---|
281 | End Function |
---|
282 | |
---|
283 | Function Fix() As Variant |
---|
284 | Fix = New Variant |
---|
285 | Windows.ThrowIfFailed(VarFix(This.v, Fix.v)) |
---|
286 | End Function |
---|
287 | |
---|
288 | Function Int() As Variant |
---|
289 | Int = New Variant |
---|
290 | Windows.ThrowIfFailed(VarInt(This.v, Int.v)) |
---|
291 | End Function |
---|
292 | |
---|
293 | Function Round(cDecimals = 0 As Long) As Variant |
---|
294 | Round = New Variant |
---|
295 | Windows.ThrowIfFailed(VarRound(This.v, cDecimals, Round.v)) |
---|
296 | End Function |
---|
297 | |
---|
298 | ' ThrowIfFailedを使っていないことに注意 |
---|
299 | Static Function Compare(x As Variant, y As Variant, lcid As LCID, flags As DWord) As HRESULT |
---|
300 | Return VarCmp(removeNull(x).v, removeNull(y).v, lcid, flags) |
---|
301 | End Function |
---|
302 | |
---|
303 | Static Function Compare(x As Variant, y As Variant) As HRESULT |
---|
304 | Return VarCmp(x.v, y.v, LOCALE_USER_DEFAULT, 0) 'VARCMP_NULL = 3を返す場合があるので注意 |
---|
305 | End Function |
---|
306 | |
---|
307 | Function Operator ==(y As Variant) As Boolean |
---|
308 | Dim c = Compare(This, y) |
---|
309 | Return c = VARCMP_EQ |
---|
310 | End Function |
---|
311 | |
---|
312 | Function Operator <>(y As Variant) As Boolean |
---|
313 | Dim c = Compare(This, y) |
---|
314 | Return c <> VARCMP_EQ |
---|
315 | End Function |
---|
316 | |
---|
317 | Function Operator <(y As Variant) As Boolean |
---|
318 | Dim c = Compare(This, y) |
---|
319 | Return c = VARCMP_LT |
---|
320 | End Function |
---|
321 | |
---|
322 | Function Operator >(y As Variant) As Boolean |
---|
323 | Dim c = Compare(This, y) |
---|
324 | Return c = VARCMP_GT |
---|
325 | End Function |
---|
326 | |
---|
327 | Function Operator <=(y As Variant) As Boolean |
---|
328 | Dim c = Compare(This, y) |
---|
329 | Return c = VARCMP_LT Or c = VARCMP_EQ |
---|
330 | End Function |
---|
331 | |
---|
332 | Function Operator >=(y As Variant) As Boolean |
---|
333 | Dim c = Compare(This, y) |
---|
334 | Return c = VARCMP_GT Or c = VARCMP_EQ |
---|
335 | End Function |
---|
336 | |
---|
337 | Function ChangeType(vt As VARTYPE, flags = 0 As Word) As Variant |
---|
338 | ChangeType = New Variant |
---|
339 | changeType(ChangeType.v, vt, flags) |
---|
340 | End Function |
---|
341 | Private |
---|
342 | Sub changeType(ByRef ret As VARIANT, vt As VARTYPE, flags = 0 As Word) |
---|
343 | Windows.ThrowIfFailed(VariantChangeType(ret, v, flags, vt)) |
---|
344 | End Sub |
---|
345 | Public |
---|
346 | |
---|
347 | Function VarType() As VARTYPE |
---|
348 | Return v.vt |
---|
349 | End Function |
---|
350 | |
---|
351 | Override Function ToString() As String |
---|
352 | Using bs = ValStr |
---|
353 | ToString = bs.ToString() |
---|
354 | End Using |
---|
355 | End Function |
---|
356 | |
---|
357 | Override Function GetHashCode() As Long |
---|
358 | Dim p = (VarPtr(v) As *DWord) |
---|
359 | Return (p[0] Xor p[1] Xor p[2] Xor p[3]) As Long |
---|
360 | End Function |
---|
361 | |
---|
362 | Function ValUI1() As Byte |
---|
363 | Dim r = ChangeType(VT_UI1) |
---|
364 | Return GetByte(VarPtr(r.v.val)) |
---|
365 | End Function |
---|
366 | |
---|
367 | Function ValUI2() As Word |
---|
368 | Dim r = ChangeType(VT_UI2) |
---|
369 | Return GetWord(VarPtr(r.v.val)) |
---|
370 | End Function |
---|
371 | |
---|
372 | Function ValUI4() As DWord |
---|
373 | Dim r = ChangeType(VT_UI4) |
---|
374 | Return GetDWord(VarPtr(r.v.val)) |
---|
375 | End Function |
---|
376 | |
---|
377 | Function ValUI8() As QWord |
---|
378 | Dim r = ChangeType(VT_UI8) |
---|
379 | Return GetQWord(VarPtr(r.v.val)) |
---|
380 | End Function |
---|
381 | |
---|
382 | Function ValI1() As SByte |
---|
383 | Dim r = ChangeType(VT_I1) |
---|
384 | Return GetByte(VarPtr(r.v.val)) As SByte |
---|
385 | End Function |
---|
386 | |
---|
387 | Function ValI2() As Integer |
---|
388 | Dim r = ChangeType(VT_I2) |
---|
389 | Return GetWord(VarPtr(r.v.val)) As Integer |
---|
390 | End Function |
---|
391 | |
---|
392 | Function ValI4() As Long |
---|
393 | Dim r = ChangeType(VT_I4) |
---|
394 | Return GetDWord(VarPtr(r.v.val)) As Long |
---|
395 | End Function |
---|
396 | |
---|
397 | Function ValI8() As Int64 |
---|
398 | Dim r = ChangeType(VT_I8) |
---|
399 | Return GetQWord(VarPtr(r.v.val)) As Int64 |
---|
400 | End Function |
---|
401 | |
---|
402 | Function ValR4() As Single |
---|
403 | Dim r = ChangeType(VT_R4) |
---|
404 | Return GetSingle(VarPtr(r.v.val)) |
---|
405 | End Function |
---|
406 | |
---|
407 | Function ValR8() As Double |
---|
408 | Dim r = ChangeType(VT_UI8) |
---|
409 | Return GetDouble(VarPtr(r.v.val)) |
---|
410 | End Function |
---|
411 | |
---|
412 | Function ValBool() As VARIANT_BOOL |
---|
413 | Dim r = ChangeType(VT_BOOL) |
---|
414 | Return GetWord(VarPtr(r.v.val)) |
---|
415 | End Function |
---|
416 | |
---|
417 | Function ValError() As SCODE |
---|
418 | Dim r = ChangeType(VT_ERROR) |
---|
419 | Return GetDWord(VarPtr(r.v.val)) |
---|
420 | End Function |
---|
421 | |
---|
422 | Function ValCy() As Currency |
---|
423 | Dim r = ChangeType(VT_CY) |
---|
424 | ValCy = Currency.FromCy(GetQWord(VarPtr(r.v.val))) |
---|
425 | End Function |
---|
426 | |
---|
427 | 'ValDate |
---|
428 | |
---|
429 | Function ValStr() As BString |
---|
430 | ValStr = New BString |
---|
431 | Dim r As VARIANT |
---|
432 | changeType(r, VT_BSTR, VARIANT_ALPHABOOL) |
---|
433 | ValStr.Attach(GetPointer(VarPtr(r.val)) As BSTR) |
---|
434 | End Function |
---|
435 | |
---|
436 | Function ValUnknown() As IUnknown |
---|
437 | Dim r As VARIANT |
---|
438 | changeType(r, VT_UNKNOWN) |
---|
439 | Return _System_PtrUnknown(r.val As ULONG_PTR As VoidPtr) |
---|
440 | End Function |
---|
441 | |
---|
442 | Function ValObject() As VBObject |
---|
443 | Dim r As VARIANT |
---|
444 | changeType(r, VT_DISPATCH) |
---|
445 | ValObject = VBObject.Attach(_System_PtrUnknown(r.val As ULONG_PTR As VoidPtr) As IDispatch) |
---|
446 | End Function |
---|
447 | |
---|
448 | 'ValArray |
---|
449 | |
---|
450 | Function ValDecimal() As Decimal |
---|
451 | Dim p = VarPtr(v) As *DECIMAL |
---|
452 | Return New Decimal(ByVal p) |
---|
453 | End Function |
---|
454 | |
---|
455 | Sub ValDecimal(x As Decimal) |
---|
456 | Clear() |
---|
457 | Dim p = VarPtr(v) As *DECIMAL |
---|
458 | p[0] = x.Dec |
---|
459 | v.vt = VT_DECIMAL '念の為 |
---|
460 | End Sub |
---|
461 | |
---|
462 | Function PtrToVariant() As *VARIANT |
---|
463 | Return VarPtr(v) |
---|
464 | End Function |
---|
465 | |
---|
466 | Static Function OptionalParam() As Variant |
---|
467 | If IsNothing(optionalParam) Then |
---|
468 | Using lock = New ActiveBasic.Windows.CriticalSectionLock(_System_CriticalSection) |
---|
469 | If IsNothing(optionalParam) Then |
---|
470 | Dim t = New Variant |
---|
471 | Dim p = t.PtrToVariant |
---|
472 | p->vt = VT_ERROR |
---|
473 | p->val = DISP_E_PARAMNOTFOUND |
---|
474 | optionalParam = t |
---|
475 | End If |
---|
476 | End Using |
---|
477 | End If |
---|
478 | Return optionalParam |
---|
479 | End Function |
---|
480 | |
---|
481 | Static Function Null() As Variant |
---|
482 | If IsNothing(null) Then |
---|
483 | Using lock = New ActiveBasic.Windows.CriticalSectionLock(_System_CriticalSection) |
---|
484 | If IsNothing(null) Then |
---|
485 | Dim t = New Variant |
---|
486 | Dim p = t.PtrToVariant |
---|
487 | p->vt = VT_NULL |
---|
488 | null = t |
---|
489 | End If |
---|
490 | End Using |
---|
491 | End If |
---|
492 | Return null |
---|
493 | End Function |
---|
494 | |
---|
495 | Private |
---|
496 | v As VARIANT |
---|
497 | |
---|
498 | Static Sub Copy(ByRef dst As VARIANT, ByRef src As VARIANT) |
---|
499 | VariantCopy(dst, src) |
---|
500 | End Sub |
---|
501 | |
---|
502 | Static Sub Move(ByRef dst As VARIANT, ByRef src As VARIANT) |
---|
503 | dst = src |
---|
504 | src.vt = VT_EMPTY |
---|
505 | End Sub |
---|
506 | |
---|
507 | Static Function removeNull(v As Variant) As Variant |
---|
508 | If IsNothing(v) Then |
---|
509 | removeNull = Null |
---|
510 | Else |
---|
511 | removeNull = v |
---|
512 | End If |
---|
513 | End Function |
---|
514 | |
---|
515 | Static optionalParam = Nothing As Variant |
---|
516 | Static null = Nothing As Variant |
---|
517 | |
---|
518 | End Class |
---|
519 | |
---|
520 | |
---|
521 | Function Abs(v As Variant) As Variant |
---|
522 | Return v.Abs() |
---|
523 | End Function |
---|
524 | |
---|
525 | Function Fix(v As Variant) As Variant |
---|
526 | Return v.Fix() |
---|
527 | End Function |
---|
528 | |
---|
529 | Function Int(v As Variant) As Variant |
---|
530 | Return v.Int() |
---|
531 | End Function |
---|
532 | |
---|
533 | Function VarType(v As Variant) As VARTYPE |
---|
534 | Return v.VarType() |
---|
535 | End Function |
---|
536 | |
---|
537 | Namespace Detail |
---|
538 | |
---|
539 | Sub CopyFromVariant(ByRef x As Byte, v As Variant) |
---|
540 | x = v.ValUI1 |
---|
541 | End Sub |
---|
542 | |
---|
543 | Sub CopyFromVariant(ByRef x As Word, v As Variant) |
---|
544 | x = v.ValUI2 |
---|
545 | End Sub |
---|
546 | |
---|
547 | Sub CopyFromVariant(ByRef x As DWord, v As Variant) |
---|
548 | x = v.ValUI4 |
---|
549 | End Sub |
---|
550 | |
---|
551 | Sub CopyFromVariant(ByRef x As QWord, v As Variant) |
---|
552 | x = v.ValUI8 |
---|
553 | End Sub |
---|
554 | |
---|
555 | Sub CopyFromVariant(ByRef x As SByte, v As Variant) |
---|
556 | x = v.ValI1 |
---|
557 | End Sub |
---|
558 | |
---|
559 | Sub CopyFromVariant(ByRef x As Integer, v As Variant) |
---|
560 | x = v.ValI2 |
---|
561 | End Sub |
---|
562 | |
---|
563 | Sub CopyFromVariant(ByRef x As Long, v As Variant) |
---|
564 | x = v.ValI4 |
---|
565 | End Sub |
---|
566 | |
---|
567 | Sub CopyFromVariant(ByRef x As Int64, v As Variant) |
---|
568 | x = v.ValI8 |
---|
569 | End Sub |
---|
570 | |
---|
571 | Sub CopyFromVariant(ByRef x As Single, v As Variant) |
---|
572 | x = v.ValR4 |
---|
573 | End Sub |
---|
574 | |
---|
575 | Sub CopyFromVariant(ByRef x As Double, v As Variant) |
---|
576 | x = v.ValR8 |
---|
577 | End Sub |
---|
578 | |
---|
579 | Sub CopyFromVariant(ByRef x As Boolean, v As Variant) |
---|
580 | x = v.ValBool As Boolean |
---|
581 | End Sub |
---|
582 | |
---|
583 | Sub CopyFromVariant(ByRef x As ActiveBasic.COM.Currency, v As Variant) |
---|
584 | x = v.ValCy |
---|
585 | End Sub |
---|
586 | |
---|
587 | Sub CopyFromVariant(ByRef x As String, v As Variant) |
---|
588 | x = v.ValStr.ToString() |
---|
589 | End Sub |
---|
590 | |
---|
591 | Sub CopyFromVariant(ByRef x As ActiveBasic.COM.VBObject, v As Variant) |
---|
592 | x = v.ValObject |
---|
593 | End Sub |
---|
594 | |
---|
595 | Sub CopyFromVariant(ByRef x As ActiveBasic.COM.Decimal, v As Variant) |
---|
596 | x = v.ValDecimal |
---|
597 | End Sub |
---|
598 | |
---|
599 | Sub CopyFromVariant(ByRef x As IUnknown, v As Variant) |
---|
600 | x = v.ValUnknown |
---|
601 | End Sub |
---|
602 | |
---|
603 | Sub CopyFromVariant(ByRef x As Variant, v As Variant) |
---|
604 | x = v.Clone() |
---|
605 | End Sub |
---|
606 | |
---|
607 | End Namespace |
---|
608 | |
---|
609 | End Namespace 'COM |
---|
610 | End Namespace 'ActiveBasic |
---|