Mensajes

Esta es una colección personal de iconos para programadores, para el diseño de interfaces de usuario. Contiene más de 40.000 iconos (pero no esperen grandísima variedad, ya que algunos sets de iconos contienen varios miles de archivos).

Los iconos están clasificados en los siguientes directorios:

• Developers
• FileTypes
• Payments
• Social Media
• World Flags

Y dentro de cada directorio hay subdirectorios con los nombres de los sets de iconos.

Algunoss sets de iconos son de pago, pero la mayoría gratuitos.

La colección incluye la extensa librería de iconos oficial de Microsoft Visual Studio 2012.

SIn más, les dejo un enlace de descarga:



¡Saludos!

DONDE ESTA EL LINK..¿?¿?

Hola.

Tengo una pizarra y he dibujado algo en ella, pero hay un problema: no consigo limpiar la pizarra con el borrador. Para ayudarme tienes que adivinar que es lo que he dibujado, y que colores he usado...

Ya lo has dicho tú todo. No se puede añadir nada más.

Saludos.

no se si revisaste un poco mas abajo el tema, ya detalle todo...

-_-

Pues a no ser que uno se adivino no se como se te va a poder ayudar si no aportas código alguno ni dices que has usado si un datagridview o que. Tampoco dices si es VB o C#.

Solo dices que haces una factura y que la quieres limpiar. 

ESTO ES PARA VB.NET 2017 WINDOWS FORMS

bueno, para la parte de factura tengo 3 tablas,

uno q van los datos de la factura (nº fact, numero de identidad, nombres, fecha, sub total, impuesto y total,) y otra donde va a el detalle de la factura (nº factura otra vez, producto, cantidad, total del item) estas se guardan y forman una factura, datoos de factura se muestran con textbox para ingresar datos, y los detalles tambn, eso va asi

--------------------------------------------------------------------------------------------------
*Datos de Factura:
no factura ----textbox------
Nº identidad---textbox----
nombre -------textbox------               fecha---textbox------
*detalle de fact:
Producto -----textbox......
cantidad ------textbox-----
valor unitario -textbox------
                                             *tabla(datagridview)
|-------------------------------------------------------------------------------------------------
| cantidad |            Producto           | valor unitario |  total item                                   |
|_____________________________________________________________________|
|              |                                   |                      |                                                  |  
|              |                                   |                      |                                                  |
|              |                                   |                      |                                                  |
|              |                                   |                      |                                                  |
|              |                                   |                      |                                                  |
|              |                                   |                      |                                                  |
|_______ |____________________|___________|____________________________|
                                                                        subtotal -----textbox------
                               *Datos de factura:               impuesto ----textbox------
                                                                        total ----------textbox------
--------------------------------------------------------------------------------------------------

la cuestion es q para hacer la factura debo tener 2 tablas de detalle de factura en una base de datos (la cual por cierto trabajo en acces), porque en una se van a almacenar los datos permantemente, y la otra (temporal) solo va a ser al momento de llenar la factura, ya que cada vez q inicie nueva factura la tabladatagridview debe aparecer vacia

--------------------------------------------------------------------------------------------------

Código [Seleccionar] Expandir

Public Class Form_factura
   Private Sub Tabla_de_facturacionBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
       Me.Validate()
       Me.Tabla_de_facturacionBindingSource.EndEdit()
       Me.TableAdapterManager.UpdateAll(Me.BaseDeDatos1DataSet)

   End Sub

   Private Sub Tabla_de_facturacionBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs)
       Me.Validate()
       Me.Tabla_de_facturacionBindingSource.EndEdit()
       Me.TableAdapterManager.UpdateAll(Me.BaseDeDatos1DataSet)

   End Sub

   Private Sub Form_factura_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       'TODO: esta línea de código carga datos en la tabla 'BaseDeDatos1DataSet.tabla_Detalle_de_factura' Puede moverla o quitarla según sea necesario.
       Me.Tabla_Detalle_de_facturaTableAdapter.Fill(Me.BaseDeDatos1DataSet.tabla_Detalle_de_factura)
       'TODO: esta línea de código carga datos en la tabla 'BaseDeDatos1DataSet.Tabla_temporal_del_detalle_Fact' Puede moverla o quitarla según sea necesario.
       Me.Tabla_temporal_del_detalle_FactTableAdapter.Fill(Me.BaseDeDatos1DataSet.Tabla_temporal_del_detalle_Fact)
       'TODO: esta línea de código carga datos en la tabla 'BaseDeDatos1DataSet.Tabla_de_facturacion' Puede moverla o quitarla según sea necesario.
       Me.Tabla_de_facturacionTableAdapter.Fill(Me.BaseDeDatos1DataSet.Tabla_de_facturacion)
       Tabla_temporal_del_detalle_FactDataGridView.Hide()
       TotalTextBox1.Hide()
       Cod_productoTextBox1.Hide()
       ProductoTextBox1.Hide()
       CantidadTextBox1.Hide()
       Precio_unitarioTextBox1.Hide()
       TotalTextBox2.Hide()
       Sub_totalTextBox.ReadOnly = True
       TotalTextBox.ReadOnly = True

   End Sub



   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Tabla_de_facturacionBindingSource.AddNew()
       TotalTextBox.ReadOnly = True
       Sub_totalTextBox.ReadOnly = True
       Nº_de_FacturaTextBox.Focus()


   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Tabla_Detalle_de_facturaBindingSource.AddNew()
       FacturaTextBox.Text = Nº_de_FacturaTextBox.Text
       Tabla_temporal_del_detalle_FactBindingSource.AddNew()
       Cod_ProductoTextBox.Focus()
   End Sub

   Private Sub Cod_productoTextBox1_TextChanged(sender As Object, e As EventArgs) Handles Cod_productoTextBox1.TextChanged

   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim subt, cant, P_unit As String
       cant = CantidadTextBox.Text
       P_unit = Precio_unitarioTextBox.Text
       subt = cant * P_unit
       TotalTextBox1.Text = subt
       TotalTextBox2.Text = TotalTextBox1.Text
       Precio_unitarioTextBox1.Text = Precio_unitarioTextBox.Text
       CantidadTextBox1.Text = CantidadTextBox.Text
       ProductoTextBox1.Text = ProductoTextBox.Text
       Cod_productoTextBox1.Text = Cod_ProductoTextBox.Text

       'calcular
       Sub_totalTextBox.Text = Val(Sub_totalTextBox.Text) + (Val(CantidadTextBox.Text) * Val(Precio_unitarioTextBox.Text))
       If IvaTextBox.Text = "" Then
           TotalTextBox.Text = Sub_totalTextBox.Text
       Else
           TotalTextBox.Text = Val(Sub_totalTextBox) * (Val(IvaTextBox.Text) / 100)
       End If
       On Error GoTo saveErr

       Tabla_Detalle_de_facturaBindingSource.EndEdit()
       Tabla_Detalle_de_facturaTableAdapter.Update(BaseDeDatos1DataSet.tabla_Detalle_de_factura)
       Tabla_temporal_del_detalle_FactBindingSource.EndEdit()
       Tabla_temporal_del_detalle_FactTableAdapter.Update(BaseDeDatos1DataSet.Tabla_temporal_del_detalle_Fact)


saveErr:
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


       Dim a As String
       Tabla_Detalle_de_facturaDataGridView.AllowUserToDeleteRows = True

       a = MsgBox("¿Realmente desea eliminar el fichero?", vbQuestion + vbYesNo, "Eliminar")
       If a = vbYes Then
           On Error GoTo saveerr
           Tabla_Detalle_de_facturaBindingSource.RemoveCurrent()
           Tabla_Detalle_de_facturaTableAdapter.Update(BaseDeDatos1DataSet.tabla_Detalle_de_factura)

saveerr:

       End If

   End Sub

   Private Sub But_buscar_Click(sender As Object, e As EventArgs) Handles But_buscar.Click
       With frm_buscar
           .busqueda = "Clientes"
           .Tabla_de_ClientesDataGridView.Visible = True
           .Show()

       End With
   End Sub


   Private Sub IvaTextBox_TextChanged(sender As Object, e As EventArgs) Handles IvaTextBox.TextChanged
       Try
           TotalTextBox.Text = TotalTextBox.Text + (Sub_totalTextBox.Text * (IvaTextBox.Text / 100))
       Catch ex As Exception

       End Try
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs)

   End Sub

   Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
       On Error GoTo saveErr
       Tabla_de_facturacionBindingSource.EndEdit()
       Tabla_de_facturacionTableAdapter.Update(BaseDeDatos1DataSet.Tabla_de_facturacion)
       MsgBox("Factura guardada correctamente", vbInformation, "Guardar")
