or
| Public Sub ShowPopupMessage(ByVal validationIssues As IValidations) |
| If validationIssues Is Nothing OrElse validationIssues.ErrorCount = 0 Then |
| Exit Sub |
| End If |
| Dim popupMessage As New Telerik.Web.UI.RadToolTip |
| Dim width As Integer = 75 |
| Me.Controls.Add(popupMessage) |
| With popupMessage |
| '.Position = Telerik.Web.UI.ToolTipPosition.BottomRight |
| '.RelativeTo = Telerik.Web.UI.ToolTipRelativeDisplay.BrowserWindow |
| .Position = Telerik.Web.UI.ToolTipPosition.Center |
| .RelativeTo = Telerik.Web.UI.ToolTipRelativeDisplay.BrowserWindow |
| '.Animation = Telerik.Web.UI.ToolTipAnimation.Fade |
| .Animation = Telerik.Web.UI.ToolTipAnimation.None |
| .Title = "Message" |
| .Width = 300 |
| .Height = width * validationIssues.ErrorCount |
| '.Show() |
| '.RenderInPageRoot = True |
| .VisibleOnPageLoad = True |
| .HideEvent = Telerik.Web.UI.ToolTipHideEvent.ManualClose |
| End With |
| popupMessage.Controls.Add(CreateValidationContent(validationIssues)) |
| End Sub |
