SoloCodigo

Hola comunidad:

tengo un problema con un contro datagridview. El datagridview tiene 7 columnas y quiero deshabilitar 6 y dejar una disponible es decir que el usuario no pueda dar siquiera clic en las otras columnas y que no se seleccionen los elementos de esas columnas ya estableci su propiedad ReadOnly en true y la propiedad SelectionMode en CellSelect para que solo pueda seleccionar por celda y no por filas pero como puedo bloquearlas en su totalidad? si alguien tiene alguna sugerencia o tuvo un problema similar agradeceria mucho la colaboracion gracias y saludos cordiales

Hola que tal:

Estoy haciendo una aplicación en .Net para una empresa, el módulo que estoy haciendo grafica con GDI un pliego de papel de dimensiones W, H crea las reglas verticales, horizontales, dibuja las medidas, y lo hace en base a una escala predefinida. Al momento todo chévere hace el pliego y lo que necesito pero a ese pliego de papel se le van a realizar cortes de dimensión A, B ahora el sistema dice cuantos cortes caben en el pliego y cuanto de material se desperdicia pero lo que no he conseguido es que me grafique o dibuje los cortes en el pliego de papel.... seguramente es algo muy sencillo pero la verdad ya estoy desesperado y no logro concentrarme ojala alguien pueda asesorarme, guiarme o decirme como puedo resolver el problema debe hacer lo mismo que la siguiente pagina calcu pero en .Net

Dejo mi código... PD Esta es una versión previa a la que tengo completa ojala puedan ayudarme gracias de antemano

Imports System.Drawing.Printing
Imports System.Drawing.Drawing2D
Imports System.Windows

Public Class frmCortes

#Region "Variables"

#Region "Privadas"
    Private WithEvents prdDoc As New PrintDocument
    Private MedidaPapel As Size
    Private MedidaTrabajo As Size
    Dim bmpGrafico As New Bitmap(884, 540)
    Private CustomColors() As Integer
#End Region
#End Region

#Region "Constructor"
    Public Sub New(ByVal Medida_Papel As Size, ByVal Medida_Trabajo As Size)
        InitializeComponent()
        MedidaPapel = Medida_Papel
        MedidaTrabajo = Medida_Trabajo
    End Sub
#End Region

#Region "Eventos"
    Private Sub tsbCortes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbCortes.Click
        CambiaColor(My.Settings.colCortes)
    End Sub

    Private Sub tsbGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbGuardar.Click
        GuardaImagen()
    End Sub

    Private Sub tsbHoja_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsbHoja.Click
        CambiaColor(My.Settings.colHoja)
    End Sub

    Private Sub tsbImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbImprimir.Click
        ImprimeImagen()
    End Sub

    Private Sub tsbRegla_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsbRegla.Click
        CambiaColor(My.Settings.colRegla)
    End Sub

    Private Sub tsbTextos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsbTextos.Click
        CambiaColor(My.Settings.colTexto)
    End Sub

    Private Sub tsbSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSalir.Click
        Me.Close()
    End Sub

    Private Sub frmCortes_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.Control And e.KeyCode = Keys.Q Then
            Me.Close()
        ElseIf e.Control And e.KeyCode = Keys.P Then
            ImprimeImagen()
        ElseIf e.Control And e.KeyCode = Keys.G Then
            GuardaImagen()
        End If
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        DibujaAreaPapel()
    End Sub

    Private Sub prdDoc_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles prdDoc.PrintPage
        e.Graphics.DrawImage(picDraw.Image, 0, 0)
    End Sub
#End Region

