Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: american en 14 Marzo 2017, 23:46 PM
Tras utilizar loquendo y integrado las demás voces de anna, jorge, entre otros..
Cita de: Constance en 15 Marzo 2017, 23:14 PM
Virgo es el opuesto a Piscis , es Signo de Tierra muy sensato, práctico, analítico, lleno de sentido común y con los pies muy en la Tierra ...lo rige
Cita de: ignorantev1.1 en 15 Marzo 2017, 22:35 PM
Una pregunta:
¿Es verdad que Shaka de Virgo era el caballero más poderoso de los 12?
Cita de: ignorantev1.1 en 15 Marzo 2017, 23:57 PMShaka de Virgo es casi un dios.
Cita de: FJDA en 14 Marzo 2017, 09:37 AMBueno, 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.
For Each cell As DataGridViewCell In Me.DataGridView1.SelectedCells
cell.Value = ...
Next cellDim 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()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 kvpCita de: Ikillnukes en 3 Marzo 2017, 23:43 PMNo importa la versión de Visual Studio
Dim json = "{
'Name': 'Bad Boys',
'ReleaseDate': '1995-4-7T00:00:00',
'Genres': ['Action','Comedy']
}" Dim json = "{" & Environment.NewLine &
" 'Name': 'Bad Boys'," & Environment.NewLine &
" 'ReleaseDate': '1995-4-7T00:00:00'," & Environment.NewLine &
" 'Genres': ['Action','Comedy']" & Environment.NewLine &
"}"Dim c As Char = Console.ReadKey(intercept:=True).KeyChar
Console.WriteLine(c)While True
If Console.KeyAvailable Then
Dim c As Char = Console.ReadKey(intercept:=True).KeyChar
Console.WriteLine(c)
Dim value As Integer
If Integer.TryParse(c, NumberStyles.Integer, CultureInfo.CurrentCulture.NumberFormat, value) AndAlso (value = 4I) Then
Exit While
End If
End If
End While