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

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: open Добавлено: 10.05.10 00:39  

Автор вопроса:  UnDeAdZak
Подскажите плиз, как сделать так, чтобы моей прогой можно было открыть файл. Я не спрашиваю, как мою прогу ассоциировать для файла( хотя это тоже не помешало-бы), я спрашиваю, каким образом понять, какой файл передаётся в прогу.

Ответить

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

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #1 		Добавлено: 10.05.10 09:15
Имя файла передается через командную строку. Файловые ассоциации находятся в реестре, HKEY_CLASSES_ROOT.

Ответить

Номер ответа: 2
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #2 Добавлено: 10.05.10 13:06
Sharp а как из коммандной строки считать сообщение?

Ответить

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



Вопросов: 0
Ответов: 1
  Профиль | | #3 Добавлено: 10.05.10 13:20
  1. My.Application.CommandLineArgs()'массив элементов командной строки

Ответить

Номер ответа: 4
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | | #4 Добавлено: 11.05.10 04:48
Interop.Shell32.dll тебе в помощь. :)

Ответить

Номер ответа: 5
Автор ответа:
 Сurious



Вопросов: 7
Ответов: 18
  Профиль | | #5 Добавлено: 11.06.10 08:19
Вот более полный пример программы, подвешивающийся на файлы с рассщирением .txt

  1.  
  2.  
  3. Public Class MainFormOfMyProgramm
  4.  
  5.     Dim MyLocation As String
  6.     Dim FilePath As String
  7.     Dim TXT As String
  8.  
  9.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  10.         MyLocation = Application.ExecutablePath
  11.         My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.txt", "", "MyTxtReadProgramm")
  12.         My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\MyTxtReadProgramm\shell\open\command", "", MyLocation & " %1")
  13.         My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\MyTxtReadProgramm\DefaultIcon", "", MyLocation & ", 0")
  14.         FilePath = Command()
  15.         If FilePath <> "" Then
  16.             TXT = FileIO.FileSystem.ReadAllText(FilePath, System.Text.ASCIIEncoding.Default)
  17.             RichTextBox1.Text = TXT
  18.             Me.Text = IO.Path.GetFileName(FilePath)
  19.         End If
  20.     End Sub
  21.  
  22. End Class
  23.  
  24.  

Ответить

Страница: 1 |

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



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