vb.net цикл через список содержит путь для файлов RTF, затем преобразовать в HTML-код, а затем вставить в DataGridView - PullRequest
0 голосов
/ 15 мая 2018

У меня проблема с кодом vb.net, после того, как я закончил со всеми кодами, которые получают файлы из path, затем перебираю этот список, чтобы получить текст RTF, затем конвертирую его в HTML ... пока все не будет в порядке myпроблема начинается здесь >>> вставляя результат в новую строку в datagridview, он просто делает это для первой строки, затем останавливается после этого!вот коды

     For i = 0 To ListBox1.Items.Count - 1
        'get RTF files...
        RichTextBox1.LoadFile(ListBox1.Items(i).ToString(), 
        RichTextBoxStreamType.RichText)
        RichTextBox1.SelectAll()
        RichTextBox1.SelectionAlignment = 
        HorizontalAlignment.Right

        'Convert to html method...
        converttohtml()

        'just for fallow the process
        MsgBox("Ok " + i.ToString())

        'insert new row with the html result
        DataGridView1.Rows.Insert(i, New String() {RichTextBox2.Text, RichTextBox1.Text})

        'increase progress by one
        ProgressBar1.Value += 1
    Next

1 Ответ

0 голосов
/ 22 мая 2018

моя проблема исправлена ​​... с помощью фрилансера ... вот код

    'add column to datagridview ...
    Dim col As New DataGridViewTextBoxColumn
    col.DataPropertyName = "cellvalue"
    col.HeaderText = "Article"
    col.Name = "Article"
    DataGridView1.Columns.Add(col)

    'second coulmn...
    Dim cols As New DataGridViewTextBoxColumn
    cols.DataPropertyName = "cellnumber"
    cols.HeaderText = "number"
    cols.Name = "number"
    DataGridView1.Columns.Add(cols)

    'third coulmn...
    Dim colsa As New DataGridViewTextBoxColumn
    colsa.DataPropertyName = "cellnumber"
    cols.HeaderText = "number"
    colsa.Name = "number"
    DataGridView1.Columns.Add(colsa)
    DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
    DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None

    ProgressBar1.Value = 0

    Dim x As Integer = 0
    For i = 0 To ListBox1.Items.Count - 1
        'get RTF files...
        RichTextBox1.LoadFile(ListBox1.Items(i).ToString(), 
RichTextBoxStreamType.RichText)
        RichTextBox1.SelectAll()
        RichTextBox1.SelectionAlignment = 
HorizontalAlignment.Right

        'Convert to html method...
        converttohtml()

        'just for fallow the process
        MsgBox("Ok " + i.ToString())

        'insert new row with the html result
        DataGridView1.Rows.Insert(i, New String() 
{RichTextBox2.Text, RichTextBox1.Text, xstring})

        'increase progress by one
        ProgressBar1.Value += 1
    Next
End Sub

клетки просто необходимо обернуть ... BY M P.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...