Hi,

We need to carry a warning message with the name of the user without ODK.

Script on the button 

Sub OnClick(Byval Item)

Dim MyAlarm

Dim objControl

Dim strFriendlyName

Set MyAlarm = HMIRuntime.Alarms(12508142)

MyAlarm.State = 5 'hmiAlarmStateCome + hmiAlarmStateComment

MyAlarm.Comment = "Switch"

MyAlarm.UserName = HMIRuntime.Tags.Item.Read(CurrentUserName)

MyAlarm.ProcessValues(1) = "Write ON"

MyAlarm.ProcessValues(4) = "Write OFF "

MyAlarm.Create "MyApplication"

End Sub

Maybe there is an easier way to display a user name in the operator message?

With your help, I created a message from the FAQ.
But I have a problem - after the click (Void OnClick) is pop-up window.

This problem is similar to the topic

https://support.industry.siemens.com/tf/WW/en/posts/pop-up-of-function-gcreatemyoperationmsg-is-not-showing-every-time/124877?page=0 & pageSize = 10

DWORD dwFlags;

dwFlags = 3;// Show comment dialog
// DwFlags = 0;// Do not show comment dialog
GCreateMyOperationMsg (dwFlags, 12508141, lpszPictureName, "LinkedTag", 0,0,0, "");

I do not want  display the pop-up window. If I do dwFlags = 0, then comment dialog is not displayed, but the message does not  the contained User name.

I have a question how to fix the script, so that the window did not arise, but the field "User" contained User name?

I use  7.3 WinCCUpd8.I do not have the ODK.

Best regards...

Hello Georg,

Thanks for the mistake with UserName in VBA script.

But could you tell me how possible to remove the pop-up window in C-scripts (Show comment dialog)

Hello Georg,

Parameter "dwFlags" don't work correctly. If I do dwFlags = 0, then comment dialog is not displayed, but the message does not  the contained User name.

Ok, I'm try ISALG