На главную Наши проекты:
Журнал   ·   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.
Страницы: (3) 1 [2] 3  все  ( Перейти к последнему сообщению )  
> Отправка по ссылке
    Цитата B.V. @
    Пост #12 уже в FAQ. Пост #15 добавлять в FAQ нет смысла.

    ну ладно
      У меня в модуле прописано
      ExpandedWrap disabled
        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


      А в нужном месте стоит:
      ExpandedWrap disabled
        ShellExecute 0, "open", "адрес_ссылки", "", "", 1


      Но он говорит, что не находит функции ShellExecute
      Сообщение отредактировано: Spectr-7 -
        Цитата
        Private Sub mnuHelpHomePage_Click()
        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

        ShellExecute 0, "open", "адрес_ссылки", "", "", 1
        End Sub

        а можт всетаки так : :'(
        ExpandedWrap disabled
          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 mnuHelpHomePage_Click()
           
          ShellExecute 0, "open", "адрес_ссылки", "", "", 1
          End Sub

        объявления апи функций должны идти В НАЧАЛЕ МОДУЛЯ, так же как и объявления глобальных переменных уровня модуля!!! :'(
        Сообщение отредактировано: Beast666 -
          Цитата Beast666 @
          объявления апи функций должны идти В НАЧАЛЕ МОДУЛЯ, так же как и объявления глобальных переменных уровня модуля!!!

          Это я заметил и переделал... Но все равно.. Он почему то считает ShellExecute функцией и не может ее найти.
            Цитата
            Он почему то считает ShellExecute функцией и не может ее найти

            что, дословно, он говорит? :) он запускает программу, или ошибка возникает уже во время компиляции???
              Во время попытки запуска - то есть нажатия на кнопку которая должна открыть страничку в броузере.
              а точно говорит вот что
              Compile error:
              Sub or Function not defined

              И выделяет "ShellExecute" слова
                Цитата
                Во время попытки запуска - то есть нажатия на кнопку которая должна открыть страничку в броузере.
                а точно говорит вот что
                Compile error:
                Sub or Function not defined

                И выделяет "ShellExecute" слова

                создай отдельный модуль (*.bas) и напиши в нем "PUBLIC Declare Function ShellExecute и т.д..."
                а старое "Private Declare Function ShellExecute ..." удали :D ;)
                Сообщение отредактировано: Beast666 -
                  Spectr-7, декларация функции должна быть в форме с доступом Private или в модуле с видимостью Public. У тебя так?
                    У меня так и сделано. Не в отдельном конечно модуле. Но, прописано в модуле и на нее не огрызается. Другие функции в том модуле исправно работают.
                      Цитата
                      в модуле с видимостью Public

                      лучше так, ибо будет видна по всему проекту..
                        Добавь Option Explicit. Может, опечатался?
                          Цитата MIF @
                          Spectr-7, декларация функции должна быть в форме с доступом Private или в модуле с видимостью Public. У тебя так?

                          Совсем забыл. В модуль перетащил, а на Public заменить забыл... Всем спасибо, решена проблема. Запустился броузер.
                            Цитата
                            Не в отдельном конечно модуле

                            Spectr-7, если определена как Приват, буде видна ТОЛЬКО в том модуле где определена!!!

                            Добавлено
                            Цитата
                            Совсем забыл. В модуль перетащил, а на Public заменить забыл... Всем спасибо, решена проблема. Запустился броузер

                            и нечего было пугать :angry: :D ;)
                              Цитата Beast666 @
                              ТОЛЬКО в том модуле

                              или классе (имеется ввиду класс формы)
                                Еще один вопрос.. как сделать - Написать на почту? Пробовал как и с сайтом но емейловский адрес - не работает.
                                1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                                0 пользователей:
                                Страницы: (3) 1 [2] 3  все


                                Рейтинг@Mail.ru
                                [ Script execution time: 0,0392 ]   [ 15 queries used ]   [ Generated: 18.07.25, 09:25 GMT ]