Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 162.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 162.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора: Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 11:11 / 19 май. Заглавия колонок в MSHFlexGrid! Help! | Хитов: 1 | Ответов: 0 10:51 / 19 май. Стандартное окно выбора папки | Хитов: 2 | Ответов: 0 10:22 / 19 май. Люди, маленький Help. | Хитов: 2 | Ответов: 0 03:33 / 19 май. FindNextPrinterNoticefication | Хитов: 14 | Ответов: 2 22:40 / 18 май. process ID | Хитов: 17 | Ответов: 2 18:04 / 18 май. Как залочить NT4? | Хитов: 8 | Ответов: 0 15:28 / 18 май. Регулировка звука | Хитов: 21 | Ответов: 1 14:03 / 18 май. База форума | Хитов: 29 | Ответов: 2 12:24 / 18 май. Спасите!!! | Хитов: 40 | Ответов: 2 09:45 / 18 май. WM_ где узнать | Хитов: 30 | Ответов: 2 02:31 / 18 май. HTML | Хитов: 22 | Ответов: 2 01:38 / 18 май. Функция Command в VB.NET? | Хитов: 15 | Ответов: 1 00:12 / 18 май. Docking | Хитов: 15 | Ответов: 1 00:09 / 18 май. Нажатие на кнопку в неизвестном приложении | Хитов: 29 | Ответов: 4 19:24 / 16 май. Новое сообщение без темы | Хитов: 13 | Ответов: 2 19:12 / 16 май. вопрос по variables | Хитов: 26 | Ответов: 2 18:15 / 16 май. OpenProcess и Shell | Хитов: 20 | Ответов: 0 16:40 / 16 май. Запуск файла!!! Shell не работает! | Хитов: 38 | Ответов: 6 15:52 / 16 май. Как отследить нажатие клавиш LSHIFT и RSHIFT по... | Хитов: 13 | Ответов: 0 15:48 / 16 май. Как отследить нажатие клавиш LSHIFT и RSHIFT по... | Хитов: 19 | Ответов: 1 Последние поступления в Библиотеку кодов: Получение размера диска больше 2Gb (40) Создадим письмо с вложением и поместим ... (70) Из арабских в римские и обратно (39) Исправление бага ЭУ SSTab (54) Обеспечение корректной выгрузки формы (89) Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet
Новые статьи:
наверх Новости сайта dotSite Новые статьи:
Новые примеры: наверх Один момент из жизни форума: WM_ где узнать? Вопрос: Автор вопроса: Crash Кто подскажет, где узнать значения WM_ сообщений? Знаю только WM_CLOSE=&H18 Ответы: Автор: &&&&M Вот держи! WM_USER equ 400h WM_NULL equ 0h WM_CREATE equ 1h WM_DESTROY equ 2h WM_MOVE equ 3h WM_SIZE equ 5h WM_ACTIVATE equ 6h WM_SETFOCUS equ 7h WM_KILLFOCUS equ 08h WM_ENABLE equ 0Ah WM_SETREDRAW equ 0Bh WM_SETTEXT equ 0Ch WM_GETTEXT equ 0Dh WM_GETTEXTLENGTH equ 0Eh WM_PAINT equ 0Fh WM_CLOSE equ 10h WM_QUERYENDSESSION equ 11h WM_QUIT equ 12h WM_QUERYOPEN equ 13h WM_ERASEBKGND equ 14h WM_SYSCOLORCHANGE equ 15h WM_ENDSESSION equ 16h WM_SHOWWINDOW equ 18h WM_WININICHANGE equ 1Ah WM_SETTINGCHANGE equ WM_WININICHANGE WM_DEVMODECHANGE equ 1Bh WM_ACTIVATEAPP equ 1Ch WM_FONTCHANGE equ 1Dh WM_TIMECHANGE equ 1Eh WM_CANCELMODE equ 1Fh WM_SETCURSOR equ 20h WM_MOUSEACTIVATE equ 21h WM_CHILDACTIVATE equ 22h WM_QUEUESYNC equ 23h WM_GETMINMAXINFO equ 24h WM_PAINTICON equ 26h WM_ICONERASEBKGND equ 27h WM_NEXTDLGCTL equ 28h WM_SPOOLERSTATUS equ 2Ah WM_DRAWITEM equ 2Bh WM_MEASUREITEM equ 2Ch WM_DELETEITEM equ 2Dh WM_VKEYTOITEM equ 2Eh WM_CHARTOITEM equ 2Fh WM_SETFONT equ 30h WM_GETFONT equ 31h WM_SETHOTKEY equ 32h WM_GETHOTKEY equ 33h WM_QUERYDRAGICON equ 37h WM_COMPAREITEM equ 39h WM_GETOBJECT equ 3Dh WM_COMPACTING equ 41h WM_OTHERWINDOWCREATED equ 42h WM_OTHERWINDOWDESTROYED equ 43h WM_COMMNOTIFY equ 44h WM_COPYDATA equ 4Ah WM_CANCELJOURNAL equ 4Bh WM_NOTIFY equ 4Eh WM_INPUTLANGCHANGEREQUEST equ 50h WM_INPUTLANGCHANGE equ 51h WM_TCARD equ 52h WM_HELP equ 53h WM_USERCHANGED equ 54h WM_NOTIFYFORMAT equ 55h WM_CONTEXTMENU equ 7Bh WM_STYLECHANGING equ 7Ch WM_STYLECHANGED equ 7Dh WM_DISPLAYCHANGE equ 7Eh WM_GETICON equ 7Fh WM_SETICON equ 80h WM_NCCREATE equ 81h WM_NCDESTROY equ 82h WM_NCCALCSIZE equ 83h WM_NCHITTEST equ 84h WM_NCPAINT equ 85h WM_NCACTIVATE equ 86h WM_GETDLGCODE equ 87h WM_SYNCPAINT equ 88h WM_NCMOUSEMOVE equ 0A0h WM_NCLBUTTONDOWN equ 0A1h WM_NCLBUTTONUP equ 0A2h WM_NCLBUTTONDBLCLK equ 0A3h WM_NCRBUTTONDOWN equ 0A4h WM_NCRBUTTONUP equ 0A5h WM_NCRBUTTONDBLCLK equ 0A6h WM_NCMBUTTONDOWN equ 0A7h WM_NCMBUTTONUP equ 0A8h WM_NCMBUTTONDBLCLK equ 0A9h WM_KEYFIRST equ 100h WM_KEYDOWN equ 100h WM_KEYUP equ 101h WM_CHAR equ 102h WM_DEADCHAR equ 103h WM_SYSKEYDOWN equ 104h WM_SYSKEYUP equ 105h WM_SYSCHAR equ 106h WM_SYSDEADCHAR equ 107h WM_KEYLAST equ 108h WM_INITDIALOG equ 110h WM_COMMAND equ 111h WM_SYSCOMMAND equ 112h WM_TIMER equ 113h WM_HSCROLL equ 114h WM_VSCROLL equ 115h WM_INITMENU equ 116h WM_INITMENUPOPUP equ 117h WM_MENUSELECT equ 11Fh WM_MENUCHAR equ 120h WM_ENTERIDLE equ 121h WM_CTLCOLORMSGBOX equ 132h WM_CTLCOLOREDIT equ 133h WM_CTLCOLORLISTBOX equ 134h WM_CTLCOLORBTN equ 135h WM_CTLCOLORDLG equ 136h WM_CTLCOLORSCROLLBAR equ 137h WM_CTLCOLORSTATIC equ 138h WM_MOUSEFIRST equ 200h WM_MOUSEMOVE equ 200h WM_LBUTTONDOWN equ 201h WM_LBUTTONUP equ 202h WM_LBUTTONDBLCLK equ 203h WM_RBUTTONDOWN equ 204h WM_RBUTTONUP equ 205h WM_RBUTTONDBLCLK equ 206h WM_MBUTTONDOWN equ 207h WM_MBUTTONUP equ 208h WM_MBUTTONDBLCLK equ 209h WM_MOUSELAST equ 209h WM_PARENTNOTIFY equ 210h WM_ENTERMENULOOP equ 211h WM_EXITMENULOOP equ 212h WM_MDICREATE equ 220h WM_MDIDESTROY equ 221h WM_MDIACTIVATE equ 222h WM_MDIRESTORE equ 223h WM_MDINEXT equ 224h WM_MDIMAXIMIZE equ 225h WM_MDITILE equ 226h WM_MDICASCADE equ 227h WM_MDIICONARRANGE equ 228h WM_MDIGETACTIVE equ 229h WM_MDISETMENU equ 230h WM_DROPFILES equ 233h WM_MDIREFRESHMENU equ 234h WM_CUT equ 300h WM_COPY equ 301h WM_PASTE equ 302h WM_CLEAR equ 303h WM_UNDO equ 304h WM_RENDERFORMAT equ 305h WM_RENDERALLFORMATS equ 306h WM_DESTROYCLIPBOARD equ 307h WM_DRAWCLIPBOARD equ 308h WM_PAINTCLIPBOARD equ 309h WM_VSCROLLCLIPBOARD equ 30Ah WM_SIZECLIPBOARD equ 30Bh WM_ASKCBFORMATNAME equ 30Ch WM_CHANGECBCHAIN equ 30Dh WM_HSCROLLCLIPBOARD equ 30Eh WM_QUERYNEWPALETTE equ 30Fh WM_PALETTEISCHANGING equ 310h WM_PALETTECHANGED equ 311h WM_HOTKEY equ 312h WM_PRINT equ 317h WM_PRINTCLIENT equ 318h WM_PENWINFIRST equ 380h WM_PENWINLAST equ 38Fh WM_WINDOWPOSCHANGING equ 46h WM_WINDOWPOSCHANGED equ 47h WM_POWER equ 48h Помоему тут все. Это из пакета MASM32 фаил Windows.inc Автор: USA Поставь MSDev. В заголовочных файлах от VC расписаны все структуры, константы, функции под Win, или на msdn.microsoft.com. наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Корик Ответ ожидается по этому адресу Под ХР подключаю "тракторный" принтер с полосой небольших по размеру наклеек. Проблема в том, что принтер не совсем новый и производитель своих дров не даёт, а предлагает пользоваться тем, что есть в ХР. Как я понял, в ХР нет такой фишки, как размер листа User Defined, но есть какая-то фигня с определением формы своего размера. После того, как я сделал новую форму того размера, который мне нужен, всё равно каждый раз после печати одной наклейки принтер прокручивает вне полный А4. Вопрос: Каким же раком отпечатывать наклейки по одной? Автор вопроса: Дмитрий Ответ ожидается по этому адресу Подскажите пожалуйста, как работать с компилятором ресурсов RC.EXE Автор вопроса: Igor Ответ ожидается по этому адресу Подскажите, как "научить" ComboBox корректно отбражать текст в Dos кодировке? Автор вопроса: Wasjia Ответ ожидается по этому адресу Не могу сделать скроллинг (мышь) в Datagrid форме. Автор вопроса: Владимир Ответ ожидается по этому адресу В Visual Data Manager нет русского шрифта. Ставил четыре разных VB6. В самом VB есть в Manager нет. Я новичок в этом деле. Где можно об этом узнать,или что нужно сделать. В интернете ничего не нашел. Автор вопроса: Sergey Ответ ожидается по этому адресу Такой вопрос: мне надо получить содержимое текстового поля другого приложения, есть ли для этого какая-нибудь апишная функция(GetWindowText с чужими приложениями не работает). Автор вопроса: Бессонова Ксения Ответ ожидается по этому адресу Необходимо решить задачу оптимизации (линейного программирования) любым методом. Суть - необходимо решить систему неравеств. Может у кого есть исходники или ссылки? Автор вопроса: Юрий Ответ ожидается по этому адресу Вопрос следующего плана. Локальная сеть, пересылка данных с помощью MSMQ-конвеера, необходимо послать MQ-ping с одной машины на другую и провести анализ результа (OK или нет). Возможно, кто знает как это описать на VB? Другой вариант: готовое приложение, которое выполняет эти функции но при этом, при наличии проблем извещает визуально или акустически. Адресок? Автор вопроса: BES Ответ ожидается по этому адресу Есть два вопроса: 1. Реально ли из под VB в Wordе нарисовать таблицу и заполнить ее данными. 2. Можно ли в поле ввода TextBox поместить неудаляемые символы (например :) Автор вопроса: Sergey_Perekhoda Ответ ожидается по этому адресу У меня небольшой вопрос: как на VBA в Excel'e сделать кнопку и, нажав на нее, записать содержимое ячеек в текстовый файл? Автор вопроса: Sergey Ответ ожидается по этому адресу Кто нибудь знает, где можно найти инфу о недокументированных API? (желательно русскоязычный сайт) Автор вопроса: ximik Ответ ожидается по этому адресу Как в Visual Basice иметировать нажатие клавиш в другом приложении например клавишу "Enter"? Ответы: Вопрос: Как можно сравнить дату создания двух файлов? Если действовать таким образом: If FileDateTime("file1.exe") < FileDateTime("file2.exe") Then ... , то сравниваются часы создания файла в первую очередь. Может кто знает, как более правильным образом можно сравнить дату создания файлов. Ответ: Автор ответа: Alexandrov Dmitry Используйте функцию DateDiff. Ответ: Автор ответа: Корик А если попробовать так: If Format(FileDateTime("file1.exe"),"dd/mm/yyyy") < Format(FileDateTime("file2.exe") ,"dd/mm/yyyy") Вопрос: Подскажите пожалста, как работать с мопедом (модемом) т.е. как открыть порт, набрать номер, отправить, получить и т.д. Инет здесь не присутствует, (общение только между 2 мопедами) или есть у кого готовый OCX or Dll или ссылка (но я по моему ужо все возможные сайты облазил), за любую инфу ,большое спасибо!!! Ответ: Автор ответа: Programmer Используй Microsoft Communication Control (MSComm). Ответ: Автор ответа: Invisible Man Используй mscomm32.ocx MSComm1.CommPort = 2 'номер порта MSComm1.Settings = "9600,n,8,1" 'параметры порта MSComm1.PortOpen = True 'открываем указанный выше порт MSComm1.Output = "AT" 'пересылаем в порт команду AT receive$ = MSComm1.Input 'принимаем с порта (принимать лучше по таймеру) MSComm1.PortOpen = False 'закрываем порт Если нужны стандартные команды модема, пиши на invisibleman2@yandex.ru, скину... Вопрос: Подскажите, пожалуйста, с помощью каких средств создаются ASP страницы? Есть пресс документации, но нигде не сказано, где и как их собирать. Где можно запустить и посмотреть файлы с расширением *.ASP? Просто так Винда их ни чем не хочет открывать. Ответ: Автор ответа: Alexandrov Dmitry Для этого тебе нужен например IIS (Microsoft Internet Information Server) Устанавливаешь IIS, создаешь виртуальную директорию, кладешь в нее asp-страницы Смотришь страницу так: запускаешь IE и в адресе набираешь http://localhost/<имя виртуальной директории>/<имя файла> Ответ: Автор ответа: Константин Михайлов ASP-страницы создаются при помощи любого текстового редактора.. Сами файлы можно посмотреть при помощи любого просмотрщика текстовых файлов.. А выполняются на стороне сервера при запросе страницы клиентом. Ответ: Автор ответа: KAS (c) Для того что бы проверить работу ASP нужен виртуальный сервер (например поставляемый вместе с лицензионным диском Windows'98). Ответ: Автор ответа: Корик Да хоть обычным Notepadом, хотя я пользуюсь InterDevом из Visual Studio. Ответ: Автор ответа: Владимир Кирко Для работы с ASP требуется сервер на основе Internet Information Server для Windows NT/2k/XP или Personal Web Server для Windows 95/98/ME. Эти продукты можно совершенно бесплатно скачать с сайта Microsoft. Весит оно около 30 мегабайт. В комплекте с сервером поставляется огромная справочная система и примеры. (http://prosto.pp.ru/Docum/DocumShow_DocumID_325.html) (К тому же они, как правило, есть в составе дистрибутивов соответствующих операционных систем.) В принципе, работать с ASP можно в любом текстовом редакторе, хоть в notepad'e. Однако существуют специальные редакторы для этой цели. Можно обойтись и без них, но они обеспечивают дополнительные возможности, начиная от простейшей раскраски кода и заканчивая встроенными возможностями отладки скрипта. Вот те, с которыми мне приходилось работать: MS InterDev, входящий в состав Microsoft Visual Studio (http://msdn.microsoft.com/vinterdev/-default.asp), Macromedia's Drumbeat 2000 (http://www.macromedia.com/software/drum-beat/), Home Site 4.5 Allaire Corp (http://-www.allaire.com), Primal Script from Spaien Technologies (http://www.sapien.com/), ASP Express (http://www.aspexpress.com/), ASP-edit. (http://prosto.pp.ru/Docum/DocumShow_DocumID_233.html). Для проверки ASP скриптов тебе придется их тестировать дома, но как? Для этого мы воспользуемся Microsoft's Personal Web Server(PWS). Для начала его надо поставить (я не думаю, что он тебе до этого был нужен). Это можно сделать либо с сидюка с win98, либо идти на сайт Микрософта (www.microsoft.com). После этого на твоем компе появится каталог Inetpub, где находится директория wwwroot. Вот в нее-то ты и заходи. Создай каталог myweb или что-нибудь подобное. После чего тебе потребуется написать ASP код. Сохрани его в эту директорию с именем script.asp. Готово. Теперь можешь заходить в свой любимый браузер и набирать в адресной строке: http://localhost/myweb/scnpt.asp. Если работать не будет, то, скорее всего, это либо криво написанный скрипт, либо не активизированный PWS (Personal Web Server).;) (http://prosto.pp.ru/Docum/DocumShow_DocumID_233.html). Вопрос: Есть проблема. При работе с TEXTBOX необходимо запретить любую вставку с буфера-только ввод с клавиатуры. Ответ: Автор ответа: Славик А что если переодически очищать буфер? Правда это не совсем удобно для других приложений. Вопрос: Подскажите кто знает как из VB6 определить текущую раскладку клавиатуры (русская или английская) и изменить эту расскладку в Windows Ответ: Автор ответа: Роман Для определения раскладки клавиатуры: Private Declare Function GetKeyboardLayoutName Lib _ "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Dim strName As String strName = String(8, 0) GetKeyboardLayoutName strName strName = Mid$(strName, 6, 3) Если strName = 419 - русский, 409 - английский А изменять лучше так: Declare Function ActivateKeyboardLayout Lib "user32" _ (ByVal HKL As Long, ByVal flags As Long) As Long Public Const kb_lay_ru As Long = 68748313 Public Const kb_lay_en As Long = 67699721 ' Переключить на русский язык x = ActivateKeyboardLayout&(kb_lay_ru, 0) ' Переключить на английский язык x = ActivateKeyboardLayout&(kb_lay_en, 0) Ответ: Автор ответа: Корик Изменить можно через API-функцию LoadKeyboardLayout. Эта функция принимает 2 параметра, первый из которых код языка, на который нужно поменять, но он записывается как String. А второй, по-моему, просто еденица. Точно не помню, но ты можешь посмотреть в MSDN хелп на эту функцию Ответ: Автор ответа: Alexander Задача выполнима, НО я всегда грубо ругался (про себя) на те программы, которые этим занимались! Как правило, сам по инерции переключаешь и получаешь наоборот :-( И другие мелкие неприятности. На самом деле это плохой путь. Ну, а если "уж-замуж-невтерпёж", то лучше что-то типа PuntoSwitcher. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
