• Lunes 7 de Julio de 2025, 04:10

Mostrar Mensajes

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
JavaScript / Re: Barra de Menú flotante
« 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&Aacute;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&aacute;" 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
VB .NET / Re: Codigo
« 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
Papelera / Punto venta
« 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
VB .NET / Re: No Actualiza
« 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
VB .NET / No Actualiza
« 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
VB .NET / Re: Codigo Fuente!!!
« 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
Visual Basic 6.0 e inferiores / [Código Fuente] Gracias
« 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
VB .NET / Re: No actualiza datos en la base de datos:
« 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
VB .NET / Re: No actualiza datos en la base de datos:
« 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
VB .NET / Re: No actualiza datos en la base de datos:
« 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
VB .NET / Problemas en Update
« 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]