VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый выпуск!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 10:25 / 15 июл. Правильное использование ADODC | Хитов: 4 | Ответов: 1 09:54 / 15 июл. Обновление msado15.dll | Хитов: 5 | Ответов: 1 09:31 / 15 июл. Как в ListBox добавить картинку ? | Хитов: 7 | Ответов: 0 06:06 / 15 июл. Как преобразовать дату к другому часовому поясу? | Хитов: 10 | Ответов: 0 06:05 / 15 июл. Буфер обмАна | Хитов: 14 | Ответов: 0 05:56 / 15 июл. Админу. | Хитов: 16 | Ответов: 1 01:47 / 15 июл. Учёт траффика | Хитов: 21 | Ответов: 5 23:57 / 14 июл. CInt i CLng | Хитов: 19 | Ответов: 2 22:53 / 14 июл. True DBGrid 8 | Хитов: 19 | Ответов: 1 19:42 / 14 июл. CPL | Хитов: 17 | Ответов: 0 19:03 / 14 июл. Отправка SMS через VB | Хитов: 22 | Ответов: 4 19:00 / 14 июл. как убрать контекстное меню? | Хитов: 32 | Ответов: 5 18:36 / 14 июл. Защита базы данных | Хитов: 23 | Ответов: 4 17:56 / 14 июл. Принтер | Хитов: 17 | Ответов: 0 17:18 / 14 июл. Что такое hwnd? | Хитов: 29 | Ответов: 2 17:16 / 14 июл. Если у меня известен номер символа в Acii... | Хитов: 29 | Ответов: 2 16:31 / 14 июл. Админу | Хитов: 27 | Ответов: 1 15:30 / 14 июл. реестр | Хитов: 18 | Ответов: 1 15:26 / 14 июл. GETOBJECT & CREATEOBJECT! | Хитов: 26 | Ответов: 7 14:58 / 14 июл. ProgressBar | Хитов: 19 | Ответов: 0 Последние поступления в Библиотеку кодов: Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN
наверх Новости сайта GotdotNet
Новые статьи:
наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: реестр в .NET Вопрос: Автор вопроса: avarch_nik В VB 6.0 я сохранял пользовательские установки в реестре командой SaveSetting и считывал их GetSetting. Как решается эта проблема в VB .NET ? Ответы: Атор: ШевТ Используй Microsoft.Windows.Registry для работы с реестром. Атор: Павел SetSetting и GetSetting в VB .NET тоже работают. наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: 001 Ответ ожидается по этому адресу Имеется проблема следующая: я создал проект IIS Application, но как его разместить в Интернете? Во что он компилится? Где и как его проверить, кроме VB6? Автор вопроса: .::neo::. Ответ ожидается по этому адресу Вопрос по .NET, использую MSAgent. А как отловить, что анимация завешина? Знаю, что для этого надо использовать событие RequestComplete, но что-то не получается... Автор вопроса: Владимир Ответ ожидается по этому адресу Я работаю с ASP. Как сделать так, чтобы на странице выводились из базы данных не все поля, а например 5. Чтобы внизу страницы соотвественно появлялись вот такие штуки, например: [1][2][3][5][6][7][8][9].И если кликнуть на 3, то соответсвенно выводятся с 11 по 15 статью. Автор вопроса: 108vadim@mail.ru Ответ ожидается по этому адресу Есть три запроса , как из них собрать один запрос? запрос: qBal_Chet SELECT Clients.id_Clients, Clients.ClientName, Sum([Kol-vo]*[Cost]) AS ChetSum FROM (CheetToClient LEFT JOIN CheetToClient_tovars ON CheetToClient.id_chet = CheetToClient_tovars.id_chet) RIGHT JOIN Clients ON CheetToClient.id_Clients = Clients.id_Clients GROUP BY Clients.id_Clients, Clients.ClientName запрос:qBal_Plat SELECT Clients.id_Clients, Sum(PlatFromClient.PlatSum) AS [Sum-PlatSum] FROM Clients LEFT JOIN PlatFromClient ON Clients.id_Clients = PlatFromClient.id_Clients GROUP BY Clients.id_Clients Запрос: Собирающий два предыдущих SELECT Clients.ClientName, qBal_Chet.ChetSum, qBal_Plat.[Sum-PlatSum], [ChetSum]-[Sum-PlatSum] AS Zadoljennost FROM (qBal_Chet LEFT JOIN qBal_Plat ON qBal_Chet.id_Clients = qBal_Plat.id_Clients) RIGHT JOIN Clients ON qBal_Chet.id_Clients = Clients.id_Clients; Автор вопроса: efimov_oleg Ответ ожидается по этому адресу Как вызвать при печати какого-либо текста окно настроек принтера? Автор вопроса: Rex Ответ ожидается по этому адресу Как можно читать файлы побайтно, т.е так, как это делает Artmoney 5.43, не в виде текста, а в чиловом (1,2,3,4 байтном) виде? Автор вопроса: Игорь Ответ ожидается по этому адресу Кто делал для своей программы контекстно-зависимую HTML-помощь? Как привязать готовый CHM-файл к различным формам и элементам управления программы, используя свойство HelpContextID, чтобы получить действительно контекстно-зависимую помощь? А то в любом месте прграммы при нажатии F1 выскакивает окошко с первой страницей файла помощи ... Автор вопроса: Саша Ответ ожидается по этому адресу Как узнать закрыт или открыт лоток. Нужен случий, когда два CD-ROM. Как закрыть один из них? Автор вопроса: Вячеслав Ответ ожидается по этому адресу Подскажите, как можно проанализировать имена файлов. Поясню, есть каталог в котором накапливаются файлы, типа VIP(номер).rtf, где номер - это порядковый трёхзначный номер файла. Программа должна анализировать номера файлов и убеждаться, что они идут последовательно (001, 002, 003 ...), т. е. пропусков нет. Отсчёт не обязательно начнётся с 001. Может, например с 653, 654, 656, ... Автор вопроса: Дмитрий Ответ ожидается по этому адресу Как прописать программу в автозагрузку? Автор вопроса: Генадий Ответ ожидается по этому адресу Только начал изучать VB6. Стоит ли вместо VB6 сразу перейти к VB .NET? Автор вопроса: KB Ответ ожидается по этому адресу Как сделать форму как в программах The Bat, FlashGet и др. А именно, чтобы было несколько окон, размеры которых зависят друг от друга и изменяются перемещением перегородок между ними. Автор вопроса: Taras Prikhodko Ответ ожидается по этому адресу Как, зупустив дос-команду из VB, получить результат обратно в VB, чтобы прога ожидала этого рузультата и только после продолжала выполнение? Автор вопроса: afb Ответ ожидается по этому адресу Необходимо загнать данные из файла 46 49 50 51 _ 52 53 54 55 _ 56 57 48 _ 49 50 51 _ 52 53 54 _ 55 56 57 _ 48 81 87 _ в listbox. Пишу так: Dim nl As Integer Dim ks As Integer Private Sub Command1_Click() Dim txt Dim FN As Integer FN = FreeFile Dim FName As String FName = "C:\file0.txt" Open FName For Input As #FN txt = Input(LOF(FN), #FN) Close #FN For n = 1 To Len(txt) ks = ks + 1 If Mid$(txt, n, 1) = "_" Then nl = nl + 1: List1.AddItem (Mid$(txt, n - ks, ks)), nl: ks = 0 End If Next n End Sub Private Sub Form_Load() nl = -1 ks = 0 End Sub Пишет "недопустимый вызов процедуры" в List1.AddItem (Mid$(txt, n - ks, ks)), nl: ks = 0 Автор вопроса: Максим Ответ ожидается по этому адресу Вот что у меня есть: Private Sub Command1_Click() On Error GoTo метка MkDir ("c:\Графики") метка: SavePicture Picture1.Image, "c:\Графики\1.bmp" End Sub А как сделать, чтобы при нажатии на кнопку график сохранялся под новым именем? (2.bmp, 3.bmp и т.д.) Автор вопроса: Alai Ответ ожидается по этому адресу Необходимо вывести информацию из RecordSet-a, полученную после выполнения запроса, в файл, желательно в *.txt или в *.doc, причем данные необходимо вывести в табличном виде (как в Grid). Сам сделал вывод в Word, но работает очень долго. Посоветуйте, как решить проблему. Важно, чтобы вывод отрабатывал как можно быстрее. Ответы: Вопрос: Я чего-то нахимичил с VB, в общем в коде программы вместо русского шрифта какой-то непонятный. Как сделать обратно? Ответ: Автор ответа: .::neo::. У тебя сбились настройки: Tools-Options-вкладка Editor Format-и ставь Font "Courier New CYR" ...вот так вот! Ответ: Автор ответа: Артем Кривокрисенко Просто он использует некириллический шрифт. Лезешь в Tools -> Options -> Editor Format -> Font. Туда поставь кириллический шрифт (можно Courier CYR). Ответ: Автор ответа: vmv Это не химия..., а не понимание владельцем компьютера, что в программе есть панель настроек в т.ч. и шрифта. -Инструменты - Параметры - Еditor format - Font(например:) Courier New Cyr Ответ: Автор ответа: Vladimir [PRC] Tools->Options...->Editor Format->Font: и выбираешь новый шрифт (лучше не пропорциональный, типа Courier New Cyr или MS Sans Serif) Ответ: Автор ответа: Mr. Holy Deer Зайди в Tools -> Options -> Editor Format Там выстави шрифт, поддерживающий русскую кодировку. Вопрос: Как средствами VB сделать файл справки со своим содержимым? Можно ли сделать этот файл справки как .chm - файл? Ответ: Автор ответа: .::neo::. Кажись, я это видел где-то на www.relib.ru, могу ошибаться! Ответ: Автор ответа: Артем Кривокрисенко .chm файл поможет сделать программа Html Help Workshop (производства Microsoft) - можно скачать с их сайта бесплатно. Ответ: Автор ответа: vmv Сделать-то не сложно. Но с первого раза не получиться... Chm4You! 1.2.1 < http://www.softodrom.ru/get.php?id=4136> Компилятор HTML и декомпилятор CHM файлов. Кроме этого, есть возможность индексации каталогов, содержащих web-страницы htm2chm 3.0.1 Вопрос: А где можно увидеть рабочий пример Чата, типа клиент-клиент? Ответ: Автор ответа: Максим На VBNET.RU. Вопрос: Для моего редактора тестов неожиданно потребовалась распечатка результатов. В связи с этим возникла парочка вопросов: 1. Как можно создать, наполнить и сохранить WORD'овский документ(*.doc), со всяческими прибамбасами касаемо текста (а, если короче, то произвести "печать в файл")? 2. Как вывести данные с формы на принтер, при этом нужно определить поля страницы, расположение текста на странице, форматирование и т.п. Можно ли это сделать обойдя CommonDialog? Ответ: Автор ответа: Константин Твоя проблема по поводу DBGrid решается в свойствах этой сетки. Щелкаешь на форме по сетки правой кл. мышки и из контексного меню выбираешь свойства. В форме свойств DBGrid на одной из вкладок есть свойство, определяющее ширину столбца. К этому свойству можно обратиться и из програмного кода. Вопрос: Расскажите, пожалуйста, поподробнее про сжатие БД программно. Ответ: Автор ответа: Mind Engine Поставь ссылку на DAO библиотеку - у меня она здесь: C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll: Dim bas As Object, fs As Object, namos as String, tempes as String, src as string namos = "c:\test.mdb" Set fs = CreateObject("Scripting.FileSystemObject") Set bas = OpenDatabase(namos): tempes = namos & ".1": src = bas.Name fs.CopyFile src, tempes, True bas.Close fs.DeleteFile src DAO.DBEngine.CompactDatabase tempes, src fs.DeleteFile tempes set bas = nothing: set fs = nothing Ответ: Автор ответа: Vir Привожу вырезку из сайта VBNet Программное сжатие базы данных При работе с Базой Данных вы записываете, удаляете, редактируете свои данные и объем вашей БД постепенно растет. Остается он неизменным, даже если вы удалите все данные, т.к. удаленные записи машина Jet превращает в пробелы (грубо говоря). Для удаления этих пробелов время от времени проводят ''сжатие'' БД и она принемает оптимальный объем. Код приводится на примере БД Biblio.mdb 'Закрываем БД Data1.Database.Close 'Вызываем метод CompactDatabase объекта DBEngine 'для сжатия, и сжимаем БД переименовывая ее DBEngine.CompactDatabase "c:\biblio.mdb", "c:\new.mdb" 'Уничтоваем старую БД Kill "c:\biblio.mdb" 'Присваиваем полученной, 'сжатой' БД 'ее прежнее имя Dim OldDB Dim NewDB OldDB = "c:\new.mdb" NewDB = "c:\biblio.mdb" Name OldDB As NewDB 'Источник: http://www.relib.com/code.asp?id=402 Вопрос: Как "заблокировать" рабочий стол, т.е. если пользователь будет нажимать на любые места на экране, то ничего происходить не будет, но форма (программа) будет полностью рабочая? Ответ: Автор ответа: Максим Архив форума vbnet.ru Дата: 18.03.2002 16:21:53 Говорят есть такая API функция - BlockInput. Вроде бы у нее только один параметр -True или False. Но нигде в хелпах найти такую не удалось, в APITextViewer'e тоже. Сконструировали описание сами. Написали програму. Результат: блокирует действительно все намертво (кроме Alt-Tab и Ctrl+Alt+Del, но с этим можно бороться), клавиатура и мышь не работают. Но при некотором событии (вставили электронный ключ) хотелось бы все разблокировать. Событие корректно отлавливается, но строчка BLockInput(False) никакого ощутимого эффекта не дает. Може есть какие-нибудь тонкости? Вопрос: Какой контрол, где есть прогресс бар, идёт вместе с Windows? Ответ: Автор ответа: vmv Прогресс бар ... вот уж точно где набита оскомина. Гораздо интересней и живее смотрятся анимированные gif-рисунки (в сети их полно) умело подобранные по теме (например, бегущий будильник - "время-бежит") или совсем просто - в текстовое поле периодически выводим что-то вроде "... начинаем ... грузим ... процесс идет успешно ... процесс идет к завершению ... всё !!! ". Главное состоит в следующем - пользователь должен знать, что в какой момент времени делается и отвлечь внимание на что-нибудь. Тогда 10 секунд загрузки не кажутся 10 минутами ... Ответ: Автор ответа: Mind Engine mscomctl.ocx - стандартный бар... Вопрос: Как создать свой dll для своей проги? Ответ: Автор ответа: vmv Встречный вопрос - неужто можно будет понять, как сделать dll, даже прочтя здесь десяток кратких ответов? Только вооружившись хорошей библией, терпением и упорством. Хотя для экпериментов с dll нужно быть готовым к переустановке Windows... Ответ: Автор ответа: HoodWin Просто создаёшь ActiveX Dll проект. А потом подключеешь его к обычному проекту через References. Ответ: Автор ответа: Mind Engine Открывая VB6, выбери в качестве нового проекта - ActiveX dll и начинай заполнять ее чем тебе кочется! Вопрос: 1. Я испольяую базу данных Access, первоначальные таблицы я создал вручную, а можно ли программно создать таблицу в базе данных Access? 2. Как можно сделать так чтобы системный шрифты отображались в элементе СomboList? Ответ: Автор ответа: Vao 1. Процедура создает в БД таблицу с именем GetTestName. Перед обращением к процедуре коннект с БД уже установлен! Я передаю его через переменную Cnct. Test_Catalog - глобальная переменная(объявлена в модуле) Public Sub CreateNewTestTable(ByVal GetTestName As String, ByVal Cnct As ADODB.Connection) Dim iLoc As Integer Set Test_Catalog = New ADOX.Catalog Dim Test_Table As Table Set Test_Table = New Table Set Test_Catalog.ActiveConnection = Cnct Test_Table.Name = GetTestName Test_Table.ParentCatalog = Test_Catalog Test_Table.Columns.Append "number", adVarWChar, 14 Test_Table.Columns.Append "question", adVarWChar, 255 'создаем столбец вопросов теста For iLoc = 1 To 4 Test_Table.Columns.Append "answer" & iLoc, adVarWChar, 150 'создаем 4 столбца ответов Next iLoc Test_Table.Columns.Append "righth_answer", adVarWChar, 20 'создаем столбец номеров правильных ответов Test_Catalog.Tables.Append Test_Table Set Test_Catalog.ActiveConnection = Nothing'очищаем память Set Test_Catalog = Nothing Set Test_Table = Nothing End Sub В результате работы процедуры имеем в БД новую пустую таблицу, содержащую 7 столбцов (их имена стоят в " "), имеющих строковый тип (adVarWChar) и различную ширину (14-150). Подробнее прочитай в MSDN. 2. Второй вопрос сформулирован слегка ... не очень. Но по-моему ты имел ввиду это: Dim m As Integer For m = 0 To Screen.FontCount - 1 'минус один, т.к. счёт идёт от нуля List1.AddItem Screen.Fonts(m) 'в List1 добавляем элемент массива Screen.Fonts cоответсвующий числу m Next m Вопрос: Не могу вызвать Функцию АРI "ExitWindows". Подскажите, как это сделать. Ответ: Автор ответа: .::neo::. Объявление: ~~~~~~~~~ VB 6.0 Private Declare Function ExitWindows Lib "user32.dll" ( _ ByVal dwReserved As Long, _ ByVal uReturnCode As Long) As Long .NET Private Declare Function ExitWindows Lib "user32.dll" ( _ ByVal dwReserved As Int32, _ ByVal uReturnCode As Int32) As Int32 Константы Private Const EWX_FORCE As Long = 4 Private Const EWX_LOGOFF As Long = 0 Private Const EWX_POWEROFF As Long = &H8 Private Const EWX_REBOOT As Long = 2 Private Const EWX_SHUTDOWN As Long = 1 Использование: ~~~~~~~~~~~ ExitWindows EWX_REBOOT, 0 Ответ: Автор ответа: Артем Кривокрисенко Твой вопрос очень похож на такой: "Не работает компьютер. Что делать. Спасибо." Нелохо было бы указать, что именно не получается. Вот объявление: Public Declare Function ExitWindows Lib "user32" Alias "ExitWindows" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long Вызывать примерно так: ExitWindows 0, 0 Функция завершит сеанс текущего пользователя. Но комп не выключится и не перезагрузится. Чтоб сделать это нужно вызывать ExitWindowsEx. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |