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


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



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

Ссылки:

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

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

       Новый выпуск!
    Читайте!


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




    Citycat by Email

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

    наверх


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

    Дата: 28.08.2003 21:54 | Раздел: Примеры кода | Автор: Барабошкин

    XP ProgressBar 1.0 - ActiveX Прогрессбар в стиле XP.

    Дата: 28.08.2003 21:52 | Раздел: Примеры кода | Автор: Last_Santa

    BalloonMessage - От автора: Пример показывает как в 2к/ХР добавить в трей Balloon ака системное уведомление, Код не мой, правда подправил чуть-чуть.

    Дата: 28.08.2003 21:23 | Раздел: Примеры кода | Автор: Александр (SanKo)

    AverTV - Лично я использовать и опробовать этот код на все сто процентов не смог, в виду технического отсутсивия некоторых состовляющих:). От автора: Пример управления проигрывателем WinAmp с помощью пульта дистанционного управления фирмы AverMedia

    Дата: 28.08.2003 21:23 | Раздел: Примеры кода | Автор: Александр (SanKo)

    Matrix Scr - Попытка создать свой скринсевер по-моему удалась на пять баллов! Очень простой код, с комментариями и поразительным результатом! Всем качать не задумываясь!



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

    12:32 / 3 сен.  435435  | Хитов: 0 |  Ответов: 0
    12:29 / 3 сен.  тест  | Хитов: 0 |  Ответов: 0
    11:01 / 3 сен.  Профиль  | Хитов: 119 |  Ответов: 0
    04:21 / 3 сен.  как получить список файлов на (не своем) веб-сайте | Хитов: 7 |  Ответов: 0
    02:34 / 3 сен.  ListView цвета, объекты или другой компонент ..... | Хитов: 8 |  Ответов: 0
    23:42 / 2 сен.  directory  | Хитов: 25 |  Ответов: 5
    20:52 / 2 сен.  Вопрос по dll  | Хитов: 25 |  Ответов: 3
    18:54 / 2 сен.  Как сделать окно прозрачным для сообщений?  | Хитов: 15 |  Ответов: 0
    16:48 / 2 сен.  CrystalReportViewer  | Хитов: 9 |  Ответов: 0
    16:20 / 2 сен.  Новое сообщение без темы  | Хитов: 23 |  Ответов: 2
    13:14 / 2 сен.  Mac And Vb  | Хитов: 13 |  Ответов: 0
    12:37 / 2 сен.  Проблемка с кнопкой из MS Form 2.0  | Хитов: 20 |  Ответов: 0
    11:10 / 2 сен.  Процессы  | Хитов: 22 |  Ответов: 1
    11:03 / 2 сен.  Фокус  | Хитов: 31 |  Ответов: 2
    06:37 / 2 сен.  123  | Хитов: 1 |  Ответов: 1
    22:32 / 1 сен.  -----  | Хитов: 29 |  Ответов: 2
    19:36 / 1 сен.  вопрос по ORDER BY  | Хитов: 32 |  Ответов: 2
    15:25 / 1 сен.  Игры в VB  | Хитов: 84 |  Ответов: 6
    15:18 / 1 сен.  екуну  | Хитов: 0 |  Ответов: 0
    15:04 / 1 сен.  Оцените сайт  | Хитов: 75 |  Ответов: 4


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



    наверх


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



    наверх


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



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



    наверх


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

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

    • ASP.NET WebHandlers, или что такое .ashx файлы
      Мало кто знает, что web handlers можно использовать без прописывания их в web.config для определенных типов файлов, а путем прямого вызова его обработчика напрямую в строке запроса URL.


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



    наверх


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

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

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

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

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


    Ответы:

    Автор: MAGNUS
       Используй АДО для этого добавь ссылку на Microsoft AciveX Data Objects. А далее так

    dim rs as new Adodb.recordset
    rs.open "myProc(11/12/2002)" ,conenect
    grid.datasource=rs

       Где conenect - строка коннекта как и для адодц, если дсн то дсн.

    Автор: Noyra
       А если параметров несколько и они в переменных?

    Автор: MAGNUS
       Точно так же через запятую передавай остальные параметры.



    наверх


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

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

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

    наверх

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

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

    Вопросы:


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

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

       Как в DataGrid заставить работать Scroll mouse? (без таймера)
    (Visual Basic 6 sp5)


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

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

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


    Автор вопроса: Vlasenko Fedor

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

       Как создать панель инструментов похожую на Task Pane в Excel?
    Если у кого пример перемещения позици класса Scrolbar в окне (сдвиг самой панели вверх, вниз, вправо, влево) в Excel?


    Автор вопроса: -=CRAZYDIMA=-

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

       Есть файл - ехе, необходимо выполнить код его. Делаю маппингом, потом получаю адрес соответственно - ноль! Потом делал маппинг, получал из структуры IMAGE_LOADED (или что-то вроде этого) базовый адрес загрузки - ноль!
    К примеру необходимо выполнить код с третье команды.


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

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

       Поместил свой "Блокнотик" в папку SendTo, но при отправки в него чего-нибудь он радует меня своим чистеньким белым личиком. Не подскажете код для обработки такого действия?


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

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

       У меня такой код программы.

    RtxQ.Font.Name = CommonDialog1.FontName
    RtxQ.Font.Size = CommonDialog1.FontSize

    После исполнения в объекте RichTextBox шрифт и размер шрифта меняется для всего текста, что имеется в нем. А можно ли сделать так чтобы шрифт и размер шрифта менялись так как и в Worde (на выделеный текст, или же измения параметра перед печатанием текста). Если можно, то пришлите код программы. Просто я только начинаю изучать VB.


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

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

       Кто нибудь знает как обрабатывать события джоймтика?


    Автор вопроса: Vlasenko Fedor

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

       Как правильно изменить рамеры класса "msoCommandBar" в Excel. Нужно для вставки формы 100х100. Используя SetWindowPos, размеры не изменяются.


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

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

       Извените может кто нибудь подскажет как из VB6 редактировать mp3 tags. (Желательно любых весий). Может какую библиотеку подскажите. А лучше функции API, т.к. из XP при нажатии на свойства файла всё можно редактировать.


    Автор вопроса: Василий Козлов

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

       Как обработать скролинг на мыши?


    Автор вопроса: Василий Козлов

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

       Как програмно выделить строку в Объекте DataGrid?


    Автор вопроса: Laguna Ukraine

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

       Может кто-нибудь из опытных программеров подскажет как проверить существует (и доступен ли) указанный E-MAIL. Буду благодарен и за ссылку на исходник или статью.


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

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

       Как осуществить поиск в реестре или узнать подключи определённого ключа?


    Автор вопроса: Sergey Lagovskiy

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

       Хочу разобраться, что же это за зверь такой - ASP.NET? Поставил .NET Framework, он вроде как все настроил, поставил обновление для ADO ... в общем все, что нужно установить до установки Visual Studio .NET, но саму студию не ставил (ее ставить не надо!), по идее все (в смысле ASP.NET) должно работать и без самой студии. Но вот как бы не так ... На простой код с выводом "HELLO WORLD!" браузер мне сообщает:
    Server Application Unavailable
    The web application you are attempting to access on this web server is currently unavailable. Please hit the "Refresh" button in your web browser to retry your request.
    Administrator Note: An error message detailing the cause of this specific request failure can be found in the system event log of the web server. Please review this log entry to discover what caused this error to occur.

    в логах обнаруживаю записи:
    1) aspnet_wp.exe could not be started. HRESULT for the failure: 800700CB
    2) aspnet_wp.exe could not be launched because the username and/or password supplied in the processModel section of the config file are invalid.

    Система: WINDOWS 2000 Server + SP3, настроен как контроллер домена
    Стоит Active Directory

    В чем проблема?
    Где можно почитать про ASP.NET (C#)? - Накидайте ссылок.


    Автор вопроса: damir@vpost.ru

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

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




    Ответы:


    Вопрос:

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

    Ответ:

    Автор ответа: -=CRAZYDIMA=-

    Разбираться надо, я делал так:
    В папку, где лежал ЗИП клал необходимый для архивирования файл, делал сменить каталог(необходимый каталог делал Куррент), а затем без всяких путей. Между прочим, тоже в ВБА - Ассеss.


    Вопрос:

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

    Ответ:

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

    Ну кргулую - это элементарно. С помощью регионов можно создать сколько угодно сложную форму для кнопки. И никаких проблем не будет:))) Именно так работает Скрепыш в Оффисе 2000, так работают скины в медиа плеере.

    dim lngRegion as long
    dim lngTemp as long

    lngRegion=CreateEllipticRgn(0,0,cmdButton.width, cmdButton.height)
    lngtemp=setwindowrgn(cmdButton.hwnd, lngRegion, True)
    lngtemp=deleteobject(lbgregion)

    У формы обязательно установи ScaleMode=3 (pixel)


    Вопрос:

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

    Ответ:

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

    ddsd2.lFlags = DDSD_CAPS
         ddsd2.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
         Set Achter = dd.CreateSurfaceFromFile("background.bmp", ddsd2)



    Ответ:

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

    'Ты можешь поступить так: создать функцию
    Private Function CreateSurfaceFromFile(Surface As DirectDrawSurface7, Filename As String, Width As Integer, Height As Integer)
          'Описывать структуру DDSURFACEDESC2 я не буду, слишком много констант
          Dim Surfdesc As DDSURFACEDESC2
          Surfdesc.lFlags = DDSD_CAPS Or DDSD_HEIGHT Or DDSD_WIDTH
          Surfdesc.ddsCaps.lCaps = DDSCAPS_TEXTURE
          Surfdesc.lWidth = Width ' ширина
          Surfdesc.lHeight = Height ' высота загружаемой картинки
          Set Surface = DX_Draw.CreateSurfaceFromFile(Filename, Surfdesc) 'загрузка картинки
    End Function
      
    'и вызвать ее когда нужно загрузить картинку из файла.Например так:
    CreateSurfaceFromFile Surface1, App.Path & "\picture.bmp", 128, 128
      
    DirectX 7 морально устарел , лучше переходи на DirectX 8.1




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

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

    наверх


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

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