63 messaggi dal 19 marzo 2004
Esiste un controllo che permetta di creare una Finestra Non Ridimensionabile con Menù a Tendina in alto?
Grazie 1000 in anticipo

Un Anello per domarli, un Anello per trovarli,
un Anello per ghermirli e nel buio incatenarli
( J.R.R. Tolkien )
252 messaggi dal 18 dicembre 2001
Beh la finestra non ridimensionabile la crei con una semplice window.open attraverso javascript. Il menu a tendina non so.. che intendi?..
Ho una classe già fatta per creare delle pop-up in net, poi il menu a tendina potresti ricavarlo da una page class base che lo contiene..
Buon Lavoro.
Rei

Rei.
63 messaggi dal 19 marzo 2004
reimasoft ha scritto:
Beh la finestra non ridimensionabile la crei con una semplice window.open attraverso javascript. Il menu a tendina non so.. che intendi?..
Ho una classe già fatta per creare delle pop-up in net, poi il menu a tendina potresti ricavarlo da una page class base che lo contiene..
Buon Lavoro.
Rei

Potresti postarmi o inviarmi via mail, come preferisci, il tuo codice almeno gli dò un'occhiata?
Grazie 1000

Un Anello per domarli, un Anello per trovarli,
un Anello per ghermirli e nel buio incatenarli
( J.R.R. Tolkien )
252 messaggi dal 18 dicembre 2001
qui non ho possibilità di aggiungere allegati, se è permesso dallo staff, mandami la tua email e provvedero' ad inviarti la classe NET.

Rei.
63 messaggi dal 19 marzo 2004
non puoi fare un cpoia incolla del codice e mandarlo come testo della mail?

Un Anello per domarli, un Anello per trovarli,
un Anello per ghermirli e nel buio incatenarli
( J.R.R. Tolkien )
252 messaggi dal 18 dicembre 2001
Public Class PopupManager

Implements IDisposable

Public Url As String = ""
Public UrlParams As String = ""
Public Target As String = "_blank"
Public Height As Long = -1
Public Width As Long = -1
Public Left As Long = -1
Public Top As Long = -1
Public Resizable As Boolean = True
Public Status As Boolean = True
Public Toolbar As Boolean = False
Public Menubar As Boolean = False
Public Titlebar As Boolean = False
Public Location As Boolean = True
Public RenderHTML As String = ""
Public JavaScriptFunctionName As String = ""
Public RegisterAtStartUp As Boolean = False

Private internalPage As System.Web.UI.Page


' Open Method : Sample Code:
'Dim pp As New Reima.PopupManager(Me) ' istanzia un nuovo popupmanager
'pp.Url = "mypopuppage.aspx" ' definisce l'url (o la pagina web) che deve aprire nella popup
'pp.Height = 500 ' imposta le dimensioni..
'pp.Width = 500
'pp.Resizable = False ' la popup non sarà ridimensionabile
'pp.Open() ' l'open genera il javascript e apre la popup
'pp.Dispose() ' disposing risorse.


Public Sub Open()
Dim CodeBuild As String
Dim WindowAttrib As String
Dim Attrib As String

WindowAttrib += "'"

If Width <> -1 Then
WindowAttrib += "width=" & Width.ToString
End If
If Height <> -1 Then
WindowAttrib += ",height=" & Height.ToString
End If
If Left <> -1 Then
WindowAttrib += ",left=" & Left.ToString
End If
If Top <> -1 Then
WindowAttrib += ",top=" & Top.ToString
End If

If Resizable = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",resizable=" & Attrib

If Status = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",status=" & Attrib

If Toolbar = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",toolbar=" & Attrib

If Titlebar = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",titlebar=" & Attrib

If Menubar = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",menubar=" & Attrib

If Location = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",location=" & Attrib

WindowAttrib += ",scrollbars=yes'"

CodeBuild += "<script language=javascript>"

' Se esiste il nome della funzione, non apre la popup, ma crea la funzione che poi puo' essere richiamata..
If JavaScriptFunctionName <> "" Then
CodeBuild += "function " & JavaScriptFunctionName & "(){"
End If

