vb. net создание заполнения пробелов с помощью элементов управления перетаскиванием - PullRequest
Новая
       20

vb. net создание заполнения пробелов с помощью элементов управления перетаскиванием

0 голосов
/ 15 апреля 2020

Ссылка - это код VB6. Я не могу реализовать / преобразовать / понять это в VB. NET и код выше моего уровня. Этот проект VB6 работает отлично

Я хочу такой же, как и выше, рабочий проект в VB. NET с той же базой данных. 

Public Class Form1
    Dim strque = "Fill in ** whole **,**,**"
    Dim strquestion As String
    Dim i As Integer = 1
    Dim b As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        strque = Replace(strque, "**", "***************")
        Label1.Text = strque
        SurroundingSub()
        labelc()
    End Sub



 Sub labelc()

        For i = 1 To b Step 1
            Dim Label As New Label
            Label.Name = "Label" & i
            Label.Size = New Size(170, 20)
            Label.Location = New Point(200, (90 + (i * 25))) ' Location needs to be placeholder's location
            Label.Text = "Lbl_" & i
            Me.Controls.Add(Label)
        Next

    End Sub


    Private Sub SurroundingSub()
        Dim mysplit As Array
        mysplit = Split(strque, "***************")
        'MsgBox(mysplit.Length - 1)
        b = (mysplit.Length - 1) 'Getting Number of occurances to create those many labels at runtime.
    End Sub

У моего проекта будет только один вопрос, но он может иметь много пробелов (**). Я хочу создать такое же количество контейнеров / заполнителей и хочу включить перетаскивание из указанных вариантов (меток).

Я не эксперт.

...