Страница: 1 | 2 |
Вопрос: Проблемы с компиляцией
Добавлено: 29.06.10 02:44
Автор вопроса: DIMA | ICQ: 8083015
Привет!Программа работает норм,пишу на VB6,но когда пробую компилировать ругается на fie1, если заменяю его переменной то ругается на WebBrowser1.Navigate подскажите как решить вопрос.
Unload Me
End Sub
Private Sub GetFileAndDirList(PathToDir As String)
Dir1.Path = PathToDir
File1.Path = "C:\e-lib\Specialty"
Dim i As Integer
For i = 0 To Dir1.ListCount - 1
Combo1.List(i) = Mid$(Replace(Dir1.List(i), PathToDir, ""), 2)
Next i
Exit Sub
End Sub
Private Sub Combo1_Click()
Combo2.Clear
Combo3.Clear
Combo2.Enabled = True
Text1.Text = "C:\e-lib\Specialty\" & Combo1.Text & "\"
Dir2.Path = Text1.Text
For i = 0 To Dir2.ListCount - 1
Combo2.List(i) = Mid$(Replace(Dir2.List(i), Text1, ""), 1)
Next i
End Sub
Private Sub Combo2_Click()
Combo3.Clear
File1.Path = "C:\e-lib\Specialty"
Combo3.Enabled = True
Text1.Text = "C:\e-lib\Specialty\" & Combo1.Text & "\" & Combo2.Text
Dir2.Path = Text1.Text
For i = 0 To Dir2.ListCount - 1
Combo3.List(i) = Mid$(Replace(Dir2.List(i), Text1, ""), 2)
Next i
End Sub
Private Sub Combo3_Click()
File1.Path = "C:\e-lib\Specialty"
Text1.Text = "C:\e-lib\Specialty\" & Combo1.Text & "\" & Combo2.Text & "\" & Combo3.Text
Dir2.Path = Text1.Text
File1.Path = Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = "C:\e-lib\Specialty"
GetFileAndDirList Text1.Text
Combo2.Enabled = False
Combo3.Enabled = False
End Sub
Private Sub show1_Click()
If File1 = "" Then
MsgBox "Âû íå óêàçàëè ôàéë", vbCritical, "Îøèáêà"
Exit Sub
End If
WebBrowser1.Navigate "C:/e-lib/Specialty/" & Combo1.Text & "/" & Combo2.Text & "/" & Combo3.Text & "/" & File1
End Sub
Ответы
Всего ответов: 26
Номер ответа: 1
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #1
Добавлено: 29.06.10 03:00
что значит "If File1 = "" Then" и "...Combo3.Text & "/" & File1"
Ты что с чем сравниваешь и что к чему прибавляешь?
Номер ответа: 2
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #2
Добавлено: 29.06.10 03:01
еще бы он не ругался, если ты так с объектом File обращаешься.
Номер ответа: 3
Автор ответа:
Администратор
ICQ: 278109632
Вопросов: 42
Ответов: 3949
Web-сайт:
Профиль | | #3
Добавлено: 29.06.10 11:55
Хоть бы написал, что за ошибку выдает...
Номер ответа: 4
Автор ответа:
iprog
Вопросов: 26
Ответов: 110
Web-сайт:
Профиль | | #4
Добавлено: 30.06.10 19:47
Если Вы хотите получить имя файла в процедуре show, выбранного в File1, пишите File1.FileName.
Номер ответа: 5
Автор ответа:
DIMA
ICQ: 8083015
Вопросов: 6
Ответов: 9
Профиль | | #5
Добавлено: 01.07.10 00:22
Косяк в этой строчке WebBrowser1.Navigate "C:/e-lib/Specialty/" & Combo1.Text & "/" & Combo2.Text & "/" & Combo3.Text & "/" & File1 если заменяю File1 то выделяет Navigate и выкидывает Compile error: Method or data member not found
Номер ответа: 6
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #6
Добавлено: 02.07.10 02:43
А чё ты хотел? Чтобы тебе компилятор к строке объект добавлял?
Номер ответа: 7
Автор ответа:
DIMA
ICQ: 8083015
Вопросов: 6
Ответов: 9
Профиль | | #7
Добавлено: 02.07.10 12:20
Мне нужно скомпилировать мою прогу но,когда нажимаю создать Проект1.exe выкидывает ошибку и выделяет Navigate
Номер ответа: 8
Автор ответа:
VβÐUηìt
Вопросов: 246
Ответов: 3333
Web-сайт:
Профиль | | #8
Добавлено: 02.07.10 13:02
Скинь мне свой проект на мыло vbd@ilovevbd.com
Номер ответа: 9
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #9
Добавлено: 02.07.10 16:39
О Боже мой... Выделяет он Navigate... Ну выделяет он, а исправлять ошибку то надо?
Или ты не понимаешь где она?
Номер ответа: 10
Автор ответа:
Winand
Вопросов: 87
Ответов: 2795
Web-сайт:
Профиль | | #10
Добавлено: 02.07.10 17:42
мб Navigate2 ?
Номер ответа: 11
Автор ответа:
DIMA
ICQ: 8083015
Вопросов: 6
Ответов: 9
Профиль | | #11
Добавлено: 02.07.10 23:38
Если бы я знал где ошибка думаешь я создавал бы тему? лучше бы что нибудь дельное посоветовал...
Номер ответа: 12
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #12
Добавлено: 03.07.10 16:04
Скинь мне свой проект на мыло vbd@ilovevbd.com
чем этот "совет" ненравится
Номер ответа: 13
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #13
Добавлено: 03.07.10 16:08
надо либо File1.Path - это путь равный Dir1.Path, это мы используем если поверяем пустой путь. либо File1.FileName - это имя файля с расширением, это используем если проверяем пустое имя файла.Ilya написал ранее.
Номер ответа: 14
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #14
Добавлено: 03.07.10 16:11
нпонял зачем тебе Dir1.Path, про равенство путей писл сверху.
Номер ответа: 15
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #15
Добавлено: 03.07.10 16:12
чего ты вообще делаешь?