Страница: 1 |
Страница: 1 |
Вопрос: ошибка компиляции
Добавлено: 18.09.07 20:35
Автор вопроса: Annie
Причем в VBA все работает,а VB6 ругается на мою процедуру:
Private Sub txtMyId_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If txtMyId = "Введите код..." Then txtMyId = ""
End Sub
ошибка компиляции:
Объявление процедуры не соответствует описанию события или процедуры, имеющей то же самое имя.
Ответы
Всего ответов: 8
Номер ответа: 1
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #1
Добавлено: 18.09.07 21:27
Может это? :
при условии, что txtMyId - это TextBox
Номер ответа: 2
Автор ответа:
Annie
Вопросов: 19
Ответов: 40
Профиль | | #2
Добавлено: 19.09.07 20:53
проблема не в этом.
Номер ответа: 3
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #3
Добавлено: 20.09.07 10:02
Если ты знаешь проблему, то в чем проблема? Прошу прощения за каламбур.
Номер ответа: 4
Автор ответа:
Annie
Вопросов: 19
Ответов: 40
Профиль | | #4
Добавлено: 20.09.07 20:12
конечно не знаю в чем, не задаюсь целью морочить другим голову, а такой код действительно не работает. что указывать свойство текст, что не указывать .есть предположение что васик не воспринимает первую строчку кода(т.к. ему не нравится объявление процедуры), может ByVal не правильно, не знаю..
Номер ответа: 5
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #5
Добавлено: 20.09.07 21:09
If Text1.Text = "Введите код..." Then Text1.Text = ""
End Sub
вот оно
Номер ответа: 6
Автор ответа:
Annie
Вопросов: 19
Ответов: 40
Профиль | | #6
Добавлено: 21.09.07 20:16
Arseny, молодец!
Номер ответа: 7
Автор ответа:
Annie
Вопросов: 19
Ответов: 40
Профиль | | #7
Добавлено: 21.09.07 20:17
а чё так тоже можно?
Номер ответа: 8
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #8
Добавлено: 22.09.07 10:13
А на хрена ты вручную пишешь заголовки? дважды щелкни по текстбоксу, и из верхнего комбобокса выбери событие MouseDown