MessageBar Icon

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

I have a problem adding a Icon to the Message bar. I use the following code: 
Public Sub SMeMs(ByVal MsHed As String, ByVal MsMai As String, ByVal IcnId As Long)
On Error GoTo PoErr
'MessageBar
Dim MsBar As XtremeCommandBars.MessageBar
Dim CmBrs As XtremeCommandBars.CommandBars
Set FM = frmMain
Set CmBrs = FM.comBar01
Set MsBar = CmBrs.MessageBar
With MsBar
    .AddCloseButton "Closing"
    .Message = _
        "<StackPanel Orientation='Horizontal'>" & _
        "        <Image Source='" & IcnId & "'/>" & _
        "        <TextBlock Padding='3, 0, 0, 0' VerticalAlignment='Center'><Bold>" & MsHed & "</Bold></TextBlock>" & _
        "        <TextBlock Padding='10, 0, 0, 0' VerticalAlignment='Center'>" & MsMai & "</TextBlock></StackPanel>"
    .Visible = True
End With
Exit Sub
PoErr:
If GlDbg Then MsgBox Err.Description, 48, "SMeMs " & Err.Number
Resume Next
End Sub
IcnId is dthe ID of an ImageManager Icon!

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply Topic: MessageBar Icon Posted: 08 March 2012 at 6:46am
	I have a problem adding a Icon to the Message bar. I use the following code: Public Sub SMeMs(ByVal MsHed As String, ByVal MsMai As String, ByVal IcnId As Long) On Error GoTo PoErr 'MessageBar Dim MsBar As XtremeCommandBars.MessageBar Dim CmBrs As XtremeCommandBars.CommandBars Set FM = frmMain Set CmBrs = FM.comBar01 Set MsBar = CmBrs.MessageBar With MsBar .AddCloseButton "Closing" .Message = _ "<StackPanel Orientation='Horizontal'>" & _ " <Image Source='" & IcnId & "'/>" & _ " <TextBlock Padding='3, 0, 0, 0' VerticalAlignment='Center'><Bold>" & MsHed & "</Bold></TextBlock>" & _ " <TextBlock Padding='10, 0, 0, 0' VerticalAlignment='Center'>" & MsMai & "</TextBlock></StackPanel>" .Visible = True End With Exit Sub PoErr: If GlDbg Then MsgBox Err.Description, 48, "SMeMs " & Err.Number Resume Next End Sub IcnId is dthe ID of an ImageManager Icon!
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6

McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply Posted: 10 March 2012 at 2:05am
	Is it possible to set a ImageManager Icon to the MessageBar ?
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6