Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 256. (comp.soft.prog.vbnewsadvices) : Рассылка : Subscribe.Ru

Подведены итоги двух конкурсов, проводившихся на VBNet.Ru с октября 2003 года!
К сожалению, статей на конкурс было представлено очень мало. Поэтому второе и третье места было решено не приуждать. Первый приз - декомпилятор и обфускатор Spices .Net от компании 9Rays заслуженно получает Шатохина Надежда, автор многочисленных статей и переводов о платформе .Net.

Также впервые был проведён конкурс на лучший пример и ActiveX. Надо отметить, что работ было очень много и нам пришлось приложить немало усилий, чтобы выбрать из них тройку лидеров! Места распределились так:

Первое место: sne "ScreenMate"
Второе место: Игорь "Mustdie-Explorer".
Третье место: Виля "RemPaint".

Победитель конкурса награждается подпиской на компьютерный журнал Hard'n'Soft!
Игорь награждается полным комплектом компакт-дисков от VBNet.Ru, а Виля комплектом из 3-х CD от VBNet.Ru!

О новых конкурсах мы сообщим вам немного позже... Внимательно следите за новостями сайта и объявлениями в официальной рассылке сайта!

наверх

CD

Внимание! Цены на компакт-диски VBNetCD '06 2003 и VBNet CD '11 2003 снижены до 50 рублей!
Напомню, что в нашем магазине копакт-дисков Вы можете приобрести следующие компакт-диски:

VBNet CD '12 2002
VBNet CD '04 2003
VBNet CD '06 2003
VBNet CD '11 2003
VBNet CD '02 2004
MS Agent CD
SoobCha CD

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

наверх

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

Дата: 14.04.2004 13:27 | Раздел: Статьи по VB | Автор: Шатохина Н.А.

Как добавить индикатор выполнения (Progress Bar) в клиентское приложение вашего Web сервиса - Matt Powell показывает, как перехватить поток сообщения Web сервиса, используя SOAP расширения, чтобы обеспечить решение таких проблем, как реализация поддержки индикатора выполнения (progress bar) для клиентского приложения Web сервиса.

Дата: 11.04.2004 12:11 | Раздел: Статьи по VB | Автор: Шатохина Н.А.

Понимание WS-Policy - Представлен обзор WS-Policy и других сопутствующих спецификаций и дается определение общей инфраструктуре, которая может использоваться и расширяться спецификациями Web-сервисов, с целью описания большого разнообразия политик Web-сервисов.

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

наверх

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

16.04.2004 - встреча MDNA 20 апреля 2004 года
Очередная встреча MDNA пройдет 20 апреля. Регистрироваться на этот раз не нужно! Просто приходите.

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

наверх

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

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

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

наверх

Один момент из жизни форума: ASP.Net & Authentication

Адерес темы: http://vbnet.ru/forum/show.asp?id=40652

Вопрос:
Автор вопроса: Иной

Возможно пишу не в том разделе, но на мой взгляд можно и здесь :) Такое дело. Пишется web-приложение для работы с БД на MS SQL 2000. Стоит вопрос об аутентификации. Хочу узнать мнение людей, которые реально писали подобные проекты и сталкивались с таким вопросом на практике. Как лучше сделать, завести в БД кучу пользователей, раздать им права на те или иные действия и при попытке ими достучаться к какой-нибудь таблице полагаться на SQL-сервер или аутентифицировать web-приложение с правами админа, а доступ к таблицам контролировать самостоятельно?

Ответы:

Автор: ol2003
Возможны оба подхода. Выбор зависит от того каковы задачи приложения, требуемый уровень безопасности и предусмотренный бюджет. Использоване общего логина для приложения и дешевле, и дизайн упрощает, но система менее гибка и уровень безопасности пониже. Можно попробовать комбинацию - связь с сервером устанавливать через общий логин, но сопровождать каждую команду индивидуальным, который и сверять с юзвреской таблицей на предмет соответствия привилегий, но опять-таки, сие лишь в том случае смысл имеет, ежели архитектура программы дозволяет.

наверх

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

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

Вопросы:

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

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

Скачал 3D движок для VB Revolution3D, a как им пользоваться?

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

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

Подскажите, пожалуйста, свойства и методы Shockwave Flash (для VB естественно).
В частности, чем заменить MouseMove. В MSDN я этого не нашёл.

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

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

