На главную
ПРАВИЛА 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.
  
> Супер аддин быстрой декларации всего, к черту их всех... :)
    Короче суть ясна. Вы кусаете откуда нить кусок кода.
    И обычно начинаете рыться в апивьювере в поисках всех констант типов и функций. Неудобно. Не то слово, просто ужас.

    Ну так вот после установки данного аддина, кстати установка простая. Копируете файлы из архива в какую нить папку. Регистрируете dll-ный файл с помощью сами знаете чего.

    Все теперь в меню Add-In появляется кнопка [Api auto declarator].
    Жамкаете на этот батон и в Вашем проекте появляется новый модуль со всеми необходимыми для Вашего проекта декларациями.

    Особо хочется отметить скорость работы данного аддина, почти мнгновенная, а также наличие в базе данных таких функций, констант и типов которых нет в стандартном апивьювере.

    Вот так. Короче, вещь стоящая, КАЧАТЬ ВСЕМ!

    Вот:
    Сообщение отредактировано: SCINER -

    Прикреплённый файлПрикреплённый файлapi_auto_declarator.zip (176.89 Кбайт, скачиваний: 1585)
    And per se and: http://j.mp/sex
      Run-time error '-2147024809 (80070057)'

      Invalid procedure call or argument


      Как обычно, у себя всё работает, а у других… :rolleyes:
        Все исправлено!
        И то эта ошибка вылетела у меня только при совершенно пустом проекте, без единой строчки!
        Сообщение отредактировано: SCINER -
        And per se and: http://j.mp/sex
          Молодец SCINER! :P
          Стоящая вещь! Меня тоже всегда убивал поиск констант и структур, но все времени не хватало заняться, а ты вот не поленилися, видать совсем тебя стукнуло сильно! :D
            Цитата
            видать совсем тебя стукнуло сильно


            Да уж :wacko:
            And per se and: http://j.mp/sex

              1. Мягко говоря не очень быстро работает
              2. ВООБЩЕ не в тёму вставляет.

              <_<
                Что нить стоящее можно написать если пользователи программ будут сообщать о багах!
                Так что код в студию!
                Я имею в виду код, который был разобран не в тему.
                And per se and: http://j.mp/sex
                  Цитата Yann @ 16.08.04, 13:17

                  1. Мягко говоря не очень быстро работает
                  2. ВООБЩЕ не в тёму вставляет.

                  <_<


                  На счёт первого пункта я думаю всё ясно? грузит намнОго дольше
                  того же самого API Viewer'а

                  Внизу код «не в тёму». Зачем мне это всё? если даж намёка в проекте нету? :huh:


                  ExpandedWrap disabled
                    Public Type OFSTRUCT
                      cBytes As Byte
                      fFixedDisk As Byte
                      nErrCode As Integer
                      Reserved1 As Integer
                      Reserved2 As Integer
                      szPathName(OFS_MAXPATHNAME) As Byte
                    End Type
                    Public Const DELETE = &H10000
                    Public Const ALTERNATE = 1
                    Public Const WS_EX_LEFT = &H0&
                    Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
                    Public Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
                    Public Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
                    Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
                    Public Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
                    Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
                    Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
                    Public Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long
                    Public Declare Function hread Lib "kernel32" Alias "_hread" (ByVal hFile As Long, lpBuffer As Any, ByVal lBytes As Long) As Long
                    Public Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
                    Public Declare Function Escape Lib "gdi32" (ByVal hdc As Long, ByVal nEscape As Long, ByVal nCount As Long, lpInData As Any, lpOutData As Any) As Long
                    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
                    Public Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
                    Public Declare Function ValidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
                    Public Declare Function GetCursor Lib "user32" () As Long
                    Public Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
                    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
                  Сообщение отредактировано: Yann -
                    Покажи свой проект, я разберусь и подправлю. >:(
                    And per se and: http://j.mp/sex
                      Мда, шото аддин неподетски временами глючит...
                      API Viewer в плане стабильности конечно получше.
                      2 SCINER: Ты бы лучше все объявления в БД перегнал, работало бы побыстрее.
                      Computers are useless. They can only give you answers!
                        Да меня тоже достало писать декларации в ручную - и я перешёл на Делфи :D
                          Простите, а о какой декларации речь? :blink:
                          Сообщение отредактировано: час -
                            Цитата час @
                            Простите, а о какой декларации речь? :blink:

                            я поправлю:
                            О какой декларации шла речь 6 лет назад?
                            And per se and: http://j.mp/sex
                              Цитата час @
                              Простите, а о какой декларации речь? :blink:

                              Независимости, конечно

                              Шикарные успехи в археологии, кстати
                              const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
                              for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;


                              user posted image Чат Исходников в СкайпеНе тормози, форум теперь здесь!Чат Исходников в Дискорде
                                Спасибо!!! ;)

                                Добавлено
                                :lool: :lool: :lool: :lool:
                                0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                                0 пользователей:


                                Рейтинг@Mail.ru
                                [ Script Execution time: 0,1556 ]   [ 17 queries used ]   [ Generated: 24.01.20, 01:14 GMT ]