VBNet - Форум - Проблемы с компиляцией

Вопрос: Проблемы с компиляцией Добавлено: 29.06.10 02:44

Автор вопроса: DIMA | ICQ: 8083015

Привет!Программа работает норм,пишу на VB6,но когда пробую компилировать ругается на fie1, если заменяю его переменной то ругается на WebBrowser1.Navigate подскажите как решить вопрос.

Private Sub Command1_Click()
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-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 29.06.10 03:00
	что значит "If File1 = "" Then" и "...Combo3.Text & "/" & File1" Ты что с чем сравниваешь и что к чему прибавляешь? Ответить

Номер ответа: 2 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #2	Добавлено: 29.06.10 03:01
	еще бы он не ругался, если ты так с объектом File обращаешься. Ответить

Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #3	Добавлено: 29.06.10 11:55
	Хоть бы написал, что за ошибку выдает... Ответить

Номер ответа: 4 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| \| #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-сайт: xawp.narod.ru Профиль \| \| #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-сайт: xawp.narod.ru Профиль \| \| #9	Добавлено: 02.07.10 16:39
	О Боже мой... Выделяет он Navigate... Ну выделяет он, а исправлять ошибку то надо? Или ты не понимаешь где она? Ответить

Номер ответа: 10 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #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-сайт: moscowdevils.ru Профиль \| \| #12	Добавлено: 03.07.10 16:04
	VβÐUηìt пишет: Скинь мне свой проект на мыло vbd@ilovevbd.com чем этот "совет" ненравится Ответить

Номер ответа: 13 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #13	Добавлено: 03.07.10 16:08
	что значит "If File1 = "" Then" и "...Combo3.Text & "/" & File1" надо либо File1.Path - это путь равный Dir1.Path, это мы используем если поверяем пустой путь. либо File1.FileName - это имя файля с расширением, это используем если проверяем пустое имя файла.Ilya написал ранее. Ответить

Номер ответа: 14 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #14	Добавлено: 03.07.10 16:11
	нпонял зачем тебе Dir1.Path, про равенство путей писл сверху. Ответить

Номер ответа: 15 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #15	Добавлено: 03.07.10 16:12
	чего ты вообще делаешь? Ответить

Страница: 1 | 2 |