VBNet
VBMania
Голосование: Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Обязательно загляните в раздел "VBNet CD 12 2002"!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх VBNet CD 12 2002 VBNet.RU представляет новый компакт диск "VBNet CD 12 2002". Диск был существенно переработан. Было добавлено 64 элемента:
Хочу отметить большое обновление в разделе Компоненты - все добавленные компоненты распространяются по лицензии freeware! В разделе Справочники добавлено 5 справочников от Русского проекта (по функция и сообщениям API, MS Agent, FSO и функциям Windows). Также был добавлен новый раздел - MS Agent. Он содержит 28 персонажей для MS Agent, редактор персонажей, а также всё необходимое для того, чтобы MS Agent заговорил по-русски (Speech API, движок синтеза русской речи, русификатор интерфейса MS Agent и др.). Диск содержит:
Полное содержание диска Вы можете скачать здесь. Диск распространяется по почте наложенным платежом. Цена: 60 рублей + 35 рублей (за почтовые расходы) = 95 рублей. Заказать диск можно в разделе Магазин нашего сайта, либо заполнив расположенную ниже форму: Стоимость: 95 рублей наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 08:47 / 8 дек. Что значит Declare Sub или Function? Обьясните ... | Хитов: 2 | Ответов: 0 02:11 / 8 дек. Download File | Хитов: 8 | Ответов: 0 01:44 / 8 дек. Вопрос для знающих API и умеющих делать красивы... | Хитов: 7 | Ответов: 0 01:05 / 8 дек. .doc | Хитов: 9 | Ответов: 0 19:00 / 7 дек. Повсить фичу на гук | Хитов: 10 | Ответов: 0 17:47 / 7 дек. А письма-то не шлёт! | Хитов: 12 | Ответов: 0 16:42 / 7 дек. Screenmates | Хитов: 12 | Ответов: 1 13:13 / 7 дек. Вопрос тут. | Хитов: 29 | Ответов: 4 10:16 / 7 дек. VBNet CD | Хитов: 28 | Ответов: 5 00:46 / 7 дек. Portable executable file format | Хитов: 16 | Ответов: 0 23:18 / 6 дек. PASSWORDS | Хитов: 49 | Ответов: 5 23:03 / 6 дек. FrameSet в HTML | Хитов: 14 | Ответов: 1 21:52 / 6 дек. Как синхронизировать время с сервера и скаково ... | Хитов: 17 | Ответов: 1 20:56 / 6 дек. Народ кто разобрался с Inno Setp есть вопрос! | Хитов: 31 | Ответов: 8 18:59 / 6 дек. СОРТИРОВКА в Delphi | Хитов: 33 | Ответов: 4 18:58 / 6 дек. СОРТИРОВКА в Delphi | Хитов: 3 | Ответов: 0 09:59 / 6 дек. <<>> | Хитов: 30 | Ответов: 1 07:40 / 6 дек. Ивану Администратору сайта | Хитов: 41 | Ответов: 1 05:26 / 6 дек. Обесняю тем кто не понял | Хитов: 34 | Ответов: 1 22:52 / 5 дек. Как в ListBox отобразить файлы содержащии в пап... | Хитов: 44 | Ответов: 3 Последние поступления в Библиотеку кодов: наверх Новости сайта VBMania наверх Новости сайта Азбука VB
наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Саша Ответ ожидается по этому адресу Что бы прочитать дату BIOS можно зделать так: Type BIOS_DATE s As String * 8 End Type Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" _ (pDest As Any, pSource As Any, ByVal ByteLen As Long) Public Function BIOS() As Long Dim sDB As BIOS_DATE CopyMemory sDB, ByVal &HFFFF5, 8& BIOS = DateSerial(Mid(sDB.s, 7, 2), Mid(sDB.s, 1, 2), Mid(sDB.s, 4, 2)) End Function Но этот способ неработает в NT Кто подскажит как можно прочитать дату BIOS под NT Автор вопроса: Daniel Ответ ожидается по этому адресу В VB функция RND дает нормальное распределение. Каким образом можно перейти к другим видам распределения. И как по массиву точек можно определить распределение. Очень нужно. Автор вопроса: Vladimir Ответ ожидается по этому адресу Как автоматически преключать раскладку клавиатуры при переходе к между полями в форме MS ACCESS 97 Автор вопроса: Loki Ответ ожидается по этому адресу Как перезагрузить XP. В 98 я знаю в XP это неработает. Как в XP поменять картинку. В 98 работает а в XP нет. Мой сайт www.vbrain.boom.ru Это мой первый сайт так что я с web интерфейсом работаю первый раз. бновление в стадии разработки. Автор вопроса: Dr.Max Ответ ожидается по этому адресу Товарищи как скачать файл из и-нета ПРИ ПОМОЩИ INTERNET TRANSFER CONTROL? API не подходят по ряду причин... Автор вопроса: Самир Ответ ожидается по этому адресу Не могли бы вы помочь вставить в базе данных, в графический компонент колллекцию фотографий. В аксессе я себе представляю, это посредством ОЛЕ, но в ВБ ни как не получается,и если вас не затруднит,подробнее. Автор вопроса: Наташа Ответ ожидается по этому адресу Как получить список рабочих станций в локальной сети, чтобы потом можно было заполнить ListBox? Автор вопроса: Oleg Ответ ожидается по этому адресу Программа запускает другое приложение на выполнение (черея Shell - строка параматров), приложение само завершается по окончании работы. Как отследить момент завершения работы дополнительного приложения? А то при дальнейшем выполнении кода программы возникает ошибки, не при повтормом вызове приложения, а по времени исполнения дальнейших комманд. Автор вопроса: RIO Ответ ожидается по этому адресу Можно ли напечатать из VB текст встроенным шрифтом принтера? Автор вопроса: Соловьев Ю. Ответ ожидается по этому адресу Как в VB.NET для UserControl'a определить PropertyPage Автор вопроса: Патрик Ответ ожидается по этому адресу Можно ли сделать, что-бы в ComboBoxе, когда текст в сплываюшем списке не помещается по ширине, в смысле, его полностью не видно, выводить всплывающую подсказку над текущей записью. Автор вопроса: Саша Ответ ожидается по этому адресу Как поместить в SysTray не иконку, а Label.? Автор вопроса: Igor Ответ ожидается по этому адресу Пишу эти строки и при копировании файла получаю через раз отказ в копировании файла VB6+SP5 Windows XP (сегодня все работает, а вчера сидет 4 часа и не поборол) Data1.DatabaseName = App.Path & "\ObRabot.mdb" Data1.RecordSource = "ObRabot" Data1.Refresh 'Data1.Recordset.Close Data1.RecordSource = "" Data1.DatabaseName = "" Data1.Database.Close 'Data1.Refresh FileCopy App.Path & "\ObRabot.mdb", App.Path & "\ObRabot_.mdb Автор вопроса: Loki Ответ ожидается по этому адресу Мне нужно преревернуть рисунок этот рисунок танк. Вот мне нужно его поворачивать при нажатии клавиш как мне его повернуть Автор вопроса: Данила Ответ ожидается по этому адресу Я возвращаюсь к вопросу регистрации библиотек, но теперь конкретный вопрос: необходимо найти все упоминания об выбраной библиотеке. Но не просто удалить строчку с этим названием, но и всю сопутствующую информацию. Автор вопроса: Alexbor Ответ ожидается по этому адресу Может кто подскажет как в MSFlexGrid выделить строки, используя Shift и Ctrl, а потом удалить их из Grida и из базы? Grid с данными не связан, а заполняется программно Ответы: Вопрос: Я новичок. У меня два вопроса. 1) Установил VB6. При выяове справки получаю "MSDN collection is not installed". Это ояначает, что диск, с которого я устанавливал VB6 является пиратским и не содержал файлов справки или я что-то сделал не то? И где я могу найти эту самую MSDN collection и как ее доустановить? 2) При написании кода, ничего не могу напечатать по-русски. например MsgBox "Привет" Как можно яаставить VB6 понимать кириллицу или мне надо установить VB6 русскую версию? Ответ: Автор ответа: Evgeniy 1. MSDN вообще-то не входит в комплект VB, надо или покупать полный пакет Visual Studio, либо качать с сайта мелкомягких:) либо покупать отдельно как это делал я. Она обычно инсталиться и VB начинает ее видеть. 2. В меню Tools/Options выбери вкладку Editor Format, там есть выбор шрифта, так вот там выбери какой нить шрифт поддерживающий киррилицу, например: Courier New CYR Ответ: Автор ответа: Алексей 1) MSDN - это оч. большого объема информация. Скачивать с сети нет смысла. Меньше денег потратишь, купив несколько CD-дисков. А вообще в VB5 при установке уже есть справка, советую лучше переустановать на VB5. В крайнем случае где-то в сети, кажется на www.vbstreets.ru или www.vbstreets.ru я нашел два файла размером с дискету с переведенной справкой на русский язык для VB5. Если не найдешь - пиши, помогу найти. 2) Не надо. Все дело в настройках шрифтов в VB. Заходишь в Tools => Options, вкладка "Editor Format", выбираешь Font не Courier New, а Courier New Cyr. Жмешь ОК. Удачи в дальнейшем изучении, первый шаг сделан... Ответ: Автор ответа: VMJ MSDN нужно купить и установить отдельно - это общая система подсказок дя Visual Studio, частью которого является Vb6. Напримен у меня стоит MSDN 2000. Насчет языка - Меню Tools-Options-Editor Format - выбери какой-нибудь кириличный шрифт и навождение пройдет... Насчет русифицированной версии - искренне не советую - по моему она крайне не удачна и не удобна. Тем более, что она по - моему Proffesional а не Enterprise. Вопрос: У меня такой вопросик. Требуется опрашивать джоистик, и всё вроде получается, Private Declare Function joyGetpos Lib "winmm.dll" Alias "joyGetPos" (ByVal uJoyID As Long, pji As JOYINFO) As Long Private Type JOYINFO wXpos As Long wYpos As Long wZpos As Long wButtons As Long End Type Private Sub Timer1_Timer() Dim JOYPOS As JOYINFO joyGetpos 0, JOYPOS Label1 = JOYPOS.wXpos Label2 = JOYPOS.wYpos Label3 = JOYPOS.wZpos Label4 = JOYPOS.wButtons End Sub но TYMER реально не может обрабатывать интервалы времяни больше 1/20 секунды. Подскажите как чаще, очень нужно. Ответ: Автор ответа: Neolifed 1/20 секунды – это минимальный интервал таймера, быстрей не получится. Я сказал, что минимальный интервал одного таймера!!! А если их много? Я разместил на форма два таймера и одну Лэйбу, первый таймер выполнял строчку «d= d + 1», и имел свойство timer1.interval = 50, а второй таймер включал и выключал первый с интервалом в 1000 (1с.). При этом среднее значение d было 17. Я разместил на форме массив таймеров Timer1(i), где i = 0 .. 9. Свойство interval для каждого установил свой 50, 55, 60 … 90, 95. Timer2 включал\выключал массив Timer1(i) Так вот d при этом было равно 102. При i = 19 и interval = 50, 52 , 55 …. 90,92,95 d = 220. Если это возможно, то использование сразу несколько таймеров решит проблему. Да, и кол-во одновременно включенных таймеров тоже ограниченно, кажется их может быть не больше 60 (или что-то вроде того). Ответ: Автор ответа: crash.smolensk@fbi.net чаще можно только так do ...... DoEvents loop Ответ: Автор ответа: Tibor :) А чаще и не получиться. :) Если, только попробовать несколько таймеров асинхронизировать. Вопрос: Kak mozhno vigruzit formu so vsemi elementamiiz pamyati? Ответ: Автор ответа: Шатрыкин Иван Unload Form1 Ответ: Автор ответа: ViTal Poprobui comandu: Unload FormName Ответ: Автор ответа: Tibor Private Sub Form_Unload(Cancel As Integer) Set Form1 = Nothing End Sub Вопрос: Научите меня, как в Excel'e столбик с сотней яаписей представить в виде массива 5 X 20,(1ый столбик в 5 яаписей должен стать первой строчкой) внести ияменения в массиве на другом листе, чтобы эти ияменения окаяались и в столбике ия ста яаписей. Функция Transpose не появоляет редактировать в сояданном массиве и не преобраяует столбик в массив. Ответ: Автор ответа: Марк Это можно сделать с помощью функций на VBA. Пусть столбец из 100 чисел находится на Листе1 в столбце 1, а матрица - на Листе2 в ячейках A1:E20. В модуль Листа1 запишем программу: Private Sub Worksheet_Activate() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 20 For j = 1 To 5 k = (i - 1) * 5 + j Лист1.Cells(k, 1).Value = Лист2.Cells(i, j).Value Next j Next i End Sub которая срабатывает при активации Листа1. В модуль рабочей книги запишем процедуры: Private Sub InsertArray() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 20 For j = 1 To 5 k = (i - 1) * 5 + j Лист2.Cells(i, j).Value = Лист1.Cells(k, 1).Value Next j Next i End Sub Private Sub Workbook_Open() InsertArray End Sub Первая из них заполняет массив, а втоая вызывает процедуру InsertArray() при открытии рабочей книги. Вопрос: Дайте код для перезагрузки компа... Ответ: Автор ответа: Святослав Добавляй на форму кнопку, загружай код: Option Explicit Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub Command1_Click() ExitWindowsEx &H43, 0 End Sub и ....... назад дороги нет. Ответ: Автор ответа: Dima Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal _ dwReserved As Long) i=ExitWindowsEx EWX_REBOOT, 0 Unload Me Ответ: Автор ответа: Nechaev Sergey ExitWindowsEx EWX_FORCE + EWX_REBOOT, 0 или ExitWindowsEx EWX_FORCE + EWX_REBOOT, vbnull Ответ: Автор ответа: Tibor Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Public Const EWX_FORCE = 4 Public Const EWX_LOGOFF = 0 Public Const EWX_REBOOT = 2 Public Const EWX_SHUTDOWN = 1 ExitWindowsEx EWX_FORCE + EWX_REBOOT, 0 Вопрос: Глупейшая проблема! VBNet. Есть форма Form1 в которой есть контрол Form1.TextBox1, который объявлен Public Shared TextBox1 As System.Windows.Forms.TextBox Как мне из модуля Modul1 изменить свойство Form1.TextBox1.Text и самое главное, чтобы оно отображалось в форме Form1? Чегото не хватает. Ответ: Автор ответа: Tibor А собственно бери да изменяй. Не понимаю чего тебе не понятно. Вопрос: Как в RichTextBox вставить рисунок? Ответ: Автор ответа: Tibor Clipboard.SetData LoadPicture("FILENAME.BMP") а потом Shift + Insert :) Вопрос: На активном листе в Excel рисуем линию. Shapes.AddLine(209.25, 24.75, 209.25, 49.5).Select Как ия программы ее удалить? Ответ: Автор ответа: Nechaev Sergey Если ты создаешь линию с именем Line1, то удалять ее надо так Shapes("Line1").delete Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |