Ощибка -Compile error:

[Nick202]

Я только недавно начал изучать VB по учебнику повторяя все действия я всё время сталкиваюсь с одной и той же ошибкой Compile error:Sub or Function not defined и прога не работает : .Как исправить?

[Amed]

Добро пожаловать в стройные ряды!
1) Переведи название ошибки и "догадайся", в чем дело.
2) Приведи пример кода, без него ничего непонятно.

[Nick202]

Private Sub Slider1_Change()
Label1.Caption = StrS(Slider1.Value)
Label3.Caption = StrS(Slider1.Value * Slider2.Value)
End Sub

Private Sub Slider2_Change()
Label2.Caption = StrS(Slider2.Value)
Label3.Caption = StrS(Slider1.Value * Slider2.Value)
End Sub
Еще есть две надписи (Label) Желтым цветом обводиться первая строчка тип ошибка.

[BV]

StrS измени на Str$

[Nick202]

Спасибо!Всё пошло

[Nick202]

Не хотелось бы создавать еще одну пустяковую тему поэтому не буду . Где ощибка искал не нашёл
Private Sub HScrol1_Change()
If num Then
Shape1.Left = HScroll1.Value
Else
Shape2.Left = HScroll1.Value
End If
End Sub
(num это переменная)

[RayShade]

После ELSE я бы поставил : (сразу, без пробела Else: )

[Nick202]

Спасибо!А тут что не так я думал тут тоже самое а оказывается не так то просто.
Private Sub VScroll1_Change()
If num Then
Shape1.Top = VScroll1.Value
Else:
Shape2.Top = VScroll1.Value
End If
End Sub

[RayShade]

Текст ошибок я думаю, нодо бы приводить.

Или хотя бы код чтоли

[Nick202]

.Top = вот ощибка или это нето (Method or data member not found)

[Nick202]

.....

[RayShade]

Может, у тебя буква русская в названии проперти?

[uhm]

У тебя вообще есть такой объект на форме - shape1?

[RayShade]

Не. Если бы такого объекта не было, то ошибка была бы Object Required (424). А тут именно есть объект, но у него проперти нет.

Может он просто, русские буквы туда случайно написал

[Roman-vb]

.Top = вот ощибка или это нето (Method or data member not found)

Выложи код, а не "обрубки"!

[GSerg]

Код, Roman-vb, выложен двумя сообщениями выше.

[Roman-vb]

GSerg
Имеешь в виду это:

Код: Выделить всё

Private Sub VScroll1_Change()
If num Then
Shape1.Top = VScroll1.Value
Else:
Shape2.Top = VScroll1.Value
End If
End Sub


[RayShade]

Да, боюсь он имеет в виду именно это

[Roman-vb]

Ну в любом случае - работает. Только после Else двоеточие - НЕ надо. ААА ошибка может быть потому, что он кинул на форм какой-то контрол (явно - не Shae)/ Скорее всего - Line. А вообще -

[GAGArin]

т.е. Ты кинул контрол у которого нет такого свойства и назвал его Shape1?

[Roman-vb]

GAGArin
Ты у кого спрашивешь, не у меня ли? Ведь всё это лишь мои предположения о том, какую ошибку мог допустить Nick202

[FaKk2]

Дело в том что проперти Top есть у каждого контрола на форме.

[Roman-vb]

FAKK2
А контрол Line тоже по-твоему имеет св-во Top, вот скорее всего он и спутал Shape c Line, да потом ещё и переименовал Сколько же нужно выпить, чтобы такое тварить (если конечно мои предположения истины)

[Tamplier]

19:11

Под вечер писал. Устал, наверно. Вот и пишет че-то не то....

[Roman-vb]

Tamplier
Ну точно, под вечер, да ещё и пьяный!

[Krioss McKill'em]

помогите плиз

Private Sub Command1_Click()
For i = 1 To 8
Ng(i) = InputBox("Enter city name")
Label(i).Caption = "Ng(i)"
Next

выдаёт опять же "Sub or Function не определено" и выделяет Label. Label Есть! если вынести отдельно цикл с лейблом на отдельную кнопку, то inputbox работает, а Лэйбл снова Нет.

[AjaxVS]

Вот это да!!!!
Никогда не видел, чтоб человек за полтора месяца не сдвинулся в VB ни на шаг +_+

Во-первых, по смыслу:
Label(i).Caption = "Ng(i)"
замени на
Label(i).Caption = Ng(i)

Во-вторых:
Ты уверен, что создал массив Label'ов (видно из "Label(i)")?
В-третьих - никогда не видел, чтоб Label1 переименовывали в Label =)

[Krioss McKill'em]

Полтора месяца это про меня? С чего? Не, я совсем недавно.
Всё, теперь всё получилось. Просто до этого было Label1, label2... а теперь Labe1(0), Label1(1)... Ну и кавычки конечно убрал.
Спасибо.

[Krioss McKill'em]

For c = 2 To N
f = c + 2
If f <= N Then List1.RemoveItem f
Next

Опять не пашет! говорит что неправильно функция или аргумент. Но итемы при этом сперва удаляет! Хочу чтоб удалял, а потом по аналогии сделать с "с = 3 to N"... f = c+3... в общем чтоб оставил только простые числа. (или это можно коротко задать??)

[Viper]

Если N это число элементов, то при f = N происходит попытка удаления элемента за пределами списка, поскольку нумерация начинается с 0. Это во-первых, а во-вторых, при удалении элементов из списка их исло уменьшается и N не будет соответствовать числу элементов списка. Можно попробовать удалять с конца, например

For i = N - 1 To 0
List1.RemoveItem i
Next i