CodeBuild += "var newwindow = window.open('"
CodeBuild += Url
CodeBuild += UrlParams
CodeBuild += "','"
CodeBuild += Target & "',"
CodeBuild += WindowAttrib & ");"

If RenderHTML <> "" Then
CodeBuild += "newwindow.document.write('" & RenderHTML & "');"
End If

If JavaScriptFunctionName <> "" Then
CodeBuild += "}"
End If

CodeBuild += "</script>"

If RegisterAtStartUp Then
internalPage.RegisterStartupScript("", CodeBuild)
Else
internalPage.Response.Write(CodeBuild)
End If


End Sub

Public Sub OpenModal()
Dim CodeBuild As String
Dim WindowAttrib As String
Dim Attrib As String

WindowAttrib += "'"

If Height <> -1 Then
WindowAttrib += "dialogHeight:" & Height.ToString & "px"
End If
If Width <> -1 Then
WindowAttrib += ";dialogWidth:" & Width.ToString & "px"
End If
If Left <> -1 Then
WindowAttrib += ";dialogLeft:" & Left.ToString & "px"
End If
If Top <> -1 Then
WindowAttrib += ";dialogTop:" & Top.ToString & "px"
End If
WindowAttrib += "'"

CodeBuild += "<script>window.showModalDialog('"
CodeBuild += Url
CodeBuild += UrlParams
CodeBuild += "',null,"
CodeBuild += WindowAttrib & ");</script>"

internalPage.Response.Write(CodeBuild)

End Sub

'Disposing Dell'oggetto e delle risorse...........................

'Variabile che identifica se l'oggetto è stato disposto.
Dim Disposed As Boolean

Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
'Comunica al CLR che il metodo Finalize non deve essere invocato...
GC.SuppressFinalize(Me)
End Sub

Protected Overrides Sub Finalize()
'Esegue il codice di Clean-up..
Dispose(False)
End Sub

Protected Sub Dispose(ByVal Disposing As Boolean)
'A questo punto esce se l'oggetto è già stato disposto...
If Disposed Then Exit Sub

If Disposing Then
'L'oggetto è stato disposto ma non finalizzato. E' libero di accedere
'ad altri oggetti(oltre a quelli di base) solamente all'inerno di questo blocco.
End If

'Esegue operazioni di CleanUp che devono essere effettuate in ogni caso.
internalPage.Dispose()
internalPage = Nothing

'Memorizza che l'oggetto è stato disposto.
Disposed = True

End Sub

Public Sub New(ByVal WebPage As System.Web.UI.Page)
internalPage = WebPage
End Sub

End Class

Rei.
63 messaggi dal 19 marzo 2004
reimasoft ha scritto:
Public Class PopupManager

Implements IDisposable

Public Url As String = ""
Public UrlParams As String = ""
Public Target As String = "_blank"
Public Height As Long = -1
Public Width As Long = -1
Public Left As Long = -1
Public Top As Long = -1
Public Resizable As Boolean = True
Public Status As Boolean = True
Public Toolbar As Boolean = False
Public Menubar As Boolean = False
Public Titlebar As Boolean = False
Public Location As Boolean = True
Public RenderHTML As String = ""
Public JavaScriptFunctionName As String = ""
Public RegisterAtStartUp As Boolean = False

Private internalPage As System.Web.UI.Page


' Open Method : Sample Code:
'Dim pp As New Reima.PopupManager(Me) ' istanzia un nuovo popupmanager
'pp.Url = "mypopuppage.aspx" ' definisce l'url (o la pagina web) che deve aprire nella popup
'pp.Height = 500 ' imposta le dimensioni..
'pp.Width = 500
'pp.Resizable = False ' la popup non sarà ridimensionabile
'pp.Open() ' l'open genera il javascript e apre la popup
'pp.Dispose() ' disposing risorse.


Public Sub Open()
Dim CodeBuild As String
Dim WindowAttrib As String
Dim Attrib As String

WindowAttrib += "'"

