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


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

Нет тем!

Рассылки Subscribe.Ru
Мир программирования на Visual BASIC 5.0 и HTML.


Рассылки Subscribe.Ru
Старые игры

Доска почёта:

Sergey Y. Tkachev
Кононенко Роман
Kirill
Sergey Sapozhnikov
Sobic

Ссылки:

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

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

       Новый 70-ый выпуск рассылки!!!
    Читайте!


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




    Книги

    Переход на 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". Александр выбрал в качестве приза книгу: Криса Касперски "Техника и философия хакерских атак". В ближайшее время книга будет выслана победителю по почте. Второе место и 50000 баннеров получает Dydl за статью "Изменение размеров элементов управления внутри форм с изменяемыми границами". Авторам направлены письма с подтверждением их победы.

    наверх


    Citycat by Email

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

    наверх


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

    Дата: 04.07.2002 19:27 | Раздел: Примеры кода | Автор: Неизвестный автор

    ResViewer - Программа для просмотра и "выдергивания" ресурсов из файлов! Все на Visual Basic с исходниками. Позволяет просмотреть и все ресурсы Windows. Теперь нет проблем с иконками, курсорами и т.п. Однако не стоит забывать, что при использовании чужих ресурсов нужно соблюдать авторские права.

    Дата: 01.07.2002 19:18 | Раздел: Примеры кода | Автор: Беляев Данила

    ScrollBarMap - Как создать ScrollBar во время выполнения программы? Элементарно! Вот пример Данилы Беляева, где все это делается на раз-два. Смотрите, изучайте - чистый API.



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

    10:52 / 7 июл.  Авторские права | Хитов: 14 |  Ответов: 2
    10:49 / 7 июл.  Что есть DLL? | Хитов: 16 |  Ответов: 1
    10:47 / 7 июл.  Файлы ресурсов вне программы | Хитов: 7 |  Ответов: 0
    10:45 / 7 июл.  Перехват ошибок Windows | Хитов: 11 |  Ответов: 0
    09:27 / 7 июл.  Скан-коды | Хитов: 10 |  Ответов: 1
    22:24 / 6 июл.  Админам... | Хитов: 16 |  Ответов: 3
    21:50 / 6 июл.  Что-то типа терминала... | Хитов: 19 |  Ответов: 2
    21:23 / 6 июл.  Генератор случайных чисел | Хитов: 14 |  Ответов: 1
    16:09 / 6 июл.  База Access через ADO ? | Хитов: 14 |  Ответов: 1
    15:05 / 6 июл.  Шифрование базы | Хитов: 17 |  Ответов: 2
    14:28 / 6 июл.  Помогите с базой данных!!! | Хитов: 20 |  Ответов: 4
    13:11 / 6 июл.  Проблемы с обновлением данных в MSHFlexGrid | Хитов: 14 |  Ответов: 0
    00:53 / 6 июл.  Systray русский или английский? | Хитов: 20 |  Ответов: 2
    00:29 / 6 июл.  Infragistics UltraSuite 3 | Хитов: 15 |  Ответов: 0
    20:38 / 5 июл.  пуст ли динам. типизированый масив | Хитов: 22 |  Ответов: 5
    19:40 / 5 июл.  Масив | Хитов: 19 |  Ответов: 0
    19:27 / 5 июл.  RichTextBox | Хитов: 20 |  Ответов: 3
    17:44 / 5 июл.  WinSock Control | Хитов: 20 |  Ответов: 3
    15:51 / 5 июл.  пожалуйста помогите  | Хитов: 32 |  Ответов: 2
    14:37 / 5 июл.  Доступ к элементам охватывающей формы | Хитов: 27 |  Ответов: 1


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



    наверх


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



    наверх


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



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


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

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

       Подскажите как можно убрать правую полосу прокрутки в элементе управления Webbrowser. Делую яаставку для проги и "бездействующая" полоса как-то не вписывается в дияайн.
    И кто может подскаяать код для органияации автопрокрутки в Webbrowser (c ияменением скорости прокрутки)


    Автор вопроса: Эдуард Маркелов

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

       Нужно присвоить некоторые значения, ещё не загруженой дочерней форме, так, чтобы она на это ни как не отриагировала, т.е. осталась не загруженой.


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

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

       Как сделать так, чтобы при нажатии клавиш Alt+Ctrl+Del не вылетало меню, либо в списке не было моей программы?


    Автор вопроса: Роман

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

       Подскажите ,пожалуйста, код формы чтобы из однога окна при нажатии кнопки запускалось другое?




    Ответы:


    Вопрос:

       Кто знает как изменить форму или рисунок кнопки?

    Ответ:

    Автор ответа: Kurt Haeldar

    Для изменения формы кнопки (да и не только кнопки, но и любого объекта, у которого есть Hwnd) существуют функции
      
    CreateEllipticRgn
    CreatePolygonRgn
    CreateRectRgn

    Эти функции создают регионы - контуры объектов.
      
    CombineRgn - совмещает два региона, например можно сделать бублик.

    SetWindowRgn - применяет созданный регион к объекту. Как раз и есть смена формы кнопки.
    Если же писать код, то выглядит он так (нужна форма и на ней 2 кнопки)
      
    Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
      
    Private Sub Command1_Click()
         Dim myrgn As Long
         myrgn = CreateEllipticRgn(0, 0, 100, 150)
         SetWindowRgn Form1.hWnd, myrgn, True
    End Sub
      
    Private Sub Command2_Click()
         SetWindowRgn Form1.hWnd, 0, True
    End Sub

    Этот пример изменяет форму самого окна. Только кнопки расположи поближе к левому верхнему углу формы. Если поиграться с координатами с строке CreateEllipticRgn и заменить параметр form1.hwnd на hwnd какой-нибудь кнопки, то будет меняться именно эта кнопка.
    Это, что касается фомры кнопки. А вот с ее рисунком все гораздо проще - у нее (кнопки) есть свойство Style. Поставь его в Graphical, а затем в свойство Picture внеси путь к картинке, которую надо повесить на кнопку. Если нужна будет дополнительная инфа по функциям регионов - либо пиши, отвечу, либо зайди на сайт www.allapi.net. Там прога API-GUIDE - классная вещь. Это справочник по API


    Вопрос:

       В текстовом документе нужно от определенного слова до еще одного слова выделить этот блок и скопировать в буфер. Как это осуществить?

    Ответ:

    Автор ответа: Виталий Венгров

    Если хочешь возьми мою функцию :
      
    Private Function Otbor(MyString As String, strBegin As String, strEnd As String)
       ' MyString - вся строка
       ' Begin - первое слово
       ' End - второе слово
      
         Dim NomerN&
      
         NomerN& = InStr(1, MyString, strBegin, 1) + Len(strBegin)
         Otbor = Mid(MyString, NomerN&, InStr(NomerN&, MyString, strEnd, 1) - NomerN&)
      
         ' эта функция отбирает текст между словами не захватывая их самих.
         ' Если нужно включить и их то
      
         ' NomerN& = InStr(1, MyString, strBegin, 1)
         ' Otbor = Mid(MyString, NomerN&, InStr(NomerN&, MyString, strEnd, 1) - NomerN& + Len(strEnd))
      
    End Function
      
    Теперь чтобы закинуть в буфер делаешь так :
      
         Clipboard.Clear
         Clipboard.SetText Otbor(strText, "одно слово", "другое слово")


    Вопрос:

       Вояможно ли программно соядать файл MS Access? Если можно, то как? И как соядавать в ней таблицы?

    Ответ:

    Автор ответа: Виталий Венгров

    Очень подробное описание есть по адресу http://azbukavb.narod.ru/dbdoc/dbdoc1.html
    Правда все с помощью DAO. Интересно возможно ли все это проделать с ADO.


    Вопрос:

          Нужна помощь! У меня такой вопрос: в моей программе есть форма с настройками и при нажатии кнопки применить происходит следущее:

        Private Sub Command2_Click()
         If Check1.Value = 1 Then cbdend = 1 'открыть вначале работы
         If Check2.Value = 1 Then cbdtim = 1 'открыть в конце работы
          sbdh = Text2.Text 'имя
          sbdm = Text3.Text 'фамилия
         If Check3.Value = 1 Then arcpro = 1 'есть архив
         If Check4.Value = 1 Then arcend = 1 'нет архива
          pathbd = Text1.Text 'путь к файлам
         End Sub

       Вот так формируются переменные на основе моих настроек и как их теперь записать в файл "setup.ini" в дирректории моей программы, а потом считать их оттуда при следующей загрузке программы? Спасибо!

    Ответ:

    Автор ответа: Umidjon B. Rahmonberdiev

    Это надо написать в новый модуль:

    Option Explicit

    Private Declare Function GetPrivateProfileString _
    Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long

    Private Declare Function WritePrivateProfileString _
    Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName As String) As Long

    'Writing a key and value to the INI file
    Public Sub WriteString(ByVal xAppName As String, _
         ByVal xKeyName As String, ByVal xString As String, _
         ByVal xAppPath As String)
         
    Dim P As Long

         P = WritePrivateProfileString(xAppName, xKeyName, _
             xString, xAppPath)
                                    
    End Sub

    Public Function ReadPrivateString _
    (ByVal xAppName As String, _
      ByVal xKeyName As String, _
      ByVal xAppPath As String) As String

    Dim N As Long
    Dim Word As String * 80

         N = GetPrivateProfileString(xAppName, xKeyName, _
                                     "", Word, 80, xAppPath)

         If N > 0 Then
             ReadPrivateString = Left(Word, N)
         Else
             ReadPrivateString = ""
         End If

    End Function

    А так им дальше можно пользоватся:

    S1 = название раздела в файле конфигурации
    s2 = название ключа в разделе
    s3 = значение ключа

    Писать:

    s1="Параметры"
    s2="Название автора"
    s3="Умиджон Рахмонбердиев"

    WriteString s1, s2, s3 , App.Path & "\setup.ini"

    Читать:
    S3 = ReadPrivateString(s1, s2, App.Path & "\setup.ini")


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

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

    наверх


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

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