Win XP(Prof) SP3 - PBWin 9.01.
I have a problem converting VB6 to PBWin.
Original VB6 Code:
My Conversion:
The .inc file :
VARIANTVT(vtemp) returns (From the Help file):
36 Not Listed in Help
Whereas I would expect :
29 %VT_USERDEFINED User Defined Type
Is my conversion wrong?
Bob
I have a problem converting VB6 to PBWin.
Original VB6 Code:
Code:
Dim tRange as udtTextRange ... ... Set oDoc = mySession.ActiveDoc tRange = oDoc.TextSelection
Code:
GLOBAL tRange AS udtTextRange ... GLOBAL vtemp as VARIANT ... OBJECT GET mySession.ActiveDoc TO myDocument OBJECT GET myDocument.TextSelection TO tRange ' This produces a "syntax error" OBJECT GET myDocument.TextSelection TO vtemp 'This compiles i = VARIANTVT(vtemp) MSGBOX "textselection_variant = " & HEX$(i)
Code:
TYPE udtTextRange beginrange AS udtTextLoc endrange AS udtTextLoc END TYPE ... ... Property Get TextSelection <297> () As Variant
36 Not Listed in Help
Whereas I would expect :
29 %VT_USERDEFINED User Defined Type
Is my conversion wrong?
Bob
Comment