#Region "Métodos"
    Private Sub CambiaColor(ByRef colColor As Color)
        Try
            With cdlgColor
                .Color = colColor
                .CustomColors = CustomColors
                .AllowFullOpen = True
                .AnyColor = True
                .FullOpen = True
                .SolidColorOnly = True
                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    colColor = .Color
                    CustomColors = .CustomColors
                End If
                DibujaAreaPapel()
            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub

    Private Sub DibujaAreaPapel()
        'Calcula numero de cortes que caben en el pliego
        Dim AreaPapel As Double = (MedidaPapel.Width * MedidaPapel.Height)
        Dim AreaTrabajo As Double = (MedidaTrabajo.Width * MedidaTrabajo.Height)
        Dim Unidades As Integer = AreaPapel / AreaTrabajo
        Me.Text = "Unidades por pliego: " & Unidades
        Me.Text = Me.Text & " | Desperdicio de Papel: " & CInt(100 - ((AreaTrabajo * 100) / AreaPapel) * Unidades) & " %"

        If (MedidaPapel.Height > MedidaPapel.Width) Then
            Dim aux As Double
            aux = MedidaPapel.Width
            MedidaPapel.Width = MedidaPapel.Height
            MedidaPapel.Height = aux
        End If

        'Iniciamos variables GDI Para Dibujo
        Dim g As Graphics = Graphics.FromImage(bmpGrafico)
        Dim Fuente As New Font("Segoe UI", 13, GraphicsUnit.Point)
        Dim MyBrush As Brush = New SolidBrush(My.Settings.colTexto)

        '->LIENZO
        g.FillRectangle(New SolidBrush(Color.White), 0, 0, picDraw.Width, picDraw.Height)

        '->REGLA VERTICAL
        g.DrawLine(New Pen(My.Settings.colRegla, 1), 9, 10, 25, 10)
        g.DrawLine(New Pen(My.Settings.colRegla, 1), 17, 10, 17, 500)
        g.DrawLine(New Pen(My.Settings.colRegla, 1), 9, 500, 25, 500)
        g.DrawLine(New Pen(Color.White, 22), 0, 258, 35, 258)


        '->REGLA HORIZONTAL
        g.DrawLine(New Pen(My.Settings.colRegla, 1), 40, 515, 40, 531)
        g.DrawLine(New Pen(My.Settings.colRegla, 1), 40, 523, 850, 523)
        g.DrawLine(New Pen(My.Settings.colRegla, 1), 850, 515, 850, 531)
        g.DrawLine(New Pen(Color.White, 13), 425, 522, 460, 522)

        '->MEDIDAS DE PAPEL
        If Len(MedidaPapel.Height.ToString) = 2 Then
            g.DrawString(MedidaPapel.Height.ToString, Fuente, MyBrush, 5, 245)
        Else
            g.DrawString(MedidaPapel.Height.ToString, Fuente, MyBrush, 1, 245)
        End If
        If Len(MedidaPapel.Width.ToString) = 2 Then
            g.DrawString(MedidaPapel.Width.ToString, Fuente, MyBrush, 430, 510)
        Else
            g.DrawString(MedidaPapel.Width.ToString, Fuente, MyBrush, 426, 510)
        End If

        '---------------------------------------------------------------------------------
        Dim lapiz As New Pen(My.Settings.colCortes)
        'Crea una linea punteada
        lapiz.DashStyle = DashStyle.Dash
        Dim coordenadas As Point() = {New Point(60, 20), New Point(60, 200), New Point(400, 200), New Point(400, 20), New Point(60, 20)}
        g.DrawLines(lapiz, coordenadas)
        '---------------------------------------------------------------------------------

        '->MARCO DE PAPEL
        Dim points As Point() = {New Point(40, 9), New Point(40, 500), New Point(850, 500), New Point(850, 9), New Point(40, 9)}
        g.DrawLines(New Pen(My.Settings.colHoja, 3), points)
        picDraw.Image = bmpGrafico
    End Sub

    Private Sub GuardaImagen()
        Dim cdlgGuardar As New SaveFileDialog
        cdlgGuardar.Filter = "PNG (*.png)| *.png"
        cdlgGuardar.ShowDialog()
        If DialogResult = DialogResult.Cancel Then Exit Sub
        Try
            bmpGrafico.Save(cdlgGuardar.FileName)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cdlgGuardar.Dispose()
    End Sub

    Private Sub ImprimeImagen()
        Dim PrintDialog As New PrintDialog
        PrintDialog.Document = prdDoc
        If PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then prdDoc.Print()
    End Sub
