hola... vuelvo a repetir que no tengo mucha experiencia trabajando en asp. y no se que es un .js :( pero aqui esta el codigo:
------------------------codigo del web form que funciona---------------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Página sin título</title>
</head>
<body>
<form id="form1" runat="server">
<div>
Probando el Calendario en VB:<br />
<br />
<asp:TextBox ID="txtFecha" runat="server"></asp:TextBox>
<asp:Button ID="txtPrueba1" runat="server" Text="Sin valor por defecto" /> <asp:Button
ID="txtPrueba2" runat="server" Text="Con valor por defecto" /></div>
</form>
</body>
</html>
--Aqui se manda a llamar a la funcion que esta en la clase Micalendario la cual muestra el pop-up con el calendario--
MiCalendario.verCalendario(Me, "txtFecha", txtFecha.Text)
+++++++++++++++++++++++++++'clase Micalendario++++++++++++++++
Public MustInherit Class MiCalendario
Private Shared inicio As String = "<script language='JavaScript'>document.getElementById('"
Private Shared nombre As String = "').value = showModalDialog('calendario.aspx'"
Private Shared atributos As String = "'dialogTop=100px; dialogLeft=250px; dialogWidth=206px; " & _
"dialogHeight=205px; center=yes; help=no; status=no; menubar=no; resizable=no; border=thin')"
Public Shared Sub verCalendario(ByRef pagina As System.Web.UI.Page, ByVal control As String)
Dim wFecha As String = inicio & control & nombre & ",'', " & atributos & "</script>"
pagina.ClientScript.RegisterStartupScript(pagina.G etType(), "ventana", wFecha)
End Sub
Public Shared Sub verCalendario(ByRef pagina As System.Web.UI.Page, ByVal control As String, ByVal _default As String)
Dim wFecha As String = inicio & control & nombre & ", '" & _default & "', " & atributos & "</script>"
pagina.ClientScript.RegisterStartupScript(pagina.G etType(), "ventana", wFecha)
End Sub
End Class
-------codigo del webform que no funciona hereda del MasterPage-------
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<asp:Button ID="Button1" runat="server" Text="calendario" />
<asp:TextBox ID="txtFecha" runat="server"></asp:TextBox>
</asp:Content>
---Aqui se manda a llamar a la funcion que esta en la clase Micalendario la cual muestra el pop-up con el calendario---
MiCalendario.verCalendario(Me, "txtFecha", txtFecha.Text)
please de verdad necesito ayuda... necesito esto para continuar con mi proyecto de residencia profesional...
grax........