Есть ли у кого-нибудь программы, реализующие методы Ньютона, простой итерации, половинного деления?

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

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

   Есть база Access, в поле таблицы которой хранятся данные типа объект OLE (файл .exe). Если открыть эту таблицу и дважды щелкнуть по записи этого поля, то происходит активация объекта. В данном случае запускается хранящийся файл на исполнение.
   Как программно из кода сделать тоже самое (активацию объекта OLE) без использования форм и отчётов? Просто из модуля программы.
   В буках и хелпах не нашел ответа :(

   Хотелось бы типа:
   Dim obj As Object
   Dim rst As Recordset

   Set rst = CurrentDB.OpenRecordset("Table")
   rst.MoveFirst
   Set obj = содержимое поля
   obj.activate

   или как-либо иначе...

Ответы:

Вопрос:

Как создать Recordset на основании запроса с параметрами. Существует код:

Dim rstWare As Recordset
...
Set rstWare = CurrentDb.OpenRecordset("qryData")
...

qryData - запрос с 1 параметром. При выполнении кода выдаёт сообщение: "Слишком мало параметров. Требуется 1"

Ответ:

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

Смотри синтаксис заппроса. Бывает, что такое сообщение выдается при неправильном запросе.

Ответ:

Автор ответа: Хатламаджиян Виталий Арутюнович

Set rstWare = CurrentDb.OpenRecordset(<текст запроса>)
Dim rstWare As Recordset
...
qryData="select * from table"
Set rstWare = CurrentDb.OpenRecordset(qryData)
или

Set rstWare = CurrentDb.OpenRecordset("select * from table")

Вопрос:

   Люди, выручайте, хотелось бы узнать как пишутся проги "карточные игры" ,например такие как "ДУРАК", "ПАУК", ПАСЬЯНС" и т.д. может быть есть у кого исходник, глянуть бы на это дело? Вообще-то интересует организация самой анимации.

Ответ:

Автор ответа: Тоша

   Самый отсталый (но работающий) способ:
     Создаешь массив из карт (например: король червей - "51")
     Создаешь массив из элементов управления и по свойству Tag привязываешь из к элементам "карточного" массива.

   Анимация:
     Width = Width +1;
     Height = Height +1;

   Мучайся :)

Вопрос:

Хочу добавлять динамически контролы на форму.
Докапался примерно до такого:
Объект нужен в массиве и добавлять его с помощью load. Пробовал море раяных комбинаций, так и не понял.
Вот первоначальный вариант:

Dim Iconka(100) As PictureBox
Load (Ikonka)

Для тех, кто будет говорить примерно такое: Это уже тут сто рая обсуждалось. Профиль со всей почтой полетел.

Ответ:

Автор ответа: C...R...a...S...H

Создаешь один элимент с индексом 0, пишешь:

textbox(0)="0"
for i=1 to 100
load textbox(i)
with textbox(i)
.top =textbox(i-1).top+100
.text=cstr(i)
end with
next i

Ответ:

Автор ответа: Александр Паршин

В форму добавить элементы управления PictureBox, CommandButton. А в свойстве Picture1:

   Index = 0
   Visible = False

Private Sub Command1_Click()
     Dim i As Long, X As Long, Y As Long

     For X = 0 To 3
         For Y = 0 To 3
             i = i + 1
             Load Picture1(i)
             Picture1(i).Top = Y * Picture1(0).Height
             Picture1(i).Left = X * Picture1(0).Width
             Picture1(i).Tag = i
             Picture1(i).AutoRedraw = True
             Picture1(i).Visible = True
             Picture1(i).Print i
         Next
     Next
End Sub

Private Sub Picture1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
     Dim i As Long
     If Button = vbLeftButton Then
         MsgBox "PictureBox number " & Index
     ElseIf Button = vbRightButton Then
         Unload Picture1(Index)
     End If
End Sub

Ответ:

Автор ответа: Дряюшка

Точно не помню, но по-моему было такое:

Dim Iconka(100) As PictureBox
Load Ikonka(n)
iconka(n).visible = true

Ответ:

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

Кинь на форму PictureBox. Назови: IKONKA, а параметр Index установи в 0. А теперь загружай новые:

Dim I as Inreger 'обьявим переменную счетчик
i=ikonka.UBound 'присвоим ей значение макс. эл-та массива
load ikonka(i+1) 'загрузим новый эл-т но уже с новым индексом
ikonka(i+1).show 'покажем его (можно так: .Visible=true)
unload ikonka(5) 'удаляем эл-т под номером 5.

Вопрос:

Сделал первый свой контрол. Из двух label'ов вроде как получилась одна плоская кнопка. Скомпилировал в OCX. Подключаю к проекту. Label'ы шевелятся как задумано, а что будет в случае клика по label'у, никак не прописать.

Ответ:

Автор ответа: Юрий Иванов

Два способа:

1. Руками, если нужна спец. обработка

public event MyLabelClick(byval MyCustomParam as Sometype)

Если нужно передавать параметры, в OCX в обработчике click'a написать:

RaiseEvent MyLabelClick(FactParam)

2. В Wizard'e сделать ассоциацию события click с внутренним control'ом.

Вопрос:

Загружаю в PictureBox картинку

IkonkaPicture = LoadPicture(путь к картинке)

Теперь хочу, чтобы вместо rgb(255,255,255) был прозрачный фон (не закрашивались что бы). А то VB проверять каждый пиксель на rgb(255,255,255) будет долго.

Ответ:

Автор ответа: Виктор

Я в таких случаях использую *.gif'ы. Нужно, чтобы в них была прозрачная область. Очень легко это сделать в Photoshop'е. И ещё - лучше использовать не PictureBox, а Image.

Вопрос:

Я использовал событие Mousemove, и вот надо, чтобы когда я отводил курсор мыши от этой кнопки, она меняла те или иные значения...

Ответ:

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

Используй MouseMove того, что находится за кнопкой, т.е. MouseMove формы.

Ответ:

Автор ответа: C...R...a...S...H

Создай прямоугольную область под кнопкой (image или PictureBox), но большего размера и запрграммируй событие MouseMove

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

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

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

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

http://subscribe.ru/
E-mail: ask@subscribe.ru Отписаться
Убрать рекламу

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}