Задать вопрос
Ksardas

Алекс Андр

Visual FoxPro, VB.NET...
Ответы пользователя по тегу Visual Basic

  • Как выбрать сфокусированный элемент в 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 запросы использовать можно
    Ответ написан
    Комментировать
    Комментировать