SoloCodigo

Hola de nuevo compañeros,

Me estoy volviendo loco    buscando la forma de superponer una imagen o un texto transparente en un grid! Quiero poner la palabra "FACTURADO" encima de un datagrid donde muestro una serie de datos. Lo he probado con un label de fondo transparente, con imágenes transparentes (GIF) en picturebox de fondo transparente, colocados como imagen y como fondo,...pero no hay manera!!  El transparente SIEMPRE llega hasta el fondo de formulario!!!

Alguien tienen una idea de cómo puedo solucionarlo??

Quizá Soultaker que está siempre trabajando con imágenes .....  

Saludos!

Hola de nuevo!!


Alguien sabría enumerar-me la sucesión de eventos que tienen lugar en un TabControl al activarlo??

Mi problema es que tengo toda una serie de rutinas a ejecutar cuando entro en las diferents TabPages de un TabControl, las cuales ejecuto en el evento ENTER. Éste se me ejecuta sin ningún problema cuando cambio de TabPage a través de instrucciónes de código (TabControl.SelectedIndex=TabPageIndex), pero cuando entro en la TabPage haciendo click con el mouse en la pestaña, se me vuelve "loco" (aún y controlando los eventos click, mousedown,...del TabControl).
                                                                   

Alguien tiene una idea de cómo podría controlarlo?  

Saludos,

Una forma sencilla sería con una subrutina con un pequeño bucle a la que le pasamos el valor capturado en el combobox (supongo que será el cliente):

p.e.  

Private Sub Buscar_Posición_Cliente(byVal CliCapturado as String)
Dim Posición as Short =0
Dim cDataRow as TuDataRow.TuDataTableRows
For Each cDatarow in TuDataSet.TuDataTable
if TuDataSet.TuTabla.Rows(i).Item("Cliente") <> CliCapturado Then
Posición +=1
Else
Exit For
Next


...creo que te puede funcionar.

Saludos,

Senzao...ahí t'as pasao!  

Anakin, si hay múltiples imágenes en el mismo formulario...lo tienes crudo, ya que, como bién dices, el color "transparent" lo que hace es un "agujero" hasta el formulario. Una de dos, o te limitas a poner las etiquetas fuera de las imágenes o te haces una composición de las imágenes tal y como las quieres con el Photoshop o el Corel o hasta, incluso, con el PowerPoint (haces la composición en una página y después le dices Guardar como... JPG), y lo metes como BackgroundImage del Formulario. Si no,....crudo, crudo,...


Saludos y Felices Fiestas

je,je...a veces cuesta...

Bueno, por lo que parece...creo tienes que ir a Agregar Referencias y en la pestañita COM buscar las herramientas de Corel Draw. Agregarlas y, luego, con el Examinador de Objetos, ver qué es lo que te permiten hacer esas herramientas y ...hasta ahí llego...... .... ya que supongo que por la parte de capturar la imagen y abrir la aplicación lo debes tener 100% controlado.


Saludos y Felices Fiestas

Hey, por si te sirve, encontré el código que te dije en VB 4.0 (tamaño previsto del form 800x600).    

Es más sencillo de lo que pensava....

Public Sub Degrada(vForm As Form)
vForm.ScaleMode = 3
vForm.ScaleHeight = 256
For i = 0 To 255
    vForm.Line (0, i)-(Screen.Width, i - 1), RGB(0, 0, 255 - i), B
Next i
End Sub

Fácil no??  

Saludos,

Hola otra vez.

Solucioné el segundo caso!  

Lo hice quitando la instrucción marcada en rojo y modificando la posición de la instrucción marcada en amarillo hacia donde está la misma en azul (básicamente, situe el foco en la celda anterior antes de proceder a realizar las instrucciones INSERT/UPDATE)

Private Sub Grid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Grid1.CurrentCellChanged
Select Case Grid1.CurrentCell.ColumnNumber
Case 0
If Repite = 1 Then Exit Sub
ArticAct = Grid1.Item(FilAct, 0)
Repite = 1
If Grid1.VisibleRowCount > 2 Then
For i = 0 To Grid1.VisibleRowCount - 2
If ArticAct = Grid1.Item(i, 0) And i <> FilAct Then
PonFoco(FilAct, 0) 'evita que el foco se desplace hacia abajo
CdadAct = Grid1.Item(i, 2) + 1
PvpAct = Grid1.Item(i, 3)
DtoAct = Grid1.Item(i, 4)
Suma() 'función que obtiene el precio parcial: cantidadxprecio
Actualiza() 'update o insert, segun el caso, de datos en BBDD
Data1.Trabajo1.Rows(FilAct).Delete()
PonFoco(FilAct, 0) 'evita que el foco se desplace hacia abajo
Exit Sub
End If
Next i
End If
Grid1.Item(FilAct, 0) = Nothing
BuscaArticulo()
Repite = 0


...pero todavía me falta solucionar el primer caso....venga anímense, alguna idea???
 

Saludos

Hola de nuevo.

Tengo un poco de lío mental con el tema de programación en dispositivos PPC. Alguien puede dar un poco de luz a mi enturbiada mente?  

Cuál es el idioma homólogo del VB.NET para PPC? Es el Embbeded Visual Basic 3.1? Según tengo entendido este no trabaja sobre la plataforma .NET Framework. Así pues se debe trabajar en el Visual C++ que Ms ha englobado en la plataforma .NET????? Pero claro, C++ ya no es lo mismo que VB......buffff  
Alguien puede ayudarme un poquitín?

Gracias

