Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : Popup.vb

Imports Microsoft.VisualBasic
Imports System.Web.UI
Imports System.Web

Public Class Popup

Public Shared Sub ShowModalError(ex As Exception, page As Page, Optional errorDialogTitle As String = "")
        If ex IsNot Nothing Then
            ' show error
            Dim dialogTitle As String = [String].Empty

If Not [String].IsNullOrEmpty(errorDialogTitle) Then
                dialogTitle = ", '" + errorDialogTitle + "'"
            End If

Dim errorMessage As String = Popup.RemoveSpecialChars(ex.Message)
            ScriptManager.RegisterStartupScript(page, page.[GetType](), "err_msg", "ShowError('" + errorMessage + "'" + dialogTitle + ");", True)
        End If
    End Sub

Public Shared Sub ShowModalHtmlError(errorMessage As String, page As Page, errorDialogTitle As String)
        ' show error
        Dim dialogTitle As String = [String].Empty

If Not [String].IsNullOrEmpty(errorDialogTitle) Then
            dialogTitle = ", '" + errorDialogTitle + "'"
        End If

ScriptManager.RegisterStartupScript(page, page.[GetType](), "err_msg", "ShowHtmlError('" + errorMessage + "'" + dialogTitle + ");", True)
    End Sub

Public Shared Function RoundToNearestTens(number As Integer) As Integer
        Return CInt(Math.Round(Convert.ToDecimal((number + 9) \ 10)) * 10)
    End Function

Private Shared Function RemoveSpecialChars(text As String) As String
        Dim regex As New Regex("[^a-zA-Z0-9 -]")
        Return regex.Replace(text, "")
    End Function

Public Shared Function Msgbox(ByVal message As String) As StringBuilder

Dim sb As New StringBuilder
        
        sb.Append("<script type = 'text/javascript'>")
        sb.Append("window.onload=function(){")
        sb.Append("alert('")
        sb.Append(message)
        sb.Append("')};")
        sb.Append("</script>")

Return sb
    End Function

Private Shared Function ClientScript() As Object
        Throw New NotImplementedException
    End Function

Public Function BindChartPie(ByVal dT As DataTable, ByVal TitleChart As String, Optional ByVal ChartType As Integer = 0) As StringBuilder
        Dim r As Random = New Random
        Dim strScript As New StringBuilder(), DivName As String = r.Next(1, 9999).ToString
        '

Try
            Dim dtColName As New List(Of String)
            For Each dc As DataColumn In dT.Columns
                dtColName.Add(dc.ColumnName.ToString)
            Next

'Below code For Static Fixed 
            'strScript.Append("<div id='piechart_3d' style='width: 900px; height: 500px;'></div><script type='text/javascript'>" & vbCr & vbLf & "                    google.load('visualization', '1', {packages: ['corechart']}); </script>" & vbCr & vbLf & "                    " & vbCr & vbLf & "                    <script type='text/javascript'>" & vbCr & vbLf & "                   " & vbCr & vbLf & "                    function drawChart() {       " & vbCr & vbLf & "                    var data = google.visualization.arrayToDataTable([" & vbCr & vbLf & "                    ['Task', 'Hours of Day'],")
            'Below Code is For Dynaminc Column_Name
            If dtColName.Count > 1 Then
                strScript.Append("<div id='piechart_3d" & DivName.Trim & "'></div><script type='text/javascript'>" & vbCr & vbLf & "                    google.load('visualization', '1', {packages: ['corechart']}); </script>" & vbCr & vbLf & "                    " & vbCr & vbLf & "                    <script type='text/javascript'>" & vbCr & vbLf & "                   " & vbCr & vbLf & "                    function drawChart() {       " & vbCr & vbLf & "                    var data = google.visualization.arrayToDataTable([" & vbCr & vbLf & "                    ['" & dtColName.Item(1).ToString & "', '" & dtColName.Item(0).ToString & "'],")
            End If
            'Below code is For Dynaminc Data

For Each row As DataRow In dT.Rows
                strScript.Append("['" + row(dtColName.Item(0).ToString).ToString + "'," + row(dtColName.Item(1).ToString).ToString + "],")
            Next
            If dT.Rows.Count <= 0 Then
                strScript.Append("['0',0],")
            End If
            ' Below is for Static For Test 
            'strScript.Append("['Work',1],")
            'strScript.Append("['Play',12],")
            'strScript.Append("['Study',33],")
            'strScript.Append("['Home',44],")
            strScript.Remove(strScript.Length - 1, 1)
            strScript.Append("]);")
            If ChartType = 0 Then
                strScript.Append(" var options = {   " & vbCr & vbLf & "                                    title: '" & TitleChart.ToString & "',          " & vbCr & vbLf & "                                    is3D: true,        " & vbCr & vbLf & "                                    };   ")
                strScript.Append("var chart = new google.visualization.PieChart(document.getElementById('piechart_3d" & DivName.Trim & "'));        " & vbCr & vbLf & "                                chart.draw(data, options);      " & vbCr & vbLf & "                                }  " & vbCr & vbLf & "                            google.setOnLoadCallback(drawChart);" & vbCr & vbLf & "                            ")
            ElseIf ChartType = 1 Then
                strScript.Append(" var options = {   " & vbCr & vbLf & "                                    title: '" & TitleChart.ToString & "',          " & vbCr & vbLf & "                                    is3D: true,        " & vbCr & vbLf & "   animationEnabled: true,        " & vbCr & vbLf & "                                  };   ")
                strScript.Append("var chart = new google.visualization.ColumnChart(document.getElementById('piechart_3d" & DivName.Trim & "'));        " & vbCr & vbLf & "                                chart.draw(data, options);      " & vbCr & vbLf & "                                }  " & vbCr & vbLf & "                            google.setOnLoadCallback(drawChart);" & vbCr & vbLf & "                            ")
            ElseIf ChartType = 2 Then
                strScript.Append(" var options = {   " & vbCr & vbLf & "                                    title: '" & TitleChart.ToString & "',          " & vbCr & vbLf & "                                    is3D: true,      pieHole: 0.4,   " & vbCr & vbLf & "                                    };   ")
                strScript.Append("var chart = new google.visualization.PieChart(document.getElementById('piechart_3d" & DivName.Trim & "'));        " & vbCr & vbLf & "                                chart.draw(data, options);      " & vbCr & vbLf & "                                }  " & vbCr & vbLf & "                            google.setOnLoadCallback(drawChart);" & vbCr & vbLf & "                            ")
            End If
            strScript.Append(" </script>")
            Return strScript
        Catch

End Try
    End Function

End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2021-04-15 04:09:57
..	dir	-	0/0	0777	2024-07-17 11:12:21
BLL	dir	-	0/0	0777	2021-04-15 04:09:57
BaseClasses	dir	-	0/0	0777	2021-04-15 04:09:57
DAL	dir	-	0/0	0777	2021-04-15 04:09:57
DynamicParcel.vb	text/plain	16.62 KB	0/0	0666	2018-03-22 11:26:59
ItemcontrolService.vb	text/plain	6.72 KB	0/0	0666	2018-03-22 11:26:59
Popup.vb	text/html	6.97 KB	0/0	0666	2018-03-22 11:26:59
Security.vb	text/plain	5.96 KB	0/0	0666	2018-03-22 11:26:59

Team Anon Force

https://t.me/Professor6T9x