saveErr:
   End Sub

   Private Sub But_refresh_Click(sender As Object, e As EventArgs) Handles But_refresh.Click
       Me.Tabla_de_facturacionTableAdapter.Fill(Me.BaseDeDatos1DataSet.Tabla_de_facturacion)

   End Sub

   Private Sub But_search_Click(sender As Object, e As EventArgs) Handles But_search.Click
       Dim a As String
       a = InputBox("Ingrese Fecha", "Buscar")
       Me.Tabla_de_facturacionTableAdapter.FillBy(Me.BaseDeDatos1DataSet.Tabla_de_facturacion, a)
   End Sub

   Private Sub But_lastest_Click(sender As Object, e As EventArgs) Handles But_lastest.Click
       Tabla_de_facturacionBindingSource.MoveLast()
   End Sub

   Private Sub But_next_Click(sender As Object, e As EventArgs) Handles But_next.Click
       Tabla_de_facturacionBindingSource.MoveNext()
   End Sub

   Private Sub But_return_Click(sender As Object, e As EventArgs) Handles But_return.Click
       Tabla_de_facturacionBindingSource.MovePrevious()
   End Sub

   Private Sub But_returnf_Click(sender As Object, e As EventArgs) Handles But_returnf.Click
       Tabla_de_facturacionBindingSource.MoveFirst()
   End Sub

   Private Sub Cod_ProductoTextBox_TextChanged(sender As Object, e As EventArgs) Handles Cod_ProductoTextBox.TextChanged

   End Sub

   Private Sub TabPage2_Click(sender As Object, e As EventArgs) Handles TabPage2.Click

   End Sub

   Private Sub But_dele_Click(sender As Object, e As EventArgs) Handles But_dele.Click
       Dim a As String
       a = MsgBox("¿Realmente desea eliminar el fichero?", vbQuestion + vbYesNo, "Eliminar")
       If a = vbYes Then
           Tabla_de_facturacionBindingSource.RemoveCurrent()
           Tabla_de_facturacionTableAdapter.Update(BaseDeDatos1DataSet.Tabla_de_facturacion)

       End If
   End Sub

   Private Sub But_menuAnterior_Click(sender As Object, e As EventArgs) Handles But_menuAnterior.Click
       Me.Close()
   End Sub

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Me.Close()
   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       With frm_buscar
           .busqueda = "Producto"

           .Show()

       End With
   End Sub
End Class



ese es el codigo, y bueno nose como ingresarlo para q se distingan los colores... pero ese es y si funciona.. lo q no esta es integrada la tabla temporal, siempre q ingreso nueva factura me toca elimiar los detalles q esten escritos y hacer una nueva, por ende no guardo los detalles, solo lo de la parte de datos de facctura.

no se si es entendible ahora...

En la realizacion de una Factura, ya tengo casi todo, solo me ocurre un inconveniente, al momento de ingresar una nueva factura mi tabla de descripcion de factura temporal no se limpia... ?? como hago eso.. ayuda please.?¿?!!!!

 

Justo lo q buscaba, sabia q en este foro iba a encontrar! Gracias!!

ya consegui hacerlo, iba a eliminar la pregunta, pero mejor publicare la solucion:

1) abrimos el trabajo "nombre-del-proyecto.sln" (se abre pero todo esta vacio)

2) abrimos explorador de soluciones

3) doble click en la form q desea abrir...

hola, bueno me surgio un incomveniente y queria pedir su ayuda para solucionar esto..
estoy haciendo un proyecto en grupo en visual basic 2017 con la aplicacion Windows forms, y todo lo hice en la pc de una amiga, ahora ella me paso el proyecto en un archivo .rar y lo descarge en mi pc, lo descomprimi y al abrir el "proyecto.sln"  en mi visual no salen los formularios ni el ambiente grafico,
si pongo ejecutar, todo esta tal como lo hicimos pero no me salen en pantalla para modificarlos o agregar mas asuntos

