VBNet - Форум - Помогите найти ошибку))

Вопрос: Помогите найти ошибку)) Добавлено: 13.04.10 21:10

Автор вопроса: VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808

Private Const SW_SHOWNORMAL = 1

Dim DrvPath As String

Dim DirPath As String

Dim FilePath As String

Dim appPath As String

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

     ByVal hwnd As Long, _

     ByVal lpOperation As String, _

     ByVal lpFile As String, _

     ByVal lpParameters As String, _

     ByVal lpDirectory As String, _

     ByVal nShowCmd As Long) As Long



Private Sub Dir1_Change()

DirPath = Dir1.Path

File1.Path = DirPath

End Sub


Private Sub Drive1_Change()

DrvPath = Drive1.Drive

Dir1.Path = DrvPath

End Sub


Private Sub File1_DblClick()

FilePath = File1.Path

appPath = App.Path

ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", appPath, SW_SHOWNORMAL

End Sub

вот код. при доблклике по FileList'у должен запускаться выбранный файл (ну там ещё Drive и Dir). устранил константами тейп мисматч ща вообже ничего ни происходит.. помогите :)
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| \| #1	Добавлено: 13.04.10 21:38
	Напишите вместо ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", appPath, SW_SHOWNORMAL ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", App.Path, SW_SHOWNORMAL Вот это FilePath = File1.Path должно выглядеть так: FilePath = "\" & File1.FileName Остальное правильно, я проверил. Ответить

Номер ответа: 2 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #2	Добавлено: 13.04.10 22:23
	нет, файлы не открываются Dim DrvPath As String Dim DirPath As String Dim FilePath As String Dim appPath As String Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Me.Hide End Sub Private Sub Dir1_Change() DirPath = Dir1.Path File1.Path = DirPath End Sub Private Sub Drive1_Change() DrvPath = Drive1.Drive Dir1.Path = DrvPath End Sub Private Sub File1_DblClick() FilePath = "\" & File1.FileName appPath = App.Path ShellExecute Me.hwnd, "Open", DrvPath & DirPath & FilePath, "", appPath, SW_SHOWNORMAL End Sub Ответить

Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #3	Добавлено: 13.04.10 22:33
	Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() On Error GoTo Er Dir1.Path = Drive1.Drive Exit Sub Er: If MsgBox(("Óñòðîéñòâî " & Drive1.Drive & " íå äîñòóïíî."), vbExclamation + vbRetryCancel) = vbRetry Then Drive1_Change Else Drive1.Drive = Dir1.Path End If End Sub Private Sub File1_DblClick() ShellExecute Me.hwnd, "Open", Dir1.Path & "\" & File1.FileName, "", appPath, SW_SHOWNORMAL End Sub Ответить

Номер ответа: 4 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #4	Добавлено: 14.04.10 12:35
	Приходит юзер к программисту. Ю.: Я тут написал прогу. Че-то не работает, где у меня ошибка? П.: В ДНК. Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #5	Добавлено: 14.04.10 17:51
	+1 Ответить

Номер ответа: 6 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #6	Добавлено: 14.04.10 17:58
	+5 Ответить

Страница: 1 |