Obtuve la solución por otro lado, pero gracias de todas formas   ...la anexo aquí para información:

 
Dim Tecla as DataGridTextBoxColumn = CType(TuTablaEstilo.GridColumnStyles(numcolumna), DataGridTextBoxColumn)
        AddHandler Tecla.TextBox.KeyDown, AddressOf ProcedimientoX


Saludos

OK, de acuerdo, pero cómo ejecutas el INSERT INTO??? Cuál es el error que te da??

Bueno, es igual, empiezo por donde siempre....por el principio  

Por lo que me cuentas, entiendo que esos dos formularios que has hecho debe estar repleto de TextBox que corresponden a cada uno de los campos de la BBDD.... bueno, antes de nada, si eso es así, decirte que puedes utilizar el mismo formulario para consultar y para entrar datos, pero...queda a tu elección.

Puede ser un poco largo, por lo que lo iremos haciendo por "fascículos" OK?

Formulario para entrada de datos:
En diseño del formulario
1. Crear conexión con BBDD y el DataAdapter
2. Crear el DataSet
3. Vincular cada uno de los TextBox con su propiedad DataBinding.Text a cada uno de los campos de la tabla del DataSet en cuestión.

Si hasta ahí sigues, avanzamos si no...pregunta la parte que corresponda.


Hasta el siguiente "fascículo".....  

La verdad es que es un poco complicado......pero una opción podría ser esta...

(El ejemplo utiliza los controles PrintDocument, PrintPreviewDialog, PageSetupDialog y PrintDialog)

 

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Try
            'especifica els paràmetres de la pàgina actual
            PrintDocument1.DefaultPageSettings = OpcionesImprPagina
            'especifica documento para cuadro de diálogo de impresión a mostrar
            CadenaImpr = RichTextBox1.Text
            PrintDialog1.Document = PrintDocument1
            Dim result As DialogResult = PrintDialog1.ShowDialog()
            If result = DialogResult.OK Then PrintDocument1.Print()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim numCaract As Integer
        Dim numLineas As Integer
        Dim strParaPagina As String
        Dim strFormato As New StringFormat()
        'define un rectángulo basándose en la configuración de página
        Dim rectDibujar As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
        'define un area para calcular el texto que cabe en una página
        'diminuye en un alínea la altura para asegurar que el texto no se sale
        Dim MedidaTamaño As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - FuenteImpr.GetHeight(e.Graphics))

        'cuando escribe cadenas largas, las separa entre palabras
        strFormato.Trimming = StringTrimming.Word

        'calcula cuántos caracteres y líneas pueden caber basándose en medidatamaño
        e.Graphics.MeasureString(CadenaImpr, FuenteImpr, MedidaTamaño, strFormato, numCaract, numLineas)

        'calcula las cadenas que caben en una página
        strParaPagina = CadenaImpr.Substring(0, numCaract)

        'imprime la cadena contenida en la página actual
        e.Graphics.DrawString(strParaPagina, FuenteImpr, Brushes.Black, rectDibujar, strFormato)

        'si hay más texto, indica que hay más páginas
        If numCaract < CadenaImpr.Length Then
            'resta el texto que ya se ha impreso de la cadena
            CadenaImpr = CadenaImpr.Substring(numCaract)
            e.HasMorePages = True
        Else
            e.HasMorePages = False
            'se ha impreso todo el texto, restaura la cadena
            CadenaImpr = RichTextBox1.Text
        End If
    End Sub

    Private Sub btnSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetup.Click
        Try
            PageSetupDialog1.PageSettings = OpcionesImprPagina
            PageSetupDialog1.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
        Try
            'especificar las opciones de la página actual
            PrintDocument1.DefaultPageSettings = OpcionesImprPagina
            'especifica documento para cuadro de diálogo de impresión y mostrar
            CadenaImpr = RichTextBox1.Text
            PrintPreviewDialog1.Document = PrintDocument1
            PrintPreviewDialog1.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

-ejemplo extraído del manual de VB.NET de Michael Halvorson, editorial McGrawhill-  

Espero que te sirva. Yo es el que utilizo cuando tengo que imprimir largos textos des de un textbox (richtextbox),...aunque trato de evitarlo.

Saludos,  

Una parte del código que me da diferencias es esta:

DataAdapter1.SelectCommand.CommandText = "SELECT Partidos.* FROM Partidos"
        DataAdapter1.Fill(Escritura1)
        PosFil()  'situa el cursor en el último registro
        MaxPartido = Escritura1.Partidos.Item(PosFil).NumPartido
        Escritura1.Clear()

'lo que viene lo hago para tener conexión con la BBDD pero que no me enseñe ningún registro, ya que lo que quiero es añadir nuevos

        DataAdapter1.SelectCommand.CommandText = "SELECT Partidos.* FROM Partidos WHERE NumPartido = " & MaxPartido + 1  
        Grid1.DataSource = Escritura1
        Grid1.DataMember = "Partidos"
        AdaptaEscrit.Fill(Escritura1)
        Grid1.Refresh()

Esta parte si la ejecuto en modo normal no me enseña ningún registro (que es lo que quiero), sin embargo, si la ejecuto 'paso a paso' me enseña el primer registro de la tabla....

Después envío la parte más conflictiva....

Hola de nuevo,

Tengo un problemilla (por eso escribo no???       )

Estoy realizando un aplicación, en la cual, debo trabajar con BBDD MsAccess. A la hora de ejecutarla, si lo hago en modo Debug normal, tengo un resultado (en el fondo, no satisfactorio, pero bueno....), pero cuando procedo a ejecutarlo paso a paso para ver de donde falla, el resultado es completamente diferente!!!  

Alguien sabe a qué puede ser debido????