Автоматическая нумерация строк - VB

Узнай цену своей работы

Формулировка задачи:

У меня есть сорок пять строк,нужно что бы каждая строка стояла под своим номером.Строки находятся в TextBox1.
Вот код ну или предложите свой. Заранее спасибо. P.S. Я новичек.

Решение задачи: «Автоматическая нумерация строк»

textual
Листинг программы
       Public Class Form1
    Dim B As String
 
    Private Property SWFToImage As Object
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        SWFToImage = CreateObject("SWFToImage.SWFToImageObject")
 
        SWFToImage.InitLibrary("demo", "demo")
 
        SWFToImage.InputSWFFileName = "C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\SWF\my.swf"
        SWFToImage.ImageOutputType = 1 ' set output image type to Jpeg (0 = BMP, 1 = JPG, 2 = GIF)
 
        SWFToImage.Execute_Begin() ' start conversion 
 
        MsgBox("There are " & CStr(SWFToImage.FramesCount) & " frames to convert" & vbCrLf & "Will convert first 10 frames only")
    Dim a As Long
    Dim u As Integer = 2
        B = B + 1
        For i = 0 To 45 ' change to SWFTOImage.FramesCount -1 to convert all frames
            SWFToImage.FrameIndex = i ' set frame index
            SWFToImage.Execute_GetImage()
            SWFToImage.SaveToFile("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(i) & ".jpg")
        Next
        Randomize()
        u = Rnd()
    Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов
    Dim r As Long ' Переменная для хранения чисел
    Dim G As String ' Переменная для хранения символов
        Randomize() ' Это чтоб в функции Rnd генерировались разные числа
        For i = 0 To 10 ' Цикл, будет 10 раз повторяться
            Mass(i) = 0 ' Все числа массива приравниваем к 0
            r = Rnd() * 1 ' Генерируем случайное число(от 0 до 1) и записываем его в переменную R
            If r = 0 Then ' Если R=0 то:
                Mass(i) = "Bla" ' Записываем в массив(индекс зависит от переменной i) слово "Bla"
            End If
            If r = r Then r = r + 1
            G = G & i & "" + Chr(13) ' Переменная G = G(это содержимое переменной)&i(это перенная содержит число повторений цикла) + " = " + Mass(i)(значение массива(ил "Bla" ил "0")) + Chr(13)(ну это Enter(т.е. новая строка))
        Next i
        MsgBox(G, 48, "")
 
        SWFToImage.Execute_End() ' end conversion
    Dim swfneme As String = ("C:\Users\Михаил\Desktop\utexh\bhj.txt")
 
        Dim id_xml As String = ("<image id= " & (g) & ">" & vbCrLf & "  <title>Картинка_" & (SWFToImage.FrameIndex) & "</title>" & vbCrLf & "  <image>" & ("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(SWFToImage.FrameIndex) & ".jpg") & "</image>")
    Dim kod As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001)
    Dim ch As New IO.StreamReader(swfneme, kod)
        For i% = 1 To 45
            TextBox1.Text = TextBox1.Text & vbCrLf & id_xml & vbCrLf & ""
        Next i%
        ch.Close()
    Dim kod1 As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001)
    Dim swfnam2 As String = "C:\Users\Михаил\Desktop\utech3\bhj.xml"
    Dim cg As New IO.StreamWriter(swfnam2, False, kod1)
        cg.Write(TextBox1.Text)
        cg.Close()
    End Sub
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5
Похожие ответы