Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: как открыть файл Добавлено: 23.04.09 22:58  

Автор вопроса:  Page
как открыть файл по средствам windows в vb 6

Ответить

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

Номер ответа: 1
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #1 		Добавлено: 24.04.09 00:20
CreateFile

Ответить

Номер ответа: 2
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #2 		Добавлено: 24.04.09 00:21
  1. 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

  1. Sub Run()
  2. ShellExecute Me.hwnd, "open", Me.fldUnitName, vbNullString, Me.fldDestination, SW_SHOWNORMAL
  3. 'Me.fldUnitName - текстбокс с именем файла
  4. 'Me.fldDestination - текстбокс где указан путь к файлу
  5. End Sub

Путь к директории можно не указывать. Прокатывает в большинстве случаев.
Открорет в асоциированной программе.

Ответить

Номер ответа: 3
Автор ответа:
 Page



Вопросов: 5
Ответов: 20
  Профиль | | #3 Добавлено: 24.04.09 01:13
не получилось! а как без текст бокса.
просто на кнопку повесить открыть файл.

например text.pdf

Ответить

Номер ответа: 4
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #4 		Добавлено: 24.04.09 08:40
Да так же.
  1. 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
  2.  
  3. Private Sub Command1_Click()
  4. ShellExecute Me.hwnd, "open", "Пузыри.bmp", vbNullString, vbNullString, 1
  5. End Sub
  6. Private Sub Command2_Click()
  7. ShellExecute Form1.hwnd, "open", "c:\windows\Пузыри.bmp", vbNullString, vbNullString, 1
  8. End Sub

Второй вариант сто процентный. Ты наверно ковычки неставил.

Ответить

Номер ответа: 5
Автор ответа:
 Page



Вопросов: 5
Ответов: 20
  Профиль | | #5 Добавлено: 24.04.09 12:59
Супер! Спасибо! оба работают.
1-ый для для файла который лежит с прогой.
2-ой чисто для константы!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам