Visual studio 2010 Visual Studio 2010字符串。格式异常

Visual studio 2010 Visual Studio 2010字符串。格式异常,visual-studio-2010,Visual Studio 2010,我正试图使用format.string将列插入列表框,但它似乎不起作用,“输入字符串的格式不正确”。我已经没有办法解决这个问题了,在谷歌上真的找不到任何解决方案。所以我决定在这里问,顺便说一句,这是我的代码 Public Class Form1 Dim stddetails As String = "{0, -20}{1, -20}{2, -20}{3, -20}(4, -20}{5, -20}{6, -20}" Private Sub Form1_Load(ByVal sender As Sy

我正试图使用format.string将列插入列表框,但它似乎不起作用,“输入字符串的格式不正确”。我已经没有办法解决这个问题了,在谷歌上真的找不到任何解决方案。所以我决定在这里问,顺便说一句,这是我的代码

Public Class Form1
Dim stddetails As String = "{0, -20}{1, -20}{2, -20}{3, -20}(4, -20}{5, -20}{6, -20}"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    lstoutput.Items.Add(String.Format(stddetails, "Customer ID", "Nama Depan", "Nama Belakang", "Pemesanan", "Tanggal Pemesanan", "Pembayaran", "Total"))

    cmbpemesanan.Items.Add("Pilih Cara Pemesanan")
    cmbpemesanan.Items.Add("Telepon")
    cmbpemesanan.Items.Add("Ditempat")
    cmbpemesanan.Items.Add("Pemesanan Online")

    cmbpembayaran.Items.Add("Pilih Pembayaran")
    cmbpembayaran.Items.Add("Cash")
    cmbpembayaran.Items.Add("Master Card")
    cmbpembayaran.Items.Add("Visa Card")
    cmbpembayaran.Items.Add("Debit Langsung")

    lstmerek.Items.Add("Indonesian")
    lstmerek.Items.Add("Japanese")
    lstmerek.Items.Add("Middle East")
    lstmerek.Items.Add("European")

    seafood.Checked = False
    traditional.Checked = False
    drinks.Checked = False
    fullpack.Checked = False

    rbsatu.Checked = False
    rbdua.Checked = False
    rbempat.Checked = False
    rbdelapan.Checked = False
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
    Dim ikeluar As DialogResult
    ikeluar = MessageBox.Show("Keluar dari menu?", "Food Order Menu", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If ikeluar = DialogResult.Yes Then
        Application.Exit()
    End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

    seafood.Checked = False
    traditional.Checked = False
    drinks.Checked = False
    fullpack.Checked = False

    rbsatu.Checked = False
    rbdua.Checked = False
    rbempat.Checked = False
    rbdelapan.Checked = False

    txtid.Clear()
    txtnamabelakang.Clear()
    txtnamadepan.Clear()
    cmbpembayaran.Text = "Pilih Pembayaran"
    cmbpemesanan.Text = "Pilih Cara Pemesanan"
    lstoutput.Items.Clear()
    lstmerek.SelectedItems.Clear()
    lstoutput.Items.Add(String.Format(stddetails, "Customer ID", "Nama Depan", "Nama Belakang", "Pemesanan", "Tanggal Pemesanan", "Pembayaran", "Total"))

End Sub

Public Function getprices(ByVal brand As String, ByVal items As List(Of String), ByVal quantity As Integer) As Double
    Dim prices = {
        {"Indonesian", 2.5, 2, 0.95},
    {"Japanese", 2.3, 1.5, 2.5},
    {"Middle East", 3.5, 5, 4.9},
    {"European", 3.8, 2.7, 1.5}
}

    Dim sum As Double = 0
    For i As Integer = 0 To 4
        If (brand = prices(i, 0)) Then
            For j As Integer = 0 To items.Count - 1
                If (items(j) = "Seafood") Then
                    sum = sum + prices(i, 1)
                ElseIf (items(j) = "Traditional") Then
                    sum = sum + prices(i, 2)
                ElseIf (items(j) = "Drinks") Then
                    sum = sum + prices(i, 3)
                End If
            Next
            sum = sum * quantity
        End If
    Next
    Return sum
End Function

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click

    Dim ID, namadepan, namabelakang, pemesanan, tanggal, pembayaran, price As String

    ID = txtid.Text
    namadepan = txtnamadepan.Text
    namabelakang = txtnamabelakang.Text
    pemesanan = cmbpemesanan.Text
    tanggal = cmbtanggal.Text
    pembayaran = cmbpembayaran.Text

    Dim items As New List(Of String)
    Dim quantity As Integer

    If (seafood.Checked = True) Then
        items.Add(seafood.Text)
    End If
    If (traditional.Checked = True) Then
        items.Add(traditional.Text)
    End If
    If (drinks.Checked = True) Then
        items.Add(drinks.Text)
    End If
    If (fullpack.Checked = True) Then
        items.Add(fullpack.Text)
    End If

    If (rbsatu.Checked = True) Then
        quantity = 1
    ElseIf (rbdua.Checked = True) Then
        quantity = 2
    ElseIf (rbempat.Checked = True) Then
        quantity = 4
    ElseIf (rbdelapan.Checked = True) Then
        quantity = 8
    End If

    If lstmerek.Text = "" Then
        MessageBox.Show("Anda harus memilih jenis makanan.", "Jenis Makanan", MessageBoxButtons.OK, MessageBoxIcon.Information)
    ElseIf (seafood.Checked = False And traditional.Checked = False And drinks.Checked = False) Then
        MessageBox.Show("Anda harus memilih kategori.", "Kategori", MessageBoxButtons.OK, MessageBoxIcon.Information)
    ElseIf (rbsatu.Checked = False And rbdua.Checked = False And rbempat.Checked = False And rbdelapan.Checked = False) Then
        MessageBox.Show("Anda harus memilih jumlah.", "Jumlah Pesanan", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
        price = FormatCurrency(getprices(lstmerek.Text, items, quantity))
        lstoutput.Items.Add(String.Format(stddetails, ID, namadepan, namabelakang, pemesanan, tanggal, pembayaran, price))

    End If

End Sub

Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click

    seafood.Checked = False
    traditional.Checked = False
    drinks.Checked = False
    fullpack.Checked = False

    rbsatu.Checked = False
    rbdua.Checked = False
    rbempat.Checked = False
    rbdelapan.Checked = False

    txtid.Clear()
    txtnamabelakang.Clear()
    txtnamadepan.Clear()
    cmbpembayaran.Text = "Pilih Pembayaran"
    cmbpemesanan.Text = "Pilih Cara Pemesanan"
    lstoutput.Items.Clear()
    lstmerek.SelectedItems.Clear()

End Sub
末级


非常感谢您的帮助。

第2行出现语法错误

您使用了“(”而不是“{”

替换

Dim stddetails As String = "{0, -20}{1, -20}{2, -20}{3, -20}(4, -20}{5, -20}{6, -20}"


标题提到了NetBeans,代码是使用WinForms的Visual Basic.NET,标签是Visual Studio 2010。这真是个难题!抱歉,一定是把它和我的上一个问题混在一起了。.编辑,谢谢你指出这一点。您好,欢迎使用StackOverflow。为了避免浪费大家的时间,如果问题可以简化为最简单的形式,这会很有帮助。例如,
Form1\u Load
声明和各种
项是否真的需要添加
调用,或者问题是否可以通过调用String.Format的简单控制台程序重现?请参阅和,以获取有关有效问题的更多提示。噢,我太马虎了!不敢相信这是一个打字错误,谢谢你的回复把它画出来!
Dim stddetails As String = "{0, -20}{1, -20}{2, -20}{3, -20}{4, -20}{5, -20}{6, -20}"