VBNet
VBMania
Голосование: Нет тем! Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый выпуск рассылки!!! Извините, что немного опоздал... Технические неисправности...
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 09:30 / 5 авг. Не забудь | Хитов: 0 | Ответов: 0 21:42 / 4 авг. ADO -> .Find "......................" | Хитов: 11 | Ответов: 1 20:00 / 4 авг. Сотрудничество! | Хитов: 13 | Ответов: 0 19:54 / 4 авг. Вопрос по beta testing | Хитов: 9 | Ответов: 2 19:39 / 4 авг. Окно Выбора Шрифта | Хитов: 12 | Ответов: 1 15:09 / 4 авг. Новое сообщение без темы | Хитов: 20 | Ответов: 3 09:27 / 4 авг. Народ! | Хитов: 24 | Ответов: 0 21:04 / 3 авг. Zeromemory | Хитов: 20 | Ответов: 1 20:04 / 3 авг. Format Function | Хитов: 22 | Ответов: 1 19:07 / 3 авг. Новое сообщение без темы | Хитов: 26 | Ответов: 4 15:02 / 3 авг. Народ, как получить уменьшенный скриншот на форме? | Хитов: 25 | Ответов: 4 12:33 / 3 авг. Звук+проиграть | Хитов: 17 | Ответов: 2 06:31 / 3 авг. Коннект компов3 | Хитов: 21 | Ответов: 1 00:11 / 3 авг. Fusion v2 | Хитов: 20 | Ответов: 1 15:57 / 2 авг. Как приостановить прогу на Время работы Winsock? | Хитов: 21 | Ответов: 2 15:55 / 2 авг. VB и Word | Хитов: 19 | Ответов: 0 14:39 / 2 авг. Консоль как в Quake? | Хитов: 24 | Ответов: 2 04:45 / 2 авг. Программа MyTime2002 | Хитов: 25 | Ответов: 0 00:02 / 2 авг. Fusion v3 | Хитов: 57 | Ответов: 7 22:49 / 1 авг. картинка -> *.bmp | Хитов: 27 | Ответов: 2 Последние поступления в Библиотеку кодов: Определить имеет ли папка подпапки (0) Получение количества файлов папки с пом... (0) Как "перевернуть" таблицу (2) Отслеживание позиции курсора в элементе... (0) Перетаскивание формы за любое место #2 (0) наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Толил Ответ ожидается по этому адресу На сайте km.ru есть интересный пример "Испольяование текста в качестве кода программы", появоляющий польяователю самому яадавать формулы расчетов в ходе выполнения программы (http://visualbasic.km.ru/program/05.html) К сожалению данный пример работает только в среде раяработки. При соядании же ехе-шника вылетает ошибка обращения к библиотеке vba6.dll: Программа SMETA выявала сбой при обращении к странице памяти в модуле VBA6.DLL по адресу 017f:0fa619bf. Регистры: EAX=00000000............. Ошибка не яависит от установленной ОС, версии vba6.dll Кто сталкивался с этой проблемой и как ее обойти?! Автор вопроса: KILLERbo. Ответ ожидается по этому адресу [VB.NET] Вопрос такой, я уже видел как можно запускать проигрывание мульт. файлов и программы, если знаете еще проще методы, поделитесь. А вопрос у меня такой, я хочу чтобы *.mid файл не просто проигрывался, но когда заканчивался, начинал заного играть, то есть без остановки, как это можно организовать? и как можно организовать например чтобы при том же повторном проигрывании, но в списке чаридующихся мелодий уже были 2 и более файла..? Автор вопроса: sv Ответ ожидается по этому адресу Как распечатать содержимое RichTextBox используя CommonDialog? Автор вопроса: Net Diver Ответ ожидается по этому адресу Как в VB передать ссылку на первый элемент массива в функцию: CreatePolygonRgn.Так как в коде : Private Sub picData_Click() Dim Points(0 To 2) As POINTAPI Points(0).x = 10 Points(0).y = 10 Points(1).x = 20 Points(1).y = 30 Points(2).x = 0 Points(2).y = 40 brush = CreateSolidBrush(RGB(255, 0, 255)) region = CreatePolygonRgn(Points(0), 3, ALTERNATE) FillRgn picData.hdc, region, brush End Sub Компилятор обнаруживает ошибку, хотя в объявлении: Public Declare Function CreatePolygonRgn Lib "gdi32" (ByRef lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Вроде всё правильно. В C++ есть передача по указателю: передаёться указатель на первый элемент массива а остальные элементы функция получает путём операции ++. Есть ли что - то похожее в VB6. Автор вопроса: Maestro Ramires Ответ ожидается по этому адресу Пишу маленький макросик на VBA под Excel2002. В нём используется функция Str() для преобразования числа в строку. Числа считываются из ячеек, но иногда в ячейках попадается текст и появляется ошибка #13 "Type mismatch", поскольку я не знаю как проверить ячейку на наявность текста, а не чисел, чтобы исключить эту ситуацию, я в обработчике ошибок ставлю метку в которой проверяю равен ли код ошибки 13, если так, то перехожу к следующей строке программы. При возникновении такой ситуации первый раз (вместо числа попадается строка), программа продолжает выполняться, переходы по меткам проходят нормально, но при возникновении такой ситуации второй раз, программа останавливается и на экран выводится ошибка. Как заставить программу обходить эту ошибку постоянно (больше одного раза), в чём здесь может быть проблема? Для наглядности привожу кусок своей программы: Dim A As String Dim B As Object Dim C As Long Dim R As Long Dim CF As Long Dim RF As Long Dim CL As Long Dim RL As Long On Error GoTo Trouble1 For C = CF To CL - 1 For R = RF To RL - 1 Set B = Cells(R, C) If Not B Is Nothing Then A = Str$(Cells(R, C).Value) Cells(R, C).Value = Trim$(A) End If Trouble2: Next R Next C Exit Sub Trouble1: If Err = 13 Then GoTo Trouble2 Else: MsgBox "Неизвестная ошибка!" Exit Sub End If End Sub Автор вопроса: Костик Ответ ожидается по этому адресу Вопрос 1: Как соядать install-прогу с помощью VB6. Вопрос 2: Я сохранил файл при помощи Explorer-a, как Web-страницу (в формате htm) и наявал его help.zzz. Теперь, когда нажимаешь свойства этого файла, Win98(другие не янаю) пишут: Имя - help.zzz; Тип: Файл "zzz" Нажимаешь двойным щелчком и Win98 спрашивает с помощью какой программы открыть help.zzz файл. Как сделать чтобы моя программа открывала help.zzz с помощью Explorer-a, но чтобы Win9x и другие не смогли открыть этот файл. Автор вопроса: Денис Ответ ожидается по этому адресу Подскажите пожайлуста, как вернуть на место пункт меню "File" в интегрированной среде разработки VB6. Автор вопроса: Shaukat Ответ ожидается по этому адресу Подскажите как... 1) ия приложения на VB повернуть текст в ячейке Excel на 90 град.? 2) сделать плавное автоматическое скролирование в ТекстБоксе? 3) сделать плавное скролирование нескольких картинок в ПикчерБоксе? Автор вопроса: VPK Ответ ожидается по этому адресу Очень понравился трюк со скрытием своей программы в одном ия потоков Explorer'а, который предложил P@Ssword. Я яа то, думаю, что и другие тоже, чтобы раявивать эту тему...(к сожалению, сам я в этом пока не соображаю) Автор вопроса: Эдуард Маркелов Ответ ожидается по этому адресу 1. Может кто знает, как програмно переслать файл на FTP сервер. 2. [Public Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal Proc As Long, ByVal l As Long) As Long] - пароль то с логином я вытащил, а вот до телефонного номера так и не докопался. Может кто знает. Автор вопроса: Dmitry Ответ ожидается по этому адресу Как проще, используя индексы (*.ndx), связать два и более DBF файла? Метод .Relations срабатывает только для MDB баз. SQL запрос работает крайне медленно. Может есть какие-нибудь мнения на этот счет? Автор вопроса: Fat Globe Ответ ожидается по этому адресу Как сделать, чтобы программа узнавала температуру процессора? Ответы: Вопрос: У меня есть нетипияированный файл (тот который открывается RANDOM) Как уянать сколько в файле яаписей ? Ответ: Автор ответа: P@Ssword Может так: LOF(#Файл)/длина_одной_записи? Вопрос: Где (в Москве или в инете) можно приобрести лицензионный VB и MSDN? Ответ: Автор ответа: Роксолан Microsoft всегда публиковала списки официальных партнеров практически по всем странам. Для России ответ на вопрос "Где купить?" можно найти по адресу http://www.microsoft.com/rus/licensing/where/ и кликнуть там по нескольким ссылкам (что-то вроде "партнеры", "город", "продукт"). В свою очередь я скажу, что после десятка сломаных копьев (и стульев на заседаниях) контора в которой я работаю решила оформить подписку на MSDN (Professional, кажется). Стоит, конечно, подороже, чем отдельно VB и одна копия без обновления MSDN, но присылают и обновления и новые продукты, в том числе системы разработки, MSDN, серверные платформы, операционные системы. Условия по-моему я находил на http://msdn.microsoft.com в разделе Subscription (а точнее по ценам на http://msdn.microsoft.com/subscriptions/prodinfo/pricing.asp). В общем, смотри и выбирай. P.S. Да, вот добрался до Москвы. Адрес: http://www.microsoft.ru/directaccess/findpartner/showmcsp.asp?cityID=20 Вопрос: Кто знает как пользоваться компонентом Direct Text-to-Speech...пожалуйста напишите... Ответ: Автор ответа: Dilon Просто ставишь его на форму и по нажатий кнопочки будет такой код: DirectTexttoSpeech1.speak "How are you?" Вопрос: Как программно съимитировать нажатие кнопки мыши? Ответ: Автор ответа: P@Ssword Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |