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


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 можно найти
    здесь.

    наверх


    Citycat by Email

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

    наверх


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

    Дата: 13.04.2003 05:45 | Раздел: Примеры кода | Автор: Millenium

    Игра в Кости - Простая игра в кости... .. Вы загадываете цифру и бросаете кости.

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

    WinControl 1.5 - Новая версия контрола, теперь собрано около 55 функций для работы с Windows. Имеется Help.

    Дата: 09.04.2003 11:31 | Раздел: ActiveX контролы | Автор: SCINER

    Advanced window hook - Контрол позволяет получать сообщения, посылаемые выбравнному окну.

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

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



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

    11:06 / 13 апр.  Люди ! | Хитов: 0 |  Ответов: 0
    08:49 / 13 апр.  народ помогите нужен DTMF декодер | Хитов: 1 |  Ответов: 0
    02:46 / 13 апр.  Админам | Хитов: 14 |  Ответов: 1
    02:15 / 13 апр.  Админам, мое недоумение. | Хитов: 13 |  Ответов: 2
    02:15 / 13 апр.  Админам, мое недоумение. | Хитов: 7 |  Ответов: 0
    00:56 / 13 апр.  база данных на VB | Хитов: 19 |  Ответов: 0
    21:27 / 12 апр.  переменные | Хитов: 15 |  Ответов: 0
    21:21 / 12 апр.  Adminam!!! | Хитов: 29 |  Ответов: 10
    20:44 / 12 апр.  12 апреля | Хитов: 44 |  Ответов: 1
    19:15 / 12 апр.  VBView v1.0 | Хитов: 50 |  Ответов: 5
    18:15 / 12 апр.  Какую защиту поставить | Хитов: 27 |  Ответов: 0
    16:50 / 12 апр.  Поддержка XP Themes в Common Controls 6.0 | Хитов: 8 |  Ответов: 0
    14:25 / 12 апр.  Помогите чайнику | Хитов: 26 |  Ответов: 0
    13:27 / 12 апр.  Реестр | Хитов: 22 |  Ответов: 0
    12:58 / 12 апр.  Как написать свой DirectSound? | Хитов: 10 |  Ответов: 0
    23:19 / 11 апр.  Запуск программы | Хитов: 64 |  Ответов: 0
    20:04 / 11 апр.  Жизненный вопрос | Хитов: 44 |  Ответов: 0
    19:04 / 11 апр.  Новое сообщение без темы | Хитов: 27 |  Ответов: 0
    18:15 / 11 апр.  Невидимые элементы формы!!! | Хитов: 28 |  Ответов: 0
    16:41 / 11 апр.  Хелп ми! Вопрос не по VB!!! | Хитов: 43 |  Ответов: 0


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

    Снять задачу (32)
    Тень от формы (48)
    Преобразование цветного рисунка в черно... (45)
    Форма: определение модальности формы (43)
    Форма: создание модальной формы (60)
    Форма: перемещение элементов формы (44)
    ListBox / ComboBox - добавление массива... (66)


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



    наверх


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



    наверх


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



    наверх


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



    наверх


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



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



    наверх


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

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



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



    наверх


    Один момент из жизни форума: Как, используя ADODC, передать в хранимую проце...

    Вопрос:
    Автор вопроса: Evgeny D

       Ситуация такая.
       Есть в SQL Server БД, в ней - хранимая процедура с входным параметром (дата).
       Для adodc задаю параметры:

       adodc.ConnectionString = "myDSN"
       adodc.CommandType = adCmdStoredProc
       adodc.RecordSource = "myProc"

       А как ей передать параметр (дату)?


    Ответы:

    Автор: Andrei
       Если кратко:
       Делай запрос на объединение.
       А чтобы програмно создать связи посмотри:
       http://www.relib.com/forums/topic.asp?id=758740

    Автор: Satrapp
       Уточняя ответ по поводу запроса...
       table1 { INNER | LEFT | RIGHT } JOIN table2 ON table1.key1 = table2.key2

    Автор: BuilderSoft
       SQL хорошо это делает

       dim db as database
       dim rec as recordset
       dim strsql as string
       set db = currentdb
       strsql=".........." whith joint tables
       set rec=db.openrecordset(strsql)



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


    Автор вопроса: Вадим

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

       В Exel есть форма. 1-я строка(1) и столбец(А) с такими данными: день.месяц.год фамилия имя часы:минуты (это все в одной ячейке А1). Можно ли каким-то обраяом выделить только часы и минуты, скопировав часы в ячейку В1, минуты в С1? Данные каждый день вносятся в первый столбец до 200 строки(А200), накапливаются(1-й день в А1, 2-й в А2 и т.д). Можно решить этот вопрос средствами basic или макросами?


    Автор вопроса: Данила

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

       Есть ещё вопрос: как быстро вывести таблицу из базы на экран. Я использую MSFlexGrid. Проблема в том, что 36000 строк появляются примерно через 10 минут. Код такой:

    Set rs = db.OpenRecordset("звонки")
    rs.MoveFirst
    Do Until rs.EOF = True
    MSFlexGrid1.AddItem rs("ID_звонка")
    MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Clip = rs("тип_звонка")
    MSFlexGrid1.Col = 2
    MSFlexGrid1.Clip = rs("дата")
    MSFlexGrid1.Col = 3
    MSFlexGrid1.Clip = rs("время")
    MSFlexGrid1.Col = 4
    MSFlexGrid1.Clip = rs("код")
    MSFlexGrid1.Col = 5
    MSFlexGrid1.Clip = rs("номер")
    MSFlexGrid1.Col = 6
    MSFlexGrid1.Clip = rs("направление")
    MSFlexGrid1.Col = 7
    MSFlexGrid1.Clip = rs("длительность")
    MSFlexGrid1.Col = 8
    MSFlexGrid1.Clip = rs("стоимость")
    MSFlexGrid1.Col = 9
    MSFlexGrid1.Clip = rs("валюта")
    rs.MoveNext
    Loop
    MSFlexGrid1.Visible = True
    MSFlexGrid1.Enabled = True

    Есть варианты? Нужно учесть, что данные в базе меняются и выводимую таблицу нужно будет обновлять.


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

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

       Вот такая тупая ситуация... На форме есть filelistbox, в нём отображаются файлы, находящиеся в какой либо папке. Так вот после удаления файла никак не могу сделать чтобы сабж обновил список. Делал после удаления вот так:

    fileListBox.path = SomeCatalog

    где SomeCatalog - папка, содержащая данные файлы. Раньше делал подобное, а сейчас подзабыл как...


    Автор вопроса: Сергей Авраменко

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

       Как сделать прозрачный контрол,чтобы отвечал на MouseMove, MouseEnter, MouseOut?


    Автор вопроса: Сергей

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

       Подскажите пожалуйста, как преобразовать фаил. То есть открыть *bmp и сохранить как *jpg ???




    Ответы:


    Вопрос:

       у меня 4 вопроса но особенно меня волнуют 1 и 4(в особенности) вопросы.

    1).как через winsock отправлять файлы
    2).как из *dll использовать ресурсы
    3).как с помощью vb запорлить папку
    4).как в ходе работы программы записовать текст прямо в *exe-шник программы и читать его от туда!

    Ответ:

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

    PrgPath = LCase(Trim(App.Path)) ‘получаем путь к нашей программе
            If Right(PrgPath, 1) <> "\" Then PrgPath = PrgPath & "\"
            FF = FreeFile
          
         Считываем сами себя (содержимое запущенного exe-файла) в переменную
          
            Open PrgPath & App.EXEName & ".exe" For Binary As #FF
                Size = LOF(FF)
         ** Tet = Input(Size, #FF)
            Close #FF
          
         Находим наше специальное слово, указывающее на начало исходного кода
          
            CodeStart = InStr(1, Tet, "YXINE", vbTextCompare)
            If CodeStart = 0 Then
              указатель не найден - значит мы в оригинальном файле
               (копия RIPLC.exe), который ещё не содержит исходный код ->
                записываем исходный код в конец exe-программы
                
      Теперь записываем преобразованный исходник в конец exe-файла после специального слова ‘YXINE’
          
             Open FNWE(cmd) For Binary Access Write As FF
                  Put #FF, Size + 1, "YXINE"
                  Put #FF, Size + 6, Code()
             Close #FF
          

    Данная вырезка сделана из статьи Ларина Александра с сайта VBNET.Ru.


    Вопрос:

       Где найти библиотеку VB со статистическими или аналитическими функциями, например вычисление корреляции между массивами?
    Всё-таки испольяование Excel тяжеловесно!

    Ответ:

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

    Используй MathCad 2000.


    Вопрос:

       Кто знает как получить содержимое ListBox с помощью API???

    Ответ:

    Автор ответа: Savchuk, Andrey

    Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
         (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
    lParam As Long) As Long
    Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
         (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
    lParam As String) As Long

    Public Const LB_GETCOUNT = &H18B
    Public Const LB_GETTEXT = &H189


    Dim sItemText As String * 255

         lngItemCount = SendMessageLong(hwndListBox, LB_GETCOUNT, 0&, 0&)
         If lngItemCount > 0 Then
             For iElement = 0 To lngItemCount - 1
                 sItemText = ""
                 Call SendMessageStr(hwndListBox,LB_GETTEXT, iElement, ByVal
    sItemText)
             Next
         End If


    Вопрос:

       Как использовать файл "programm.exe.manifest". У меня однажды получилось, интерфейс действительно стал в стиле ХР, но потом убрал ссылку на какую-то библиотеку и все пропало. Win XP начал выдавать ошибку в msvbm60.dll прияапуске приграммы. Удаляю .manifest - все работает, но интерфейс становится стандартным. Как это исправить?

    Ответ:

    Автор ответа: Андрей Никитин

    1. Надо добавить:
    Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
    в (General)->(Declarations)

    2. В Form_Initialize добавить:
    InitCommonControls

    3. В каталог с программой положить файлик моя_программа.exe.manifest

    P.S. При запуске в среде VB не произведет никакого эффекта - надо скомпилировать проект и запустить прогу не из VB.


    Вопрос:

       Как можнл перехватить нажатие клавиши tab на каком нибудь контроле, keypress и keydown не работают. Может надо пользоваться какой-нибудь API-шной функцией, поскольку вроде Windows перехватывает упрвление на себя?

    Ответ:

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

    'Модуль
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Public Const VK_TAB = &H9 ' Константа для TAB key.Для других кнопок посмотрите в API вьювере
      
    'Программа
    If GetAsyncKeyState(VK_TAB) And KEY_SHIFT = True Then
         msgboх "Кто то трогает ТАБ", vbinformation
    End If




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

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

    наверх


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

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