填充 Datagridview 价格图表

Question

我想用我使用 webrequest API 获得的比特币价格填充我的DataGridView ( dgvMain )。

来自请求的价格示例响应： 36.560应填充在第 1 row1和第 4 列（ column(3) ）

我的代码：

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False
    getPriceBTC()
    InitializeDataGridView()

End Sub

 Private Sub InitializeDataGridView()

    ' Set the column header style.
    Dim columnHeaderStyle As New DataGridViewCellStyle()

    'columnHeaderStyle.BackColor = Color.Beige
    columnHeaderStyle.Font = New Font("arial", 10, FontStyle.Bold)
    dgvMain.ColumnHeadersDefaultCellStyle = columnHeaderStyle

    ' Set the column header names.
    dgvMain.ColumnCount = 11

    dgvMain.Columns(0).Name = "#"
    dgvMain.Columns(0).Width = 50
    dgvMain.Columns(1).Name = "ID"
    dgvMain.Columns(2).Name = "Coin"
    dgvMain.Columns(3).Name = "Price (EUR)"
    dgvMain.Columns(4).Name = "Last 1h"
    dgvMain.Columns(5).Name = "Last 24h"
    dgvMain.Columns(6).Name = "Last 7d"
    dgvMain.Columns(7).Name = "24h Volume"
    dgvMain.Columns(8).Name = "M. Capital"
    dgvMain.Columns(9).Name = "If Higher"
    dgvMain.Columns(10).Name = "If Lower"

    ' Populate the rows.
    Dim row1() As String = {"", "BTC", "BitCoin", "", "", " ", "", "", "", "", ""}
    Dim row2() As String = {"", "ETH", "Ethereum", "", "", "", "", "", "", "", ""}
    Dim row3() As String = {"", "ADA", "Cardano", "", "", "", "", "", "", "", ""}
    Dim row4() As String = {"", "GLMR", "Moonbeam", "", "", "", "", "", "", "", ""}
    Dim row5() As String = {"", "ELON", "Dogelon Mars", "", "", "", "", "", "", "", ""}
    Dim row6() As String = {"", "MBOX", "Mobox", "", "", "", "", "", "", "", ""}
    Dim row7() As String = {"", "BLOK", "Bloktopia", "", "", "", "", "", "", "", ""}
    Dim row8() As String = {"", "STARL", "Starlink", "", "", "", "", "", "", "", ""}
    Dim row9() As String = {"", "OOKI", "Ooki Protocol", "", "", "", "", "", "", "", ""}
    Dim row10() As String = {"", "Floki", "Floki Inu", "", "", "", "", "", "", "", ""}
    Dim row11() As String = {"", "EGC", "EverGrow Coin", "", "", "", "", "", "", "", ""}
    Dim row12() As String = {"", "SQUID", "Squid Game", "", "", "", "", "", "", "", ""}
    Dim row13() As String = {"", "HOT", "Holo", "", "", "", "", "", "", "", ""}
    Dim row14() As String = {"", "ATLAS", "Star Atlas", "", "", "", "", "", "", "", ""}
    Dim row15() As String = {"", "ZODI", "Zodium", "", "", "", "", "", "", "", ""}
    Dim row16() As String = {"", "VML", "Meta Land", "", "", "", "", "", "", "", ""}
    Dim row17() As String = {"", "SNN", "SeChain", "", "", "", "", "", "", "", ""}


    Dim rows() As Object = {row1, row2, row3, row4, row5, row6, row7, row8, row9, row10, row11, row12, row13, row14, row15, row16, row17}

    Dim rowArray As String()
    For Each rowArray In rows
        dgvMain.Rows.Add(rowArray)
    Next rowArray

    Dim chk As New DataGridViewCheckBoxColumn()
    dgvMain.Columns.Add(chk)
    chk.HeaderText = "Enable"
    chk.Name = "chk"
    chk.Width = 70
End Sub

Public Sub getPriceBTC()
Try
    ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
    ServicePointManager.Expect100Continue = True
    'Dim _price As String = txtCryptoPrice.Text

    Dim _url As String = "https://min-api.cryptocompare.com/data/price?fsym=BTC&tsyms=EUR"
    Dim _req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(_url)
    _req.Proxy = Nothing
    _req.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/98.0.4758.81 Safari/537.36"

    Dim _resp As System.Net.HttpWebResponse = _req.GetResponse
    Dim streamReader As System.IO.StreamReader = New System.IO.StreamReader(_resp.GetResponseStream())
    Dim API_source As String = streamReader.ReadToEnd
    Dim _Fprice = API_source.ToLower.ToString
    Dim _priceF = _Fprice.Substring(7)
    Dim jsonprice As String = _priceF.Replace("}", "")
  Dim row As DataGridViewRow = Nothing
        For Each item As DataGridViewRow In dgvMain.Rows
            row = item
            row.Cells(3).Value = jsonprice
        Next
    _runningThreads.Remove(Thread.CurrentThread)
Catch ex As Exception

End Try

End Sub

我在编辑后添加了一段代码，但它现在在所有 CELLS 中都显示了 btc 价格，那么我如何只将它添加到第一行？ row.Cells(3).Value = jsonprice

Answer 1

呵呵，我谷歌一下：p

 dgvMain.Rows(0).Cells(3).Value = jsonprice