Голосование:
Ссылки:
Несколько слов от автора:
Поздравляю вас с наступающим Старым Новым годом!!!!
Читайте!
Читайте!
Содержание выпуска
- Книги
- Citycat by Email
- Новости сайта VBNet
- Новости сайта VBMania
- Новости сайта Азбука VB
- Новости сайта MSDN
- Новости сайта GotdotNet
- Новости сайта dotSite
- Доска объявлений
- Вопрос/Ответ
Книги
Остальные книги о VB можно найти здесь.
наверх
Citycat by Email
Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.
наверх
Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru:
04:08 / 12 янв. Таблицы FoxPro 2.5 | Хитов: 0 | Ответов: 0
02:02 / 12 янв. Screenshot | Хитов: 1 | Ответов: 0
01:58 / 12 янв. Как центрировать курсор на фокусе если фокус в ... | Хитов: 2 | Ответов: 0
01:50 / 12 янв. Как центрировать курсор на фокусе если фокус в ... | Хитов: 1 | Ответов: 0
00:51 / 12 янв. Господа! Я чет не понял! | Хитов: 4 | Ответов: 1
00:26 / 12 янв. Win32 API и Visual Basic для профессионалов | Хитов: 8 | Ответов: 1
21:49 / 11 янв. помогите с формами | Хитов: 19 | Ответов: 4
21:29 / 11 янв. VB Net на Win ME... | Хитов: 14 | Ответов: 2
18:32 / 11 янв. Спецы по ADO помогите! А то я заколебался уже. | Хитов: 16 | Ответов: 1
18:11 / 11 янв. как программно установить в 2000 и ХР винде опц... | Хитов: 11 | Ответов: 0
17:00 / 11 янв. Счётчик! | Хитов: 27 | Ответов: 3
16:57 / 11 янв. Счётчик | Хитов: 4 | Ответов: 0
15:38 / 11 янв. Как прочитать определённую строку из файла??? | Хитов: 13 | Ответов: 2
15:08 / 11 янв. Always on top | Хитов: 22 | Ответов: 3
14:41 / 11 янв. Как спрятать прогу в Трей | Хитов: 33 | Ответов: 4
11:05 / 11 янв. ADO - запрос - срочно | Хитов: 29 | Ответов: 2
10:36 / 11 янв. Продам книгу | Хитов: 40 | Ответов: 7
08:57 / 11 янв. Подскажите, что это значит? | Хитов: 34 | Ответов: 2
05:33 / 11 янв. Нет, я ничего не понимаю??? | Хитов: 25 | Ответов: 2
01:26 / 11 янв. Прога не выгружается с памяти... | Хитов: 25 | Ответов: 3
Последние поступления в Библиотеку кодов:
Новости от VBNet-чиков!:
19:56 / 5 янв. Иван сообщает: "Один из самых опасных компьютерных преступников в истории США" Кевин Митник в ближайшее время снова сможет пользоваться интернетом, сообщает CNN. По итогам длительных судебных разбирательств Митник сумел вернуть себе лицензию для выхода в радиоэфир, а в январе получит доступ и ко всемирной компьютерной сети.
Митник был освобожден в январе 2000 года, однако, согласно условиям надзора, до 20 января 2003 года ему было запрещено пользоваться компьютерами, программным обеспечением, модемами и другими средствами доступа в интернет. Кроме того, власти ограничили свободу передвижения бывшего хакера и лишили его возможности занимать ряд должносй. В 2002 году Митнику было разрешено пользоваться мобильным телефоном и компьютером без доступа в интернет. Недавно бывший хакер заявил о намерении открыть компанию, специализирующуюся на компьютерной безопасности. Он надеется приступить к работе сразу по окончании срока надзора.
наверх
Новости сайта VBMania
наверх
Новости сайта Азбука VB
наверх
Новости сайта MSDN
наверх
Новости сайта GotdotNet
Новые статьи:
наверх
Новости сайта dotSite
Новые статьи:
Новые примеры:
наверх
Доска объявлений
наверх
Мои программы
BalloonMessage for MS Agent
Авторы: Шатрыкин Иван и Павел Сурменок.
наверх
Вопрос/Ответ
Автор вопроса: Жорж
Ответ ожидается по этому адресу
На форме разместил: ProgreeBar, Timer, Image, CommandButon. Выставляю Image.Visible=False. Мне надо сделать так, чтобы при Image.Visible= False, ProgressBar двигался со скоростью 3, а при Image.Visible=True со скоростью 10. Я делаю так:
Private Sub Command1_Click()
Image1.Visible = False 'По нажатию кнопки картинка становится не видна
End Sub
Private Sub Timer1_Timer()
Static I As Integer
I = I + 1
If ProgressBar1.Value = 90 Then Timer1.Enabled = False: MsgBox "Стоп"
' Остановка таймера при достижение ProgressBar'ом 90
If I = 5 Then Image1.Visible = True 'Картинка видна
If Image1.Visible = True Then
' Если картинка видна, тогда скорость больше
ProgressBar1.Value = ProgressBar1.Value + 10
Else
' Иначи (если картинка не видна), скорость меньше
ProgressBar1.Value = ProgressBar1.Value + 3
End If
End Sub
Все работает в том случае, если я нажму кнопку (т.е востановлю скорость 3 ), а если оставлю на скорости 10, тогда, когда дайдет ProgressBar до конца, выдаст ошибку: '380' Invalid property value. Что это значит, и как это исправить?
Автор вопроса: Михей
Ответ ожидается по этому адресу
В моей программе 2-я форма становится видимой в определенные моменты времени. Подскажите, как сделать так, чтобы она выводилась поверх всех открытых окон.
Автор вопроса: Корик
Ответ ожидается по этому адресу
Есть сайт заказов на ASP. Полученный заказ отправляется на мэйл.
Вопрос: можно ли полученый заказ отправить на факс или распечатать мэйл автоматом при его получении?
Автор вопроса: Костик
Ответ ожидается по этому адресу
Можно ли запустить мою программу после того как польяователь нажал на кнопку Выключения компьютера или его переяагруяки черея меню Пуск?
Примечание: желательно, чтобы код(коды) были под Win98/Me и(или) WinXP.
Автор вопроса: DeDMoRoZ
Ответ ожидается по этому адресу
Я написал программу на VB. Теперь хотелось бы её протестировать. Пожалуйста помогите. У кого есть модем с АОН (Авто Определение Номера). Напишите мне. Я вышлю вам прогу и вы её протестируйте. Просто мой модем не имеет АОН.
Автор вопроса: Sergey
Ответ ожидается по этому адресу
Подскажите пожалуйста, есть ли такая утилита которая позволяет код Паскаля или Delfi перекодировать в код VB и если есть, то где взять?
Автор вопроса: Сергей
Ответ ожидается по этому адресу
Был вопрос:
Как програмно изменять свойства звукового файла (*.WAV), такие как качество звука, частота, количество каналов (стерео - моно) и прочее.
Получен ответ:
Автор ответа: Dr.Max
vbstreets.da.ru В разделе "Статьи на английском "
Я взял код с, но он у меня не идёт. А так, как я в не силён, то прошу помочь. Может кто уделит время?
Автор вопроса: Ревягин_Алексей
Ответ ожидается по этому адресу
У меня два вопроса:
1) возможно ли сделать так, чтобы программа меняла свой код сама (переделывала бы себя сама по ходу своей работы)
2) создал я новое меню(динамически), а как им пользоваться (как писать функции которые будут выполнятся при нажатии на созданное меню) где указывается имя динамически-созданного меню или как его и его методы и свойства ещё использовать
Код создания меню:
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu _
As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As _
Any) As Long
Const MF_STRING = &H0&
Dim hMenu As Long
Private Sub Form_Load()
'Создаём пустое всплывающие меню
hMenu = CreatePopupMenu()
'Добавляем несколько пунктов в меню
AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"
AppendMenu hMenu, MF_STRING, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_STRING, ByVal 0&, "TrackPopupMenu"
End Sub
пробовал создавать как контрол, но и это не выходит (пишет, что класса VB.Menu нет)
В чём тут дело ?
Автор вопроса: Ревягин_Алексей
Ответ ожидается по этому адресу
как в ресурсы запихнуть готовые диалоги(формы), а потом юзать их оттуда (как MustDie делает с SHELL32.DLL).
К примеру я создам одну DLL'ку а потом буду юзать картинки, диалоги оттуда другими программами.
Автор вопроса: Shadow
Ответ ожидается по этому адресу
Подскажите функции для прямой работы с памятью в VB? Я пытаюсь сделать трейнер к игрухе, адреса памяти извесны.
Пытался считывать их содержимое GetMem(1,2,4,8) - на GetMem1 выдаётся какая-то белиберда, а на остальных бейсик обрухивается.
CopyMemory тоже какуюто фигню выдаёт.
Можт я чего неправильно делаю?
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Private Sub Form_Load()
Dim a As Long
CopyMemory a, ByVal &H6FA210, 4&
MsgBox Str(a)
End Sub
Автор вопроса: Тютюнников ИМ
Ответ ожидается по этому адресу
КТо знает, как программно установить в 2000 и ХР винде опции "regional setting", а именно - как установить на закладке "Дополнительно" язык для программ не поддерживающих ЮНИКОД. Желательно сэмплик на Васике.
Автор вопроса: MixeR
Ответ ожидается по этому адресу
Проблема установки MSDN
Приустановке на 97-98% выдаётся ошибка.
Close Collection g_Cool collection.Open(collection name)dwError=7
Специалисты помогите разобраться.
Автор вопроса: ILYA
Ответ ожидается по этому адресу
У меня 3 проблемы:
1. Я пишу одну прогу, в которой должен быть кулбар (CoolBar), на одной панели которого должен быть элемент TabStrip, а на другой обыкновенный тулбар (ToolBar) с кнопками Соядать, Открыть, Копировать и т.д. Прошу объяснить, как на этот кулбар добавлять всякие элементы управления.
2. Эта проблема частично свяяана с первой. Дело в том, что я не могу листать вкладки TabStrip'а в процессе его соядания и придания ему нужной формы. Помогите, пожалуйста, это сделать.
3. Я соядал свой ресурс-файл для этой ялополучной программы, но дело в том, что я не умею с ним обращаться, то есть яагруяить ия него ту же иконку для формы или картинку иянего поместить в ImageBox, подскажите, как это делается.
Ответы:
Вопрос:
Люди кто знает как определить серийный номера жесткого диска? Именно ЖД, о не логического диска С, D и т.д., т.к. после форматирования номера логических дисков изменяются.Очень срочно
Ответ:
Автор ответа: Sergey
Для этого есть специальная API ф-ция DeviceIoControl, которая отправляет команды напрямую драйверу физического устройства(в том числе и жесткому диску). Сам я когда-то тоже копал в этом направлении но без особых успехов.
Сначала нужно получить дескриптор устройства(это код для 2K/XP):
hFile = CreateFile("\\.\PHYSICALDRIVE0", _
0&, _
FILE_SHARE_READ Or FILE_SHARE_WRITE, _
ByVal 0&, _
OPEN_EXISTING, _
0&, 0&)
А затем отправляешь ему нужную команду. Я пытался через
IOCTL_CHANGER_GET_PRODUCT_DATA
Private Const VENDOR_ID_LENGTH As Long = 8
Private Const PRODUCT_ID_LENGTH As Long = 16
Private Const REVISION_LENGTH As Long = 4
Private Const SERIAL_NUMBER_LENGTH As Long = 32
Private Type CHANGER_PRODUCT_DATA
VendorId(VENDOR_ID_LENGTH) As Byte
ProductId(PRODUCT_ID_LENGTH) As Byte
Revision(REVISION_LENGTH) As Byte
SerialNumber(SERIAL_NUMBER_LENGTH) As Byte
DeviceType As Byte
End Type
Dim udtProductData As CHANGER_PRODUCT_DATA
lResult = DeviceIoControl(hFile, _
IOCTL_CHANGER_GET_PRODUCT_DATA, _
ByVal 0&, _
0&, _
udtProductData, _
Len(udtProductData), _
bytesReturned, _
ByVal 0&)
Вопрос:
А возможно ли закрыть из VB окно сеанса ДОС?
Ответ:
Автор ответа: RaZoom
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Sub btnClose_Click()
SendMessage FindWindow("ConsoleWindowClass", vbNullString), WM_CLOSE, 0, 0
End Sub
Ответ:
Автор ответа: biv
Было где-то на сайте http://www.nsa.newmail.ru/
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Const MAX_FILENAME_LEN = 256
Function DriveSerial(ByVal sDrv As String) As Long
Dim RetVal As Long
Dim str As String * MAX_FILENAME_LEN
Dim str2 As String * MAX_FILENAME_LEN
Dim a As Long
Dim b As Long
Call GetVolumeInformation(sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN)
DriveSerial = RetVal
End Function
Вопрос:
1) где взять MSDN на русском или хотя бы описание любых API-функций (на
русском)
2) Если на первый вопрос ответа нет, то помогите разобраться с функцией GetClassName(1,2,3). Первое яначение я знаю чё значит, а второе и третье
нет. Помогите пожайлуста.
3) Чё означает встроенная VB функция String$() и Left$()
Ответ:
Автор ответа: RaZoom
1. http://nikolayam.narod.ru/api_help.zip
2. 1 - хэндл окна
2 - буфер
3 - количество копируемых символов
3. Left$ (strMyString,10) - вернет первые 10 символов строки strMyString
String$("A",10) - вернет строку из 10 символов "A", можно использовать для создания буферов для команд API, которые возвращают текстовые строки.
Ответ:
Автор ответа: Артем Кривокрисенко
1) Есть на www.subscribe.ru рассылка Win32 API на русском. У нее даже свой сайт есть (не помню урл). Я планирую переводить Win32API на русский. А вообще, как говорил очень известный человек, программистом можешь ты не быть, но знать английский ты обязан! (кстати, следующее описание я перевел из MSDN за 5 мин)
2) Функция GetClassName возвращает имя класса, к которому принадлежит определенное окно.
int GetClassName(
HWND hWnd, // Индентификатор окна
LPTSTR lpClassName, // Имя класса
int nMaxCount // Размер строки с именем класса
);
Параметры
hWnd
[Ввод] Индентификатор окна, у которого нужно узнать, к какому классу оно принадлежит
lpClassName
[Вывод] Строковая переменная, в которую поместится имя класса
nMaxCount
[Ввод] Определяет длину переменной. Если длина имени класса больше этого значения, имя класса обрезается
Возвращаемые зеачения:
Если функция выполняется успешно, возвращаемое значение является длинной имени класса
Если произошла ошибка, функция возвращает 0. Для расширенной информации вызывай функцию GetLastError.
3) Функция Left позволяет получить несколько левых символов:
strFirst="Hello, world!!!"
strSecond=left(strFirst,5)
'Сейчас StrSecond="Hello"
Функция String позволяет заполнить строковую переменную набором символов:
strText=string(10,"A")
'Теперь strText="AAAAAAAAAA"
Ответ:
Автор ответа: Anton B. Lozovski
Перевод мой
GetClassName
The GetClassName function retrieves the name of the class to which the specified window belongs.
Функция GetClassName возвращает имя класса, к которому указанное окно принадлежит.
int GetClassName(
HWND hWnd, // логический номер окна
LPTSTR lpClassName, // имя класса
int nMaxCount // размер буфера имени класса
Параметры
hWnd
[вх] Логический номер окна, и, ненапрямую, класс к которому принадлежит окно
lpClassName
[вых] Указатель на буфер, который принимает строку имени класса
nMaxCount
[вх] Указывает длину, в символах, буфера lpClassName. Если строка с именем класса длиннее, она отсекается
Возвращаемые значения
Если функция успешно выполнилась - возвращаемое значение = кол-ву символов в буфере
Если неуспешно - на выходе ноль. Чтобы получить расширенную информацию об ошибке - вызовите GetLastError.
Ответ:
Автор ответа: Марк
2) В моем варианте MSDN такая вот справка (по CeGetClassName)
The CeGetClassName function retrieves the name of the class to which the specified window belongs. This is the RAPI version of the GetClassName function.
Syntax
int CeGetClassName(HWND hWnd, LPTSTR lpClassName, int nMaxCount);
Справку по самой GetClassName не находит, но, скорее всего, параметры те же.
3) Функция Left$(string, length) - вырезает из строки string length левых симолов. Например,
Left$("Строка",2) ==> "Ст"
Знак доллара можно не писать, это рудименты "старого" стиля, раньше так обозначались строковые функции - те, которые возвращали значение строкового типа..
По функции String$() MSDN выдает справку по функции Str(number). Скорее всего, это устаревшая форма функции Str, которая преобразует выражение числового типа в строку.
Ответ:
Автор ответа: Olga Gorelik
Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd as Long, ByVal lpClassName as string, ByVal nMaxCount as Long)
Описание: Функция получает имя класса для заданного окна
hwnd - манипулятор окна, для которого читается имя класса
lpClassName - строка-буфер, в который заносится имя класса. Должен содержать не менее nMaxCount+1 символов
nMaxCount - Long- длина буфера, передаваемого в lpClassName
tBuff$ = String$(256,0)
dl& = GetClassName( hwnd&, tBuff$, 255)
dl& то же что и dim dl as long
tBuff$ то же что и dim tBuff as string
hwnd& = Form1.hWnd (как пример)
Dim MyString
MyString = String(5, "*") ' Returns "*****".
MyString = String(5, 42) ' Returns "*****".
MyString = String(10, "ABC") ' Returns "AAAAAAAAAA".
а можно так:
MyString $= String$(5, "*") ' Returns "*****".
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) ' LeftString contains "VBS".
а можно так:
MyString$ = "VBSCript"
LeftString $= Left$(MyString, 3) ' LeftString contains "VBS".
Вопрос:
Подскажите как сделать оформление в силе ХР под Win2k или в Win9x.
Ответ:
Автор ответа: Артем Кривокрисенко
Можно сказать однозначно: пиши контрол. У меня есть проект (правда, не полностью готовый). Присутствуют такие контролы:
xpProgressBar
xpButton
xpCheckBox
xpOptionButton
Все контролы (в отличие от рессурса, который я опишу далее) практически не отличишь от оригинала. Текст переносится качественно и присутствуют фокусные квадратики. К тому же есть возможность выбора свойства XPStyle (Стандыртная синяя, серебрянная или оливковая). Напиши мне на Artyom_kr@mail.ru и я пришлю тебе этот проект.
На сайте www.vbnet.ru тоже есть подобный проект, там присутствует больше контролов. Но не все выглядят так, как оригиналы.
Ответ:
Автор ответа: Dbedokurov
Говорят что можно скачать какието обновления с сайта Microsoft.com или ru, но точно не знаю.
Вопрос:
Где можно раядобыть описание API-функций для реестра (желательно на русском)? И вообще есть какой-нить русскоязычный сайт посвящённый АПИ-функциям или где они рассматриваются?
Ответ:
Автор ответа: Михаил Кузьминых
Можно посмотреть www.bcbdev.ru.
Ответ:
Автор ответа: Matrix
http://www.bcbdev.ru/winapi.htm
Ответ:
Автор ответа: Артем Кривокрисенко
На сайте www.vbnet.ru есть статья по этому поводу.
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
наверх
|
Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.) Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр... |
||
|
Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.
|
|||
|
Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)
Эта книга является вводным курсом по
изучению языка программирования Visual Basic .NET.
Даны основные принципы объектно-ориентированного
программирования в контексте языка VB .NET,
поскольку без хорошей подготовки в этой
области невозможно в полной мере
пользоваться всеми преимуществами VB .NET. |
||
|
Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.
|
|||
|
VB.NET для разработчиков (цена ~ 125 руб.) Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ... |
||
|
Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.
|
|||
Остальные книги о VB можно найти здесь.
наверх
Citycat by Email
Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.
наверх
Новости сайта VBNet
|
Дата: 12.01.2003 06:14 | Раздел: Примеры кода | Автор: Половый Александр |
|
Пасьянс "Тройка" - Реализация пасьянса "Тройка" на Visual Basic. |
|
Дата: 12.01.2003 06:11 | Раздел: ActiveX контролы | Автор: Alex_L |
|
Registry - DLL для работы с реестром. |
|
Дата: 11.01.2003 06:11 | Раздел: ActiveX контролы | Автор: Alex_L |
|
INI - DLL для работы с INI-файлами. |
|
Дата: 11.01.2003 06:10 | Раздел: ActiveX контролы | Автор: Alex_L |
|
FFile - DLL для работы с файлами и каталогами - создание, копирование, удаление, получение информации и т.д. |
|
Дата: 10.01.2003 17:26 | Раздел: Примеры кода | Автор: sne |
|
Работа с меню средствами WinApi - Пример показывает как во время исполнения программы Добавлять/Изменять/Удалять меню. Пример показывает как можно загрузить меню из ресурса, как это делает C, Delphi и т.д. |
|
Дата: 10.01.2003 06:08 | Раздел: ActiveX контролы | Автор: Лагуна софт Украина |
|
LunaBar 1.0 - Этот контрол представляет собой ProgressBar для Visual Basic в стиле Windows XP. |
|
Дата: 10.01.2003 06:06 | Раздел: Примеры кода | Автор: Шевченко Александр Витальевич |
|
Cube - Пример извлечения кубического корня. |
|
Дата: 09.01.2003 17:24 | Раздел: ActiveX контролы | Автор: Вологин Артём |
|
PictureScroller - Этот контрол позволяет прокручивать большую картинку без скроллбаров. |
|
Дата: 08.01.2003 17:18 | Раздел: Примеры кода | Автор: Перминов Андрей |
|
FolderTreeView - Этот пример исследует два подхода к использованию TreeView как дерева каталогов. |
|
Дата: 07.01.2003 17:18 | Раздел: Примеры кода | Автор: Перминов Андрей |
|
OS_Reporter - Это готовая программа для проверки версий системных библиотек. Однако, она же может считаться примером по использованию вошедшего в нее класса FileVerInfo, предназначенного специально для получения всей необходимой информации о файле. |
|
Дата: 06.01.2003 17:18 | Раздел: Примеры кода | Автор: Перминов Андрей |
|
ScanForFiles - Это модуль для поиска файлов по маске в указанном каталоге и его подкаталогах. Использует API, а не контролы. |
|
Дата: 06.01.2003 10:46 | Раздел: Статьи по VB | Автор: Заостровцев Николай |
|
Подключаем Microsoft Passport - В этой статье рассказывается о процессе подключения службы Microsoft Passport. |
|
Дата: 05.01.2003 17:15 | Раздел: Примеры кода | Автор: Перминов Андрей |
|
Regex - Стандартные модули для работы с реестром могут читать и писать только REG_SZ и REG_DWORD значения, но в действительности их больше и их использование тоже необходимо. Этот пример содержит расширенный модуль для работы с реестром, поддерживающий ключи REG_BINARY, REG_EXPAND_SZ и REG_MULTI_SZ. |
|
Дата: 05.01.2003 10:44 | Раздел: Статьи по VB | Автор: Заостровцев Николай |
|
Microsoft Passport – для чего он нужен? - Статья о службе аутотентификации Microsoft Passport. |
Последние 20 тем форума на VBNet.Ru:
04:08 / 12 янв. Таблицы FoxPro 2.5 | Хитов: 0 | Ответов: 0
02:02 / 12 янв. Screenshot | Хитов: 1 | Ответов: 0
01:58 / 12 янв. Как центрировать курсор на фокусе если фокус в ... | Хитов: 2 | Ответов: 0
01:50 / 12 янв. Как центрировать курсор на фокусе если фокус в ... | Хитов: 1 | Ответов: 0
00:51 / 12 янв. Господа! Я чет не понял! | Хитов: 4 | Ответов: 1
00:26 / 12 янв. Win32 API и Visual Basic для профессионалов | Хитов: 8 | Ответов: 1
21:49 / 11 янв. помогите с формами | Хитов: 19 | Ответов: 4
21:29 / 11 янв. VB Net на Win ME... | Хитов: 14 | Ответов: 2
18:32 / 11 янв. Спецы по ADO помогите! А то я заколебался уже. | Хитов: 16 | Ответов: 1
18:11 / 11 янв. как программно установить в 2000 и ХР винде опц... | Хитов: 11 | Ответов: 0
17:00 / 11 янв. Счётчик! | Хитов: 27 | Ответов: 3
16:57 / 11 янв. Счётчик | Хитов: 4 | Ответов: 0
15:38 / 11 янв. Как прочитать определённую строку из файла??? | Хитов: 13 | Ответов: 2
15:08 / 11 янв. Always on top | Хитов: 22 | Ответов: 3
14:41 / 11 янв. Как спрятать прогу в Трей | Хитов: 33 | Ответов: 4
11:05 / 11 янв. ADO - запрос - срочно | Хитов: 29 | Ответов: 2
10:36 / 11 янв. Продам книгу | Хитов: 40 | Ответов: 7
08:57 / 11 янв. Подскажите, что это значит? | Хитов: 34 | Ответов: 2
05:33 / 11 янв. Нет, я ничего не понимаю??? | Хитов: 25 | Ответов: 2
01:26 / 11 янв. Прога не выгружается с памяти... | Хитов: 25 | Ответов: 3
Последние поступления в Библиотеку кодов:
Новости от VBNet-чиков!:
19:56 / 5 янв. Иван сообщает: "Один из самых опасных компьютерных преступников в истории США" Кевин Митник в ближайшее время снова сможет пользоваться интернетом, сообщает CNN. По итогам длительных судебных разбирательств Митник сумел вернуть себе лицензию для выхода в радиоэфир, а в январе получит доступ и ко всемирной компьютерной сети.
Митник был освобожден в январе 2000 года, однако, согласно условиям надзора, до 20 января 2003 года ему было запрещено пользоваться компьютерами, программным обеспечением, модемами и другими средствами доступа в интернет. Кроме того, власти ограничили свободу передвижения бывшего хакера и лишили его возможности занимать ряд должносй. В 2002 году Митнику было разрешено пользоваться мобильным телефоном и компьютером без доступа в интернет. Недавно бывший хакер заявил о намерении открыть компанию, специализирующуюся на компьютерной безопасности. Он надеется приступить к работе сразу по окончании срока надзора.
наверх
Новости сайта VBMania
наверх
Новости сайта Азбука VB
наверх
Новости сайта MSDN
наверх
Новости сайта GotdotNet
Новые статьи:
наверх
Новости сайта dotSite
Новые статьи:
Новые примеры:
наверх
Доска объявлений
Ищу телеработу.
- Переводы: английский, украинский, русский.
- Cipper программист.
- Assembler программист.
- PIC разработчик
- композитор
- Прогрессивные стили
- 3D анимация
- GIF анимация
наверх
Мои программы
BalloonMessage for MS Agent
BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels.
Авторы: Шатрыкин Иван и Павел Сурменок.
наверх
Вопрос/Ответ
Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.
Вопросы:Автор вопроса: Жорж
Ответ ожидается по этому адресу
На форме разместил: ProgreeBar, Timer, Image, CommandButon. Выставляю Image.Visible=False. Мне надо сделать так, чтобы при Image.Visible= False, ProgressBar двигался со скоростью 3, а при Image.Visible=True со скоростью 10. Я делаю так:
Private Sub Command1_Click()
Image1.Visible = False 'По нажатию кнопки картинка становится не видна
End Sub
Private Sub Timer1_Timer()
Static I As Integer
I = I + 1
If ProgressBar1.Value = 90 Then Timer1.Enabled = False: MsgBox "Стоп"
' Остановка таймера при достижение ProgressBar'ом 90
If I = 5 Then Image1.Visible = True 'Картинка видна
If Image1.Visible = True Then
' Если картинка видна, тогда скорость больше
ProgressBar1.Value = ProgressBar1.Value + 10
Else
' Иначи (если картинка не видна), скорость меньше
ProgressBar1.Value = ProgressBar1.Value + 3
End If
End Sub
Все работает в том случае, если я нажму кнопку (т.е востановлю скорость 3 ), а если оставлю на скорости 10, тогда, когда дайдет ProgressBar до конца, выдаст ошибку: '380' Invalid property value. Что это значит, и как это исправить?
Автор вопроса: Михей
Ответ ожидается по этому адресу
В моей программе 2-я форма становится видимой в определенные моменты времени. Подскажите, как сделать так, чтобы она выводилась поверх всех открытых окон.
Автор вопроса: Корик
Ответ ожидается по этому адресу
Есть сайт заказов на ASP. Полученный заказ отправляется на мэйл.
Вопрос: можно ли полученый заказ отправить на факс или распечатать мэйл автоматом при его получении?
Автор вопроса: Костик
Ответ ожидается по этому адресу
Можно ли запустить мою программу после того как польяователь нажал на кнопку Выключения компьютера или его переяагруяки черея меню Пуск?
Примечание: желательно, чтобы код(коды) были под Win98/Me и(или) WinXP.
Автор вопроса: DeDMoRoZ
Ответ ожидается по этому адресу
Я написал программу на VB. Теперь хотелось бы её протестировать. Пожалуйста помогите. У кого есть модем с АОН (Авто Определение Номера). Напишите мне. Я вышлю вам прогу и вы её протестируйте. Просто мой модем не имеет АОН.
Автор вопроса: Sergey
Ответ ожидается по этому адресу
Подскажите пожалуйста, есть ли такая утилита которая позволяет код Паскаля или Delfi перекодировать в код VB и если есть, то где взять?
Автор вопроса: Сергей
Ответ ожидается по этому адресу
Был вопрос:
Как програмно изменять свойства звукового файла (*.WAV), такие как качество звука, частота, количество каналов (стерео - моно) и прочее.
Получен ответ:
Автор ответа: Dr.Max
vbstreets.da.ru В разделе "Статьи на английском "
Я взял код с
Автор вопроса: Ревягин_Алексей
Ответ ожидается по этому адресу
У меня два вопроса:
1) возможно ли сделать так, чтобы программа меняла свой код сама (переделывала бы себя сама по ходу своей работы)
2) создал я новое меню(динамически), а как им пользоваться (как писать функции которые будут выполнятся при нажатии на созданное меню) где указывается имя динамически-созданного меню или как его и его методы и свойства ещё использовать
Код создания меню:
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu _
As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As _
Any) As Long
Const MF_STRING = &H0&
Dim hMenu As Long
Private Sub Form_Load()
'Создаём пустое всплывающие меню
hMenu = CreatePopupMenu()
'Добавляем несколько пунктов в меню
AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"
AppendMenu hMenu, MF_STRING, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_STRING, ByVal 0&, "TrackPopupMenu"
End Sub
пробовал создавать как контрол, но и это не выходит (пишет, что класса VB.Menu нет)
В чём тут дело ?
Автор вопроса: Ревягин_Алексей
Ответ ожидается по этому адресу
как в ресурсы запихнуть готовые диалоги(формы), а потом юзать их оттуда (как MustDie делает с SHELL32.DLL).
К примеру я создам одну DLL'ку а потом буду юзать картинки, диалоги оттуда другими программами.
Автор вопроса: Shadow
Ответ ожидается по этому адресу
Подскажите функции для прямой работы с памятью в VB? Я пытаюсь сделать трейнер к игрухе, адреса памяти извесны.
Пытался считывать их содержимое GetMem(1,2,4,8) - на GetMem1 выдаётся какая-то белиберда, а на остальных бейсик обрухивается.
CopyMemory тоже какуюто фигню выдаёт.
Можт я чего неправильно делаю?
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Private Sub Form_Load()
Dim a As Long
CopyMemory a, ByVal &H6FA210, 4&
MsgBox Str(a)
End Sub
Автор вопроса: Тютюнников ИМ
Ответ ожидается по этому адресу
КТо знает, как программно установить в 2000 и ХР винде опции "regional setting", а именно - как установить на закладке "Дополнительно" язык для программ не поддерживающих ЮНИКОД. Желательно сэмплик на Васике.
Автор вопроса: MixeR
Ответ ожидается по этому адресу
Проблема установки MSDN
Приустановке на 97-98% выдаётся ошибка.
Close Collection g_Cool collection.Open(collection name)dwError=7
Специалисты помогите разобраться.
Автор вопроса: ILYA
Ответ ожидается по этому адресу
У меня 3 проблемы:
1. Я пишу одну прогу, в которой должен быть кулбар (CoolBar), на одной панели которого должен быть элемент TabStrip, а на другой обыкновенный тулбар (ToolBar) с кнопками Соядать, Открыть, Копировать и т.д. Прошу объяснить, как на этот кулбар добавлять всякие элементы управления.
2. Эта проблема частично свяяана с первой. Дело в том, что я не могу листать вкладки TabStrip'а в процессе его соядания и придания ему нужной формы. Помогите, пожалуйста, это сделать.
3. Я соядал свой ресурс-файл для этой ялополучной программы, но дело в том, что я не умею с ним обращаться, то есть яагруяить ия него ту же иконку для формы или картинку иянего поместить в ImageBox, подскажите, как это делается.
Ответы:
Вопрос:
Люди кто знает как определить серийный номера жесткого диска? Именно ЖД, о не логического диска С, D и т.д., т.к. после форматирования номера логических дисков изменяются.Очень срочно
Ответ:
Автор ответа: Sergey
Для этого есть специальная API ф-ция DeviceIoControl, которая отправляет команды напрямую драйверу физического устройства(в том числе и жесткому диску). Сам я когда-то тоже копал в этом направлении но без особых успехов.
Сначала нужно получить дескриптор устройства(это код для 2K/XP):
hFile = CreateFile("\\.\PHYSICALDRIVE0", _
0&, _
FILE_SHARE_READ Or FILE_SHARE_WRITE, _
ByVal 0&, _
OPEN_EXISTING, _
0&, 0&)
А затем отправляешь ему нужную команду. Я пытался через
IOCTL_CHANGER_GET_PRODUCT_DATA
Private Const VENDOR_ID_LENGTH As Long = 8
Private Const PRODUCT_ID_LENGTH As Long = 16
Private Const REVISION_LENGTH As Long = 4
Private Const SERIAL_NUMBER_LENGTH As Long = 32
Private Type CHANGER_PRODUCT_DATA
VendorId(VENDOR_ID_LENGTH) As Byte
ProductId(PRODUCT_ID_LENGTH) As Byte
Revision(REVISION_LENGTH) As Byte
SerialNumber(SERIAL_NUMBER_LENGTH) As Byte
DeviceType As Byte
End Type
Dim udtProductData As CHANGER_PRODUCT_DATA
lResult = DeviceIoControl(hFile, _
IOCTL_CHANGER_GET_PRODUCT_DATA, _
ByVal 0&, _
0&, _
udtProductData, _
Len(udtProductData), _
bytesReturned, _
ByVal 0&)
Вопрос:
А возможно ли закрыть из VB окно сеанса ДОС?
Ответ:
Автор ответа: RaZoom
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Sub btnClose_Click()
SendMessage FindWindow("ConsoleWindowClass", vbNullString), WM_CLOSE, 0, 0
End Sub
Ответ:
Автор ответа: biv
Было где-то на сайте http://www.nsa.newmail.ru/
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Const MAX_FILENAME_LEN = 256
Function DriveSerial(ByVal sDrv As String) As Long
Dim RetVal As Long
Dim str As String * MAX_FILENAME_LEN
Dim str2 As String * MAX_FILENAME_LEN
Dim a As Long
Dim b As Long
Call GetVolumeInformation(sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN)
DriveSerial = RetVal
End Function
Вопрос:
1) где взять MSDN на русском или хотя бы описание любых API-функций (на
русском)
2) Если на первый вопрос ответа нет, то помогите разобраться с функцией GetClassName(1,2,3). Первое яначение я знаю чё значит, а второе и третье
нет. Помогите пожайлуста.
3) Чё означает встроенная VB функция String$() и Left$()
Ответ:
Автор ответа: RaZoom
1. http://nikolayam.narod.ru/api_help.zip
2. 1 - хэндл окна
2 - буфер
3 - количество копируемых символов
3. Left$ (strMyString,10) - вернет первые 10 символов строки strMyString
String$("A",10) - вернет строку из 10 символов "A", можно использовать для создания буферов для команд API, которые возвращают текстовые строки.
Ответ:
Автор ответа: Артем Кривокрисенко
1) Есть на www.subscribe.ru рассылка Win32 API на русском. У нее даже свой сайт есть (не помню урл). Я планирую переводить Win32API на русский. А вообще, как говорил очень известный человек, программистом можешь ты не быть, но знать английский ты обязан! (кстати, следующее описание я перевел из MSDN за 5 мин)
2) Функция GetClassName возвращает имя класса, к которому принадлежит определенное окно.
int GetClassName(
HWND hWnd, // Индентификатор окна
LPTSTR lpClassName, // Имя класса
int nMaxCount // Размер строки с именем класса
);
Параметры
hWnd
[Ввод] Индентификатор окна, у которого нужно узнать, к какому классу оно принадлежит
lpClassName
[Вывод] Строковая переменная, в которую поместится имя класса
nMaxCount
[Ввод] Определяет длину переменной. Если длина имени класса больше этого значения, имя класса обрезается
Возвращаемые зеачения:
Если функция выполняется успешно, возвращаемое значение является длинной имени класса
Если произошла ошибка, функция возвращает 0. Для расширенной информации вызывай функцию GetLastError.
3) Функция Left позволяет получить несколько левых символов:
strFirst="Hello, world!!!"
strSecond=left(strFirst,5)
'Сейчас StrSecond="Hello"
Функция String позволяет заполнить строковую переменную набором символов:
strText=string(10,"A")
'Теперь strText="AAAAAAAAAA"
Ответ:
Автор ответа: Anton B. Lozovski
Перевод мой
GetClassName
The GetClassName function retrieves the name of the class to which the specified window belongs.
Функция GetClassName возвращает имя класса, к которому указанное окно принадлежит.
int GetClassName(
HWND hWnd, // логический номер окна
LPTSTR lpClassName, // имя класса
int nMaxCount // размер буфера имени класса
Параметры
hWnd
[вх] Логический номер окна, и, ненапрямую, класс к которому принадлежит окно
lpClassName
[вых] Указатель на буфер, который принимает строку имени класса
nMaxCount
[вх] Указывает длину, в символах, буфера lpClassName. Если строка с именем класса длиннее, она отсекается
Возвращаемые значения
Если функция успешно выполнилась - возвращаемое значение = кол-ву символов в буфере
Если неуспешно - на выходе ноль. Чтобы получить расширенную информацию об ошибке - вызовите GetLastError.
Ответ:
Автор ответа: Марк
2) В моем варианте MSDN такая вот справка (по CeGetClassName)
The CeGetClassName function retrieves the name of the class to which the specified window belongs. This is the RAPI version of the GetClassName function.
Syntax
int CeGetClassName(HWND hWnd, LPTSTR lpClassName, int nMaxCount);
Справку по самой GetClassName не находит, но, скорее всего, параметры те же.
3) Функция Left$(string, length) - вырезает из строки string length левых симолов. Например,
Left$("Строка",2) ==> "Ст"
Знак доллара можно не писать, это рудименты "старого" стиля, раньше так обозначались строковые функции - те, которые возвращали значение строкового типа..
По функции String$() MSDN выдает справку по функции Str(number). Скорее всего, это устаревшая форма функции Str, которая преобразует выражение числового типа в строку.
Ответ:
Автор ответа: Olga Gorelik
Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd as Long, ByVal lpClassName as string, ByVal nMaxCount as Long)
Описание: Функция получает имя класса для заданного окна
hwnd - манипулятор окна, для которого читается имя класса
lpClassName - строка-буфер, в который заносится имя класса. Должен содержать не менее nMaxCount+1 символов
nMaxCount - Long- длина буфера, передаваемого в lpClassName
tBuff$ = String$(256,0)
dl& = GetClassName( hwnd&, tBuff$, 255)
dl& то же что и dim dl as long
tBuff$ то же что и dim tBuff as string
hwnd& = Form1.hWnd (как пример)
Dim MyString
MyString = String(5, "*") ' Returns "*****".
MyString = String(5, 42) ' Returns "*****".
MyString = String(10, "ABC") ' Returns "AAAAAAAAAA".
а можно так:
MyString $= String$(5, "*") ' Returns "*****".
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) ' LeftString contains "VBS".
а можно так:
MyString$ = "VBSCript"
LeftString $= Left$(MyString, 3) ' LeftString contains "VBS".
Вопрос:
Подскажите как сделать оформление в силе ХР под Win2k или в Win9x.
Ответ:
Автор ответа: Артем Кривокрисенко
Можно сказать однозначно: пиши контрол. У меня есть проект (правда, не полностью готовый). Присутствуют такие контролы:
xpProgressBar
xpButton
xpCheckBox
xpOptionButton
Все контролы (в отличие от рессурса, который я опишу далее) практически не отличишь от оригинала. Текст переносится качественно и присутствуют фокусные квадратики. К тому же есть возможность выбора свойства XPStyle (Стандыртная синяя, серебрянная или оливковая). Напиши мне на Artyom_kr@mail.ru и я пришлю тебе этот проект.
На сайте www.vbnet.ru тоже есть подобный проект, там присутствует больше контролов. Но не все выглядят так, как оригиналы.
Ответ:
Автор ответа: Dbedokurov
Говорят что можно скачать какието обновления с сайта Microsoft.com или ru, но точно не знаю.
Вопрос:
Где можно раядобыть описание API-функций для реестра (желательно на русском)? И вообще есть какой-нить русскоязычный сайт посвящённый АПИ-функциям или где они рассматриваются?
Ответ:
Автор ответа: Михаил Кузьминых
Можно посмотреть www.bcbdev.ru.
Ответ:
Автор ответа: Matrix
http://www.bcbdev.ru/winapi.htm
Ответ:
Автор ответа: Артем Кривокрисенко
На сайте www.vbnet.ru есть статья по этому поводу.
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.