Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Информационный Канал Subscribe.Ru

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


VBNet VBMania
Ссылки:

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

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

       Вчера смотрел VB 2005... Очень понравилось :) Новый дизайн, более удобный IntelliSense... Отличная вещь!
    Читайте!


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




    VBNet CD

    VBNet.RU представляет новый компакт диск "VBNet CD 07 2004". На диск помещены новые материалы:
    • Софт
      • .NET Framework 1.1 Rus
      • .NET Framework 2.0 Beta 1
      • VS .NET Whidbey Express beta
      • .NET Framework 1.1 SP1
      • .NET Compact Framework 1.0 SP2
      • MSDN October Update
      • Visual Studio 6.0 SP6
      • Spices .NET
      • Report Sharp-Shooter
      • И многое другое...

    • Сайты, рассылки, журналы - Популярные сайты, рассылки, электронные журналы о VB.
      • Сайт VBNet.Ru
      • Сайт Hypertech.Ru
      • И многое другое...

    • Коллекция компонент и DLL - Коллекция лицензионных .NET компонентов.
      • ComponentOne Studio for Mobile Devices
      • ComponentOne WebMarket
      • PanelBar.NET Lite
      • .netCHARTING
      • VbPowerPack Rus

    • Книги
      • Комбинаторика
      • Искусство программирования
      • Защищенный код
      • Applied Microsoft .Net Framework Programming
      • Building Web Services with ASP .NET and .NET Remoting
      • Modeling Web Applications Architectures With UML
      • Managed DirectX Kick Start Graphicsand Game Programming
      • Developing Visual Studio .NET Macros and Add-Ins
      • И многое другое...

    • Справочники
      • Справочник по функциям Windows API
      • Microsoft Agent 2.0
      • Объектная модель FileSystemObject
      • Функции Windows API:Сообщения
      • Функции Visual Basic
      • И многое другое...

    • Эксклюзив
      • Обратная связь с клиентами: делегаты и интерфейсы - Из этой статьи вы узнаете, что такое делегаты и интерфейсы, для чего они нужны, как их можно применять в своих приложениях, а также преимущества того или иного механизма в конкретной задаче.


       В разделе Софт представлен полный набор многочисленных обновлений для .NET. Кроме того, на диске имеется даже экспресс бета версия Visual Studio .NET Whidbey!

       В разделе Книги выложено множество книг о .NET, ASP.NET, Managed DirectX, среди которых присутствуют такие знаменитые книги как "Защищенный код" и "Искусство программирования"!

       Полное содержание диска Вы можете скачать здесь.

       Диск распространяется по почте наложенным платежом.
       Цена: 70 рублей + 40 рублей (за почтовые расходы) = 110 рублей. Действует система скидок для постоянных клиентов.
       Заказать диск можно здесь.

    наверх


    Как поменять картинку загрузки Windows?

    Вопрос:

    Как поменять картинку загрузки Windows?

    Ответ:

    Не ручаюсь ха точность информации. Цитирую:

    Анимированная картинка, которая выводится при загрузке Windows (на фоне голубых облачков написано Windows 95(98)), в Windows 95 находится в файле logo.sys в корневом каталоге, а в Windows 98 эта картинка, если не ошибаюсь, "вшита" в файл command.com Меняя этот файл (logo.sys) на любой файл формата BMP (соответствующих размеров и 256 цветов), можно поменять скучную картинку при загрузке. А в Windows 98 можно просто поместить файл logo.sys в корневой каталог - эффект тот же самый. Аналогично, в каталоге WINDOWS есть ещё 2 файла - logos.sys и logow.sys. Они "отвечают" за сообщения "Теперь питание..." и "Подождите, идет подготовка...". Формат тот же.
    Владимир Ротин

    Сергей Гуров

    наверх


    Какой аналог функций "Trunc" и "shl" (из Delphi) в VB?

    Вопрос:

    Перевожу небольшой алгоритм из делфи в VB. Меня интересует что такое "Trunc" и "shl" и есть ли аналоги этих операторов в VB.

    Ответ:

    shl - это битовая функция - означает сдвиг влево - в VB прямого аналога нет, но можно заменить на

    and 2^номер бита

    Функция выглядит примерно так:

    Function shl(ByVal Value As Byte, ByVal Shift As Byte) As Byte
         Dim i As Byte, Mask As Byte
         For i = 1 To Shift
             Mask = Mask + 2 ^ (8 - i)
             'со знаковым типом здесь возникает переполнение
         Next
         shl = ((Value And (Not Mask)) * 2 ^ Shift) And &HFF
    End Function

    Function shr(ByVal Value As Byte, ByVal Shift As Byte) As Byte
         Dim i As Byte, Mask As Byte
         For i = 0 To Shift
             Mask = Mask + 2 ^ (7 - i)
         Next
         Mask = (Value And Mask) / (2 ^ Shift)
         If Mask Mod 2 = 0 And Mask <> 0 Then Mask =Mask - 1
         shr = Mask
    End Function

        Алексей Вишневский

    наверх


    Как вывести список файлов в указанной папке с помощью FSO?

    Вопрос:

    Как вывести список файлов в указанной папке с помощью FSO?

    Ответ:

    Dim fs, fold, item
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fold = fs.getfolder("c:\winnt\")
    For Each item In fold.Files
         msgbox item.Name
    Next

        Paponov Igor

    наверх


    К какому интервалу приналежат коды цифр?

    Вопрос:

    Как сделать проверку на предмет нахождения цифр в строке, там как то в кодах. Напомните эти интервалы.

    Ответ:

    С &h30 по &h39
    или по десятиричной системе - с 48 по 57
        Алексей Вишневский

    Если еще раз возникнет такой вопрос, напиши в окне Immediate такое:
    ? asc("1")
    И там напишется код символа "1". Это - очень удобно.

        Артем Кривокрисенко

    наверх


    Как соединить точки линиями?

    Вопрос:

    На форме с помощью цикла появляются точки. Так-вот, как мне соединить эти точки линиями?

    Ответ:

    Разверни PictureBox по форме и в ней Line (x1,y1) - (x2,y2) где первая это новая координаты первой точки, а вторая пара - предыдущей точки.

        Kvark



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

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

    Вопросы:


    Автор вопроса: Романов Александр

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

       При клике на объект (картинка, либо текст) хочется открыть ссылку (к примеру http://ya.ru) в стандартном виндовском "Internet Explorer"-е. Какой модуль надо подключать, и каким образом это дело делается?


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

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

       Как программно подключать разные таблицы базы Access через ListCombo?


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

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

       =Как с помощь VBA проверить включены ли на странице EXCEL фильтры данных для столбцов, если фильтр включен, то выполнть Showall, если нет, то... и т.д.? Проверка включенного фильтра данных никак не получается.


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

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

       Как работать с файлами XML? Какую библиотеку необходимо подключить? Где можно об этом почитать еще, кроме MSDN?


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

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

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


    Автор вопроса: Морозов Алексей

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

       Как можно сделать на Visual Basic почтовый формоотправитель?




    Ответы:


    Вопрос:

       Как сделать в программе проверку, запущено ли какое либо определённое приложение? К примеру интернет эксплорер. И если нет то, скажем отключить сеть? Тобишь отключить конкретное соединение. Или наоборот, запустить тот самый эксплорер?

    Ответ:

    Автор ответа: Александр_IV

         Кинь на форму этот код:

         Private Sub Form_Load()
         On Error GoTo 10 ' в случае ошибки топаем к метке 10
            AppActivate "Microsoft Internet Explorer" 'активируем окно
            'сaption которого = "Microsoft Internet Explorer"
            MsgBox "Уже запущен": GoTo 20 'если ошибки не произошло ;-)
            'показываем msgbox и топаем к метке 20
         10 Call noex 'вызываем процедуру noex
         20 'ждем указаний
         End Sub

         Sub noex()
             Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
             'запускаем осла
         End Sub
         
         Но! Если комп при подключении к сети меняет свой IP, то ИМХО проще сравнить дефолтовый IP с текущим, чем проверять наличие подключения запущеным IEксплорером. Не им одним живет мир браузеров!




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

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

    наверх


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

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

    http://subscribe.ru/
    http://subscribe.ru/feedback/
    Адрес подписки
    Отписаться

    В избранное