entre en la carpeta donde se guardan los formularios y los arrastre hasta el proyecto para q salgan, pero igual no me sale el ambiente grafico, todo me sale en codigos y ademas me salen demasiadas pestañas como x ejemplo esto:

Código [Seleccionar] Expandir

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form_Produc_Modi
    Inherits System.Windows.Forms.Form

    'Form reemplaza a Dispose para limpiar la lista de componentes.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Requerido por el Diseñador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
    'Se puede modificar usando el Diseñador de Windows Forms. 
    'No lo modifique con el editor de código.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Text = "Form_Produc_Modi"
    End Sub
End Class



como puedo hacer para abrir el proyecto y q salga todo como se supone q debe salir, la programacion y el ambiente grafico??

Gracias NEBIRE,

Todo  esto ha sido de mucha utilidad... tengo examen de programacion en dos semanas asi q me estoy alistando para la prueba xq mi profesor siempre nos plantea ejercicios de cosas q no ha explicado... como por ejemplo esto del "do" "loop while" anidado con boolean true-false

gracias, lo hice tal cual, y si me salio ya lo de los rangos... mira quedo asi:

Código [Seleccionar] Expandir

Imports System.Console

Module Module1

   Sub Main()
       rangos()

       ReadLine()
   End Sub
   Sub rangos()
       Dim dia, mes, año As Integer
       Dim rango As Boolean = False

       Try
           WriteLine("ingrese la fecha")
           Do
               WriteLine("Dia:")

               dia = ReadLine()
               If dia >= 1 And dia < 32 Then
                   rango = True

               Else
                   WriteLine("'Ingrese un dia entre el rango: 1 - 31'")
               End If
           Loop While rango = False
           Do
               WriteLine("Mes:")
               mes = ReadLine()
               If mes >= 1 And mes < 13 Then
                   rango = False

               Else
                   WriteLine("'Ingrese un mes entre el rango: 1 - 12'")
               End If
           Loop While rango = True

           Do
               WriteLine("Año")
               año = ReadLine()
               If año >= 1800 And año < 2020 Then
                   rango = True

               Else
                   WriteLine("'Ingrese un año entre el rango: 1800 - 2020'")
               End If
           Loop While rango = False
       Catch e As Exception
           WriteLine(e.Message)
       End Try

       WriteLine("|dia|mes|año|")

       WriteLine("{0}-{1}-{2}", dia, mes, año)

   End Sub

End Module


ahora tengo otra duda...
como vez utilice un try y catch para ver el mesaje de error cuando en lugar de ingresar un numero ingresan una letra, y bueno cuando eso pasa no se cierra la ejecucion pero si la lleva al final,

la pregunta es:

como hago para q cuando ingresen una letra en lugar de un numero me bote el mesaje de error al ingresar letra en lugar de numero (eso ya esta) y ademas se pueda volver a repetir la accion.?

Código [Seleccionar] Expandir

ingrese la fecha
Dia:
r
La conversión de la cadena "r" en el tipo 'Integer' no es válida.
|dia|mes|año|
0-0-0

asi es como sale ahorita,
pero en lugar de llevarme al final q me permita volver a ingresar los datos del dia o mes o año, en donde haya el error...
xq sino corre asi:

Código [Seleccionar] Expandir

ingrese la fecha
Dia:
21
Mes:
14
'Ingrese un mes entre el rango: 1 - 12'
Mes:
12
Año
r
La conversión de la cadena "r" en el tipo 'Integer' no es válida.
|dia|mes|año|
21-12-0

bueno estuve pensando como hacer lo de los rangos y se me ocurre algo como

año  = readline() si año >1800 y año <2020, caso contrario (preguntar año nuevamente)

el problema es q nose como plantear eso en el algoritmo

y bueno claro previamente ingresar un mensaje q diga solo puede ingresar años entre 1800 y 2020, y ademas luego de eso tengo q aumentar try and catch para q me envie el mensaje de la falla en lo q ingrese