Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 140.


VBNet VBMania
Голосование:



Рассылки Subscribe.Ru
VB.NET-World
Новости сайта IgorykSoft и советы по программированию
DanSoft о Visual Basic
Visual Basic.NET Уроки.

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • Snoozex Design
  • IgorykSoft
  • DanSoft
  • Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Загляните в раздел "Конкурс".
    Читайте!


    Содержание выпуска




    Книги

    Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.)

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

    Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.


    Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)

    Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET.
    Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET

    Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.


    VB.NET для разработчиков (цена ~ 125 руб.)

    Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...

    Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.




    Остальные книги о VB можно найти
    здесь.

    наверх


    Конкурс

    Здравствуйте, любители Visual Basic! Подведены итоги второго конкурса на лучшую статью по программированию на Visual Basic. В конкурсе участвовало 6 работ и, надо признаться, что было очень трудно выбрать из них самую лучшую! Спасибо всем, кто принял участие в конкурсе, прислав свои работы, а также тем, кто помогал в выборе победителя, голосовав на сайте. О результатах. Я не смог выбрать одну статью в качестве победителя и решил, что на этот раз первых мест будет два. Итак, вот победители:

    Первое место: Гриненко Виталий "Классовая теория програмизьма", Ларин Александр "Реализация длинной арифметики на Visual Basic'е".
    Второе место: Калмыков Дмитрий "Как стать автором shareware программ".

    Какие же призы мы приготовили авторам? Как и в прошлый раз мы предлагаем Гриненко Виталию и Ларину Александру самим выбрать в качестве приза книгу из магазина оЗон. Книги будут оплачены сайтом VBNet. Калмыков Дмитрий получает комплект CD дисков, выпускаемых сайтом VBNet. Все остальные участники конкурса, работы которых были представлены на сайте, получают в качестве поощрительного приза любой из дисков, выпускаемых сайтом VBNet.

    Ну и хочу сообщить всем, что начинается новый конкурс! Присылайте свои статьи на сайт и становитесь победителями конкурса! Нужно отметить, что конкурсы на VBNet выходят на новый уровень развития с теперь у нас есть спонсор в лице авторитетного журнала "Hard'n'Soft", который предлагает победителям конкурса бесплатные подписки на журнал. Думаю, что это придаст вам больше сил и участников конкурса станет еще больше.



    наверх


    Citycat by Email

       Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
       Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

    наверх


    Новости сайта VBNet

    Дата: 02.03.2003 08:21 | Раздел: Статьи по VB | Автор: Ройтер Роман

    Как защитить свою программу от взломщиков - Я решил написать статью о том, как защитить свои программы от взлома. Оговорюсь сразу, практически невозможно создать такую защиту, которая могла бы противостоять опытному взломщику. Но можно попытаться создать такую защиту, которая окажется не по зубам около 90% взломщиков. Все мои идеи по защите основаны на личных наблюдениях, и они могут не быть достоверными, но могут быть полезными против большинства новичков и продвинутых взломщиков.

    Дата: 28.02.2003 15:47 | Раздел: Примеры кода | Автор: Kir Alper

    WinExit II - Простенькая прога : Выход из Windows (XP) Видно ее работу только в SysTray. Иконка в SysTray "живая". Добавлена быстрая перезагрузка,получение своего IP-address и переменных среды.

    Дата: 28.02.2003 14:51 | Раздел: ActiveX контролы | Автор: Вологин Артём

    PicButton - Кому не хочется украсить свою программу красивыми, подвижными кнопками? Но делать их с помощью Label'ов, Imag'ов очень долго и нудно. Этот контрол поможет сделать кнопку на ваш вкус.

    Дата: 27.02.2003 08:38 | Раздел: Примеры кода | Автор: Замашной Вадим

    Timer - Таймер выключения компьютера

    Дата: 27.02.2003 08:38 | Раздел: Примеры кода | Автор: Замашной Вадим

    Avtointernet (sys tray vb) - Автонабор интернет-адресов (URL).

    Дата: 26.02.2003 17:47 | Раздел: Полезные программы | Автор: Ловиков Миха

    MicroGerakL 6.3 - Редактор иконок и курсоров. Извлечение иконок из .exe,.ocx,.icl,.dll,.ani и др. Возможность захвата в буфер части экрана,cохранение в форматах .ico,.cur,.ani В этой версии исправлены баги при сохранении, рисовании.Сейчас пытаюсь усовершенствовать извлекатель. Он будет тащить иконки из всех файлов и рисунков! В этой версии добавлен файл TipOfDay.txt для советов дня.

    Дата: 26.02.2003 08:38 | Раздел: Примеры кода | Автор: Замашной Вадим

    Калькулятор - Ещё один калькулятор.

    Дата: 26.02.2003 08:38 | Раздел: Примеры кода | Автор: Замашной Вадим

    ScreenCopi - Программа для быстрого создания снимка экрана (или части экрана) и сохранения его в файл.

    Дата: 25.02.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    Конвертер систем счисления - Переводит число из одно системы счисления в другую. Например из 16-ричной в 2-ичную.

    Дата: 25.02.2003 08:25 | Раздел: Примеры кода | Автор: Daniyar Atadjanov

    VB 6.0 Recent Files Corrector - У VB при показе диалогового окна для открытия файлов есть вкладка Recent Files, где вы можете выбрать проект из списка наиболее часто используемых вами. Но когда проект удаляется с диска, VB не удаляет его из этого списка, что не совсем удобно, а точнее совсем не удобно. Забудьте про это неудобство с данной маленькой программой! Она покажет список всех проектов, а также список проектов, которых уже нет! И спросит разрешения удалить их!

    Дата: 24.02.2003 08:25 | Раздел: Примеры кода | Автор: Daniyar Atadjanov

    Background Converter - Все знакомы с прогами-латинизаторами. Обычно они имеют два поля. Копируешь текст, вставляешь в верхнее поле, нажимаешь на кнопку. В нижнем появляется конвертированный текст. Копируешь его и вставляешь куда надо. Зачем столько возни? Взгляните на мою прогу! Вы с ней почти не общаетесь! Просто выделяете нужный текст прямо из программы в которой вы работаете (Блокнот, Word, IE и т. д.) и копируете его. Конвертированный текст вставится автоматически!

    Дата: 23.02.2003 10:59 | Раздел: Примеры кода | Автор: Владимир

    JPGfromRES - Загрузка картинок в формате JPG и GIF из фаила ресурсов



    Последние 20 тем форума на VBNet.Ru:

    01:41 / 2 мар.  Модем, поодключения... | Хитов: 6 |  Ответов: 0
    01:41 / 2 мар.  Модем, поодключения... | Хитов: 2 |  Ответов: 0
    23:59 / 1 мар.  com порт | Хитов: 5 |  Ответов: 1
    20:12 / 1 мар.  ASP чат без global.asa | Хитов: 4 |  Ответов: 0
    19:37 / 1 мар.  Сообщение Windows - нужна помощь | Хитов: 13 |  Ответов: 0
    17:52 / 1 мар.  работа с тел. линией | Хитов: 11 |  Ответов: 0
    16:40 / 1 мар.  Лицензирование ActiveX | Хитов: 17 |  Ответов: 3
    13:51 / 1 мар.  Как воспроизвести звук из массива переменных In... | Хитов: 7 |  Ответов: 0
    11:54 / 1 мар.  Гррр | Хитов: 15 |  Ответов: 0
    10:49 / 1 мар.  COM-порт. | Хитов: 9 |  Ответов: 0
    05:16 / 1 мар.  Reestr??? | Хитов: 7 |  Ответов: 0
    23:55 / 28 фев.  помогите с винсокс!!! | Хитов: 18 |  Ответов: 1
    22:59 / 28 фев.  Новое сообщение без темы | Хитов: 4 |  Ответов: 0
    20:40 / 28 фев.  TreeView аналог winamp | Хитов: 25 |  Ответов: 3
    14:40 / 28 фев.  шрифты и ListBox | Хитов: 11 |  Ответов: 0
    11:01 / 28 фев.  vb.net и БД | Хитов: 21 |  Ответов: 2
    09:55 / 28 фев.  NET | Хитов: 20 |  Ответов: 0
    05:55 / 28 фев.  Vbscript / ASP | Хитов: 42 |  Ответов: 5
    22:38 / 27 фев.  Не пойму что с DLL | Хитов: 26 |  Ответов: 2
    22:03 / 27 фев.  нажать, открыть, записать, закрыть... | Хитов: 42 |  Ответов: 4


    Последние поступления в Библиотеку кодов:

    Римские цифры (47)


    Новости от VBNet-чиков!:



    наверх


    Новости сайта VBMania



    наверх


    Новости сайта Азбука VB



    наверх


    Новости сайта MSDN



    наверх


    Новости сайта GotdotNet



    Новые статьи:



    наверх


    Новости сайта dotSite

    Новые статьи:



    Новые примеры:

    • ASP.NET Forums (Russian)
      Руссификация движка для форумов, разработанного командой ASP.NET


    наверх


    Узнать точку пересечения срединных перпендикуля...

    Вопрос:
    Автор вопроса: Страшный Сон

       Надо узнать точку пересечения срединных перпендикуляров в трёугольнике, проще говоря, просто узнать точку пересечения двух отрезков! Кто-нить в этом разбирается?


    Ответы:

    Автор: Silent Bob
       Можно приравнять ур-я прямых. Подробно онахождении ур-ий по координатам можно прочитать в руководстве для поступающих в МГУ.

    Автор: AlexSid
       Составляешь систему уравнений прямых. Решаешь... По методу Крамера, например! Если есть решение, значит ты получил то, что надо. Нет - значит параллельны... (хотя, если это серед. перпендикуляры, то такой случай исключается).

    Автор: Страшный Сон
       Расскажите тада что-нибудь об этих уравнениях, или ссыллочку дайте.
       > хотя, если это серед. перпендикуляры, то такой случай исключается
       Я так не думаю. Если у треугольника один из углов равен 180 градусам, а длина самой длинной стороны равна сумме длин двух других, то ср. перпендикуляры будут параллельны. В таком случае треугольник будет выглядеть как линия, а описать окружность вокруг него будет невозможно. :-)))

    Автор: vig11
       У треугольника один угол не может быть равным 180 градусам. 180 градусов это сумма всех углов треугольника.

    Автор: AlexSid
       "Если у треугольника один из углов равен 180 градусам"...
       Я не рассматриваю вырожденного случая!
       Глянь на http://algolist.manual.ru/maths/geom/intersect/lineline2d.php...
       И вообще на algolist.ru, может найдешь чего.

    Автор: Страшный Сон
       > У треугольника один угол не может быть равным 180 градусам. 180 градусов это сумма всех углов треугольника.
       Ну вот так и есть - один угол равен 180 градусам, два других - нулю. Треугольник такой.

    Автор: Страшный Сон
       Уау, получилось! Нашло оно этот проклятый центр описанной окружности! Правда, пришлось немного поломать голову над этим уравнением...

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

    Global Const HORIZ = 0
    Global Const VERT = 1
    Global Const ANGLL = 2
    Global Const ORTO = 3
    Global Const ERRORH = 50
    Global Const OFF = -1
    Global Const OMM = 1
    Public Function Parline(ByRef a As Variant, ByRef b As Variant, x0 As Variant, _
    y0 As Variant, x1 As Variant, y1 As Variant) As Integer
    Dim dx, dy, tmp As Double
    Dim PI As Double
    PI = 4 * Atn(1)
    tmp = Sqr((x1 - x0) ^ 2 + (y1 - y0) ^ 2)
    If tmp = 0# Then: Parline = ERRORH: Exit Function
    dx = Abs(x1 - x0)
    dy = Abs(y1 - y0)
    If dy < 0.25 Then: a = 0#: b = y0: Parline = HORIZ: Exit Function
    If dx < 0.25 Then: a = 1E+15: b = x0: Parline = VERT: Exit Function
    If dx > dy Then
         dx = dx / tmp
         dx = Atn(-dx / Sqr(-dx * dx + 1)) + 2 * Atn(1)
         If Abs(dx) < 0.0001 Then
         a = 0#
         b = y0
         Parline = HORIZ
         Exit Function
         Else
         If Abs(dx - PI / 2) < 0.0001 Then a = 1E+15: b = x0: Parline = VERT: Exit Function
         End If
    Else
         dy = dy / tmp
         dx = Atn(dy / Sqr(-dy * dy + 1))
         If Abs(dx) < 0.0001 Then
         a = 0#: b = y0: Parline = HORIZ: Exit Function
         Else
         If Abs(dx - PI / 2) < 0.0001 Then a = 1E+15: b = x0: Parline = VERT: Exit Function
         End If
    End If
    a = (y1 - y0) / (x1 - x0)
    b = y0 - a * x0
    Parline = ANGLL
    End Function


    Public Function Peresec(ByRef xp As Variant, ByRef yp As Variant, x1 As Variant, _
    y1 As Variant, x2 As Variant, y2 As Variant, x3 As Variant, y3 As Variant, _
    x4 As Variant, y4 As Variant) As Integer


    Dim to1, to2 As Integer
    Dim a1, a2, b1, b2 As Single
    xp = -1
    yp = -1
    to1 = Parline(a1, b1, x1, y1, x2, y2)
    to2 = Parline(a2, b2, x3, y3, x4, y4)
    If to1 = VERT Then
       If Sqr(x1 ^ 2 + y1 ^ 2) < Sqr(x2 ^ 2 + y2 ^ 2) Then
       x2 = x1
       Else
       x1 = x2
       End If
    End If
    If to2 = VERT Then
       If Sqr(x3 ^ 2 + y3 ^ 2) < Sqr(x4 ^ 2 + y4 ^ 2) Then
       x4 = x3
       Else
       x3 = x4
       End If
    End If
    If to2 = to1 And (to2 = VERT Or to2 = HORIZ) Then
        If Abs(b1 - b2) > 0.0001 Then: GoTo OFF
        If to1 = HORIZ Then
          If x1 > x2 Then: Swap x1, x2
          If x3 > x4 Then: Swap x3, x4
          yp = b1
          xp = x4
          If Abs(x2 - x1) > Abs(x4 - x3) Then
              If x1 = x3 And x2 > x4 Then: GoTo OM
          End If
          xp = x2
          If Abs(x2 - x1) < Abs(x4 - x3) Then
              If x1 = x3 And x2 < x4 Then: GoTo OM
          End If
          xp = x1
          If x1 = x4 Then: GoTo OM
          xp = x2
          If x2 = x3 Then: GoTo OM
          If x4 = x2 Then
          xp = x1
              If Abs(x2 - x1) < Abs(x4 - x3) Then GoTo OM
              xp = x3
              If Abs(x2 - x1) > Abs(x4 - x3) Then GoTo OM
          End If
          If (x2 < x3) Or (x1 > x4) Then GoTo OFF
          Peresec = ERRORH
          Exit Function
        End If
        If y1 > y2 Then: Swap y1, y2
        If y3 > y4 Then: Swap y3, y4
        If (y2 - y1) > (y4 - y3) Then
        xp = b1
           If (y1 = y3) And (y2 > y4) Then: yp = y4: GoTo OM
           'If y2 = y3 Then: yp = y2: GoTo Om
           'If y1 = y4 Then: yp = y1: GoTo Om
           If y2 = y4 Then
               If Abs(y2 - y1) < Abs(y4 - y3) Then: yp = y1: GoTo OM
               If Abs(y2 - y1) > Abs(y4 - y3) Then: yp = y3: GoTo OM
           End If
        End If
        If y2 - y1 < y4 - y3 Then
           If (y1 = y3) And (y2 < y4) Then: xp = b1: yp = y2: GoTo OM
        End If
    End If
    If (to1 = VERT) And (to2 = HORIZ) Then
    xp = b1
    yp = b2
        If (((b2 >= y1 And b2 <= y2) Or (b2 <= y1 And b2 >= y2)) _
        And ((b1 >= x3 And b1 <= x4) Or (b1 <= x3 And b1 >= x4))) Then
        GoTo OM
        Else
        GoTo OFF
        End If
    End If
    If (to2 = VERT) And (to1 = HORIZ) Then
    xp = b2
    yp = b1
          If (((b2 > x1 And b2 < x2) Or (b2 < x1 And b2 > x2)) And _
            ((b1 >= y3 And b1 <= y4) Or (b1 <= y3 And b1 >= y4))) Then
        GoTo OM
        Else
        GoTo OFF
        End If
    End If
    xp = x1
    yp = y1
    If (Abs(x1 - x3) < 0.01 And Abs(y1 - y3) < 0.01 And a1 <> a2) Then GoTo OM
    If (Abs(x1 - x4) < 0.01 And Abs(y1 - y4) < 0.01 And a1 <> a2) Then GoTo OM
    xp = x2
    yp = y2
       If (Abs(x2 - x4) < 0.01 And Abs(y2 - y4) < 0.01 And a1 <> a2) Then GoTo OM
       If (Abs(x2 - x3) < 0.01 And Abs(y2 - y3) < 0.01 And a1 <> a2) Then GoTo OM
       If (x1 > x2) Then: Swap x1, x2
       If (y1 > y2) Then: Swap y1, y2
       If (x3 > x4) Then: Swap x3, x4
       If (y3 > y4) Then: Swap y3, y4
    If (to1 = ANGLL Or to2 = ANGLL) Then
         If (Abs(a1 - a2) < 0.0001) Then
            If (Abs(b2 - b1) < 0.0001) Then
               If (((x1 > x3) And (x2 < x3)) Or ((x1 > x4) And (x2 < x4))) Then
               GoTo OM
               Else
               GoTo OFF
               End If
            Else
            GoTo OFF
            End If
         End If
    End If
    If (to1 = ANGLL And to2 = ANGLL) Then
    xp = (b2 - b1) / (a1 - a2)
    '___
         If Abs(b1) < Abs(b2) Then
         yp = xp * a1 + b1
         Else
         yp = xp * a2 + b2
         End If
         If ((xp >= x1 And xp <= x2) And (xp >= x3 And xp <= x4) Or _
           ((Abs(xp - x1) < 0.001) And (Abs(xp - x2) < 0.001))) Then
         GoTo OM
         Else
         GoTo OFF
         End If
    End If
    If (to2 = ANGLL) Then
    Swap a1, a2
    Swap b1, b2
    Swap to1, to2
    Swap x1, x3
    Swap y1, y3
    Swap x2, x4
    Swap y2, y4
    End If

    If (to1 = ANGLL And to2 = VERT) Then
    xp = x3
    yp = xp * a1 + b1
          If ((xp > x1 And xp < x2) And (yp > y3 And yp < y4)) Then
          GoTo OM
          Else
          GoTo OFF
          End If
    End If
         If (to1 = ANGLL And to2 = HORIZ) Then
         yp = y3
         xp = (b2 - b1) / a1
            If ((xp > x1 And xp < x2) And (xp > x3 And xp < x4) Or _
              ((Abs(xp - x1) < 0.001) And (Abs(xp - x2) < 0.001))) Then
             GoTo OM
            Else
            GoTo OFF
            End If
         End If
    Peresec = ERRORH
    Exit Function
    OFF:
    Peresec = OFF
    Exit Function

    OM:
    Peresec = OMM
    Exit Function

    End Function


    Public Sub Swap(ByRef a As Variant, ByRef b As Variant)
    Dim tmp As Variant
    tmp = a
    a = b
    b = tmp
    End Sub




    Автор: Страшный Сон
       Ну ты блин закрутил... Никакой процессор не возьмётся выполнять стоко всякого д..... 100 раз в секунду!

    Автор: СBob
       Это работает.
       Не нравится сделай лучше. Удачи!



    наверх


    Доска объявлений

       Ищу телеработу.

    • Переводы: английский, украинский, русский.
    • Cipper программист.
    • Assembler программист.
    • PIC разработчик
    • композитор
    • Прогрессивные стили
    • 3D анимация
    • GIF анимация
    Антон Лозовский.

    наверх


    Мои программы

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

    Авторы: Шатрыкин Иван и Павел Сурменок.

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:


    Автор вопроса: Игорь

    Ответ ожидается по этому адресу

       Как ияменить цвет фона отдельной кнопки, не меняя при этом основные настройки Windows?


    Автор вопроса: Serega435

    Ответ ожидается по этому адресу

       Подскажите, плз как преобразовать документ DOC (Word) в RTF. Слышал, что эти функции есть в библиотеках WordPad, но как с ними работать?


    Автор вопроса: Stalker

    Ответ ожидается по этому адресу

       Как сделать, чтобы программа запускалась как сервис в Win NT/2000/XP (Service NT)? Я смотрю, что на этот вопрос никто не знает ответа.
       Ламеры задают вопросы наподобие "Как засунуть программу в Systray, там где часики", а продвинутые ламеры на них отвечают. Вопрос задаешь чуть посложней, так все кричат в один голос: "это на VB нельзя сделать". Что никто не может толком программировать на VB?
       В общем я частично согласен, что на VB сервисы не пишутся. Но можно использовать ocx, написанные на с/с++ или создать сервис используя API. Может кто-то сталкивался с этим, или есть готовый пример?


    Автор вопроса: Yory

    Ответ ожидается по этому адресу

       Мой проект (VB6) использует DAO 3.50, работал без проблем (Win 95/98/2000). Появились машины с той же самой операционкой, не открывающие базу данных при работе из exe-шника. При работе в среде отладки все отлично. Тогда меняю DAO 3.50 на DAO 3.60. На этих машинах все отлично, но на части тех, где раньше проблем не было (не на всех!) база загружаться перестала. Новую .dll я, естественно, нормально устанавливаю и регистрирую.


    Автор вопроса: DeDMoRoZ

    Ответ ожидается по этому адресу

       Мой вопрос связан с API. Заключается он в следующем. Мне нужно помещать в ListBox все запускаемые exe и com приложения в Windows 95. А так же все открываемые папки. И после клика в ListBox переходить к выполнению тои или иной задачи. К примеру у меня открыта папка Windows и работает exe файл Nootpade.exe они помещены в этот ListBox. Первая строка c:\windows вторая c:\windows\nootpade.exe (в ListBox). Пощелчки по 1 строке мы переходим к папке Windows а по второй переходим к nootpade.exe. Вообщем получить что то вроде панели задач (нижняя часть экрана) как Windows.
       Так же нужно поместить обсалютно все работающие процессы в системе во второй ListBox и по щелчку нужно что бы задача снималась. То есть что вроде "Заверщение работы програм" как Windows по нажатию на Alt+Ctrl+Del.
       МОЖЕТ кто нибудь знает где достать такой компонент или пример (только не очень сложный) а ещё лучше OCX.


    Автор вопроса: 001

    Ответ ожидается по этому адресу

       Можно ли в VB вставлять в код программы подпрограммы "на лету"?
    Так это приблизительно выглядит на Паскале:

    if <какое-то условие> then
    ...
    <тело программы>
    ...
    begin
    ...
    <код подпрограммы>
    ...
    end;
    ...
    <тело программы>
    ...

    А как в Visual Basic?




    Ответы:


    Вопрос:

       Доброе время суток. А реально написать прогу на VB6 и сделать так чтобы она висела в трее (прям значком) а при нажатии на нее левой открывалась, а правой показывала меню?

    Ответ:

    Автор ответа: Dima

    Реально. Даже не сложно.


    Вопрос:

       Помагите с решением проблема такая. Есть функции как copy, cut, paste можно воспользаватся с помащю как Clipboard и как через WinApi

    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

    Какая разнится между ними разнится и какая из них боле эфектвна.

    Ответ:

    Автор ответа: ]CBK[CRaSH

    Через Clipboard

    Private Sub mnuEditCopy_Click()
    Clipboard.Clear
    Clipboard.SetText frmMain.ActiveControl.SelText
    End Sub

    Private Sub mnuEditCut_Click()
    Clipboard.Clear
    Clipboard.SetText frmMain.ActiveControl.SelText
    frmMain.ActiveControl.SelText = ""
    End Sub

    Private Sub mnuEditDelete_Click()
    frmMain.ActiveControl.SelText = ""
    End Sub

    Private Sub mnuEditPast_Click()
    frmMain.ActiveControl.SelText = Clipboard.GetText
    Clipboard.Clear
    End Sub

    Через API ???


    Вопрос:

       Я столкнулся с такой проблемой.
    Хочу чтобы формулы в документе сами пресчитывались.
    Формулы написаны в редакторе формул MS Equation 3.0.
    Но никак не могу найти таких примеров.

    Ответ:

    Автор ответа: mif

    Насколько я знаю они никак не пересчитываются. Может быть это и позволяет сделать MathType (не ручаюсь за правильность), но его я не искал - тогда у меня не было инета. Пересчитываться могут разве что таблицы MSExcel вставленные в документ Word. А так математику я делал в MathCad и ручками перебивал в Word.

    PS. В Ворде я набрал пару десятков курсовых (на технической специальности) и диплом в 103 стр...


    Вопрос:

       ХА. Я наконец то отрыл код получения заводского серийника HDD!!!!!!!!!!
    Если каму-нибудь надо могу прислать.
    НО программа написана на С я ее подредактировал.
    Поевляется окошко консольного приложения и создается файл key.dat c номером
    Вобшем круто!!!!!!!!!!!

    Ответ:

    Автор ответа: Senin V.N.

    Ну если выложишь в Инет исходники, то классно, если выложишь только прогу, то таких у меня уже 2 штуки, причем одна не работает по NT, а другая требует установки какого-то драйвера.


    Вопрос:

       Как определить, какие файлы, включая библиотеки, ActiveX-компоненты и т.д., необходимо включить в инсталлятор готового приложения? Стандартный VB Pack Wizard, по-моему, добавляет в пакет много лишнего ...

    Ответ:

    Автор ответа: ]CBK[CRaSH

    Посмотри файл твоего проекта Мой_проект.vbp

    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WIN98\SYSTEM\stdole2.tlb#OLE Automation
    Reference=*\G{00020813-0000-0000-C000-000000000046}#1.3#0#..\..\..\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library
    Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX

    Object-ActiveX подключенный к проекту
    Reference-ActiveDLL подключенный через меню Reference


    Вопрос:

       Можно-ли запустить из VB файл *.mdb. Если да, то как это сделать?

    Ответ:

    Автор ответа: progist

    ShellExecute - запустит кого угодно и куда угодно.



    Ответ:

    Автор ответа: DUKE

    Запустить можно все что угодно, используя API :

    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)
    Private Const SW_SHOWMAXIMIZED = 3

      Call ShellExecute(0&, "open", "yourfile.ext", vbNullString, vbNullString,
    SW_SHOWMAXIMIZED)


    Вопрос:

       Как обновить DataEnvirinment при печати новой записи, а то после изменений в наборе recordset в DataReport выводится старая запись. Можно-ли в VB6 при формировании DataReport обойтись без DataEnvirinment?

    Ответ:

    Автор ответа: Malikov

    Тут проблема не в enviromente. Дело в том что печать идет в асинхронном режиме, и ты вызываешь его снова когда он еще обрабатывается, ессно данные он сменить не успевает. Напиши что нибудь типа(где repdoc_invoice - твой DataReport):

    While repdoc_invoice.AsyncCount > 0
           DoEvents
    Wend
    Unload repdoc_invoice
    repdoc_invoice.PrintReport False

    А обойтись без enviromenta легко, я обычно так и делаю на инициализацию прописываешь:

    Private Sub DataReport_Initialize()
        Set repdoc_invoice.DataSource = RstDocData
    end sub


    Вопрос:

       Как поставить vbnet на машину с win98 ??
    Вылетает сообщение "типа не устанавливается не вин98",
    а в хелпе "On Windows 98 or Windows Me run instmsiA.exe"

    Ответ:

    Автор ответа: Дмитриев Николай

    VB.Net на Вынь95, 98, Ме не ставится, ставится он только на W2k или Windows XP, так как для работы он требует Microsoft .NET Framework, который ставится соответственно только на две указанные выше системы.


    Вопрос:

       Подскажите, плз, как можно перетаскивать объект по форме мышкой (хорошо бы, что-бы было видно контур, как в нормальных приложениях) и как можно соединить два объекта на форме линией (опять же, с помощью крысы).

    Ответ:

    Автор ответа: Роман

    Private Declare Function SendMessage Lib "user32" _
         Alias "SendMessageA" (ByVal hwnd As Long, _
         ByVal wMsg As Long, ByVal wParam As Long, _
         lParam As Any) As Long

    Перетаскивать объект:

    Private Declare Sub ReleaseCapture Lib "user32" ()
    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2

    Private Sub "за что хватаемся"_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
         Dim lngReturnValue As Long
         
         If Button = vbLeftButton Then
             Call ReleaseCapture
             lngReturnValue = SendMessage("что перетаскиваем".hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
         End If
    End Sub

    Нарисовать линию:

    Form.Line (X1,Y2)-(X2,Y2),цвет,B или BF
    B - пустой прямоугольник
    BF - закрашенный прямоугольник


    Вопрос:

       Мой проект (VB6) использует DAO 3.50, работал без проблем (Win 95/98/2000). Появились машины с той же самой операционкой, не открывающие базу данных при работе из exe-шника. При работе в среде отладки все отлично. Тогда меняю DAO 3.50 на DAO 3.60. На этих машинах все отлично, но на части тех, где раньше проблем не было (не на всех!) база загружаться перестала. Новую .dll я, естественно, нормально устанавливаю и регистрирую.
    Кто поможет?

    Ответ:

    Автор ответа: progist

    А Reference?



    Ответ:

    Автор ответа: Michael Fezulaev

    Я однажды сталкнулся с такой проблемой. Дело в том что когда ставиш свою прогу на другую машину и на той машине нет дравера для DAO или стоит другой дравер, то VB не может открыть. Перепиши дравер DAO 3.50 на ту машину или инсталируй её. (Мне это помгло)




    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


    Выпуск подготовили:

    Сурменок Павел