VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Очередной выпуск рассылки.
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 10:04 / 31 мар. Кто нить запускал флеш на форме VB | Хитов: 2 | Ответов: 0 08:42 / 31 мар. Прокрутка экрана | Хитов: 7 | Ответов: 0 08:33 / 31 мар. звук через бипер | Хитов: 7 | Ответов: 0 03:58 / 31 мар. Запутался, помогите, люди.... SQL запрос и DTPi... | Хитов: 9 | Ответов: 1 02:34 / 31 мар. Это опять я =) | Хитов: 9 | Ответов: 0 00:44 / 31 мар. CreateObject | Хитов: 7 | Ответов: 0 22:17 / 30 мар. Народ помогите!!!!!!! | Хитов: 20 | Ответов: 1 21:40 / 30 мар. Новое сообщение без темы | Хитов: 20 | Ответов: 1 20:31 / 30 мар. Tabstrip and Command Button | Хитов: 11 | Ответов: 0 17:36 / 30 мар. Поиск | Хитов: 22 | Ответов: 2 12:57 / 30 мар. Проблема с Package and Deployment Wizard | Хитов: 19 | Ответов: 3 11:30 / 30 мар. OCX от Internet Explorer | Хитов: 17 | Ответов: 1 06:41 / 30 мар. Приглашаю потестить, кого не ломает | Хитов: 46 | Ответов: 2 04:13 / 30 мар. Важный вопрос | Хитов: 29 | Ответов: 3 03:01 / 30 мар. cd-rom | Хитов: 23 | Ответов: 2 22:58 / 29 мар. Кто профи в vb.net | Хитов: 26 | Ответов: 2 20:11 / 29 мар. Киньте ссылочки на колл-и кнопок | Хитов: 34 | Ответов: 2 19:05 / 29 мар. Как узнать имя компа по его IP? | Хитов: 31 | Ответов: 2 19:05 / 29 мар. Вставка картинки из клипборда (+) | Хитов: 15 | Ответов: 0 17:53 / 29 мар. Copy file to FTP ??? HELP | Хитов: 16 | Ответов: 1 Последние поступления в Библиотеку кодов: Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN
наверх Новости сайта GotdotNet Новые статьи: наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Ctrl+Alt+Del Вопрос: Автор вопроса: агент x-com Я хочу заблокировать клавиши Ctrl и Alt. Представьте себе, чувак жмет Ctrl+Alt+Del и у него ни фига не выходит. Подскажите, как мне это сделать Ответы: Автор: serWAR Сразу скажу 2 способ под XP не идет, нефакт что и под другие 1 способ( прикольный ) отслеживаеш нажатия на CTRL+ALT+DEL и закрываеш появившееся окно. 2 способ МОДУЛЬ Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Private Const SPI_SCREENSAVERRUNNING = 97 Public Sub ChangeState(SrcSaverRunnig As Boolean) Dim Ret As Long Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, SrcSaverRunnig, 0, 0) End Sub ФОРМА: Private Sub Form_Load() ChangeState True End Sub Private Sub Form_Unload(Cancel As Integer) ChangeState False End Sub Автор: агент x-com Немного не понял насчет 1 спопсоба. 2 способ мне точно не подходит т.к. у моего друга XP. Пожалуйста, объясните мне 1 способ. Автор: serWAR Добавь таймер и поставь свойсто Interval = 1 или 10 или 100, как понравится. Private Sub Timer1_Timer() On Error GoTo errorer ' если незапущен диспетчер то будет ошибка AppActivate "Диспетчер задач Windows" ' ПЕРЕДАЕМ ФОКУС SendKeys "%{F4}" ' Посылаем Alt + F4 errorer: End Sub Автор: агент x-com Может быть я полный ламер, но я не врубаюсь, при чем тут Alt+F4? Нужно то Alt+tab и Ctrl+Alt+Del Автор: serWAR Ты его пробовал? ALT+F4 закрывает окно "Диспетчера задач ..." , а не блокирует его. Еще пример закрытия приложения: http://www.vbnet.ru/faq/showtopic.asp?id=120 Автор: Павел Зачем SendKeys? Лучше найти hwnd окна диспетчера задач АПИ-функцией FindWindow и потом API-функцией SenMessage заставить это окно закрыться. Так надёжнее. А вообще, где-то недавно обсуждалась подобная тема. И порешили, что процесс можно вырубить не только в диспетчере задач, но и из командной строки и из Far'а... Так что это пойдет, если твой друг совсем ламер. наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: 108vadim Ответ ожидается по этому адресу Помогите решить проблему: Допустим я добавляю клиента, потом делаю сохранить потом пытаюсь добавить товары а они не добавляются:((( а если я редактирую уже добавленую запись Клиента то товары нормально добавляются и при этом автоматически связываются с гл таблицей код весит 12кб VB6.0+acces97 http://www.chat.ru/~vadim108/test1.rar прошу исправить его и выслать мне на майл. Автор вопроса: Ivashka Ответ ожидается по этому адресу Знает ли кто нибудь как максимально быстро принять большой обьём данных (ну к примеру файл 10Мб по LAN 100Mbit) через Winsock и запихнуть их в массив? ведь данные приходят пачками примерно по 8Кб и их нужно собрать воедино. Вот такой вариант (или что то подобное) у меня получился самым быстрым: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim b() As Byte Open "C:\test.zip" For Binary As #1 Winsock1.GetData b, vbArray + vbByte Put #1, LOF(1), b Close #1 End sub Можно конечно ещё быстрее если вынести функции Open и Close за пределы этой процедуры, но неустраивает то что при этом используется диск. Заюзал API`шную CopyMemory чтобы массивы байтов обьединять но получилось почему то ещё медленнее :( Автор вопроса: alek Ответ ожидается по этому адресу Нашел такой пример.Но сдесь всего 3 команды. А команды управления папками и файлами как записать(копировать,удалить,создать,переместить)? Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim Data As String ws.GetData Data Select Case Data Case "BEEP" Beep Case "MSG" MsgBox "Привет!", vbInformation, ":o)" Case "END" End End Select End Sub Автор вопроса: 001 Ответ ожидается по этому адресу Если у кого-нибудь есть небольшая документация по VBScript, огромная просьба прислать ее на ilya_001@mail.ru. Век не забуду доброго человека! Автор вопроса: P@Ssword Ответ ожидается по этому адресу Как из PropertyPage контейнера получить контролы, лежащие на контейнере? Автор вопроса: Headson Ответ ожидается по этому адресу Подскажите как проверить не резервирована ли горячая клавиша (например F11,F12) другим приложением. Автор вопроса: MaxiM Ответ ожидается по этому адресу Осваиваю ужасные дебри вбнэт. Начинаю с простого: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Единственное что я здесь понимаю - это "Private Sub Button1_Click", а для чего остальные параметры??? И еще я понял, что такой полезной штуки как index больше нет, но может, есть аналог(просто другое название), или есть какой-то более сложный способ??? А также нужна помощь с hdc - в vbnet такова нет, но уверен, что также есть аналог. Автор вопроса: kostyastat Ответ ожидается по этому адресу Подскажите как програмно работать(создавать,изменять столбцы, редактировать) с DataGrid, а также как работать с ListView Ответы: Вопрос: У меня за последнее время скопилось несколько вопросов: 1. Ваш совет проиграть MP3 на MMControl с DeviceType="MpegVideo" не пошел, да и я не нашел в реестре по указанному вами пути типы девайсов, попробовал я играть его на ActiveMovie Control, знакомые люди сказали, что должно заработать, но при запуске проекта выскакивает сообщение: System error &H80004005 (-2147467259), может кто сталкивался с аналогичной проблемой, на всякий случай у меня Win98, DirectX 8.1, VisualBasic 6 SP5, с железом проблем нет. Просьба объяснить нормально, с помощью чего и, главное, как играть MP3 в Visual Basic? 2. Можно ли с помощью WinSock'а органияовать UDP или TCP свяяь по модему на прямую, без ИНЕТа? Если можно, то как узнать номера портов для связи? Ответ: Автор ответа: KAS (c) Вообще ничего не указывай DeviceType="" Вопрос: Можно ли на Visual Basice написать программу каторая бы уменьшала скорость CD если можно то как ? Ответ: Автор ответа: ViTal Имеется некоторый набор АПИ-функций, которые позволяют манипулировать скоростями CD-привода. НО! Они работают лишь если сам привод поддерживает смену скоростей. Т.е. если CD-привод достаточно старый и не подерживает манипуляцию скоростями - то хоть 100 раз воспользуйся вызовом АПИ, это не даст никакого эффекта! Где копать и какие функции - не помню :) Могу только посоветовать скачать, например, CDSlow и почитать прилогающуюся к нему инфу (или почитать в других ответах) Вопрос: Есть запрос на ACCESS который работает с переменой как передать эту переменую через VB Ответ: Автор ответа: Dima Запрос - это SQL-выражение. В Басике описывается как строковая переменная. dim strSQL as string dim iID as long Dim recADOTemp As ADODB.Recordset strSQL="SELECT * FROM sprWorkers WHERE (ID=" & iID & ")" Set recADOTemp = New ADODB.Recordset recADOTemp.Open strSQL, adoCon, adOpenStatic, adLockOptimistic Вопрос: Можно ли в Access программно открыть запрос, основанный на SQL-операторе SELECT (строка с SQL-инструкцией может изменяться)? Метод DoCmd.OpenQuery работает только для сохраненных запросов, а метод DoCmd.RunSQL не работает с SELECT. Ответ: Автор ответа: Иван Простой пример для абсцесса Например так: Public Function getName(s As String) As String Dim DB as Database Dim st As String On Error Resume Next Set DB = CurrentDb 'устанавливаем переменную БД Dim rs As Recordset 'строим запрос st = "SELECT * FROM Res where Code='" & s & "' AND ID_Lang=" & getLangId 'открываем запрос Set rs = DB.OpenRecordset(st) getName = "<" & s & ">" getName = rs!name 'считываем данные rs.Close 'закрываем запрос End Function Это работа через DAO. Работа через ADO делается по другому. Вопрос: Есть ComboBox, в нём значения из таблицы (методом ADD). Таблица подключается с помощью DAO 3.51 и имеет 2 колонки. В ComboBox выбрали значение из 1-ой колонки. Как узнать соответствующее ему значение из 2-ой колонки. Ответ: Автор ответа: Иван lstControl.Column(1) Нумерация (насколько я помню) идёт с нуля Ответ: Автор ответа: Damir Kh Dim ws as Workspace Dim db as database Dim rs as recordset Private sub Form_Load set ws = CreateWorkspace("","admin","") set db = ws.OpenDatabase("путь к базе") set rs = db.OpenRecordset("таблица") Do while Not rs.Eof Combo1.AddItem rs("поле1") Loop End sub Private Sub Combo1_OnClick set ws = CreateWorkspace("","admin","") set db = ws.OpenDatabase("путь к базе") set rs = db.OpenRecordset("таблица") value = rs("поле2") End sub Вопрос: 1. Вы не подскажете как удалить приложение из диспетчера задач я работаю на VB 6.0 под WinXP. 2. И ещё как в этом виндовсе можно отключить драйвера, например, для мыши или как её можно откл. Ответ: Автор ответа: Артем Кривокрисенко Можно просто спрятать курсор (ShowCursor) А можно в таймере поставить, чтоб он с места не сдвинулся (SetCursorPos). Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |