SoloCodigo

Hola que tal!!!!

Aqui dando lata y esperando que mi amigo croketingdahouse no este molesto conmigo y si sabe pueda ayudarme un poquito o algun otro colega....
Estoy haciendo mi sistema aquel que les comenté estaba haciendo llego el momento de hacer las restricciones de usuario! Hasta el momento venia haciendo todo con potencias de base dos (BINARIOS) realizo mi arbol de opciones del sistema (treeview con checks) y el usuario clickeando dice acorde al perfil y al usuario a donde tendra acceso o no en nuestra aplicacion (El nodo que selecciona en la propiedad TAG tiene la potencia 2 que le corresponde segun sea el caso) y al final guarda el valor de potencia 2 que selecciono y esos son sus privilegios.
Todo funcionaba de maravilla en proyectos pasados pero en este "tengo 77 Accesos que debo restringir" y SOPAS se me truena realizo una validacion de este tipo:


con esa instruccion reviso que los privilegios del usuario contengan la seccion X (recordemos que todo son binarios) por ello realizo un AND que debe devolver True or False dependiendo si se encuentra la opcion o no....
El punto que al llegar a la potencia numero 2^62 y validarla con un AND algo parecido a:

Privilegio = 0 (o cualquier numero mayor)
Nodo.Tag = 2^62(o cualquier numero mayor a 62)

Privilegio AND Nodo.Tag

me marca el error: LA OPERACION ARITMETICA HA PROVOCADO UN DESBORDAMIENTO

ahora cabe decir que Privilegio es un DOUBLE y Nodo.Tag pues la potencia dos queda como double pero lo que se truena ES EL AND si yo tomo los valores por separado los puedo manipular hasta la potencia 2^76 pero cuando hago mi AND se truena y no puedo hacer nada... Sugerencia de que puede pasar? que sucede?? como solucionar el problema??? Ojala alguien pueda asesorarme y/o hecharme una manita saludos cordiales.

PD: Propuestas bien recibidas

Hola....

Te recomiendo leer mucho y buscar en la red o en libros para que vayas aprendiendo y estas equivocada el codigo si hace algo pero no lo que quieres pues lo que estas diciendo es que redimensione la variable es decir que incremente en uno el tamaño.
Para navegar por los datos de tu arreglo o matriz necesitas otras instrucciones :S y pues ammm no te queda de otras mas que leer saludos cordiales

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:

Existen diferentes maneras de generar seriales las mas comunes y efectivas es haciendo un vinculo o enlace a algo físico. Yo te sugiero consideres comprar unos candados como los que te ofrece la empresa Aladdin con sus famosos HASP HL que ademas de ser un candado fisico para la aplicacion puedes generar un serial en base al indentificador del mismo. Ammm ahora que si te duele el codo y no quieres gastar te sugiero ocupes la MAC Address de la NIC o tarjeta de red para que puedas generar un serial en base a ella y generar un candado físico y programar la rutina para que detecte que la NIC vinculada al serial que ingresaste esta en el equipo y si no se cierre tu aplicacion es algo realmente MUY pero MUY sencillo saludos cordiales

Yo se que muchos de los programadores que empiezan tienen dudas al igual que yo y todos vamos aprendiendo y adquirimos experiencia con el paso del tiempo. No me gusta ser egoista ni nada asi que quiero compartir la solucion con ustedes solo faltaba anexar lo siguiente:

        Private Sub txtTextbox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTextbox.KeyDown
            MyBase.OnKeyDown(e)
        End Sub

        Private Sub txtTextbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTextbox.KeyPress
            MyBase.OnKeyPress(e)
        End Sub

        Private Sub txtTextbox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTextbox.KeyUp
            MyBase.OnKeyUp(e)
        End Sub

explico.... como estoy heredando directamente de UserControl y ocupo un textbox en mi control los eventos y/ó acciones se ejecutaban ahi de modo que teniamos que pasar los eventos y/o acciones a la clase base en este caso UserControl.

El codigo del control quedó así

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

Namespace MiDSINCTextbox
    Public Class clsDSINCTextbox
        Inherits UserControl

#Region "Variables"
        Dim colBorde As Color = Color.SteelBlue
        Private Components As IContainer
        Private intBorderSize As Integer = 1
        Private intLeftpad As Integer = 2
        Private intToppad As Integer = 2
        Private WithEvents picBoth As New PictureBox()
        Private WithEvents picLeft As New PictureBox()
        Private WithEvents picRight As New PictureBox()
        Private WithEvents picTop As New PictureBox()
        Private WithEvents txtTextbox As New TextBox()
#End Region

#Region "Constructor"
        Public Sub New()
            MyBase.New()
            IniciaComponentes()
            colBorde = Color.DeepSkyBlue
        End Sub
#End Region

#Region "Funciones"
        Private Sub IniciaComponentes()
            Me.SuspendLayout()
            'Establecemos los parametros del textbox del control
            With Me.txtTextbox
                'Indicamos el tipo de borde
                .BorderStyle = Windows.Forms.BorderStyle.None
                'El tipo de fuente y estilo
                .Font = New Font("Tahoma", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
                'Establecemos una ubicacion
                .Location = New Point(8, 5)
                'La longitud máxima
                .MaxLength = 0
                'El nombre
                .Name = "TextBox1"
                'Un tamaño
                .Size = New Size(176, 14)
                'Texto por default
                .Text = "TextBox"
            End With
            'Establecemos los parametros de la linea que dibuaremos del lado izquierdo
            With Me.picLeft
                'Color de fondo
                .BackColor = colBorde ' Color.DeepSkyBlue
                .Dock = DockStyle.Left
                'establecemos una ubicacion
                .Location = New Point(0, 1)
                'el nombre
                .Name = "picLeft"
                'un tamaño
                .Size = New Size(1, 22)
                .TabStop = False
            End With
            'Establecemos los parametros de la linea que dibuaremos del lado izquierdo
            With Me.picRight
                'Establecemos el color de fondo
                .BackColor = colBorde 'Color.DeepSkyBlue
                .Dock = DockStyle.Right
                'una ubicacion
                .Location = New Point(191, 1)
                'el nombre
                .Name = "picRight"
                'un tamaño
                .Size = New Size(1, 22)
                .TabStop = False
            End With
            'Establecemos los parametros de la linea que dibuaremos en la parte superior
            With Me.picTop
                'establecemos el color de fondo
                .BackColor = colBorde 'Color.DodgerBlue
                .Dock = DockStyle.Top
                'el nombre
                .Name = "picTop"
                'un tamaño
                .Size = New Size(192, 1)
                .TabStop = False
            End With
            'Establecemos los parametros de la linea que dibuaremos en la parte inferior
            With Me.picBoth
                'establecemos el color de fondo
                .BackColor = colBorde 'Color.DodgerBlue
                .Dock = DockStyle.Bottom
                'una ubicacion
                .Location = New Point(0, 23)
                'un nombre
                .Name = "picBoth"
                'un tamaño
                .Size = New Size(192, 1)
                .TabStop = False
            End With
            With Me
                'establecemos el color de fondo
                .BackColor = Color.White
                .Controls.AddRange(New Control() {Me.txtTextbox, Me.picRight, Me.picLeft, Me.picBoth, Me.picTop})
                'el nombre del control
                .Name = "TextBox"
                'un tamaño
                .Size = New Size(192, 24)
                .ResumeLayout(False)
            End With
        End Sub
#End Region

#Region "Métodos"
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (Components Is Nothing) Then Components.Dispose()
            End If
            MyBase.Dispose(disposing)
        End Sub

        Private Sub TextBox_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
            picTop.Width = Me.Width
            picLeft.Height = Me.Height
            picRight.Height = Me.Height
            picBoth.Width = Me.Width

            txtTextbox.Location = New Point(intLeftpad, intToppad)
            txtTextbox.Width = Me.Width - (intBorderSize * 2) - intLeftpad
            txtTextbox.Height = Me.Height - (intBorderSize * 2) - intToppad
        End Sub

        Private Sub txtTextbox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTextbox.KeyDown
            MyBase.OnKeyDown(e)
        End Sub

        Private Sub txtTextbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTextbox.KeyPress
            MyBase.OnKeyPress(e)
        End Sub

        Private Sub txtTextbox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTextbox.KeyUp
            MyBase.OnKeyUp(e)
        End Sub
#End Region

#Region "Propiedades"
        <Category("CustomProperties"), Description("Establece el color de fondo del control")>
        Public Property BackGroudColor() As Color
            Get
                Return Me.BackColor
            End Get
            Set(ByVal value As Color)
                Me.BackColor = value
                txtTextbox.BackColor = value
            End Set
        End Property

        <Category("CustomProperties"), Description("Establece el color de borde del control")>
        Public Property BorderColor() As Color
            Get
                Return colBorde
            End Get
            Set(ByVal value As Color)
                colBorde = value
                picBoth.BackColor = value
                picLeft.BackColor = value
                picRight.BackColor = value
                picTop.BackColor = value
            End Set
        End Property

        <Category("CustomProperties"), Description("Establece el tamaño del borde del control")>
        Public Property BorderSize() As Integer
            Get
                Return intBorderSize
            End Get
            Set(ByVal value As Integer)
                intBorderSize = value
                Me.Refresh()
            End Set
        End Property

        'JE Propiedad bastante logica no XD
        Public NotOverridable Overrides Property Font() As Font
            Get
                Return txtTextbox.Font
            End Get
            Set(ByVal Value As Font)
                txtTextbox.Font = Value
                Me.Refresh()
            End Set
        End Property

        <Category("CustomProperties"), Description("Establece el color de la fuente del control")>
        Public Overrides Property ForeColor() As Color
            Get
                Return txtTextbox.ForeColor
            End Get
            Set(ByVal value As Color)
                txtTextbox.ForeColor = value
            End Set
        End Property

        <Category("CustomProperties"), Description("Indica si el control sera multilinea")>
        Public Property Multiline() As Boolean
            Get
                Return txtTextbox.Multiline
            End Get
            Set(ByVal value As Boolean)
                txtTextbox.Multiline = value
                Me.Refresh()
            End Set
        End Property

        Public Property PaddingLeft() As Integer
            Get
                Return intLeftpad
            End Get

            Set(ByVal Value As Integer)
                intLeftpad = Value
                Me.Refresh()
            End Set
        End Property

        Public Property PaddingTop() As Integer
            Get
                Return intToppad
            End Get

            Set(ByVal Value As Integer)
                intToppad = Value
            End Set
        End Property

        <Category("CustomProperties"), Description("Establece el caracter a utilizar para encriptar un password")>
        Public Property PasswordChar() As String
            Get
                Return txtTextbox.PasswordChar
            End Get
            Set(ByVal value As String)
                txtTextbox.PasswordChar = value
                Me.Refresh()
            End Set
        End Property

        <Category("CustomProperties"), Description("Indica si el control tendra scrolls y que tipo sera")>
        Public Property ScrollBars() As ScrollBars
            Get
                Return txtTextbox.ScrollBars
            End Get
            Set(ByVal value As ScrollBars)
                txtTextbox.ScrollBars = value
            End Set
        End Property

        <Category("CustomProperties"), Description("Establece la alineacion del texto del control")>
        Public Property TextAlign() As HorizontalAlignment
            Get
                Return txtTextbox.TextAlign
            End Get
            Set(ByVal value As HorizontalAlignment)
                txtTextbox.TextAlign = value
                Me.Refresh()
            End Set
        End Property

        <Category("CustomProperties"), Description("Establece el texto que sera mostrado en el control")>
        Public Property TextControl As String
            Get
                Return txtTextbox.Text
            End Get
            Set(ByVal Value As String)
                txtTextbox.Text = Value
            End Set
        End Property

        Public Property WordWrap() As Boolean
            Get
                Return txtTextbox.WordWrap
            End Get
            Set(ByVal value As Boolean)
                txtTextbox.WordWrap = value
                Me.Refresh()
            End Set
        End Property
#End Region
    End Class
End Namespace

El código esta programado en VS .Net 2010 y si quieren algo más pueden anexarlo sin problema alguno solo agradecería no me roben el crédito saludos y suerte.

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