Demetrio Cassarino
16 lines
425 B
VB.net
16 lines
425 B
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Module GeomEntityColors
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Function WritePrivateProfileColor(IpAppName As String, IpKeyName As String, ByRef Color As Color3d) As Boolean
|
|
Dim sColor As String = Color.R & "," & Color.G & "," & Color.B & "," & Color.A
|
|
Return WritePrivateProfileString(IpAppName, IpKeyName, sColor, m_sIniFile)
|
|
End Function
|
|
|
|
#End Region ' Methods
|
|
|
|
End Module
|