是有问题,已反馈。
建议把逻辑放到函数里,比如函数a
Dim ClrVal As Integer = args(0)
Dim ClrVal5D As Integer = Nothing
If ClrVal <> 0 Then
Dim clr As Color =Color.FromARGB(ClrVal)
Dim R_hex As String = DecToHex(clr.R).PadLeft(2,"0")
Dim G_hex As String = DecToHex(clr.G).PadLeft(2,"0")
Dim B_hex As String = DecToHex(clr.B).PadLeft(2,"0")
ClrVal5D = HextoDec(B_hex & G_hex & R_hex)
End If
Return ClrVal5D
全局代码改为
Public Function ClrValToClrVal5D(ByVal ClrVal As Integer) As Integer
Return Functions.Execute("a",ClrVal )
End Function