| ← Январь 2003 → | ||||||
|
1
|
2
|
4
|
5
|
|||
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
11
|
12
|
||
|
14
|
15
|
16
|
18
|
19
|
||
|
21
|
22
|
23
|
25
|
26
|
||
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Статистика
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 128.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 128.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Всё, праздники закончились... Несколько понедельников подряд я вас поздравлял с Новым годом, Рождеством, Старым Новым годом... Теперь поздравляю с вытрезвлением :-)))))
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 05:12 / 19 янв. как выдернуть инфу отсюда- | Хитов: 1 | Ответов: 0 01:24 / 19 янв. API для Pwr Managment | Хитов: 2 | Ответов: 0 01:17 / 19 янв. Помогите разобраться с Gif анимацией | Хитов: 1 | Ответов: 0 01:03 / 19 янв. Контрол как в Outlook Express | Хитов: 0 | Ответов: 0 23:33 / 18 янв. Пароль ;) | Хитов: 8 | Ответов: 0 22:45 / 18 янв. Opera 7.0 | Хитов: 6 | Ответов: 1 22:39 / 18 янв. Kernel32 | Хитов: 11 | Ответов: 1 21:55 / 18 янв. Нужен контрол такой же, как DTPicker | Хитов: 5 | Ответов: 1 21:29 / 18 янв. Помогите плз!!!!!!!! | Хитов: 9 | Ответов: 0 21:26 / 18 янв. и ещё один вопрос | Хитов: 11 | Ответов: 1 21:20 / 18 янв. програмирование под DirectX! Help! | Хитов: 5 | Ответов: 1 20:40 / 18 янв. Как с помощью Adodc1 выполнить Execute | Хитов: 2 | Ответов: 0 18:30 / 18 янв. Выбор языка | Хитов: 14 | Ответов: 2 17:43 / 18 янв. подскажите как заполнить TreeView | Хитов: 13 | Ответов: 1 12:53 / 18 янв. передача файлов через интернет | Хитов: 13 | Ответов: 1 10:34 / 18 янв. монированные диски в ХР | Хитов: 9 | Ответов: 0 00:27 / 18 янв. Версия ACCESS или ядра Jet | Хитов: 12 | Ответов: 0 23:25 / 17 янв. Нужные библиотеки | Хитов: 32 | Ответов: 4 22:43 / 17 янв. Всем! WWW-ссылки | Хитов: 30 | Ответов: 0 21:54 / 17 янв. Новое сообщение без темы | Хитов: 8 | Ответов: 0 Последние поступления в Библиотеку кодов: Автоматическое упорядочивание элементов... (87) Drag&Drop - контролы (78) Новости от VBNet-чиков!: 11:59 / 17 янв. User Unknown сообщает: Билл Гейтс покажет правительственным структурам программный код Windows Компания Microsoft в среду предоставит правительственным структурам программный код операционной системы Windows Как сообщает Lenta.Ru со ссылкой на Financial Times, решение о раскрытии своего программного кода руководители Microsoft объясняют желанием убедить правительственные структуры пользоваться системой Windows. Код системы уже поступил в распоряжение НАТО и правительства России. Решение Microsoft можно назвать сюрпризом. В прошлом году Билл Гейтс охарактеризовал программный код Windows как самую ценную интеллектуальную собственность своей корпорации. В ходе судебного разбирательства, связанного с обвинениями Microsoft в нарушении антимонопольного законодательства, Гейтс отвергал все требования конкурентов о рассекречивании программного кода. Передачу кода правительственным структурам следует расценивать как стремление Microsoft занять прочные позиции на рынке программного обеспечения для государственных организаций. По словам представителя отдела стратегии продвижения продукта Micrososft Крэга Муни, правительства занимают второе место на общем потребительском рынке в данной сфере. Мунди уверен, что правительственные организации не рассекретят вверенную им интеллектуальную тайну. В значительной степени шаг Microsoft продиктован увеличением среди правительственных структур пользователей операционной системы Linux с открытым программным кодом. Билл Гейтс и его коллеги надеются, что сумеют убедить потребителей из госструктур в надежности и безопасности Windows. В ближайшее время Microsoft передаст программные коды к ОС Windows XP и Windows 2000. Через некоторый период будут раскрыты коды к новой системе для серверов и Windows CE, используемой в мобильных компьютерах. Представители правительственных структур сумеют также посетить офис компании и ознакомиться с небольшим количеством кодов к другим программным продуктам. Соглашения о передаче кода подписаны уже с 10 правительственными структурами. Еще с 20 организациями и ведомствами Microsoft ведет переговоры. (источник:http://www.federalpost.ru/) 14:05 / 14 янв. Gella сообщает: Впервые в России! Полный трек MCAD по Visual Basic .NET + подарок первым слушателям! Центр Компьютерного Обучения "Специалист" при МГТУ им. Н.Э.Баумана при информационной поддержке профессионального журнала "Программист" представляет новейшую программу сертификации Microsoft для разработчиков - Microsoft Certified Application Developer (MCAD). 27 января 2003 г. в Центре стартует первый в России трек подготовки MCAD по Visual Basic .NET. Новая программа сертификации Microsoft Certified Application Developer (MCAD) предназначена для специалистов, использующих Microsoft Visual Studio .NET и .NET Framework для разработки, внедрения и поддержки приложений на уровне предприятия, отдельных компонент, клиентов для рабочих станций и Web, сервисов для хранилищ данных. Чтобы получить статус Microsoft Certified Application Developer, необходимо выбрать один из языков программирования - Visual Basic .NET или Visual C#, изучить 7 курсов и сдать 3 экзамена. Особенности новой сертификации - отсутствие экзамена по архитектуре, который необходим для практической работы только руководителей проектов и обязателен для сертификации Microsoft Certified Solutions Developer (MCSD) - до сегодняшнего дня единственной сертификационной программы для разработчиков Microsoft. Специальный подарок для первых слушателей! Первые слушатели курсов программы MCAD получают в подарок от информационного спонсора свежий номер журнала "Программист"! Также, все курсы программы MCAD уже сейчас можно пройти не выходя из дома - дистанционно! Подробнее: http://www.specialist.ru/news/news.asp?newsid=150 наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet
Новые статьи:
наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: rafa Ответ ожидается по этому адресу Как можно использовать разряды числа LONG для хранения логичеких значений. Нужно для баз данных - 32 бита поля LONG это же 32 логических поля BOOLEAN! Зачем заводить отдельные поля? Желательно все это оформить в три функции проверить бит, сбросить бит, поднять бит. (флаг). У самого пока есть только идея, реализовать не могу. Автор вопроса: Артур Ответ ожидается по этому адресу Некоторые программы (например, офис, или архиваторы) в окно "свойства" своих файлов (то, что открывается из контекстного меню проводника) добавляют собственные вкладки. Как это сделать для своих файлов? Автор вопроса: Артур Ответ ожидается по этому адресу Суть в следующем. Я с помощью апи SetParent делаю контрол дочерним окном рабочего стола. После этого мой контрол, естественно, повисает на экране отдельно от моей формы, чего я, в общем-то, и добиваюсь. Но при этом он отмечается собственной кнопкой на Taskbar-e. Как этого избежать? Ведь у контрола просто нет свойства ShowInTaskbar. Если сформулировать по-другому: как добиться, чтобы окно не отображалось на Taskbar, если нет возможности изменить свойство ShowInTaskbar? Автор вопроса: Игорь Ответ ожидается по этому адресу Помогите узнать, сколько байтов прошло через сетевую карту. Говорят, что можно без Winsocka с помощью API-функции, но я не нашел. Автор вопроса: Mind Engine/team PowerAmiga Ответ ожидается по этому адресу На днях поковырялся с ocx MSMAPI 6.0, все пыхтит ок (хотя и тормознуто, клиент The Bat!) но возник затык с задачей по сохранению аттачa во внешний файл, ну скока не ковырялся, не просек метода, который бы дал че хочу! =( Просветите кто могет, или пинка к более продвинутому контролу по сабжу дайте! :) Автор вопроса: Pistol Ответ ожидается по этому адресу На форме имеется Frame с controls(text boxes, buttons и labels). Как сделать так, что бы на Form_Resize не только растягивался фрэйм, но и контролы все изменяли свое местоположение в нем, и не меняли свой размер и порядок, а только расстояние между друг другом ? Автор вопроса: Шакиров Виталий Ответ ожидается по этому адресу Пишу программу основанную на технологии клиент-сервер, но в наличии нет полной документации по winsock, если у кого нибудь она есть то я буду Вам очень благодарен если Вы вышлете ее мне: email - ntfs@netmail.kg Автор вопроса: Oxygen Ответ ожидается по этому адресу Есть две проги. отношения они друг к другу не имеют. Как можно передать значение какой-либо переменной из одной в другую. Пользоваться левыми файлами и буфером обмена не пользоваться. Автор вопроса: lom Ответ ожидается по этому адресу Не подскажите где можно найти описание всех свойств и методов контрола MediaPlayer Автор вопроса: goodroman Ответ ожидается по этому адресу Я хочу создать в реестре значение типа DWORD равное = 1, а оно мне создаёт 31(в шестнадцатеричной) и 49 (в десятичной). Привожу код. Подскажите пожайлуста где ошибка? Private Sub PiZdA_Click() Dim hREn As Long, IDenT As Long, znak As String hREn = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", 0, KEY_ALL_ACCESS, IDenT) znak = 1 Print znak Call RegSetValueEx(IDenT, "NoDesktop", 0, REG_DWORD, ByVal znak, 4) End Sub Автор вопроса: Саша Ответ ожидается по этому адресу Как с помощью Sock пердать с одного компьютера что-нибуть на другой ? Т.е. мне мужно что-бы один Sock отсылал данные другой принимал. Связь локальная Автор вопроса: Zoomer Ответ ожидается по этому адресу Можно ли программно отключить монитор, мышь и клавиатуру? Автор вопроса: Vir Ответ ожидается по этому адресу Привет всем! Пока могу с вами говорить. Пришло мне по почте письмо 15 января, наверное с вирусом. Может я и не единственный. Писмо имеет "Тему: Fw: Redirection error notification"; "От: Vvi@izhstal.ru.COPYMAIL" и вложение с названием SiamoDiTe.exe Если письмо открыть блокнотом то между тегами есть скрипт iframe id="Sample" style="display:none" и setTimeout('f2();',5000); function f2() { Sample.document.write(''); } Если кто знает, что это за функции и что это за вирус напишите. Автор вопроса: Владимир Ответ ожидается по этому адресу Подскажите,пожалуйста, как проверить состояние "горячей клавиши", сменить присвоенное ей действие или назначить новое? Ответы: Вопрос: Есть сайт заказов на ASP. Полученный заказ отправляется на мэйл. Вопрос: можно ли полученый заказ отправить на факс или распечатать мэйл автоматом при его получении? Ответ: Автор ответа: P@Ssword Если юзать M$ OutGluk, то просто создаёшь правило проверки входящей почты: при получении через учётную запись <имя> распечатать. С другими почтовыми программами - аналогично. Вопрос: У меня два вопроса: 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 нет) В чём тут дело ? Ответ: Автор ответа: RaZoom Если ты создаешь меню средствами WinAPI, то и работать с ним придется через API, а именно вот так: 'Код модуля Public Declare Function CreatePopupMenu Lib "user32" () As Long Public 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 Public Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hWnd As Long, lprc As RECT) As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Const MF_STRING = &H0& Public Const WM_COMMAND = &H111 Public Const GWL_WNDPROC = (-4) Public hMenu& Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Type POINTAPI x As Long y As Long End Type Global proc& Public Function PopupProc&(ByVal lngHwd&, ByVal lngMsg&, ByVal lngWparam&, ByVal lngLparam&) If lngMsg = WM_COMMAND Then Select Case lngWparam Case -101 MsgBox "Привет!", vbExclamation Case -103 MsgBox "Еще раз привет!", vbExclamation Case Else End Select End If PopupProc = CallWindowProc(proc, lngHwd, lngMsg, lngWparam, lngLparam) End Function 'Код формы Private Sub Form_Load() hMenu = CreatePopupMenu() AppendMenu hMenu, MF_STRING, ByVal -101&, "Hello !" AppendMenu hMenu, MF_STRING, ByVal -102&, ByVal 0& AppendMenu hMenu, MF_STRING, ByVal -103&, "TrackPopupMenu" proc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf PopupProc) End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then Dim rc As RECT, pos As POINTAPI GetCursorPos pos With rc .Left = 0 .Top = 0 .Right = 0 .Bottom = 0 End With TrackPopupMenu hMenu, 0, pos.x, pos.y, 0, Form1.hWnd, rc End If End Sub Особое внимание: wIDNewItem в каждой строке AppendMenu должен иметь _уникальное значение_ за исключением случая, когда разные пункты меню должны выполнять одни и те же действия. Вопрос: как в ресурсы запихнуть готовые диалоги(формы), а потом юзать их оттуда (как MustDie делает с SHELL32.DLL). К примеру я создам одну DLL'ку а потом буду юзать картинки, диалоги оттуда другими программами. Ответ: Автор ответа: P@Ssword IMHO, shell32.dll не позволяет напрямую брать у неё диалоги, а делается это с помощью WinAPI. А что диалоги у неё в ресурсах - так это причуды C++ и к делу отношения не имеют. А чтобы сделать подобное на VisualBASIC, просто создаёшь ActiveX.DLL, туда кидаешь формочки и модуль класса, а в классе пишешь нечто вроде Public Sub ShowMySuperPuperParatruperDialogue (ZZZagolovok As String) Dim frm As Form1 Set frm = New Form1 frm.Show End Sub Public Function Cool (Flags As Long) As String Dim frm As Form2 Set frm = New Form2 frm.Show vbModal Cool = frm.Caption Unload frm End Function В последнем случае при закрытии формы её надо не выгружать, а ПРЯТАТЬ (Me.Hide). Вопрос: Каким образом можно узнать информацию о файле, точнее *.avi, нужно длительность, размеры, и т.п. Ответ: Автор ответа: Владимир Кирко Чуть модифицированный пример из API Guide 3.7 ------------------------------------------------------ Private Const OF_SHARE_DENY_WRITE As Long = &H20 Private Type AVIFileInfo dwMaxBytesPerSec As Long dwFlags As Long dwCaps As Long dwStreams As Long dwSuggestedBufferSize As Long dwWidth As Long dwHeight As Long dwScale As Long dwRate As Long dwLength As Long dwEditCount As Long szFileType As String * 64 End Type Private Declare Function AVIFileOpen Lib "avifil32" Alias "AVIFileOpenA" (ppfile As Long, ByVal szFile As String, ByVal mode As Long, pclsidHandler As Any) As Long Private Declare Function AVIFileRelease Lib "avifil32" (ByVal pfile As Long) As Long Private Declare Function AVIFileInfo Lib "avifil32" Alias "AVIFileInfoA" (ByVal pfile As Long, pfi As AVIFileInfo, ByVal lSize As Long) As Long Private Declare Sub AVIFileInit Lib "avifil32" () Private Declare Sub AVIFileExit Lib "avifil32" () Private Sub Form_Load() 'KPD-Team 2001 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim hFile As Long, AviInfo As AVIFileInfo 'initialize the AVIFile library AVIFileInit 'create a handle to the AVI file If AVIFileOpen(hFile, "C:\WINNT\clock.avi", OF_SHARE_DENY_WRITE, ByVal 0&) = 0 Then 'retrieve the AVI information If AVIFileInfo(hFile, AviInfo, Len(AviInfo)) = 0 Then MsgBox "AVI dimensions: " + CStr(AviInfo.dwLength) + " sec, " + CStr(AviInfo.dwWidth) + "x" + CStr(AviInfo.dwHeight) Else MsgBox "Error while retrieving AVI information... :(" End If 'release the file handle AVIFileRelease hFile Else MsgBox "Error while opening the AVI file... :(" End If 'exit the AVIFile library and decrement the reference count for the library AVIFileExit End Sub Ответ: Автор ответа: Loki В этом тебе поможет FSO! Ответ: Автор ответа: Иван 2. Дело в том, что Win2000 не поддерживает такую функцию вообще и на сколько мне известно, в Win2000 и в WinXP не возможно убрать свою программу с диспетчера задач. Вопрос: Помогите решить задачу по получению данных с удаленных веб-сайтов. На сколько я понял стандартное решение это Microsoft Internet Controls (SHDOCVW.DLL), открываем Explorer: Set IE = New InternetExplorer... это все понятно, а как получить данные от Explorer открытого не программой или от нескольких открытых страниц, есть ли функция возвращающая количество IE и переключения между ними или подскажите другие методы. Ответ: Автор ответа: Владимир Кирко Попробуйте посмотреть статью http://www.infocity.kiev.ua/prog/c/content/c033.phtml?id=1438 Там, правда, не всё просто, но, вроде бы, есть исходники. Вопрос: Как в центре MDI формы написать какой-то текст? Ответ: Автор ответа: xMaxtor Создай просто форму со свойством Borderstyle="0" и на ней поставь Label и напиши что тебе нужно, а форму можно постаить хоть по ценру хоть сбоку, по другому просто не как. Ответ: Автор ответа: Артем Кривокрисенко Попробуй использовать функцию TextOut или DrawText. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
