Ошибка - метод Text не найден - VB

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

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

1. вопрос(особо важный)
Вот на этот код программа пишет мол метод текст не найден,но в некоторых моих других прогах она нормально работает например: Привет мир. Вот к этому она кидает претензии- (Label1.Text = "Негр был куплен!!!"). Как исправить или что сделать чтобы программа работала также,но на альтернотивном коде?

Решение задачи: «Ошибка - метод Text не найден»

textual
Листинг программы
Private Sub Command1_Click()
     
    Label1 = "Негр был куплен!!!"
    If Label1 = "Негр был куплен!!!" Then
    
        'Ввод неизвестных значений
        Do: Money = InputBox("Значение Money ?", , 0)
        Loop Until IsNumeric(Money)
        Do: war = InputBox("Значение war ?", , 0)
        Loop Until IsNumeric(war)
        
        'Вычисление
        Money = Money - 250
        war = war + 25
        
        'Вывод результатов в MsgBox
        s = "Money = " & Money & vbLf & _
                    "war = " & war
        MsgBox s
 
        'Вывод результатов в Label1
        Label1 = Label1 & vbLf & s
 
        'Вывод результатов на форму
        Me.Print s
        
        'Вывод результатов в Immediate
        Debug.Print s
 
 
    End If
 
End Sub

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


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

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

14   голосов , оценка 3.857 из 5