If Width <> -1 Then
WindowAttrib += "width=" & Width.ToString
End If
If Height <> -1 Then
WindowAttrib += ",height=" & Height.ToString
End If
If Left <> -1 Then
WindowAttrib += ",left=" & Left.ToString
End If
If Top <> -1 Then
WindowAttrib += ",top=" & Top.ToString
End If

If Resizable = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",resizable=" & Attrib

If Status = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",status=" & Attrib

If Toolbar = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",toolbar=" & Attrib

If Titlebar = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",titlebar=" & Attrib

If Menubar = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",menubar=" & Attrib

If Location = True Then Attrib = "yes" Else Attrib = "no"
WindowAttrib += ",location=" & Attrib

WindowAttrib += ",scrollbars=yes'"

CodeBuild += "<script language=javascript>"

' Se esiste il nome della funzione, non apre la popup, ma crea la funzione che poi puo' essere richiamata..
If JavaScriptFunctionName <> "" Then
CodeBuild += "function " & JavaScriptFunctionName & "(){"
End If

CodeBuild += "var newwindow = window.open('"
CodeBuild += Url
CodeBuild += UrlParams
CodeBuild += "','"
CodeBuild += Target & "',"
CodeBuild += WindowAttrib & ");"

If RenderHTML <> "" Then
CodeBuild += "newwindow.document.write('" & RenderHTML & "');"
End If

If JavaScriptFunctionName <> "" Then
CodeBuild += "}"
End If

CodeBuild += "</script>"

If RegisterAtStartUp Then
internalPage.RegisterStartupScript("", CodeBuild)
Else
internalPage.Response.Write(CodeBuild)
End If


End Sub

Public Sub OpenModal()
Dim CodeBuild As String
Dim WindowAttrib As String
Dim Attrib As String

WindowAttrib += "'"

If Height <> -1 Then
WindowAttrib += "dialogHeight:" & Height.ToString & "px"
End If
If Width <> -1 Then
WindowAttrib += ";dialogWidth:" & Width.ToString & "px"
End If
If Left <> -1 Then
WindowAttrib += ";dialogLeft:" & Left.ToString & "px"
End If
If Top <> -1 Then
WindowAttrib += ";dialogTop:" & Top.ToString & "px"
End If
WindowAttrib += "'"

CodeBuild += "<script>window.showModalDialog('"
CodeBuild += Url
CodeBuild += UrlParams
CodeBuild += "',null,"
CodeBuild += WindowAttrib & ");</script>"

internalPage.Response.Write(CodeBuild)

End Sub

'Disposing Dell'oggetto e delle risorse...........................

'Variabile che identifica se l'oggetto è stato disposto.
Dim Disposed As Boolean

Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
'Comunica al CLR che il metodo Finalize non deve essere invocato...
GC.SuppressFinalize(Me)
End Sub

Protected Overrides Sub Finalize()
'Esegue il codice di Clean-up..
Dispose(False)
End Sub

Protected Sub Dispose(ByVal Disposing As Boolean)
'A questo punto esce se l'oggetto è già stato disposto...
If Disposed Then Exit Sub

If Disposing Then
'L'oggetto è stato disposto ma non finalizzato. E' libero di accedere
'ad altri oggetti(oltre a quelli di base) solamente all'inerno di questo blocco.
End If

'Esegue operazioni di CleanUp che devono essere effettuate in ogni caso.
internalPage.Dispose()
internalPage = Nothing

'Memorizza che l'oggetto è stato disposto.
Disposed = True

End Sub

Public Sub New(ByVal WebPage As System.Web.UI.Page)
internalPage = WebPage
End Sub

End Class


ti ringrazio del codice,
ma c'è un problemino...come linguaggio io uso Visual Basic.

Un Anello per domarli, un Anello per trovarli,
un Anello per ghermirli e nel buio incatenarli
( J.R.R. Tolkien )
252 messaggi dal 18 dicembre 2001
Scusa questo che è? Hai postato su ASP.NET.. Comunque non dovrebbe essere difficile per te convertirlo in VB6.. un po' di pazienza, il codice non è molto. Io non posso fartelo per ovvi motivi di tempo..
Buon Lavoro!
Rei.

Rei.

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.