Script
Demo
This part will be hidden in 500 milliseconds.
This part will be hidden in 1 second.
This part will be hidden in 3 seconds.
This part will be hidden in 5 seconds.
Refresh page to view again. Click here to download the script.
VB.Net.DOTNETNUKE.EntitySpaces.jQuery
' Make sure we only have one record for this load
Dim esqUsers As New UserCollectionQuery("uv")
esqUsers.es.Top = 1
esqUsers.es.PageSize = 10
esqUsers.es.PageNumber = _PageNumber
' this part will give us an entry point for insertion of call to our custom database function it will generate this string "uv.[UserID] IN ('-2')"
esqUsers.Where(esqUsers.UserID.OP(esWhereOperand.In, "-2".Split("!"c)))
' more filters, join and grouping here.
' Make the call so we can generate the LastQuery
esUsers = New UserCollection
esUsers.Load(esqUsers)
' Get last query
Dim strLastQuery As String = esqUsers.es.LastQuery
' Insert the call to the function
strLastQuery = strLastQuery.Replace("uv.[UserID] IN ('-2')", "database function & params")
' Make sure we have the data
strLastQuery = strLastQuery.Replace("TOP 1", "")
' You also need to update some parameters if needed.
' Now we call our custom load
esUsers.CustomLoad(strLastQuery)
Public Function CustomLoad(ByVal sSQL As String) As UserCollection
MyBase.Load(esQueryType.Text, sSQL)
Return Me
End Function
<script language="javascript" src="http://vreboton.googlepages.com/jquery-1.3.2.min.js"></script>
<script language="javascript" src="http://vreboton.googlepages.com/jquery.vreboton.UniqueRadioButton.js"></script>
Public Shared Function TableExist(ByVal tableName As String) As Boolean
Dim strSQL As String = "SELECT Count(*) FROM dbo.sysobjects WHERE id = object_id(N'{databaseOwner}[{objectQualifier}" & tableName & "]') AND OBJECTPROPERTY(id, N'IsTable') = 1"
strSQL = strSQL.Replace("{databaseOwner}", DotNetNuke.Common.Utilities.Config.GetDataBaseOwner())
strSQL = strSQL.Replace("{objectQualifier}", DotNetNuke.Common.Utilities.Config.GetObjectQualifer())
Dim util As New esUtility()
If util.ExecuteScalar(esQueryType.Text, strsql) > 0 Then
Return True
Else
Return False
End If
End Function
01.Public Sub InjectClientScript(ByVal page As System.Web.UI.Page, ByVal scriptKey As String, ByVal scriptSrc As String, Optional ByVal scriptValue As String = "") 02. Dim objHead As Control = page.FindControl("Head") 03. If objHead IsNot Nothing Then04. If objHead.FindControl(scriptKey) Is Nothing Then05. Dim jQueryControl As New HtmlGenericControl("script") 06. jQueryControl.ID = scriptKey 07. jQueryControl.Attributes.Add("type", "text/javascript") 08. If scriptValue = "" Then09. jQueryControl.Attributes.Add("src", scriptSrc) 10. Else11. jQueryControl.InnerHtml = scriptValue 12. End If13. objHead.Controls.Add(jQueryControl) 14. End If15. End If16.End Sub1.InjectClientScript(page, "jquery.1.3.2.min.js", "/js/jquery.1.3.2.min.js") 1.<script id="jquery.1.3.2.min.js" type="text/javascript" src="/js/jquery.1.3.2.min.js"></script>1.InjectClientScript(page, "jQueryNoConflict", "", "jQuery.noConflict();") 1.<script id="jQueryNoConflict" type="text/javascript">jQuery.noConflict();</script>(function($){
$.fn.ShowElementInFullScreen = function() {
return this.each(function(){
$(this).parents().each(function(i){$(this).siblings().hide()});
});
};
})(jQuery);
jQuery('#YourElementId').ShowElementInFullScreen();