VB Code:
Public Function gstrCreateBarName(ByVal vstrPrivate As String, _
ByVal vstrFirma As String) As String
If vstrFirma <> gvDUMMY_EINTRAG Then
gstrCreateBarName = vstrPrivate & " ( " & vstrFirma & ")"
Else
gstrCreateBarName = vstrPrivate
End If
End Function
VB Code:
STDMETHODIMP CTools::MakeBarName(BSTR Gast, BSTR Firma, BSTR *BarName)
{
// TODO: Add your implementation code here
bstr_t bstrFirma = Firma;
bstr_t bstrGast = Gast;
if (BSTR(bstrFirma) != BSTR("-/-"))
{
BarName = "Gast + Firma";
}
else
{
BarName = "Gast";
}
return S_OK;
}