#End Region
End Class

Hola amigos programadores:

Llevo poco tiempo en el maravilloso y fascinante entorno de desarrollo .Net y pretendo hacer un boton personalizado para una aplicacion que estoy desarrollando pero resulta que no puedo anexar mi control al ToolBox (donde se encuentran todos los controles del VS .NEt para ser agregados en los proyectos) y menos al Formulario. Trato de crear el boton mediante codigo pero no veo ninguna de las propiedades y metodos que tiene mi control mas que los de la clase Button pues de ahi se hereda anexo mi codigo y espero puedan ayudarme a corregirlo y orientarme y decirme donde esta mi error saludos

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Namespace DSINCButton
Partial Public Class clsDSINCButton
Inherits Button

#Region "Variables"
Private imgPress As Image
Private imgOver As Image
Private imgNormal As Image
Private imgDeshabilitado As Image
Private totTooltip As New ToolTip()
Private strMensaje As String = ""
#End Region

#Region "Propiedades"
<Category("DSINC Propiedades")>
<Description("Tooltip que del Control")>
Public Property DSINCTooltip As String
Get
Return strMensaje
End Get
Set(ByVal value As String)
strMensaje = value
End Set
End Property

<Category("DSINC Propiedades")>
<Description("Imagen evento OnClick ó MouseDown")>
Public Property DSINCImgPress As Image
Get
Return imgPress
End Get
Set(ByVal value As Image)
imgPress = value
End Set
End Property

<Category("DSINC Propiedades")>
<Description("Imagen evento OnMouseOver")>
Public Property DSINCImgOver As Image
Get
Return imgOver
End Get
Set(ByVal value As Image)
imgOver = value
End Set
End Property

<Category("DSINC Propiedades")>
<Description("Imagen evento OnMouseLeave o estado normal del control")>
Public Property DSINCImgNormal As Image
Get
Return imgNormal
End Get
Set(ByVal value As Image)
imgNormal = value
End Set
End Property

<Category("DSINC Propiedades")>
<Description("Imagen estado Deshabilitado")>
Public Property DSINCImgDeshabilitado As Image
Get
Return imgDeshabilitado
End Get
Set(ByVal value As Image)
imgDeshabilitado = value
End Set
End Property
#End Region

#Region "Constructor"
Sub New()
MyBase.New()
End Sub
#End Region

#Region "Eventos y Métodos"
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)

'Add your custom paint code here
End Sub

Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
MyBase.Image = imgPress
MyBase.OnClick(e)
End Sub

Protected Overrides Sub OnMouseHover(ByVal e As System.EventArgs)
MyBase.Image = imgOver
If Trim(strMensaje) <> "" Then totTooltip.SetToolTip(Me, strMensaje)
MyBase.OnMouseHover(e)
End Sub

Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
MyBase.Image = imgOver
MyBase.OnMouseLeave(e)
End Sub

Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
MyBase.Image = imgPress
MyBase.OnMouseDown(mevent)
End Sub

Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
MyBase.Image = imgNormal
MyBase.FlatStyle = Windows.Forms.FlatStyle.Flat
MyBase.FlatAppearance.MouseDownBackColor = Color.Transparent
MyBase.FlatAppearance.MouseOverBackColor = Color.Transparent
MyBase.FlatAppearance.BorderSize = 0
MyBase.Width = imgNormal.Width
MyBase.Height = imgNormal.Height
End Sub

Protected Overrides Sub OnEnabledChanged(ByVal e As System.EventArgs)
MyBase.OnEnabledChanged(e)
If MyBase.Enabled Then
MyBase.Image = imgNormal
Else
MyBase.Image = imgDeshabilitado
End If
End Sub
#End Region
End Class
End Namespace