Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 176.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 176.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый выпуск!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх SHARESTAR Уважаемые разработчики условно-бесплатных программ! Обратите Ваше внимание на открытие нового русско-язычного агентства SHARESTAR, которое поможет Вам продавать Ваши программы пользователям стран СНГ. Самую подробную информацию об агентстве SHARESTAR и о предлагаемой схеме продаж Ваших SHAREWARE программ Вы можете получить на сайте http://sharestar.laguna-ua.com/. Мы используем принципиально новый механизм продажи условно-бесплатных программ (на основе MULTI-LEVEL MARKETING), который позволяет зарабатывает реальные деньги и пользователям и разработчикам программ. SHARESTAR является официальным проектом компании "Лагуна софт Украина" (LAGUNA-UA). SHARESTAR - это Ваш первый шаг в мир условно-бесплатных программ! Присоединяйтесь сегодня и Вы не пожалеете об этом никогда!
Мы всегда готовы ответить на все Ваши вопросы: sharestar@laguna-ua.com С уважением, Администрация агентства SHARESTAR AGENCY. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 11:31 / 6 июл. Непонятен вопрос, хорошо, опишу по подробнее... | Хитов: 5 | Ответов: 0 07:35 / 6 июл. Хочу спать :) | Хитов: 24 | Ответов: 5 15:40 / 5 июл. Корзина | Хитов: 18 | Ответов: 1 15:00 / 5 июл. Предложение администрации сайта по поводу форума | Хитов: 20 | Ответов: 0 14:56 / 5 июл. Предложение админам... | Хитов: 23 | Ответов: 2 12:51 / 5 июл. Работа с буфером обмена | Хитов: 22 | Ответов: 3 12:47 / 5 июл. Объясните смысл слов... | Хитов: 41 | Ответов: 8 12:35 / 5 июл. ProgressBar в ListBox | Хитов: 19 | Ответов: 2 12:29 / 5 июл. DataReport | Хитов: 5 | Ответов: 0 12:28 / 5 июл. Есть вопросы о "запросе" | Хитов: 20 | Ответов: 3 08:51 / 5 июл. VB и Pascal как их ... | Хитов: 22 | Ответов: 3 05:16 / 5 июл. Вопрос по ИнСтАлЯцИи | Хитов: 23 | Ответов: 2 01:58 / 5 июл. SQLServer | Хитов: 8 | Ответов: 0 01:58 / 5 июл. SQLServer | Хитов: 1 | Ответов: 0 00:05 / 5 июл. SQLServer для XP | Хитов: 18 | Ответов: 1 14:26 / 4 июл. Как в VB.NET открыть форму по кнопке на другой ... | Хитов: 23 | Ответов: 2 12:19 / 4 июл. печать таблицы DataGrid | Хитов: 21 | Ответов: 1 11:31 / 4 июл. Запись в Word | Хитов: 12 | Ответов: 0 11:29 / 4 июл. Блокировка клавы, автозагрузка | Хитов: 19 | Ответов: 1 11:25 / 4 июл. массивы контролов в Visual Basic .net | Хитов: 19 | Ответов: 3 Последние поступления в Библиотеку кодов: Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet Новые статьи: наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Колесо Вопрос: Автор вопроса: admsasha Как обрабатывать колесико мыши? Ответы: Атор: hedgehog Аналогично решал недавно для флексгрида - через субклассинг: в модуле: Public Declare Function SetWindowLong _ Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc _ Lib "user32" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, _ ByVal hwnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const WM_MOUSEWHEEL = &H20A Function SwapProcAB(ByVal hwnd As Long, ByVal Msg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long Dim lReturn As Long lReturn = CallWindowProc(formname.OldABProc, hwnd, Msg, wParam, lParam) Select Case Msg Case WM_MOUSEWHEEL formname.ScrollFlex wParam End Select SwapProcAB = lReturn End Function в форме: Public OldABProc As Long Private Const GWL_WNDPROC = (-4) Private Sub Form_Load() ... OldABProc = SetWindowLong(Flex1.hwnd, GWL_WNDPROC, AddressOf SwapProcAB) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ... SetWindowLong Flex1.hwnd, GWL_WNDPROC, OldABProc End Sub Переделай под себя аналогично - у меня работает отлично. наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Vor Ответ ожидается по этому адресу Я чего-то нахимичил с VB, в общем в коде программы вместо русского шрифта какой-то непонятный. Как сделать обратно? Автор вопроса: Марк Ответ ожидается по этому адресу Как средствами VB сделать файл справки со своим содержимым? Можно ли сделать этот файл справки как .chm - файл? Автор вопроса: Sergey Ответ ожидается по этому адресу А где можно увидеть рабочий пример Чата, типа клиент-клиент? Автор вопроса: clayman Ответ ожидается по этому адресу Есть вопрос по DBGrid: Источником записей для DBGrid явл. Data1 Источником для Data1 явл. SQ -строка. Тобишь количество и название столбцов определяется непосредственно перед загрузкой самой формы на которой расположен сам DBGrid. Вопрос такой: Нужно чтобы при выводе на экран у каждого столбца элемента DBGrid была своя заданная в коде ширина. Было-бы здорово если каждый столбец мог бы учитывать размер самой длинной записи в строке... Автор вопроса: Vao Ответ ожидается по этому адресу Для моего редактора тестов неожиданно потребовалась распечатка результатов. В связи с этим возникла парочка вопросов: 1. Как можно создать, наполнить и сохранить WORD'овский документ(*.doc), со всяческими прибамбасами касаемо текста (а, если короче, то произвести "печать в файл")? 2. Как вывести данные с формы на принтер, при этом нужно определить поля страницы, расположение текста на странице, форматирование и т.п. Можно ли это сделать обойдя CommonDialog? Автор вопроса: Vao Ответ ожидается по этому адресу Расскажите, пожалуйста, поподробнее про сжатие БД программно. Автор вопроса: Rex Ответ ожидается по этому адресу Как "заблокировать" рабочий стол, т.е. если пользователь будет нажимать на любые места на экране, то ничего происходить не будет, но форма (программа) будет полностью рабочая? Автор вопроса: Rex Ответ ожидается по этому адресу Как "заблокировать" CD-ROM (чтобы не открывался и не работали кнопки на нём); выдвинуть, задвинуть? Автор вопроса: Rex Ответ ожидается по этому адресу Какой контрол, где есть прогресс бар, идёт вместе с Windows? Автор вопроса: I-Sof Ответ ожидается по этому адресу Как создать свой dll для своей проги? Автор вопроса: Rex Ответ ожидается по этому адресу Как можно узнать сведения о системе: марку и модель материнки, тип и модель процессора? Автор вопроса: Владимир Ответ ожидается по этому адресу Этот код заполняет форму по номеру на web-странице. Set Doc = Explorer.Document Dim Inputs As IHTMLElementCollection Set Inputs = Doc.All.tags("INPUT") Inputs.Item(0, 0).Value = "Vladimir" А как заполнить ее по имени на VB6. Кто нибудь сможет ответить на мой вопрос? Или, как и на предыдущие 2 вопроса, пошлете на три буквы URL, где посылают еще дальше. Автор вопроса: Indy Ответ ожидается по этому адресу 1. Я испольяую базу данных Access, первоначальные таблицы я создал вручную, а можно ли программно создать таблицу в базе данных Access? 2. Как можно сделать так чтобы системный шрифты отображались в элементе СomboList? Автор вопроса: Govorun Ответ ожидается по этому адресу Не могу вызвать Функцию АРI "ExitWindows". Подскажите, как это сделать. Ответы: Вопрос: Кто-нибудь посоветуйте, куда поступить на программера дистанционно? Желательно на «вышку». Может придется в ЦКО при МГТУ, но это не высшее образование, после школы охота получить высшее образование. Только обязательно ДИСТАНЦИОННО! Ответ: Автор ответа: Vlad Сходи http://www.cometa.ru Правда это техникум. Сам там учусь. Ответ: Автор ответа: Alexander Это можно сделать в Минском государственном радиотехническом университете, например. Адрес что-то типа http://ciosrv2.bsuir.unibel.by/index.jsp?PageID=76067&lang=ru&resID=100229&menuItemID=101491 (боюсь, устаревшая информация) Ректор заявил, что как минимум пару полноценных факультетов дают дистанционное обучение с выдачей государственных дипломов. Вопрос: У меня опять СУПЕР МЕГА НАИСЛОЖНЕЙШИЙ ВОПРОС Кто-нибудь занимался программой для создания расписания занятий (поделитесь разработками или исходниками) Если кто-нибудь хочет попробовать помочь, то пишите Ответ: Автор ответа: Andrew Stephanoff Я когда-то пробовал ее писать на Borland C++ Builder, но исходников ее не осталось. Если хочешь - могу помочь, а вообще у меня есть файл в Exell, его удобно заполнять и распечатывать. Если же надо что-то вроде органайзера + напоминателья + записной книжки, то поставь MS Outlook (не Outlook Express!!!). Вопрос: Помогите разобраться вот с чем: Юзаю VB 6 & MS Access '97 1. Есть код [Модуль] Option Explicit ' referenses MS DAO 3.6 Object Library Public db As Database, dbstring As String Public rs As Recordset [Форма] Private Sub btnSave_Click() On Error GoTo CuncelUpdate rs.Fields("ID") = Text1.Text rs.Fields("ragid") = Text2.Text rs.Fields("text") = Text3.Text rs.Update CuncelUpdate: MsgBox Err.Description End Sub Private Sub Form_Load() dbstring = App.Path & "/" & "db.mdb" Set db = OpenDatabase(dbstring) Set rs = db.OpenRecordset("test", dbOpenDynaset) rs.AddNew End Sub Так вот по нажатии btnSave выскакивает ПУСТАЯ мессага с кнопкой OK (тобишь без какого-либо сообщения об ошибках). Запись при этом сохраняется без каких-либо проблем. Как от этого избавиться? По идее если мессага выскакивает - значит какая-то ошибка? Но в БД состоящей из одной таблицы в три поля трудно допустить ошибку :)) 2. И может кто знает как в каком-нить Grid' е можно сделать ячейку с выпадающим списком (как в Access) с данными из другой таблицы. Поделитесь опытом, можно прямо на мыльницу. Ответ: Автор ответа: Mind Engine А вот так сделать, религия не позволяет? =) rs.Update: еxit sub Ответ: Автор ответа: Alexander У тебя в любом случае,есть ошибка или нет, есть переход на строку MsgBox Err.Description Тогда уже так: CuncelUpdate: If Err.Description <> "" Then MsgBox Err.Description End If End Sub Ответ: Автор ответа: Vao Ну ты даешь!!! Надо сделать так: Private Sub btnSave_Click() On Error GoTo CancelUpdate rs.Fields("ID") = Text1.Text rs.Fields("ragid") = Text2.Text rs.Fields("text") = Text3.Text rs.Update EXIT SUB CancelUpdate: MsgBox Err.Description End Sub Ответ: Автор ответа: Vladimir Selyanin Перед своим CuncelUpdate: поставь Exit Sub. rs.Update Exit Sub CuncelUpdate: P. S. И отмена по-английски - Cancel Ответ: Автор ответа: Alexander Элементарно, Ватсон ;-) On Error GoTo CuncelUpdate rs.Fields("ID") = Text1.Text rs.Fields("ragid") = Text2.Text rs.Fields("text") = Text3.Text rs.Update '=============== Exit Sub '=============== CuncelUpdate: MsgBox Err.Description ' при отсутствии ошибки оно и вынуждено выводиться на экран End Sub Ответ: Автор ответа: Vir Код после метки CancelUpdate работает и при возникновении ошибки и достижения до него перед данной строчкой вставь Exit Sub. Ответ: Автор ответа: efimov_oleg У тебя происходит выполнение msgbox и при правильном исполнении предыдущих команд. Поставь if и проверяй err.number (без ошибки = 0), только не забудь его в самом начале процедуры очистить (err.clear). Вопрос: Хотелось бы узнать существуют уроки по Visual Studio.NET 7 или нет? Хотелось бы на них подписаться или скачать Ответ: Автор ответа: Артем Кривокрисенко http://progs.biz/ Есть еще классная книжка по VB.NET Дана Эплмэна - "Переход на VB.NET. Стратегии, концепции, код" (в этой рассылке ссылка дается на нее). Вопрос: 1. Расскажите, пожалуйста, как создать TRAIL ограничение в программе. 2. Как отлаживать компоненты написанные на VB для ASP? Постоянно выгружать перед каждой поледующей компиляцией? Ответ: Автор ответа: Vao По первому вопросу: Сначала нужно записать куда-нибудь в папку Windows, в файл *.ini, или в реестр, дату первого запуска. Потом при каждом запуске нужно проверять разницу между текущей датой и датой первого запуска: If DateDiff("d", #11/8/99#, Date) > 30 Then ... 'если разница между датой 11 августой 1999 года и текущей 'в днях больше 30, тогда .... Вопрос: Я пишу HTML редактор, хочу сделать отмену действия и наоборот (отмену отмены действия). Как это сделать? Ответ: Автор ответа: Кирилл Ну я бы сделал так, с глубиной удаления не более 20 должно работать шустро. Создаешь приватный класс, в нем свойства -позиция -тип операции(удаление/вставка) -стоковое содержание -координаты (номер строки + позиция) Может быть еще что-то Далее там где у тебя основной код, создаешь Dictionary, можно и простую коллекцию, но Dictionary удобнее в работе. При удалении/вставке пишеь в Dictionary новый объект своего класа, заполнив его данными. Ключ Dictionary=позиция. При добавлении нового элемента, он становится первым, а остальные сдвинуть. При нажатии на кноки отмена/отмена отмены лезешь в Dictionary ищешь первый элемент с соотв типом операции и делаешь обратную. Можно сделать на массиве, будет шустрее работать с большими объемами, но с массивом труднее работать. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
