На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Как сделать чтобы....
    Вопрос:Я запускаю какое-либо приложение оно создает текстовый файл и тут же запускает его!!!!!Напишите плиз как сделать!!!
      А что в текстовом файле должно быть? И где создавать файл?
        Фиг его знает че там должно быть не в этом суть ,а где создавать c:\Windows\*.txt
          'Программа создает в папке C:\temp файл test.txt,
          'и запускает его.
          Private Sub Form_Load()
          Open "C:\temp\test.txt" For Output As #1
          Print #1, "Хай! Этот файл только что сгенерировала твоя программа :)"
          Print #1, "Вторая строка"
          Print #1, "(c) CR 2002 :)"
          Close #1
          Open "C:\temp\batrun.bat" For Output As #2
          Print #2, "@echo off"
          Print #2, "start C:\temp\test.txt"
          Print #2, "del C:\temp\batrun.bat"
          Close #2
          Shell ("C:\temp\batrun.bat"), vbHide
          End
          End Sub
            2 cr: Ага, и ещё батник будет на диске валяться...
            Не проще ли сделать так? :
            ..........
            ..........
            Close #1
            Shell "start C:\temp\test.txt"
              У меня под NT Shell "start C:\temp\test.txt" почему-то не работает, пишет файл не найден.
                Не удивительно!
                Здесь приходит на помощь знания АПИ ф-ций виндов. Лень объяснять, просто засунь этот кою в модуль. Процедура ShellFile запустит любой файл с зарегистрированым расширением (в том числе и текстовый)!
                Public 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
                Public Sub ShellFile(ByVal Path as String)
                Call ShellExecute(Me.hwnd, "open", Path, vbNullString, vbNullString, 1)
                End Sub
                1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                0 пользователей:


                Рейтинг@Mail.ru
                [ Script execution time: 0,0221 ]   [ 15 queries used ]   [ Generated: 20.05.24, 04:53 GMT ]