Mensajes

[las amanazas]

La legalidad depende de las circunstancias en las que te tiras dicho pedo o eructas. Si es involuntario o por problemas médicos/salud entonces es ilegal que te echen. Si es por joder o de broma entonces es bastante legal dado que perjudicas a los demás compañeros y el ambiente de trabajo.

Por supuesto en caso de despido y ante una reclamación, tendrás que demostrar que fue involuntario o debido a problemas de salud.

Saludos

¿Pero como puede ser legal echar a alguien por tirarse un pedo o eructo (y/o aunque no lo sea pero que se piense? ¿Tan gratuito y fácil es echar  a alguien?

¿Es que estamos locos o qué? ¿Y como diantres voy a demostrar que es voluntario o involuntario?

estoy estupefacto.  



¿En qué artículo, decreto o lo que sea aparece eso?


Estoy hablando que, según las amanazas del coordinador, simplemente con carraspear y aunque no sea eructo se reservan el derecho a expulsarme. Es más, si la empresa, por la razón que sea me quiere quitar de en medio tan solo tienen que decir que hice un "ruidito" (sea cual fuera).

[SOC]

Se que la pregunta perece broma, pero es absolutamente sincera.

Estoy  realizando un curso del SOC, y el coordinador me ha notificado que si durante las prácticas en empresa hago algún "ruidito" (aunque sea involuntariamente) seré inmediatamente expulsado.

NOTA: el "ruidito" todo y aunque no fuera tal si se pensara que lo es, igualmente sería expulsado.

¿Es esto legal? ¿Se puede echar a alguien por tirarse un pedo o eructar?

En el caso que ocurriera me gustaría denunciarlo legalmente ¿tendría las de ganar o las de perder?

gracias

[@Elektro]

@Elektro sois un genio muchas gracias.

Funciona perfecto.

Ahora tengo que usar SelectedItem debido a que el DataGridView no recoge el elemento seleccionado hasta haber abandonado la celda o haber pulsado Enter. Ese era el problema. Ahora va perfecto.

Código (vbnet) [Seleccionar] Expandir


...
   Private Sub ComboBox_SelectedIndexChanged(sender As Object, e As EventArgs)

       Dim cb As ComboBox = DirectCast(sender, ComboBox)

       If (cb.SelectedIndex <> -1) Then
           Dim dgv As DataGridView = DirectCast(cb.Parent.Parent, DataGridView)
           Dim cell As DataGridViewCell = dgv.CurrentCell
           Dim colIndex As Integer = cell.ColumnIndex
           Dim rowIndex As Integer = cell.RowIndex

           'Dim sb As New System.Text.StringBuilder()
           'sb.AppendLine(String.Format("Selected index changed: {0}", cb.SelectedIndex))
           'sb.AppendLine(String.Format("Column Index: {0}, Row Index: {1}", colIndex, rowIndex))
           'MessageBox.Show(sb.ToString())

           MessageBox.Show(CStr(DataGridView1.Item(colIndex, rowIndex).Value))
           MessageBox.Show(CStr(cb.SelectedItem))
       End If

   End Sub

El primer mensaje  aparece vacío, mientras que el segundo devuelve valor.

Saludos

hola

He creado un DataGridView dentro da algunas celdas he añadido combox (DataGridViewComboBoxCell). El caso es que necesito que al seleccionar un elemento del combo, automáticamente reciba el evento y usar el valor seleccionado para buscarlo en una tabla DataTable para luego obtener un valor:

Código (vbnet) [Seleccionar] Expandir


    Public Sub GetValue(ByVal numCol As Integer, ByVal numRow As Integer)
        If numCol = 0 Then
            For Each N As DataRow In dt.Rows
                Dim Item As String = CStr(N.Item(1).ToString.Replace("*", ""))
                Try
                    If DataGridView1.Item(numCol, numRow).Value.ToString.Contains(Item) Then
                        DataGridView1.Item(5, 0).Value = N.Item(10)
                    End If
                Catch ex As Exception

                End Try

            Next
        End If
    End Sub

Tengo una tabla DataTable llamada dt y con el este código la idea es añadirla en un evento el cual me devuelve la columna y la fila donde  he seleccionado el elemento del combo y llamo al procedimiento getValue:

Código (vbnet) [Seleccionar] Expandir

GetValue(e.ColumnIndex, e.RowIndex )

Pero no consigo encontrar ningún evento que ejecute el procedimiento instantáneamente nada más hacer clic en un elemento del combo.

Solo consigo que devuelva el valor cuando hago clic en otra ceda del DataGridView y abandono el combo.

espero me puedan ayudar 


Gracias

a ver si te sirve esto, está en VB6

Código (vb) [Seleccionar] Expandir


With List1
.AddItem (25)
.AddItem (36)
.AddItem (18)
.AddItem (13)
End With
With List2
.AddItem (16)
.AddItem (36)
.AddItem (11)
End With



Dim Diferencia() As Boolean 'Array para guardar el resultado de la comparación


For Item = 0 To List1.ListCount - 1
         ReDim Preserve Diferencia(Item + 1)
     Diferencia(Item) = CBool(List1.List(Item) = List2.List(Item))
      If List2.List(Item) = "" Then
        Diferencia(Item) = False
      End If

Next Item
MsgBox ("¿Son iguales " & List1.List(0) & " y " & List2.List(0) & "? " & Diferencia(0))


Dim str As String
For Index = 0 To UBound(Diferencia) - 1
str = str + _
     List1.List(Index) & "=" & _
     List2.List(Index) & " --> " & _
     Diferencia(Index) & vbCrLf

Next Index
MsgBox (str)




meto las diferencias en un array booleano para poder acceder a él siempre que se quiera como se muestra en el primer mensaje.

como ejemplo he hecho una lista más larga que otra, pero lo suyo es que ambas sean de igual longitud.

espero que te sirva

saludos

VB6 hizo mucho daño al mundo y eso no se olvida tan facilmente xD.

Seguramente sea eso, ellos que tengo entendido no han tocado VB, o VS en general, confunden VB6 con VB.NET. 

He estado mirando tu respuestas, en NET y te tengo por un gurú de NET. Te imagino sentado en mi clase y que se te pongan a explicarte directamente a ti como a un niño pequeño lo que es un array , de risa . Como si no existieran en VB o VB.NET.

[javascript]

que tal.

Actualmente estoy en una escuela de informática en la cual estoy aprendiendo javascript , que no necesito ir a una escuela para aprender, pero claro, siendo autodidacta no hay título.

El caso es que yo comenté  que sabía programar con VB, VB.NET y C# pero el profesor me trata como si fuera un mamarracho que no ha programado en su vida, ni tuviera ni idea de programación, algo que me irrita bastante. Muy al contrario que con otro estudiante que ya de entrada decía que sabía javascript (sin título), que lo tiene como si fuera el mismísimo Albert Einstein de la programación. Dicho estudiante dijo que VB es una porquería, al tiempo que ASP.NET

Tengo la sensación que VB.NET y VS en general se INFRAVALORA bastante, y es considerado una programación menor.

Personalmente creo que VB,  C# y C++  tiene mucha más funcionalidad y complejidad que javascript. Éste último destaca porque es muy usado teniendo en cuenta que es el lenguaje por excelencia para aplicaciones WEB, y teniendo en cuenta el tiempo que vivimos y su uso en Internet, no es de extrañar que se le de más importancia, mientras que  VB por ejemplo queda relegado sistemas de desarrollo de Windows.

La verdad es que es irritante haberme tirado años programando con VB (el viejo y el de ahora) y últimamente en C# para llegar a un sitio y me traten como un recién salido de la guardería en el ámbito de la programación.

También veo en Internet muchos comentarios negativos hacia VB.NET y no entiendo muy bien el porqué, En algunos aspectos lo entiendo pero en términos de funcionalidad y complejidad no creo que sea como hablar de él como si fuera de preescolar.

Saludos

[HKEY_CLASSES_ROOT]

que tal, tengo Windows 7 64 bits y no tengo disponible en el menú Nuevo del menú contextual del Escritorio el "Documento de texto enriquecido"

Buscando en Google, he encontrado que modificando el registro en HKEY_CLASSES_ROOT, elijo cualquier extensión de archivo. Si no tiene la clave [ShellNew] la creo,  y en esta clave añado un valor de cadena con nombre "NullFile", el tipo de archivo elegido aparecerá en el menú Nuevo.

Sin embargo, y atención a esto, desde otro ordenador también con Windows 7 que SI dispone del Documento de texto enriquecido (RTF) en el menú nuevo, no aparece tal valor "NullFile". Así que no creo que el que no tenga dicho valor sea la razón de que no me aparezca en el menú del otro ordenador.

¿Alguien sabe porqué y como puedo añadirlo?




El "NullFile" está en la extensión .bmp y sin embargo no aparece en el menú.

Creo recordar que había un cuadro en no se donde donde se podía elegir los elementos de este menú, pero quizás me equivoque.


Gracias

[DataGridView.Click]

A mi me funciona perfectamente el evento DataGridView.Click, al seleccionar múltiples celdas la propiedad DataGridView.SelectedCells.Count devuelve el valor esperado y tú código funciona correctamente, así como si lo pruebo a hacer cuando se dispara el evento DataGridView.CellClick. La deselección y selección de elementos ocurre ANTES de que se dispare el evento Click/Cellclick.

Supongo que lo que te ocurre será algún fallo de diseño de alguna versión anterior de los controles de WindowsForms que ya corrijieron en algún update de .NET Framework. Por si te sirve de algo, esto lo he probado en Visual Studio 2015 bajo .NET Framework 4.0, 4.5 y 4.6



Con respecto al código que has mostrado, si por el motivo que sea realmente no puedes recurrir a la propiedad DataGridView.SelectedCells para especiificar lso valores de las celdas seleccionadas:

Código (vbnet) [Seleccionar] Expandir

For Each cell As DataGridViewCell In Me.DataGridView1.SelectedCells
   cell.Value = ...
Next cell

Entonces yo modificaría un poco el código para utilizar un tipo más versatil que una lista desordenada como estás usando... por ejemplo:

Código (vbnet) [Seleccionar] Expandir

Dim cellsDict As New SortedDictionary(Of Integer, SortedSet(Of Integer))(Comparer(Of Integer).Default)
For Each cell As DataGridViewCell In DirectCast(sender, DataGridView).SelectedCells
   If Not cellsDict.ContainsKey(cell.ColumnIndex) Then
       cellsDict.Add(cell.ColumnIndex, New SortedSet(Of Integer))
   End If
   cellsDict.Item(cell.ColumnIndex).Add(cell.RowIndex)
Next cell

Dim sb As New StringBuilder()
For Each kvp As KeyValuePair(Of Integer, SortedSet(Of Integer)) In cellsDict
   sb.AppendLine(String.Format("{0}, {{{1}}}", kvp.Key, String.Join(", ", kvp.Value)))
Next
MessageBox.Show(sb.ToString())
' sb.Clear()
' cellsDict.Clear()
Y entonces...

Código (vbnet) [Seleccionar] Expandir

For Each kvp As KeyValuePair(Of Integer, SortedSet(Of Integer)) In cellsDict
   For Each value As Integer In kvp.Value
       Dim cell As DataGridViewCell = Me.DataGridView1.Rows(value).Cells(kvp.Key)
       cell.Value = ...
   Next value
Next kvp

¡Saludos!

Elektro el problema ye está solucionado ya que di con la solución, como ya comenté. De todos modos gracias por el interés, el esfuerzo y el aporte.

Te explico. El evento que utilicé no fue DataGridView1_Click, si no DataGridView1_CellMouseClick.

Quizá no me expliqué bien o no me entendiste. Lo que yo me refería era esto.

PRIMERO:  Arrastrar y seleccionar un grupo de celdas, entonces estas celdas por defecto quedan de color azul marino indicando que están seleccionadas.

SEGUNDO:  Una vez hecho esto hago clic de nuevo sobre cualquier celda de las que han quedado seleccionadas, me devuelve las celdas que hay seleccionadas y luego relleno las celdas.

El evento DataGridView1_Click, como dices si que devuelve el total las celdas seleccionadas, pero en el momento de arrastrar y soltar. Una vez seleccionadas al hacer clic la segunda vez en cualquiera de las celdas seleccionadas devuelve 1. Esto es porque al clicar de nuevo en UNA, todas se deseleccionan excepto la celda seleccionada la segunda vez y lógicamente devuelve 1.

Código (vbnet) [Seleccionar] Expandir

 
   Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
       MessageBox.Show(CStr(Me.DataGridView1.SelectedCells.Count))
   End Sub


De modo que lo que pedía era primero seleccionar y que no ocurra nada, de nada. Y en el segundo clic en cualquier celda seleccionada me devuelva la colección.

Si aplicas el mismo código en  DataGridView1.CellClick, no devuelve la colección ni cuando seleccionas y cuando haces clic la segunda vez.


La solución ha sido obtener la colección desde el evento MyDataGridView_CellMouseUp guardar la colección en un array y ahora si la dimensión del array es mayor de 1 entonces rellena las celdas de la colección desde el evento DataGridView1_CellMouseClick:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim CellColection As New List(Of String)
   Dim WithEvents MyDataGridView As New DataGridView
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(MyDataGridView)
       With MyDataGridView
           .Width = 406
           .Height = 200
           .ReadOnly = True
           .ColumnCount = 3
           .RowCount = 5
           .Columns(0).Name = "Columna 1"
           .Columns(1).Name = "Columna 2"
           .Columns(2).Name = "Columna 3"

       End With
   End Sub

   Private Sub MyDataGridView_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDataGridView.CellMouseClick
       If e.Button = Windows.Forms.MouseButtons.Left Then
           If CellColection.Count > 1 Then
               For Each Item In CellColection
                   Dim Columna As Integer = CInt(Item.Substring(0, 2))
                   Dim Fila As Integer = CInt(Item.Substring(2, 2))
                   If String.IsNullOrWhiteSpace(CStr(MyDataGridView.Item(Columna, Fila).Value)) Then
                       MyDataGridView.Item(Columna, Fila).Value = String.Format("{0:00}{1:00}", Columna, Fila)
                   Else
                       MyDataGridView.Item(Columna, Fila).Value = ""
                   End If

               Next
           End If
       End If
   End Sub


   Private Sub MyDataGridView_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDataGridView.CellMouseUp
       'Obtiene la colección
       CellColection.Clear()
       For Each Cell As DataGridViewCell In Me.MyDataGridView.SelectedCells
           CellColection.Add(String.Format("{0:00}{1:00}", Cell.ColumnIndex, Cell.RowIndex))
       Next
   End Sub
End Class


Como podrás comprobar al hacer clic la primera vez y arrastrar no ocurrirá nada, pero al hacer clic de nuevo en cualquiera de las cedas seleccionadas éstas se rellenan.

Así que selecciono un grupo de celdas sin que ocurra nada, ¿que no me gustan? vuelvo a seleccionar otras, cuando estoy de acuerdo, hago clic sobre cualquiera de las celdas seleccionadas y entonces se rellenan.

Saludos.

[al hacer click]

que tal, necesito obtener las celdas seleccionadas al hacer click de un DataGridView.

He probado con este código pero sólo me devuelve la celda donde hice clic.

Código (vbnet) [Seleccionar] Expandir


  Dim celda As New List(Of String)
       For Each cell As DataGridViewCell In Me.DataGridView1.SelectedCells
           celda.Add(CStr(cell.ColumnIndex & "," & cell.RowIndex))
       Next
       MessageBox.Show(String.Join("; ", celda))


la idea es que al seleccionar un grupo de celdas al hacer clic, introducir una serie de valores automáticos en dichas celdas, pero necesito saber cuales están seleccionadas para introducirles el valor.

Ademas DataGridView1.SelectedCells.Count sólo me devuelve el valor 1 al hacer clic en el evetno DataGridView1_CellMouseClick, aunque haya más de una celda seleccionada.

gracias



Bueno, parece que solo funciona desde un evento distinto de CLICK, puedo obtener las celdas seleccionadas desde otros eventos como MOUSEUP o MOUSEDOWN.

Al parecer al hacer click sobre una celda del grupo de celdas seleccionadas, se deseleccionan todas las celdas y queda solamente 1 celda seleccionada, entonces siempre devuelve 1.

También devolvería todas las celdas desde un botón, por ejemplo:

How to: Get the Selected Cells, Rows, and Columns in the Windows Forms DataGridView Control