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


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

Голосования сайта VBNet.Ru. Результаты голосований передаются на сайт. Проследите, что есть соединение с интернетом.



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

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • VB на русском
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • MDesign
  • 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 можно найти здесь.

    наверх


    Эксперт

    - Привет, Серый.
    - Угу, привет. Ты проходи, садись, я щас, с функцией тут разберусь...
    - Да я на момент. Вопросец имеется.
    - Вопросец, вопросец... Так, тут переменная не объявлена... Вопросец... С вопросами в систему, к экспертам... А тут точку не поставил! Вот она где, соб-бака!!
    - Ты че, какая система? Ты о чем?
    - О! Все, работает... Чего ты говоришь?
    - Ты про каких это экспертов тут заикаешься?
    - А-а. А ты что, первый раз слышишь, что ли? Ты на СообЧа бывал?
    - Где?!!
    - Да вот, гляди. Щас соединимся... Во! http://soobcha.ru, зришь?
    - М-да... Занятно. Так я с вопросом к тебе...
    - А я вот и говорю: туда иди, в систему "Эксперт", там ответят.
    - Это чайники, что ли, ответят?
    - Не сомневайся, ответят. Там у них такое наворочено... Короче, ты по почте вопрос свой задаешь - и все:)))))) Больше не изволь беспокоиться, там они сами будут искать ответ на твой вопрос. А через некоторое время вывалят тебе на ящик не один, а несколько ответов. Пользуйся и радуйся:)
    - А чего это они там такие добрые да услужливые? У них чего, своих проблем нет? Сколько я должен платить за такое трогательное беспокойство?
    - Ну, это немного. Меньше, чем ты думаешь:) Тебе достаточно только подтвердить правильный ответ. Давишь на соответствующую ссылку, дескать, вот этот ответ мне понравился, помог, и я доволен. Просто пустое письмо засылаешь к ним, и вся оплата. А если хочешь у них экспертом стать, то пожалуйста, регистрируйся и отвечай на вопросы.
    - Кем? Экспертом?
    - А что? Что-то ты ведь знаешь, не вчера за комп сел.
    - А на фига мне это надо? Разбираться с чужими проблемами... У меня своих - хоть отбавляй...
    - Ага. Вот ты только что спрашивал: а сколько? И если уж ты со своими проблемами обращаешься к людям, то ведь надеешься, что тебе помогут. А сам-то что, влом, что ли, помочь кому-то? Да ладно! Тебя, вобщем-то, никто и не тянет, не заставляет. А вот те, кому интересно, кому не жаль поделиться, те там и работают. Я, между прочим, давно уже с ними.
    - В смысле, экспертом, что ли, заделался? И сколько тебе платят?
    - А ты не прикалывай. Там никто никому не платит. А вот конкурсы, между прочим, проводят, и не хилые. Представляешь, за лучший ответ дают бесплатно три месяца платного хостинга, да еще домен регистрируют. За просто так. А вот тебе, если ты задашь самый лучший вопрос, тоже приз может выгореть.
    - Это как: лучший? На который никто ответить, что ли, не сможет? Так я щас таких вопро...
    - Причем тут это? Просто ты, если вопрос пишешь к ним, так сподобься хоть запятые в нужных местах поставить, там, грамотно, короче, обрисуй свой трабл.
    - Ну ладно, въехал. Ты мне вот лучше помоги с моим траблом. Мой Фотошоп не хочет по русски работать...
    - Ха, так этот трабл там уже сколько раз появлялся. У них на сайте и ответ есть... Вот, любуйся: Заходим в редактор реестра (regedit.exe). Находим ключ HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Nls\Codepage В нем изменяем значение параметра 1252 с cp_1252.nls на cp_1251.nls. Перезагружаемся...
    - Понял... погоди, запишу...
    - Да чего записывать? Шагай домой, входи на сайт и копируй...
    - Да я ссылку запишу... Слушай, а как там в эту систему вопрос задать? Вообще, как она работает?
    - Так тут же, на сайте, все есть. А вообще, можешь по почте пустое письмо загнать на mailto:reply.infoexpert@soobcha.ru, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там.
    - А не проше тебе здесь ответить?
    - Э-э-э... Там я баллы зарабатываю...
    - А это еще зачем?
    - Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока.
    - Пока. А как ты экспертом там зарегился?
    - Иди, иди! Инфу читай...

    наверх


    Как в таблице DBGrid изменить названия колонок???

    Вопрос:

    Как в таблице DBGrid изменить названия колонок???

    Ответ:

    DataGrid1.Columns(0).Caption = "Новый заголовок"

         Дмитрий Данелия

    наверх


    Как загрузить в строковую переменную файл с диска?

    Вопрос:

    Как загрузить в строковую переменную файл с диска?

    Ответ:

    Public Function LoadTextFile(Path As String) As String
       Dim strFile As String
           
       Open Path For Binary As #1
       strFile = Space$(LOF(1))
       Get 1, , strFile
       Close #1
       LoadTextFile = strFile
    End Function

    Public Function SaveTextFile(Path As String, Text As String)
         Open Path For Binary As #1
         Put #1, , Text
         Close #1
    End Function

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

    наверх


    Как выделить определенный элемент в listbox?

    Вопрос:

    Есть текстовое поле. Как при нажатии на кнопку выделить элемент в листе, соответствующий тексту в текстовом поле?

    Ответ:

    Dim i As Integer

    l = Text1.Text
    For i = 0 To List1.ListCount - 1
    Select Case List1.List(i)
    Case Is = l
    List1.ListIndex = i
    List1.SetFocus
    End Select
    Next i

        Yuliya Shelmuk

    dim strFind as string
    strFind="абракадабра" & chr(0)
    lngtemp=sendmessage(List1.hwnd,LB_SELECTSTRING,1,strText)

    В переменную lngTemp вернется позиция выделенного элемента.

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

    наверх


    Как узнать размер массива?

    Вопрос:

    Имеется масив созданый из строк
    AllStrings = Split(tmp, vbCrLf)
    Как узнать его размер?

    Ответ:

    Ubound(AllStrings) вернет конкретно что нужно.

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

    наверх


    Где можно взять пример отправки почты на VB с помощью Winsock?

    Вопрос:

    Где можно взять пример отправки почты на VB с помощью Winsock? Желательно чтобы была возможность добавлять в сообщение аттачи.

    Ответ:

    Вот здесь лежат несколько примеров:
    http://azbukavb.narod.ru/vbcod/vbcod13.html

        Yuliya Shelmuk

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх


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

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

    Вопросы:


    Автор вопроса: Богдан

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

       Из VBA Excel вызываю с помощью Shell архиватор ZIP, чтобы заархивировать файл по указанному пути. К сожалению не работает. Как правильно это сделать?


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

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

       Помогите разобраться с функциями библиотеки UxTheme.dll (библиотека, отвечающая за темы XP). В MSDN есть описание функций только для C++.


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

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

       Как отключить менюшку выбора кодировок в CommonDialog.Font? Или как узнать, какая кодировка была выбрана?


    Автор вопроса: Максим

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

       Вопросы примитивные, но я так и не разобрался: Интересует, как отрабатывать нажатие кнопок на тулбаре? Единственное, что мне удалось сделать, это конструкция типа:

    Select Case e.Button.Text
                 Case tbButton.Text

        А также сходства по другим признакам... но неужели нет ни какого, например, индекса кнопки?
    Еще хочу знать, как пользоваться domainUpDown? Думаю, эти два вопроса взаимно связанны...


    Автор вопроса: Максим

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

       У combobox'а не стандартной консоли, как в vb6, и вообще, при появлении фокуса на него, весь текст выделяется и все, ни каких операций с нельзя делать. Создал свою консоль. Работает. Но, работать можно только со всем текстом, и нельзя, скажем, копировать часть текста, только весь!.. Но с клавы все нормально. Можно выделять текст, и делать все, что душе угодно! Может есть у комба какая-нибудь опция мышиной поддержки...


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

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

       Проблема следующая: нужна нестандартная кнопка (т.е. круглая). Всё, что я скачивал, имеет много всяких фич, но они всё равно прямоугольные. Пробовал сам, сделал прозрачный gif с круглой кнопкой, рисую на форме Image, вставляю туда этот гиф, всё прекрасно. Но когда я пытаюсь оформить это в отдельное управление (т.к. постоянно таскать 4 имаджа не катит), появляется серый (и что ещё страшнее, прямоугольный) ореол. Что делать?


    Автор вопроса: Борис

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

       При использовании DirectX7 я соядал поверхность. А с помощью какой функции присвоить ей картинку? Если возможно, дайте полное описание функции.


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

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

       Я зничит пишу такую стороку:

    Set out = WScript.CreateObject("Outlook.Application")

    А он мне говорит что не может создать объект, Outlook 6 у меня установлен и прекрасно функционирует!




    Ответы:


    Вопрос:

       Есть несколько картинок (BMP) в ресурсах приложения. Как сделать, чтобы при загрузке формы в PictureBox произвольно (!) отображалась одна из этих картинок?

    Ответ:

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

    LoadResStrings Me
    n = int(число_картинок*rnd - 1)
    PictureBox.Picture = LoadPicture(GetSetting(bitmap, n))


    Вопрос:

       Как можно средствами "Drag & Drop" осуществить перенос файлов из внешних программ (таких, как файловые менеджеры) в собственный проект на VB. (Как это делает WinAmp)?

    Ответ:

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

    Я спрашивал на vbnet, мне дали ответ:
      
    Private Sub Form_Load()
    Me.OLEDropMode = 1
    End Sub
      
    Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Debug.Print Data.Files(1)
    End Sub
      

    В Data.Files(1) получаешь имя файла который перетаскивают и с ним уже длаешь то что пожелаешь.


    Вопрос:

       Как содержимое графического контейнера, сояданное посредством VB сохранить в *.jpeg? Но нормальный jpeg, а то он у меня получается того же раямера, что и bmp.

    Ответ:

    Автор ответа: Максим

    Тёска! Это же битый вопрос! В этой рассылке уже 1000 раз объясняли, что лучший вариант: взять готовый контрол! Если не можешь успокоится, то тебе нужно искать алгоритм сжатия Joint Photographic Experts Group.



    Ответ:

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

    Скачал недавно библиотеку, но пока не рассматривал - поддержка большого числа графических форматов. http://www.xnview.com/download/GflAx-win.zip.




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

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

    наверх


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

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