VBNet
VBMania
Голосование: Нет тем! Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый 70-ый выпуск рассылки!!!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Итоги конкурса на лучшую статью Завершен конкурс на лучшую статью. Первое место и, соответственно, книгу получает Ларин Александр за статью "Разработка нового языка программирования на Visual Basic". Александр выбрал в качестве приза книгу: Криса Касперски "Техника и философия хакерских атак". В ближайшее время книга будет выслана победителю по почте. Второе место и 50000 баннеров получает Dydl за статью "Изменение размеров элементов управления внутри форм с изменяемыми границами". Авторам направлены письма с подтверждением их победы. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 10:52 / 7 июл. Авторские права | Хитов: 14 | Ответов: 2 10:49 / 7 июл. Что есть DLL? | Хитов: 16 | Ответов: 1 10:47 / 7 июл. Файлы ресурсов вне программы | Хитов: 7 | Ответов: 0 10:45 / 7 июл. Перехват ошибок Windows | Хитов: 11 | Ответов: 0 09:27 / 7 июл. Скан-коды | Хитов: 10 | Ответов: 1 22:24 / 6 июл. Админам... | Хитов: 16 | Ответов: 3 21:50 / 6 июл. Что-то типа терминала... | Хитов: 19 | Ответов: 2 21:23 / 6 июл. Генератор случайных чисел | Хитов: 14 | Ответов: 1 16:09 / 6 июл. База Access через ADO ? | Хитов: 14 | Ответов: 1 15:05 / 6 июл. Шифрование базы | Хитов: 17 | Ответов: 2 14:28 / 6 июл. Помогите с базой данных!!! | Хитов: 20 | Ответов: 4 13:11 / 6 июл. Проблемы с обновлением данных в MSHFlexGrid | Хитов: 14 | Ответов: 0 00:53 / 6 июл. Systray русский или английский? | Хитов: 20 | Ответов: 2 00:29 / 6 июл. Infragistics UltraSuite 3 | Хитов: 15 | Ответов: 0 20:38 / 5 июл. пуст ли динам. типизированый масив | Хитов: 22 | Ответов: 5 19:40 / 5 июл. Масив | Хитов: 19 | Ответов: 0 19:27 / 5 июл. RichTextBox | Хитов: 20 | Ответов: 3 17:44 / 5 июл. WinSock Control | Хитов: 20 | Ответов: 3 15:51 / 5 июл. пожалуйста помогите | Хитов: 32 | Ответов: 2 14:37 / 5 июл. Доступ к элементам охватывающей формы | Хитов: 27 | Ответов: 1 Последние поступления в Библиотеку кодов: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: RAD Ответ ожидается по этому адресу Подскажите как можно убрать правую полосу прокрутки в элементе управления Webbrowser. Делую яаставку для проги и "бездействующая" полоса как-то не вписывается в дияайн. И кто может подскаяать код для органияации автопрокрутки в Webbrowser (c ияменением скорости прокрутки) Автор вопроса: Эдуард Маркелов Ответ ожидается по этому адресу Нужно присвоить некоторые значения, ещё не загруженой дочерней форме, так, чтобы она на это ни как не отриагировала, т.е. осталась не загруженой. Автор вопроса: LexA Ответ ожидается по этому адресу Как сделать так, чтобы при нажатии клавиш Alt+Ctrl+Del не вылетало меню, либо в списке не было моей программы? Автор вопроса: Роман Ответ ожидается по этому адресу Подскажите ,пожалуйста, код формы чтобы из однога окна при нажатии кнопки запускалось другое? Ответы: Вопрос: Кто знает как изменить форму или рисунок кнопки? Ответ: Автор ответа: Kurt Haeldar Для изменения формы кнопки (да и не только кнопки, но и любого объекта, у которого есть Hwnd) существуют функции CreateEllipticRgn CreatePolygonRgn CreateRectRgn Эти функции создают регионы - контуры объектов. CombineRgn - совмещает два региона, например можно сделать бублик. SetWindowRgn - применяет созданный регион к объекту. Как раз и есть смена формы кнопки. Если же писать код, то выглядит он так (нужна форма и на ней 2 кнопки) Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Sub Command1_Click() Dim myrgn As Long myrgn = CreateEllipticRgn(0, 0, 100, 150) SetWindowRgn Form1.hWnd, myrgn, True End Sub Private Sub Command2_Click() SetWindowRgn Form1.hWnd, 0, True End Sub Этот пример изменяет форму самого окна. Только кнопки расположи поближе к левому верхнему углу формы. Если поиграться с координатами с строке CreateEllipticRgn и заменить параметр form1.hwnd на hwnd какой-нибудь кнопки, то будет меняться именно эта кнопка. Это, что касается фомры кнопки. А вот с ее рисунком все гораздо проще - у нее (кнопки) есть свойство Style. Поставь его в Graphical, а затем в свойство Picture внеси путь к картинке, которую надо повесить на кнопку. Если нужна будет дополнительная инфа по функциям регионов - либо пиши, отвечу, либо зайди на сайт www.allapi.net. Там прога API-GUIDE - классная вещь. Это справочник по API Вопрос: В текстовом документе нужно от определенного слова до еще одного слова выделить этот блок и скопировать в буфер. Как это осуществить? Ответ: Автор ответа: Виталий Венгров Если хочешь возьми мою функцию : Private Function Otbor(MyString As String, strBegin As String, strEnd As String) ' MyString - вся строка ' Begin - первое слово ' End - второе слово Dim NomerN& NomerN& = InStr(1, MyString, strBegin, 1) + Len(strBegin) Otbor = Mid(MyString, NomerN&, InStr(NomerN&, MyString, strEnd, 1) - NomerN&) ' эта функция отбирает текст между словами не захватывая их самих. ' Если нужно включить и их то ' NomerN& = InStr(1, MyString, strBegin, 1) ' Otbor = Mid(MyString, NomerN&, InStr(NomerN&, MyString, strEnd, 1) - NomerN& + Len(strEnd)) End Function Теперь чтобы закинуть в буфер делаешь так : Clipboard.Clear Clipboard.SetText Otbor(strText, "одно слово", "другое слово") Вопрос: Вояможно ли программно соядать файл MS Access? Если можно, то как? И как соядавать в ней таблицы? Ответ: Автор ответа: Виталий Венгров Очень подробное описание есть по адресу http://azbukavb.narod.ru/dbdoc/dbdoc1.html Правда все с помощью DAO. Интересно возможно ли все это проделать с ADO. Вопрос: Нужна помощь! У меня такой вопрос: в моей программе есть форма с настройками и при нажатии кнопки применить происходит следущее: Private Sub Command2_Click() If Check1.Value = 1 Then cbdend = 1 'открыть вначале работы If Check2.Value = 1 Then cbdtim = 1 'открыть в конце работы sbdh = Text2.Text 'имя sbdm = Text3.Text 'фамилия If Check3.Value = 1 Then arcpro = 1 'есть архив If Check4.Value = 1 Then arcend = 1 'нет архива pathbd = Text1.Text 'путь к файлам End Sub Вот так формируются переменные на основе моих настроек и как их теперь записать в файл "setup.ini" в дирректории моей программы, а потом считать их оттуда при следующей загрузке программы? Спасибо! Ответ: Автор ответа: Umidjon B. Rahmonberdiev Это надо написать в новый модуль: Option Explicit Private Declare Function GetPrivateProfileString _ Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString _ Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long 'Writing a key and value to the INI file Public Sub WriteString(ByVal xAppName As String, _ ByVal xKeyName As String, ByVal xString As String, _ ByVal xAppPath As String) Dim P As Long P = WritePrivateProfileString(xAppName, xKeyName, _ xString, xAppPath) End Sub Public Function ReadPrivateString _ (ByVal xAppName As String, _ ByVal xKeyName As String, _ ByVal xAppPath As String) As String Dim N As Long Dim Word As String * 80 N = GetPrivateProfileString(xAppName, xKeyName, _ "", Word, 80, xAppPath) If N > 0 Then ReadPrivateString = Left(Word, N) Else ReadPrivateString = "" End If End Function А так им дальше можно пользоватся: S1 = название раздела в файле конфигурации s2 = название ключа в разделе s3 = значение ключа Писать: s1="Параметры" s2="Название автора" s3="Умиджон Рахмонбердиев" WriteString s1, s2, s3 , App.Path & "\setup.ini" Читать: S3 = ReadPrivateString(s1, s2, App.Path & "\setup.ini") Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |