(25-04-2023, 13:07)Shordi escribió: Encontrarás esto en el EditList:
Jeje, workaround !! pero... ¿Hay algo mas al estilo siguiente?
Código:
Print gb.Constanst[9]
StringCódigo:
'' Function that returns the type of variable as a word. As input parameter requires an integer number.
Public Function TypeVar(iType As Byte) As String
Dim oType As Collection = ["Boolean": 1, "Byte": 2, "Short": 3, "Integer": 4, "Long": 5, "Single": 6, "Float": 7, "Date": 8, "String": 9, "Hold-10": 10, "Pointer": 11, "Variant": 12, "Function": 13, "Class": 14, "Null": 15, "Object": 16]
Dim sType As String = ""
Dim i As Byte
For Each i In oType
If i = iType Then
sType = oType.Key
Break
Endif
Next
Return sType
End1 Saludo.