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 - taliban

Páginas: [1]
1
perfecto no me salia lo de

If (My.Computer.FileSystem.FileExists(fullPath))

gracias

2
hola , cuando creas la copia de seguridad la copia sin problemas en el directorio que elijas pero el problema es cuando decides hacer otra copia, si en la carpeta donde hiciste la ultima copia sigue estando hay ,te salta un error ,si tu antes de hacer la copia borras la antigua , te la copia sin ningun problema , como consigo que me borre la antigua para grabar la copia nueva ?
 gracias

4
hola he creado un ToolStripMenu con un savefiledialog para cuando abras busques la base de datos clientes.sdf la selecciones y busques una ubicacion fuera del directorio donde se instalo para  hacer click en el boton guardar y guardarla , bien todo va bien , el problema es que cuando guarda la base de datos le das a propiedades en el archivo guardado y pone que ocupa 0 bytes.


Código: [Seleccionar]
   Private Sub CopiaDeSeguridadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CopiaDeSeguridadToolStripMenuItem.Click
        Dim mystream As Stream
     

        Dim abrir As SaveFileDialog
        abrir = New SaveFileDialog
        abrir.InitialDirectory = "c:\dos"
        abrir.RestoreDirectory = True
        abrir.Title = "Selecciona la base de datos Clientes.sdf "
        If abrir.ShowDialog() = Windows.Forms.DialogResult.OK Then


            mystream = abrir.OpenFile



            If (mystream IsNot Nothing) Then
                mystream.Close()

            End If
        End If


    End Sub

5
hola he reducido el tamaño del formulario y lo imprime todo pero no ocupa el tamaño completo de la hoja  a4,hay algun código para eso o es problema de la impresora ?  gracias

6
gracias lo he probado y funciona muy bien , pero al imprimir no me sale el formulario completo , no imprime una parte de la derecha y no se porque

Código: [Seleccionar]
Private Sub btnimprimirfactura_Click(sender As System.Object, e As System.EventArgs) Handles btnimprimirfactura.Click

        Dim configpg As PageSettings
        Dim configprt As PrinterSettings
        configpg = New PageSettings
        configprt = New PrinterSettings
        PageSetupDialog1.PageSettings = configpg
        PageSetupDialog1.AllowPrinter = True
        PageSetupDialog1.PrinterSettings = configprt
        PageSetupDialog1.ShowDialog()
        MessageBox.Show("Ha elegido la impresora  " & "  en papel  " & PageSetupDialog1.PageSettings.PaperSize.PaperName & "  en formato  " & (IIf(PageSetupDialog1.PageSettings.Landscape, "  Horizontal  ", "  Vertical  ")))


        ' If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then


        'PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintForm1.Print()

        'PrintDocument1.Print()

        ' End If

    End Sub

7
hola ,mi problema,  no se como conseguir que me imprima todo el form ordenado cada textbox en su sitio y si hay alguna forma mejor de hacerlo, o si se puede con un codigo imprimir todo el form
ami me imprime line sobre linea , una en cima de otra

Código: [Seleccionar]
Private Sub btnimprimirfactura_Click(sender As System.Object, e As System.EventArgs) Handles btnimprimirfactura.Click
        If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
            PrintDocument1.Print()

        End If

    End Sub

    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawString(IdTextBox.Text, New Font("Verdana", 12, FontStyle.Bold), Brushes.Black, 10, 10)
        e.Graphics.DrawString(NombreTextBox.Text, New Font("Verdana", 12, FontStyle.Bold), Brushes.Black, 100, 20)
        e.Graphics.DrawString(ApellidosTextBox.Text, New Font("Verdana", 12, FontStyle.Bold), Brushes.Black, 14, 14)
        e.Graphics.DrawString(NombreempresaTextBox.Text, New Font("Verdana", 12, FontStyle.Bold), Brushes.Black, 16, 16)

        e.Graphics.DrawString(Elemento1TextBox.Text, New Font("Verdana", 12, FontStyle.Bold), Brushes.Black, 18, 18)
        e.Graphics.DrawString(Importe1TextBox.Text, New Font("Verdana", 12, FontStyle.Bold), Brushes.Black, 19, 19)
    End Sub

8
muchas gracias Alex lo he echo con un picturebox porque con el backgroundimage me a sido imposible podia cambiar el backgroundimage pero no se me guardaba , un saludo y muchas gracias

9
hola Alex muchas gracias por ayudarme y contestarme , lo estoy probando pero no consigo hacerlo he probado creando una variable  y lo intento guardar en my.setting pero me da el error que muestro en la imagen , "menudo lio "

10
hola he buscado por todos los sitios pero no consigo que cuando se reinicie el programa se guarde en la my.setting el backgroundimage he adjuntado dos imagenes de como lo he echo , gracias

11
gracias fredo me funcionó ahora voy a probar haber sidespués de reiniciar el programa si se guarda el fondoen la base de datos, supongo que complicado , gracias a todas las respuestas

12
Hola Alex esque no se ha que te refieres con el codigo completo ,
lo digo porque es bastante largo , esque estoy terminado un programa con base de datos, y me falta eso , gracias

14
hola , estoy intentando insertar una imagen como fondo en un programa consigo abrir el showdialog pero selecciono la foto y no se pone de fondo se que le faltan codigos pero no se cuales 

Código: [Seleccionar]
Private Sub SeleccionarUnaToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SeleccionarUnaToolStripMenuItem.Click
        Dim dlgabrir As OpenFileDialog

        dlgabrir = New OpenFileDialog
        dlgabrir.InitialDirectory = "C:\dos"
        dlgabrir.Title = "Selecciona la imagen que desea como fondo "
        dlgabrir.Filter = "Imagenes |*.bmp;*.gif;*.jpg"

        Me.BackgroundImageLayout = ImageLayout.Stretch
        dlgabrir.ShowDialog()
    End Sub


15
ok gracias Javi conseguido

en   nombredelarchivo.exe.manifest  , cambie el

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
hay si me deja y despues de la instalaciòn se ejecuta automaticamente como administador .
 Muchas gracias Javi

16
Hola javi in the sky , he probado tu apunte pero me da el siguinete error en visual studio 2010 antes de compilarlo


Error   1   ClickOnce no admite el nivel de ejecución de solicitudes 'requireAdministrator'.

y esto es un trozo de mi manifiesto

 <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
' solo me deja con "asInvoker" 
    </requestedPrivileges>
      <applicationRequestMinimum>
        <PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
        <defaultAssemblyRequest permissionSetReference="Custom" />   

gracias

18
hola he creado un programa con base de datos sdf estoy haciendo el instaldor con install creator pro y mi duda ya que la base de datos en el manifiesto esta echa para su uso exclusivo en administador , ¿ como puede crear el instalador para que el ejecutable se instale en el pc en modo administador ?

lo que quisiera es que se ejecutase sin tener que seleccionar modo administadro
gracias ya que sino no le la base de datos

Páginas: [1]

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación

Preguntas y respuestas

¿Cómo establecer o cambiar la imagen asociada (avatar) de usuario?
  1. Inicia sesión con tu nombre de usuario y contraseña.
  2. Pulsa en perfil --> perfil del foro
  3. Elige la imagen personalizada que quieras usar. Puedes escogerla de una galería de imágenes o subirla desde tu ordenador.
  4. En la parte final de la página pulsa el botón "cambiar perfil".