#endregion
======================================================================
Public Sub GetInterfacceSafyOptions(ByVal riid As Int32, ByRef pdwSupportedOptions As Int32, ByRef pdwEnabledOptions As Int32)
pdwSupportedOptions = 1
pdwEnabledOptions = 2
End Sub
Public Sub SetInterfaceSafetyOptions(ByVal riid As Int32, ByVal dwOptionsSetMask As Int32, ByVal dwEnabledOptions As Int32)
End Sub
#endregion
======================================================================
Public Sub GetInterfacceSafyOptions(ByVal riid As Int32, ByRef pdwSupportedOptions As Int32, ByRef pdwEnabledOptions As Int32)
pdwSupportedOptions = 1
pdwEnabledOptions = 2
End Sub
Public Sub SetInterfaceSafetyOptions(ByVal riid As Int32, ByVal dwOptionsSetMask As Int32, ByVal dwEnabledOptions As Int32)
End Sub
[Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064"),InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IObjectSafety
{
// methods
void GetInterfacceSafyOptions(
System.Int32 riid,
out System.Int32 pdwSupportedOptions,
out System.Int32 pdwEnabledOptions);
void SetInterfaceSafetyOptions(
System.Int32 riid,
System.Int32 dwOptionsSetMask,
System.Int32 dwEnabledOptions);
}
==================================================
<Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
Public Interface IObjectSafety
Sub GetInterfacceSafyOptions(ByVal riid As System.Int32, ByRef pdwSupportedOptions As System.Int32, ByRef pdwEnabledOptions As System.Int32)
Sub SetInterfaceSafetyOptions(ByVal riid As System.Int32, ByVal dwOptionsSetMask As System.Int32, ByVal dwEnabledOptions As System.Int32)
End Interface
public void ShowMessage(string msg)
{
if(msg != null)
{
MessageBox.Show(msg);
}
}
=======================================
Public Sub ShowMessage(ByVal msg As String)
If Not (msg Is Nothing) Then
MessageBox.Show(msg)
End If
End Sub