Emmanuele Sassi
37 lines
1.7 KiB
VB.net
37 lines
1.7 KiB
VB.net
Imports System.ComponentModel.Composition
|
|
Imports Supervisor.Plugin.Interface
|
|
|
|
<Export>
|
|
Public Class SupervisorFunctions
|
|
Implements IHost
|
|
|
|
Public Property PluginTestInfo As Integer Implements IHost.PluginTestInfo
|
|
Get
|
|
Return Map.refMainWindowVM.m_PluginTestInfo
|
|
End Get
|
|
Set(value As Integer)
|
|
Throw New NotImplementedException()
|
|
End Set
|
|
End Property
|
|
'Public Function PlgOutLog(sLogMsg As String) As Boolean Implements IHost.PlgOutLog
|
|
' Return EgtOutLog(sLogMsg)
|
|
'End Function
|
|
|
|
'Public Function PlgGetPrivateProfileInt(lpAppName As String, lpKeyName As String, nDefault As Integer, lpFileName As String) As Integer Implements IHost.PlgGetPrivateProfileInt
|
|
' Return GetPrivateProfileInt(lpAppName, lpKeyName, nDefault, lpFileName)
|
|
'End Function
|
|
|
|
'Public Function PlgGetPrivateProfileDouble(lpAppName As String, lpKeyName As String, dDefault As Double, lpFileName As String) As Double Implements IHost.PlgGetPrivateProfileDouble
|
|
' Return GetPrivateProfileDouble(lpAppName, lpKeyName, dDefault, lpFileName)
|
|
'End Function
|
|
|
|
'Public Function PlgGetPrivateProfileString(lpAppName As String, lpKeyName As String, lpDefault As String, ByRef lpString As String, lpFileName As String) As Integer Implements IHost.PlgGetPrivateProfileString
|
|
' Return GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, lpString, lpFileName)
|
|
'End Function
|
|
|
|
'Public Function PlgWritePrivateProfileString(lpAppName As String, lpKeyName As String, lpString As String, lpFileName As String) As Boolean Implements IHost.PlgWritePrivateProfileString
|
|
' Return WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
|
|
'End Function
|
|
|
|
End Class
|