• Как сделать калькулятор в Windows 10 поверх всех окон?

    Ksardas
    @Ksardas
    Visual FoxPro, VB.NET...
    Начиная со сборки 18956 калькулятор имеет режим "Поверх остальных окон"
    5d8b8487399b6207684976.png
    Ответ написан
  • Как выбрать сфокусированный элемент в VB.net?

    Ksardas
    @Ksardas
    Visual FoxPro, VB.NET...
    Если я правильно понял, то:
    'У формы ставишь свойство
    KeyPreview = True
    
    'На событие KeyUp
    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
        Select Case e.KeyCode
            Case Keys.D1, Keys.NumPad1
                TextBox1.Text &= 1
            Case Keys.D2, Keys.NumPad2
                TextBox1.Text &= 2
            '...'
            Case Keys.Back
                If TextBox1.Text.Length > 0 Then TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
        End Select
    End Sub
    Ответ написан
    Комментировать
  • Как организовать перебор ячеек в диапазоне, точнее в одном столбце, на поиск определенной записи на Visual Basic?

    Ksardas
    @Ksardas
    Visual FoxPro, VB.NET...
    Простой перебор ячеек в нужном столбце DataGridView такой:
    'По индексу столбца'
    For Each Row As DataGridViewRow In DataGridView1.Rows
        MsgBox(Row.Cells(1).Value)
    Next
    
    'По имени столбца'
    For Each Row As DataGridViewRow In DataGridView1.Rows
        MsgBox(Row.Cells("Column2").Value)
    Next

    Если диапазон строк в определённом столбце, то:
    'Диапазон ячеек'
    Dim RowStart = 3,
        RowEnd = 5,
        ColumnIndex = 1 'Индекс столбца, начиная с 0. Либо имя столбца'
    
    'Выведет значения ячеек 2го столбца строк с 3 по 5'
    For i = RowStart - 1 To RowEnd - 1
        MsgBox(DataGridView1.Rows(i).Cells(ColumnIndex).Value)
    Next

    Поиск записи:
    Dim str = "Бла-бла-бла"
    For Each Row As DataGridViewRow In DataGridView1.Rows
        If Row.Cells(0).Value = str Then
            MsgBox(String.Format("Значение ""{0}"" уже имеется!", str))
        End If
    Next
    Ответ написан
    Комментировать
  • VB.Net и XML. Вытащить значения?

    Ksardas
    @Ksardas
    Visual FoxPro, VB.NET...
    Это часом не Json?
    Вот хорошая Open Source библиотека: Json.NET
    Документация

    Подключаем, импортируем Imports Newtonsoft.Json.Linq

    Dim str = "{'response':[{'uid':238005056,'first_name':'Самый-Лучший','last_name':'День'}]}"
    
    'Парсим Json строку'
    Dim JObj As JObject = JObject.Parse(str)
    'Парсим значение массив ключа "response"'
    Dim JArr As JArray = JArray.Parse(JObj("response").ToString)
    'Берём первый элемент массива и парсим как обычную Json строку'
    Dim JArrItems As JObject = JObject.Parse(JArr.First.ToString)
    
    'Загоняем в переменные значения ключей "first_name" и "last_name"'
    Dim first_name = JArrItems("first_name").ToString,
        last_name = JArrItems("last_name").ToString


    Либо можно так
    Dim str = "{'response':[{'uid':238005056,'first_name':'Самый-Лучший','last_name':'День'}]}"
    Dim JArrItems As JObject = JObject.Parse(JArray.Parse(JObject.Parse(str)("response").ToString).First.ToString)
    
    Dim first_name = JArrItems("first_name").ToString,
        last_name = JArrItems("last_name").ToString


    Либо вообще так
    Dim str = "{'response':[{'uid':238005056,'first_name':'Самый-Лучший','last_name':'День'}]}"
    Dim JObj As JObject = JObject.Parse(str)
    
    Dim first_name = JObj("response")(0)("first_name").ToString,
        last_name = JObj("response")(0)("last_name").ToString


    А в .NET 3.5+ и сами LINQ запросы использовать можно
    Ответ написан
    Комментировать