На главную Наши проекты:
Журнал   ·   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.
Ссылки по теме:
  
> Shell , привязать к программе
BENDEROVEC
Сообщ. #1 ,
    Junior
    *
    Профиль · PM
    Рейтинг (т): 0
    допустим.. вызываем окно св-во обозревателя..:

    ExpandedWrap disabled
      Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)

    как это окно привезать к программе..
    трудно обьяснить
    т.е. надо сделать нападобе.. чтобы было
    ExpandedWrap disabled
      Form2.Show 1
    Master ANDLL
    Сообщ. #2 ,

      Axe Mogul Khan
      ******
      Профиль · PM
      То есть дождаться ее завершения что ли?
      BENDEROVEC
      Сообщ. #3 ,
        Junior
        *
        Профиль · PM
        Рейтинг (т): 0
        Цитата ANDLL @
        То есть дождаться ее завершения что ли?

        неа.. сделать как дочерние окно программы )

        тут shell вообще не катит.. надо св-ва обозревателя как-то по др. вызвать..
        Сообщение отредактировано: BENDEROVEC -
        Master ANDLL
        Сообщ. #4 ,

          Axe Mogul Khan
          ******
          Профиль · PM
          BENDEROVEC
          EnumThreadWindows находим окно и далее SetParent
          BENDEROVEC
          Сообщ. #5 ,
            Junior
            *
            Профиль · PM
            Рейтинг (т): 0
            Цитата ANDLL @
            BENDEROVEC
            EnumThreadWindows находим окно и далее SetParent

            Сильно сложно для меня...
            код можно? :)
            Profi ALXR
            Сообщ. #6 ,

              Profi
              *****
              Профиль · PM
              Цитата ANDLL @
              BENDEROVEC
              EnumThreadWindows находим окно и далее SetParent

              Слишком сложно. :)

              ExpandedWrap disabled
                Option Explicit
                 
                Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long
                 
                Private Sub Form_Load()
                Me.Show
                LaunchInternetControlPanel Me.hWnd
                End Sub
              Сообщение отредактировано: ALXR -
              BENDEROVEC
              Сообщ. #7 ,
                Junior
                *
                Профиль · PM
                Рейтинг (т): 0
                спасиб. работает..
                хотя я библиотеку inetcpl.cpl перерыл всю.
                LaunchInternetControlPanel такое не заметил :)
                Profi ALXR
                Сообщ. #8 ,

                  Profi
                  *****
                  Профиль · PM
                  Цитата BENDEROVEC @
                  спасиб. работает..
                  хотя я библиотеку inetcpl.cpl перерыл всю.
                  LaunchInternetControlPanel такое не заметил :)

                  Покопавшись еще дизасмом набросал такой код: (пишущим бровузеры на основе IE пригодится, я думаю)
                  ExpandedWrap disabled
                    Option Explicit
                     
                    Private Declare Function DisplayPopupWindowManagementDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal lpURL As String) As Long
                    Private Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal dwZoneId As Long) As Long
                    Private Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long
                    Private Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long
                    Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long
                    Private Declare Function LaunchPrivacyDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long
                    Private Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal lpszRegPath As Any) As Long
                    Private Declare Function OpenLanguageDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal dwUnknown1 As Long, ByVal dwUnknown2 As Long, ByVal dwUnknown3 As Long) As Long
                     
                    Private Sub Command1_Click(Index As Integer)
                    Select Case Index
                    Case 0: Call DisplayPopupWindowManagementDialog(Me.hWnd, StrConv("http://mysite.com", vbUnicode)) ' WinXP SP2 Only?
                    Case 1: Call LaunchSecurityDialog(Me.hWnd, 1)   ' Choose Intranet as default
                    Case 2: Call LaunchSiteCertDialog(Me.hWnd)
                    Case 3: Call LaunchConnectionDialog(Me.hWnd)
                    Case 4: Call LaunchInternetControlPanel(Me.hWnd)
                    Case 5: Call LaunchPrivacyDialog(Me.hWnd)
                    Case 6: Call OpenFontsDialog(Me.hWnd, 0&)
                    Case 7: Call OpenLanguageDialog(Me.hWnd, 0, 0, 0)
                    End Select
                    End Sub

                  На форму бросить кнопочки Command1 с индексами от 0 до 7.
                  Сообщение отредактировано: ALXR -
                  BENDEROVEC
                  Сообщ. #9 ,
                    Junior
                    *
                    Профиль · PM
                    Рейтинг (т): 0
                    неплохо :)..

                    Добавлено
                    Добавить в избранное...
                    Упорядочить избранное...

                    вот это бы еще сделать...
                    само избранное можно из реестра будет загружать..
                    Master ANDLL
                    Сообщ. #10 ,

                      Axe Mogul Khan
                      ******
                      Профиль · PM
                      Ага, а тему добавить в ФАК

                      (ed: BV) Всему своё время
                      Сообщение отредактировано: B.V. -
                      Wizard B.V.
                      Сообщ. #11 ,

                        Thinker
                        *********
                        Профиль · PM
                        Поощрения: 77 Dgm
                        Рейтинг (т): 35
                        Цитата ALXR @
                        Покопавшись еще дизасмом набросал такой код:


                        А теперь покопавшись тут отредактируй код и я добавлю его в FAQ :)
                        Profi ALXR
                        Сообщ. #12 ,

                          Profi
                          *****
                          Профиль · PM
                          Цитата B.V. @
                          Цитата ALXR @
                          Покопавшись еще дизасмом набросал такой код:


                          А теперь покопавшись тут отредактируй код и я добавлю его в FAQ :)

                          Ну.. Э.. OpenLanguageDialog не нашел, вроде. А с lpszRegPath я чего-то не пойму - Unicode-строка там нужна или ANSI.
                          Wizard B.V.
                          Сообщ. #13 ,

                            Thinker
                            *********
                            Профиль · PM
                            Поощрения: 77 Dgm
                            Рейтинг (т): 35
                            Цитата ALXR @
                            А с lpszRegPath я чего-то не пойму - Unicode-строка там нужна или ANSI.


                            ANSI, конечно.
                            BENDEROVEC
                            Сообщ. #14 ,
                              Junior
                              *
                              Профиль · PM
                              Рейтинг (т): 0
                              вызвать диалоговые окна..
                              "добавить избранное", "упорядочить избранное".. можно через shell32.dll наверно..

                              в inetcpl.cpl вот такое еще есть: AddInternetPropertySheets..
                              Сообщение отредактировано: BENDEROVEC -
                              1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                              0 пользователей:


                              Рейтинг@Mail.ru
                              [ Script execution time: 0,0396 ]   [ 15 queries used ]   [ Generated: 18.07.25, 04:31 GMT ]  
                              Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.