|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - EDGAR123
Páginas: [1]
1
« en: Sábado 9 de Abril de 2011, 02:00 »
pues yo tengo un ejemplo que me encontre en internet espero y te funcione creas uin archivo llamado funciones: /******************************************************************/ /* AQUI COMIENZAN LAS FUNCIONES QUE MUEVEN LA TOOLSBAR FLOTANTE */ /******************************************************************/ document.onmousemove=function(e) { if (_IE_ ) { e = window.event; } if (capa != null) { capa.style.top = (e.clientY-difY)+"px"; capa.style.left = (e.clientX-difX)+"px"; } } // end document.onmousemove
var capa = null; // Almacena la capa que se mueve var _IE_ = navigator.userAgent.indexOf("MSIE") != -1; // Si es IE function liberaCapa() { capa = null; } // endfunction liberaCapa
function clickCapa(e) { capa = document.all ? document.all("menuFlotante") : document.getElementById("menuFlotante"); // En IE y Opera se usa otra propiedad del evento y ademas hay variación en las coordenadas if (_IE_) { difX = e.offsetX+14; difY = e.offsetY+24; } else { difX = e.layerX; difY = e.layerY; } } // endfunction clickCapa function mueveCapa(e) { if (capa != null) { capa.style.top = (e.clientY-difY)+"px"; capa.style.left = (e.clientX-difX)+"px"; } } // endfunction mueveCapa
/******************************************************************/ /* FIN DE LAS FUNCIONES QUE MUEVEN LA TOOLSBAR FLOTANTE */ /******************************************************************/
*********************************************************************************************************************************************************************** Despues en el codigo HTML organizas los div y las funciones necesarias
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title>ToolsBar con efecto Alfa</title> <link href="estilos/special_layers.css" rel="stylesheet" type="text/css" />
<style type="text/css"> <!-- body { background-color: #7b93a9;
margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style>
<script language="javascript" src="funciones.js"></script> <script language="javascript"> function change_opacity(Xopacity) { var Xalpha = Xopacity*100; var obj_menuFlotante = document.all ? document.all("menuFlotante") : document.getElementById("menuFlotante"); var obj_imgToolBar = document.all ? document.all("imgToolBar") : document.getElementById("imgToolBar"); document.all ? obj_menuFlotante.style.filter = "alpha(opacity="+Xalpha+");" : obj_menuFlotante.style.opacity = Xopacity; if (Xopacity == 1) obj_imgToolBar.src = "imagenes/icon_toolbar_color.gif"; else obj_imgToolBar.src = "imagenes/icon_toolbar.gif"; } // endfunction
function accion(Xopc) { switch(Xopc) { case 1: alert("Ha seleccionado todos los registros."); break; case 2: alert("Se han grabado los cambios."); break; } // endswitch } </script> </head> <body> <form name="forma1" action="" method="get" > <!-- DEFINICIÓN DE LAYER PARA TOOLSBAR --> <div id="menuFlotante" class="menuf" onclick="javascript:change_opacity(1);" onmouseover="javascript:change_opacity(1);" onmouseout="javascript:change_opacity(.3);"> <p class="menuf"> <img id="imgToolBar" src="imagenes/icon_toolbar.gif" width="45" height="45" alt="ToolBar" title="Haga doble click con el mouse para mover la Barra de Herramientas." style="cursor:move" ondblclick="clickCapa(event);" onmouseup="liberaCapa();" /> <br /><br /> <a href="javascript:accion(1);" title="Seleccionar."><img src="imagenes/tick.png" width="16" height="16" title="Seleccionar." /></a> <img src="imagenes/separator_50x10.gif" width="50" height="10" /> <a href="javascript:accion(2);" title="Guardar."><img src="imagenes/disk.png" width="16" height="16" title="Guardar." /></a> <img src="imagenes/separator_50x10.gif" width="50" height="10" /> <a href="javascript:window.print();" title="Imprimir esta ventana."><img src="imagenes/printer.png" width="16" height="16" title="Imprimir esta ventana." /></a> <a href="javascript:window.location.reload();" title="Recargar esta ventana."><img src="imagenes/arrow_refresh.png" width="16" height="16" title="Recargar esta ventan." /></a> <a href="javascript:alert('En construcción...');" title="Ayuda sobre esta ventana."><img src="imagenes/help.png" width="16" height="16" title="Ayuda sobre esta ventana." /></a> <a href="javascript:window.close();" title="Cerrar esta ventana."><img src="imagenes/cancel.png" width="16" height="16" title="Cerrar esta ventana." /></a> </p> </div> <!-- FIN DEL LAYER PARA TOOLSBAR --> </form> <h1>CREAR UN BARRA DE HERRAMIENTAS QUE PERMITA VER LO QUE HAY DEBAJO Y ADEMÁS PERMITA MOVELA DE LUGAR. QUE AL PASAR EL APUNTADOR SOBRE LA BARRA SE HAGA SOLIDA.<br /><br /> Prueba moviendo la barra de herramientas haciendo doble click sobre este icono: <img src="imagenes/icon_toolbar_color.gif" width="45" height="45" />, suelta el mouse y la toolbar se "pegará" al mouse, entonces múevelo para donde tú quieras y para "soltar" la toolbar simplemente haz un click.<br /><br /> Funciona para los navegadores IExplorer 6 en adelante, Netscape, Opera y cualquier Mozilla. </h1> <h2>Nota: En IExplorer 7 puede poner el aviso de si deseas ejecutar un control Activex, hay que permitirlo, para que funcione correctamente.</h2> </body> </html>
y eso es todo el codigo si deseas tener un aspecto mas agradable del la barra de erramientas nada mas es de implementar un hoja de estilos (CSS) y darle el diseño que prefieras. espero y te funcione. bye
2
« en: Lunes 25 de Enero de 2010, 21:58 »
Hola espero que mi respuesta te sirva pero tambien pudes hacer tus formularios con un metodo public o private. y los puedes llamar desde un boton. Este es un ejemplo.
Public Sub CreateMyForm() ' Creas una nueva instancia de formulario Dim form1 As New Form() ' Creas dos botones aceptar y cancelar Dim button1 As New Button() Dim button2 As New Button()
' Le colas el texto al boton 1 "OK". button1.Text = "OK" ' Posicion del boton en el Form button1.Location = New Point(10, 10) ' Le colocas texto al boton 2 "Cancel". button2.Text = "Cancel" ' posicion del boton2 en base al boton1 button2.Location = _ New Point(button1.Left, button1.Height + button1.Top + 10) ' Texto del Form form1.Text = "My Dialog Box" ' Muestas la opcion ayuda form1.HelpButton = True
' Defines estilo y borde form1.FormBorderStyle = FormBorderStyle.FixedDialog ' Remover la obcion maximizar de la barra de titulo form1.MaximizeBox = False ' mismo procedimieto para el boton minimizar form1.MinimizeBox = False ' evento aceptar. form1.AcceptButton = button1 ' evento cancelar. form1.CancelButton = button2 ' Posicion de inicio del formulario form1.StartPosition = FormStartPosition.CenterScreen
' Añadir botones al formulario form1.Controls.Add(button1) form1.Controls.Add(button2)
' Mostrar el formulario. form1.ShowDialog() End Sub
Despues lo madas llamar en el evento clic de un boton. call CreateMyForm()
espero y te sirva es algo sencillo..
3
« en: Sábado 16 de Enero de 2010, 18:49 »
alguien me puede ayudar hacer un punto de venta. la verdad es que no se nada de Java, bueno el punto es que es un proyecto de titulacion, y pues si me pueden dan referencias o mandar un ejemplo para poder guiarme este es mi correo edgarhno1@hotmail.com
4
« en: Sábado 8 de Agosto de 2009, 02:24 »
Gracias compañero me funciono de maravilla gracias por tu ayuda perdon en no contestarr a qui estoy para ayudarte si puedo bye
5
« en: Domingo 19 de Julio de 2009, 23:11 »
Hola Compañeros Bueno escrio solamente aver si me pueden ayudar mi problema es que cuando selecciono una fila del datagrid para actualiza datos y cambio los datos y al momento que le doy actualizar finge que actualiza pero en realidad no lo actualiza en la base de datos este es mi codigo si me pueden ayudar porfavor se los agradeceria jajaja
CODIGO... Try Dim pregunta As String pregunta = MsgBox("Desea Actualizar sus Datos", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "ACTUALIZAR")
If pregunta = vbYes Then Me.BindingContext.Item(Me.DsBuscar1.Empleados).EndCurrentEdit() Me.OleDbDataAdapter1.SelectCommand.CommandText = "UPDATE Equipos_Seguridad INNER JOIN (Empleados INNER JOIN [Entregado a] ON Empleados.No_Trabajador = [Entregado a].No_trabajador) ON Equipos_Seguridad.No_Equipo = [Entregado a].No_Equipo SET Empleados.[Nombre(s)] = " & Me.txtnombre.Text & ", Empleados.Apellido_Paterno = " & Me.txtapp.Text & ", [Entregado a].Fecha_Entrega = " & Me.DateTimePicker1.Text & ", [Entregado a].Cantidad = " & Me.txtCantiad.Text & ", Equipos_Seguridad.Nombre_Equipo = " & Me.txtNombreEquipo.Text & "" Me.DsBuscar1.Empleados.AcceptChanges() MsgBox("Datos Actualizados Perfectamente", MsgBoxStyle.Information, "ACTUALIZAR")
ElseIf pregunta = vbNo Then Me.Close() End If Catch ex As Exception MsgBox("Error " + ex.ToString, MsgBoxStyle.Critical, "Error") End Try Me.DsBuscar1.Empleados.Clear()
GRACIAS SALUDOS....
6
« en: Viernes 17 de Julio de 2009, 01:06 »
Hola compañero a lo mejor ya te contestaron pero solo quiero decir que yo tengo un juego que hice en visual.net 2003 del horcado si toda bia lo quieres ps deja buscarlo y espero tu respuesta ok para hacerlo nuevamente
7
« en: Jueves 16 de Julio de 2009, 00:35 »
Gracias esto es muy interesante y cada dia puedo aprender cosas nuevas sigue subiendo ese tipo de aportaciones Gracias.....
8
« en: Martes 14 de Julio de 2009, 20:08 »
PS muchas gracias ya te mande mi proyecto a tu correo de gmail y ps espero me puedas ayudar te lo agradesco de antemano bye
9
« en: Martes 14 de Julio de 2009, 05:38 »
Denada oye espero que te aya servido de algo y ps si me puedes ayudar tu tambien te lo agradeceria mira este es mi problema
esta en los foros se llama Problemas en Update ok
si sabes como porfa help me jajaja
TODOS SOMOS IGNORANTES PERO TODOS IGNORAMOS COSAS DIFERENTES
10
« en: Martes 14 de Julio de 2009, 00:39 »
puedes interntar esto try If MsgBox("Desea actualizar los datos?...", MsgBoxStyle.YesNo + MsgBoxStyle.information, "Manteni") = MsgBoxResult.Yes Then Me.BindingContext.Item(Me.DsEmpleados1.Empleados).EndCurrentEdit() Me.OleDbDataAdapter1.Update(Me.DsEmpleados1.Empleados) Me.DsEmpleados1.Empleados.Clear() MsgBox("Datos Actualizados Perfectamente", MsgBoxStyle.Information, "Manteni") End If
Catch ex As Exception
MsgBox("Error " + ex.ToString, MsgBoxStyle.Critical, "Error")
End Try
solamente te oriento aplicalo en forma correcta en tu proyecto ok saludos espero que funcione
11
« en: Lunes 13 de Julio de 2009, 01:44 »
hola. a todos... tengo un pequeño sistemita donde se ace un A,B,C ok mi proble es que hice un formulario para hacer una consulta general de todas las tablas coloque un combo box pra tener diferentes obciones de busqueda como No_Trabajador,Nombre etc... y un textbox para buscar lo que quisiese y tambien tengo un boton modificar alcual al darle clic me manda los datos del DataGrid a otro formulario para modificarlos hata ahi esta todo bien el problema es al guardar los cambios me sale un error con este mensaje
Información adicional: Update requires a valid UpdateCommand when passed DataRow collection with modified rows. el cual no se como usar este es mi codigo si tiene un error me podrian ayudar porfavor
Private Sub Modificar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.OleDbConnection1.Open() Me.DsBuscar1.Empleados.Clear() Me.OleDbDataAdapter1.SelectCommand.CommandText = "SELECT Empleados.No_Trabajador, Empleados.[Nombre(s)], Empleados.Apellido_Paterno, [Entregado a].No_Entrega, [Entregado a].Fecha_Entrega, [Entregado a].Cantidad, Equipos_Seguridad.Nombre_Equipo, Equipos_Seguridad.No_Equipo FROM ((Empleados INNER JOIN [Entregado a] ON Empleados.No_Trabajador = [Entregado a].No_trabajador) INNER JOIN Equipos_Seguridad ON [Entregado a].No_Equipo = Equipos_Seguridad.No_Equipo) WHERE Empleados.No_Trabajador like " & id Me.OleDbDataAdapter1.Fill(Me.DsBuscar1.Empleados) Me.OleDbConnection1.Close() End Sub
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click Me.BindingContext.Item(Me.DsBuscar1.Empleados).EndCurrentEdit() Me.OleDbDataAdapter1.Update(Me.DsBuscar1.Empleados) Me.DsBuscar1.Empleados.Clear() End Sub End Class en la linea Me.OleDbDataAdapter1.Update(Me.DsBuscar1.Empleados) aqui me aparece el error
disculpen las molestias soy nuevo en esto y no tengo esperiencia
NOTA: uso visual studio.net 2003 y access 2003
SALUDOS
Páginas: [1]
|
|
|