1Public Class WebForm1
 2    Inherits System.Web.UI.Page
 3
 4#Region " Web Form Designer Generated Code "
 5
 6    'This call is required by the Web Form Designer.
 7    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
 8
 9  End Sub
10  Protected WithEvents dropDrag As System.Web.UI.WebControls.DropDownList
11  Protected WithEvents Label6 As System.Web.UI.WebControls.Label
12  Protected WithEvents btnBob As System.Web.UI.WebControls.Button
13  Protected WithEvents btnTwo As System.Web.UI.WebControls.Button
14  Protected WithEvents Label5 As System.Web.UI.WebControls.Label
15  Protected WithEvents popDocking As System.Web.UI.WebControls.DropDownList
16  Protected WithEvents btn4Ever As System.Web.UI.WebControls.Button
17  Protected WithEvents Label4 As System.Web.UI.WebControls.Label
18  Protected WithEvents clrStyle As System.Web.UI.WebControls.DropDownList
19  Protected WithEvents Label3 As System.Web.UI.WebControls.Label
20  Protected WithEvents textTitle As System.Web.UI.WebControls.TextBox
21  Protected WithEvents textFull As System.Web.UI.WebControls.TextBox
22  Protected WithEvents Label2 As System.Web.UI.WebControls.Label
23  Protected WithEvents textMsg As System.Web.UI.WebControls.TextBox
24  Protected WithEvents Label1 As System.Web.UI.WebControls.Label
25  Protected WithEvents btnPopup As System.Web.UI.WebControls.Button
26  Protected WithEvents popupBob As EeekSoft.Web.PopupWin
27  Protected WithEvents popupWin2 As EeekSoft.Web.PopupWin
28  Protected WithEvents popupWin As EeekSoft.Web.PopupWin
29
30    'NOTE: The following placeholder declaration is required by the Web Form Designer.
31    'Do not delete or move it.
32    Private designerPlaceholderDeclaration As System.Object
33
34    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
35        'CODEGEN: This method call is required by the Web Form Designer
36        'Do not modify it using the code editor.
37        InitializeComponent()
38    End Sub
39
40#End Region
41
42  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
43    popupBob.Visible = False
44    popupWin.Visible = False
45    popupWin2.Visible = False
46  End Sub
47
48  Private Sub btnPopup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPopup.Click
49    popupWin.HideAfter = 5000
50    popupWin.Visible = True
51    popupWin.Title = textTitle.Text
52    popupWin.Message = textMsg.Text
53    popupWin.Text = textFull.Text
54    popupWin.DragDrop = (dropDrag.SelectedIndex = 0)
55    If popDocking.SelectedIndex = 0 Then popupWin.DockMode = EeekSoft.Web.PopupDocking.BottomLeft
56    If popDocking.SelectedIndex = 1 Then popupWin.DockMode = EeekSoft.Web.PopupDocking.BottomRight
57    popupWin.ColorStyle = Switch(clrStyle.SelectedIndex = 0, EeekSoft.Web.PopupColorStyle.Red, clrStyle.SelectedIndex = 1, EeekSoft.Web.PopupColorStyle.Green, clrStyle.SelectedIndex = 2, EeekSoft.Web.PopupColorStyle.Blue, clrStyle.SelectedIndex = 3, EeekSoft.Web.PopupColorStyle.Violet)
58    popupWin2.Visible = False
59  End Sub
60
61  Private Sub btn4Ever_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4Ever.Click
62    popupWin.HideAfter = -1
63    popupWin.Visible = True
64    popupWin.Title = textTitle.Text
65    popupWin.Message = textMsg.Text
66    popupWin.Text = textFull.Text
67    popupWin.DragDrop = (dropDrag.SelectedIndex = 0)
68    popupWin.DockMode = Switch(popDocking.SelectedIndex = 0, EeekSoft.Web.PopupDocking.BottomLeft, popDocking.SelectedIndex = 0, EeekSoft.Web.PopupDocking.BottomRight)
69    popupWin.ColorStyle = Switch(clrStyle.SelectedIndex = 0, EeekSoft.Web.PopupColorStyle.Red, clrStyle.SelectedIndex = 1, EeekSoft.Web.PopupColorStyle.Green, clrStyle.SelectedIndex = 2, EeekSoft.Web.PopupColorStyle.Blue, clrStyle.SelectedIndex = 3, EeekSoft.Web.PopupColorStyle.Violet)
70    popupWin2.Visible = False
71  End Sub
72
73  Private Sub btnBob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBob.Click
74    popupBob.Visible = True
75  End Sub
76
77  Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
78    btnPopup_Click(sender, e)
79    popupWin2.DockMode = popupWin.DockMode
80    popupWin2.DragDrop = (dropDrag.SelectedIndex = 0)
81    popupWin2.Visible = True
82  End Sub
83End Class
84