Голосование:
Ссылки:
Несколько слов от автора:
Новый выпуск!
Читайте!
Читайте!
Содержание выпуска
- Книги
- Citycat by Email
- Новости сайта VBNet
- Новости сайта VBMania
- Новости сайта Азбука VB
- Новости сайта MSDN
- Новости сайта GotdotNet
- Новости сайта dotSite
- VB как служба (системный сервис)
- Доска объявлений
- Вопрос/Ответ
Книги
Остальные книги о VB можно найти здесь.
наверх
Citycat by Email
Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.
наверх
Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru:
03:56 / 24 фев. определить процессы | Хитов: 12 | Ответов: 2
03:45 / 24 фев. вопрос по combo | Хитов: 8 | Ответов: 1
19:42 / 23 фев. Вопрос по массивам | Хитов: 14 | Ответов: 1
14:51 / 23 фев. Обращение к админам | Хитов: 28 | Ответов: 2
14:43 / 23 фев. !!! Работа с реестром !!! | Хитов: 19 | Ответов: 1
14:39 / 23 фев. Как из DLL выдрать Api ??? | Хитов: 22 | Ответов: 2
11:55 / 23 фев. Помогите начинающему, пожалуйста! (VB 6.0) | Хитов: 22 | Ответов: 3
09:50 / 23 фев. работа с MIDI | Хитов: 15 | Ответов: 2
09:06 / 23 фев. С праздником 23 февраля всех! | Хитов: 23 | Ответов: 3
06:43 / 23 фев. наверно глупый вопрос | Хитов: 33 | Ответов: 2
03:07 / 23 фев. Кому нужно: Системы счисления | Хитов: 29 | Ответов: 3
00:04 / 23 фев. Как записать звук в MP3 | Хитов: 26 | Ответов: 4
23:34 / 22 фев. Memory & Process | Хитов: 12 | Ответов: 0
18:45 / 22 фев. LoadResPicture(..., vbResIcon) | Хитов: 24 | Ответов: 2
18:36 / 22 фев. LoadResPicture(..., vbResIcon) | Хитов: 4 | Ответов: 0
17:50 / 22 фев. Win XP API | Хитов: 39 | Ответов: 4
13:47 / 22 фев. Драйвер виртуального устройства | Хитов: 12 | Ответов: 0
12:47 / 22 фев. Phone | Хитов: 19 | Ответов: 0
10:57 / 22 фев. Помогите... | Хитов: 50 | Ответов: 2
06:26 / 22 фев. Поиск и замена. SQL ??? | Хитов: 26 | Ответов: 3
Последние поступления в Библиотеку кодов:
Новости от VBNet-чиков!:
наверх
Новости сайта VBMania
наверх
Новости сайта Азбука VB
наверх
Новости сайта MSDN
наверх
Новости сайта GotdotNet
Новые статьи:
наверх
Новости сайта dotSite
Новые статьи:
Новые примеры:
наверх
VB как служба (системный сервис)
Вопрос:
Автор вопроса: PeterS
Подскажите пожалуйста, как запустить программу в качестве службы в Win NT/2000/XP.
Желательно без контролла и утилит Windows, а напрямую редактированием реестра.
Ответы:
Автор: Zeus
Я этот же вопрос задавал раньше, никто не ответил...
Но кстати, в NT в реестре есть интересное место автозагрузки:
\software\microsoft\windows nt\current version\windows
создаёшь параметр "load" или "run", пишешь адрес проги, и она будет запускаться, но RegCleaner не увидит)))
Автор: PeterS
Я знаком с этим методом, но к сожалению он мне не подходит.
Автор: ШевТ
используй vb.net! там специально такие вещи делать можно, и, кстати, весма продуктивно! я лично еще до этого не дошел, но говорят, не хуже чем на с++.
Автор: Free Hunter
2ШефТ: ага, и носить за собой FrameWorks .NET чтобы этот системный сервис работал... Не слабого размера сервис получается...
Автор: PeterS
Нет я не могу и не хочу использовать VB.Net, так что нужно использовать другой вариант.
Автор: Free Hunter
Ну тады, ИМХО, на VB6 ты вряд ли такое намутишь...
Автор: Bombardier
Для меня самый простой способ запустить программу как сервис - это использовать WMI, посмотри WMI scripting и конкретно методы для Win32_Service на www.microsoft.com (замечательно работает в VB5-6)
Автор: Free Hunter
ну или вот такой вариант, как предлогает Bombardier - дело вкуса...
Автор: PeterS
Продвижение по этому вопросу такие: я добился запуска своей программы как служба путём добавления значение, в реестр, взяв за основу программу Venta Fax, НО возникает всего одна ошибка при запуске программы в роли службы Windows через некоторое время (секунд 5) сообщает об ошибке №1053: Служба не ответила на запрос своевременно. И после этого моя программа закрывается. Я так понял что надо во время загрузки моей программы передать какую-то команду Windows. Может кто-нибудь испробует это и сможет найти решение.
Желаю успехов!!
Пишите о ваших достижениях PeterStudio@mail.ru
наверх
Доска объявлений
наверх
Мои программы
BalloonMessage for MS Agent
Авторы: Шатрыкин Иван и Павел Сурменок.
наверх
Вопрос/Ответ
Автор вопроса: 001
Ответ ожидается по этому адресу
У меня 3 вопроса
1) Как можно яасунуть в ресурc MP3 файл, а потом проиграть его оттуда?
2) Как програмно ияменять громкость явука, балланс?
3) Объясните, пожалуйста, как пользоваться WinSock'ом? (Соединение, передача данных, файлов...)
Автор вопроса: ViTal
Ответ ожидается по этому адресу
В режиме "Крупные значки" эксплорер отображает маленькие (16х16) иконки размазанными (до 32х32). Как получить такую размазанность при деформациях изображений в своём приложении?
Автор вопроса: Владимир
Ответ ожидается по этому адресу
Как на VB6 создать папку для хранения URL c последующим их открытием в браузере по умолчанию. И со счетчиком их количества.
Автор вопроса: Nicekaifer
Ответ ожидается по этому адресу
Доброе время суток. А реально написать прогу на VB6 и сделать так чтобы она висела в трее (прям значком) а при нажатии на нее левой открывалась, а правой показывала меню?
Автор вопроса: Святослав
Ответ ожидается по этому адресу
У меня три вопроса, которые я сам пока не могу разрешить.
1. Как в VB6 запретить запуск экранной заставки на время работы моей программы?
2. Как проиграть avi-файл?
В 71 выпуске была статья "Проиграть Avi-файл в Picture Box ".
Пример рабочий, только есть одно большое НО.
На время работы программа блокируется и невозможно
выйти из нее, пока avi-файл не будет проигран.
Т.е. если использовать этот пример, то необходимо добавить кнопку Stop и Pause, а также прогресс бар.
Код программы привожу :
Добавьте CommandButton и PictureBox на форму
Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Const WS_CHILD = &H40000000
Sub PlayAVIPictureBox(FileName As String, ByVal Window As PictureBox)
Dim RetVal As Long
Dim CommandString As String
Dim ShortFileName As String * 260
Dim deviceIsOpen As Boolean
'Retrieve short file name format
RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
FileName = Left$(ShortFileName, RetVal)
'Open the device
CommandString = "Open " & FileName & " type AVIVideo alias AVIFile parent " & CStr(Window.hWnd) & " style " & CStr(WS_CHILD)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal Then GoTo error
'remember that the device is now open
deviceIsOpen = True
'Resize the movie to PictureBox size
CommandString = "put AVIFile window at 0 0 " & CStr(Window.ScaleWidth / _
Screen.TwipsPerPixelX) & " " & CStr(Window.ScaleHeight / _
Screen.TwipsPerPixelY)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'Play the file
CommandString = "Play AVIFile wait"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'Close the device
CommandString = "Close AVIFile"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
Exit Sub
error:
'An error occurred.
'Get the error description
Dim ErrorString As String
ErrorString = Space$(256)
mciGetErrorString RetVal, ErrorString, Len(ErrorString)
ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)
'close the device if necessary
If deviceIsOpen Then
CommandString = "Close AVIFile"
mciSendString CommandString, vbNullString, 0, 0&
End If
'raise a custom error, with the proper description
Err.Raise 999, , ErrorString
End Sub
Private Sub Command1_Click()
'replace 'c:\myfile.avi' with the name of the AVI file you want to 'play
PlayAVIPictureBox "путь к файлу\*.avi", Picture1
End Sub
3. Есть код, позволяющий создать окно произвольной формы.
В Win9x/Me все работает как положено, а в Win XP ненужные участки формы не обрезаются, т.е. на экране форма имеет вид прямоугольника. Кто подскажет, в чем дело и как это поправить?
Код программы привожу:
Option Explicit
'Объявляем API-функцию, которая так сказать
'накладывает созданный регион на окно (те
'части которые остались за пределами
'региона исчезают), где: hwnd - идентифика-
'тор окна, на котором нужно "выдавить"
'форму, hRgn - "формочка" для окна,
'bRedraw - перерисовывать ли окно после
'"выдавления".
Private Declare Function SetWindowRgn _
Lib "user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As _
Boolean) As Long
'Объявляем API-функцию чтобы создать
'регион-"формочку" (состоит регион из n-ого
'количества точек, которое необходимо
'задать), где: lpPoint - первая точка
'региона, nCount - количество точек,
'nPolyFillMode - описание метода заливки
'полигона.
Private Declare Function CreatePolygonRgn _
Lib "gdi32" (lpPoint As POINTAPI, _
ByVal nCount As Long, ByVal _
nPolyFillMode As Long) As Long
'Объявляем тип для описания координат
'каждой точки
Private Type POINTAPI
x As Long
y As Long
End Type
'Объявляем массив P по типу POINTAPI
Dim P(128) As POINTAPI
Private Sub Form_Load()
'Присвоим свойству Picture формы такого
'же вида свойство
Picture = Image1
'Записываем код для каждой точки,
'описывающий её координаты в пикселах
P(0).x = 448: P(0).y = 25
P(1).x = 97: P(1).y = 45
P(2).x = 98: P(2).y = 33
'Задаются остальные точки...
P(126).x = 90: P(126).y = 43
P(127).x = 93: P(127).y = 45
P(128).x = 448: P(128).y = 25
'Объявляем переменную, содержащую
'регион
Dim Rgn As Long
'Создаём регион
Rgn = CreatePolygonRgn(P(0), 128, 0)
'"Выдавливем форму"
Call SetWindowRgn(hwnd, Rgn, True)
End Sub
Автор вопроса: Alec Perle
Ответ ожидается по этому адресу
Вопрос по VBA (Excel). К объектам Shape на листе можно приделать макрос (OnAction). У меня порядка двух-трех сотен элементов. Как программно определить, на каком именно элементе была нажата мышка?
Автор вопроса: SinitsynM@FreeMail.ru
Ответ ожидается по этому адресу
У меня есть форма, на которой куча текстовых полей для внесения
различного рода информации. Хочу, чтобы при печати они были распределены
по листу А4 равномерно (ну чтобы оформление было приемлемым). Сразу
расположить их в нужном порядке не получается. Как я ни старался, но А4
никак не вписывается в мои диагонали. Может кто-нибудь подкинет идею?
Сделал себе ScreenSaver, но заставить его по-человечески бегать никак не
могу. Может кто видел, как эти твари бегают по рабочему столу? Так вот,
это не про моего. Единственное, на что он способен (ну в этом отчасти и
моя вина), так это на:
Private Sub Timer1_Timer()
b = CurrentX
c = CurrentY
Move Left + 100 * f + b * f, Top + 100 * g + c * g
If Left >= Screen.Width - Form1.ScaleWidth Then f = -1
If Left <= 0 Then f = 1
If Top >= Screen.Height - Form1.ScaleHeight Then g = -1
If Top <= 0 Then g = 1
End Sub
(отскакивает от стенки на 90 градусов и убегает от мышки)
Может у кого-нибудь есть секретная формула активности этой живности?
Поделитесь пожалуйста.
П.С.: Так всегда бывает - как появляется свободное время, так куда-то
деваются все идеи, которые вынашивал и взращивал в минуты отвратительной
и нудной лекции по электрооборудованию с предвкушением их осуществления
и заблаговременным поздравлением себя с преждевременным успехом. О чём
это я?... А-а-а! Так вот - предлагаю поделиться с начинающими
программистами проектами, с которых вы начинали мозолить пальцы
клавиатурой. Думаю, не одному мне будет интересно.
Автор вопроса: VMJ
Ответ ожидается по этому адресу
Кому попадалась подсказка - как влепить свою кнопку в Toolbar InternetExplorer-на манер FlashGet?
Не обязательно на Vb...
Автор вопроса: Den
Ответ ожидается по этому адресу
Как сделать, чтобы программа была сервисом в Windows XP?
Ответы:
Вопрос:
Как скопировать папку со всем её содержимым, хорошо бы было без перебора всех подпапок и файлов.
Ответ:
Автор ответа: TiborF
Для начала ты должен понять, что есть папка(директория)
Без перебора подпапок и файлов содержащихся в них, ты скопируеш только саму папку.
Вопрос:
Как, если можно, сделать в VB ассемблерные вставки?
Ответ:
Автор ответа: TiborF
Да никак. Там етого не предусмотрено :(
Вопрос:
Подскажите, как сделать форму проярачной? С SetWindowLong что-то не получается
Ответ:
Автор ответа: TiborF
Это делаеться посредством ф BitBlt.
Ищи исходники примеров работы с этой ф.
А лудше поставь себе VB5, он немного отличаеться от 6 и там есть хелпы с семплами ;)
Вопрос:
Как в VB играть MIDI,WAV,MP3и другие файлы?
Ответ:
Автор ответа: TiborF
Используй Microsoft Multimedia Control, он всё могёт.
Вопрос:
Скажите, существует ли такая API функция, которая считывает состояние трафика, при соединении с Инетом?
Ответ:
Автор ответа: TiborF
Вообще существует много всёких полезных API.
Некоторые из них ходёт за тебя в магазин :)
Вопрос:
Как мне создать новый элемент а именно OptionButton в работающей программе на фрейме и определить ему свойства.
Ответ:
Автор ответа: TiborF
Ну вопервых на форме уже должен быть такой объект, причём с индексом. например всё так, и индекс первого объекта = 0, тогда чтобы создать ещё один надо всего лишь проделать следующее:
Load Option1(1)
With Option1(1)
.Left = 0
.Top = 0
.Caption = "Caption"
.Value = False
.Visible = True
End With
Вопрос:
Не подскажите ли вы как в тестбоксе (или рич текст боксе) изменить цвет
(программным путём) конкретных символов, например, я ввожу в текст-бокс "Привет всем !!!". Нужно слово "привет" сделать зелёным, "всем" красным и "!!!" синим цветом. Или ещё например как в редакторе VB- все команды синим цветом, ремарки зелёным и т.д.
Ответ:
Автор ответа: TiborF
Наверное тет оптимально использовать ф Find
Только толку от неё мало :(
Вопрос:
Можно ли привяяать координаты дочерней формы (свойства Top и Left) к координатам кнопки, по нажатию на котррую эта форма выяывается. Например, чтобы дочерняя форма появлялась строго под кнопкой неяависимо от положения самой кнопки на родительской форме?
В приведенном ниже примере привяяка почему-то не работает:
Form1.Left = MainForm.cmdButton.Left + 100
Form1.Top = MainForm.cmdButton.Top + 50
Ответ:
Автор ответа: ]CBK[CRaSH
Тут фишка в том что координаты кнопки считаются по форме. А формы по экрану. Чтобы это все дело работало в процедуру Form_resize from1 засунь текст
Me.Left = Form1.Command1.Left + MainForm.Left
Me.Top = Form1.Command1.Top + MainForm.Top
Но незабудь что дочерняя форма будет появляться чуть выше из-за заголовка
Вопрос:
У меня творческий облом ,и от делать нечего решил написать просмотрщик
графики.
Просто "просмотрщик графики" я сделал быстро, но просто "просмотрщик графики" это не интересно и даже грустно:((
Поэтому я решил добавить возможность просмотра графики из и-нета ,но как вы уже поняли.....
Если кто-нибуть знает как это возможно осуществить, напишите!!!
Ответ:
Автор ответа: ]CBK[CRaSH
А в чем фишка. Я понять не могу.
Я тоже решил написать СУПЕР МЕГА ИГРУ.
Люди у кого есть код этой игры поделитесь :))))))
А это делается легко
Добовляеш Microsoft Internet Control
WebBrowser1.Navigate "Имя картинки и путь"
Вопрос:
Помогите, какой нибудь информацией по поводу прокрутки колесиком мыши в элименте управления DBGrid и вообще в VB можно получить доступ к колесику
Ответ:
Автор ответа: Шалгачёв Алексей
На самом деле тебе просто нужны грамотные дрова и грид будет листаться довольно неплохо.
Посмотри дрова для своей мыши на сайте производителя.
У меня Genius оптическая на работе и обычная дома, так я поставил дрова и никаких проблем.
Если у тебя такая же мышь, пиши мне и я тебе дрова отправлю почтой!
Вопрос:
Народ, а каково Ваше мнение на Visual Basic 7.0... как он Вам на первый вягляд(а может быть и не на первый)...
Ответ:
Автор ответа: Loki
Зайди на www.vbrain.narod.ru
Вопрос:
Как сделать программу сервисом в Windows XP? Чтобы программа когда запускалась, определяла, какая версия Windows установлена, XP или 98?
Знаю,что сервис в Windows 98 делается так:
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal
ServiceFlags As Long) As Long
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
RegisterServiceProcess GetCurrentProcessId, 1
А как в XP?
Ответ:
Автор ответа: Loki
Никак!
Вопрос:
У меня несколько вопросов:
1. Как можно записать рисунок в переменную, чтобы после значение переменной снова присвоить PictureBox?
h = Picture1.Picture
Picture2.Picture = h - так не выходит, говорит, что требуется объект
h = Picture1.hDC - это вообще лишь указатель на картинку в памяти, если я правильно понял.
Или, если кто знает, как считать ее из памяти в переменную? BitBlt или через сохранение в файл не предлагать.
2. Как выключить комп из Win2k? Те API, что работали в Win9x в Win2k не работают.
3. Может кто знает как использовать *.dic - словари из Word'a(для проверки орфографии).
Буду рад любой информации!
Ответ:
Автор ответа: Loki
1. А непроще сохранить путь к картинки в переменную.
Вопрос:
Вот Задача или незадача! Необходимо создать отчет таком виде чтобы во время выполнения на него можно было брасать разные контролы по DragDrop и затем его распечатать. Пробывал с PictureBox, печатает только графику, может кто подскажет или даст ссылку.
Ответ:
Автор ответа: Артем Кривокрисенко
Кидай контролы на форму, а потом - PrintForm
Вопрос:
Как определить момент выключения компьютера? Надо отсеять перезагруяку и завершение сеанса.
Ответ:
Автор ответа: ViTal
Хехе.... VB для такого не предназначен. Обратись к asm.
Вопрос:
Как с помощью Vb очистить корзину?
Ответ:
Автор ответа: Eugene
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Const SHERB_NOPROGRESSUI = &H2
Private Sub Command1_Click()
Call SHEmptyRecycleBin(Me.hWnd, "", SHERB_NOPROGRESSUI)
End Sub
Ответ:
Автор ответа: ]CBK[CRaSH
На дисках есть папочки Recycled удаляеш их содержимое и все
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по 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
|
Дата: 23.02.2003 10:59 | Раздел: Примеры кода | Автор: Владимир |
|
JPGfromRES - Загрузка картинок в формате JPG и GIF из фаила ресурсов |
|
Дата: 22.02.2003 10:57 | Раздел: Примеры кода | Автор: Дорохов Кирилл |
|
The Kid - Мощный исскуственный интеллект в режиме разговора с человеком. Введена несложная система обучения! На мой взгляд самая умная прога для разговора с человеком! |
|
Дата: 21.02.2003 11:00 | Раздел: Примеры кода | Автор: Страшный Сон |
|
Размывка Движения Мышиного Курсора (1.0) - Размывка движения мышиного курсора. Крутая вещица. Рекомендую всем. |
|
Дата: 21.02.2003 10:57 | Раздел: Примеры кода | Автор: Дорохов Кирилл |
|
Catch Me! - Новая придуманная мною аркада с примитивной графикой, но немного затягивающая... |
|
Дата: 19.02.2003 07:43 | Раздел: Примеры кода | Автор: HACKER |
|
Визуальное рисование для QB на VB - Тяжко на QB рисовать даже элементарные изображения. Теперь всё легко. |
|
Дата: 18.02.2003 10:45 | Раздел: Примеры кода | Автор: Millenium |
|
Sum - Пример размельчения суммы в долларах на 50, 20, 10 и 5. Пример печати содержимого ListBox без использования API. |
|
Дата: 18.02.2003 08:21 | Раздел: Статьи по VB | Автор: Андреев Николай |
|
О работе с LPT-портами и другой аппаратурой в Visual Basic - Эта статья о том, как работать с LPT-портами на Visual Basic. |
|
Дата: 18.02.2003 07:43 | Раздел: Примеры кода | Автор: HACKER |
|
Пересчёт суммы ячеек - Пересчёт суммы ячеек вертикально и горизонтально. |
|
Дата: 17.02.2003 10:46 | Раздел: Примеры кода | Автор: Lesnick |
|
PassGen - Программа для генерации пароля с опциями(благозвучность, сохранение в файл). |
Последние 20 тем форума на VBNet.Ru:
03:56 / 24 фев. определить процессы | Хитов: 12 | Ответов: 2
03:45 / 24 фев. вопрос по combo | Хитов: 8 | Ответов: 1
19:42 / 23 фев. Вопрос по массивам | Хитов: 14 | Ответов: 1
14:51 / 23 фев. Обращение к админам | Хитов: 28 | Ответов: 2
14:43 / 23 фев. !!! Работа с реестром !!! | Хитов: 19 | Ответов: 1
14:39 / 23 фев. Как из DLL выдрать Api ??? | Хитов: 22 | Ответов: 2
11:55 / 23 фев. Помогите начинающему, пожалуйста! (VB 6.0) | Хитов: 22 | Ответов: 3
09:50 / 23 фев. работа с MIDI | Хитов: 15 | Ответов: 2
09:06 / 23 фев. С праздником 23 февраля всех! | Хитов: 23 | Ответов: 3
06:43 / 23 фев. наверно глупый вопрос | Хитов: 33 | Ответов: 2
03:07 / 23 фев. Кому нужно: Системы счисления | Хитов: 29 | Ответов: 3
00:04 / 23 фев. Как записать звук в MP3 | Хитов: 26 | Ответов: 4
23:34 / 22 фев. Memory & Process | Хитов: 12 | Ответов: 0
18:45 / 22 фев. LoadResPicture(..., vbResIcon) | Хитов: 24 | Ответов: 2
18:36 / 22 фев. LoadResPicture(..., vbResIcon) | Хитов: 4 | Ответов: 0
17:50 / 22 фев. Win XP API | Хитов: 39 | Ответов: 4
13:47 / 22 фев. Драйвер виртуального устройства | Хитов: 12 | Ответов: 0
12:47 / 22 фев. Phone | Хитов: 19 | Ответов: 0
10:57 / 22 фев. Помогите... | Хитов: 50 | Ответов: 2
06:26 / 22 фев. Поиск и замена. SQL ??? | Хитов: 26 | Ответов: 3
Последние поступления в Библиотеку кодов:
Новости от VBNet-чиков!:
наверх
Новости сайта VBMania
наверх
Новости сайта Азбука VB
наверх
Новости сайта MSDN
наверх
Новости сайта GotdotNet
Новые статьи:
наверх
Новости сайта dotSite
Новые статьи:
Новые примеры:
наверх
VB как служба (системный сервис)
Вопрос:
Автор вопроса: PeterS
Подскажите пожалуйста, как запустить программу в качестве службы в Win NT/2000/XP.
Желательно без контролла и утилит Windows, а напрямую редактированием реестра.
Ответы:
Автор: Zeus
Я этот же вопрос задавал раньше, никто не ответил...
Но кстати, в NT в реестре есть интересное место автозагрузки:
\software\microsoft\windows nt\current version\windows
создаёшь параметр "load" или "run", пишешь адрес проги, и она будет запускаться, но RegCleaner не увидит)))
Автор: PeterS
Я знаком с этим методом, но к сожалению он мне не подходит.
Автор: ШевТ
используй vb.net! там специально такие вещи делать можно, и, кстати, весма продуктивно! я лично еще до этого не дошел, но говорят, не хуже чем на с++.
Автор: Free Hunter
2ШефТ: ага, и носить за собой FrameWorks .NET чтобы этот системный сервис работал... Не слабого размера сервис получается...
Автор: PeterS
Нет я не могу и не хочу использовать VB.Net, так что нужно использовать другой вариант.
Автор: Free Hunter
Ну тады, ИМХО, на VB6 ты вряд ли такое намутишь...
Автор: Bombardier
Для меня самый простой способ запустить программу как сервис - это использовать WMI, посмотри WMI scripting и конкретно методы для Win32_Service на www.microsoft.com (замечательно работает в VB5-6)
Автор: Free Hunter
ну или вот такой вариант, как предлогает Bombardier - дело вкуса...
Автор: PeterS
Продвижение по этому вопросу такие: я добился запуска своей программы как служба путём добавления значение, в реестр, взяв за основу программу Venta Fax, НО возникает всего одна ошибка при запуске программы в роли службы Windows через некоторое время (секунд 5) сообщает об ошибке №1053: Служба не ответила на запрос своевременно. И после этого моя программа закрывается. Я так понял что надо во время загрузки моей программы передать какую-то команду Windows. Может кто-нибудь испробует это и сможет найти решение.
Желаю успехов!!
Пишите о ваших достижениях PeterStudio@mail.ru
наверх
Доска объявлений
Ищу телеработу.
- Переводы: английский, украинский, русский.
- Cipper программист.
- Assembler программист.
- PIC разработчик
- композитор
- Прогрессивные стили
- 3D анимация
- GIF анимация
наверх
Мои программы
BalloonMessage for MS Agent
BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels.
Авторы: Шатрыкин Иван и Павел Сурменок.
наверх
Вопрос/Ответ
Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.
Вопросы:Автор вопроса: 001
Ответ ожидается по этому адресу
У меня 3 вопроса
1) Как можно яасунуть в ресурc MP3 файл, а потом проиграть его оттуда?
2) Как програмно ияменять громкость явука, балланс?
3) Объясните, пожалуйста, как пользоваться WinSock'ом? (Соединение, передача данных, файлов...)
Автор вопроса: ViTal
Ответ ожидается по этому адресу
В режиме "Крупные значки" эксплорер отображает маленькие (16х16) иконки размазанными (до 32х32). Как получить такую размазанность при деформациях изображений в своём приложении?
Автор вопроса: Владимир
Ответ ожидается по этому адресу
Как на VB6 создать папку для хранения URL c последующим их открытием в браузере по умолчанию. И со счетчиком их количества.
Автор вопроса: Nicekaifer
Ответ ожидается по этому адресу
Доброе время суток. А реально написать прогу на VB6 и сделать так чтобы она висела в трее (прям значком) а при нажатии на нее левой открывалась, а правой показывала меню?
Автор вопроса: Святослав
Ответ ожидается по этому адресу
У меня три вопроса, которые я сам пока не могу разрешить.
1. Как в VB6 запретить запуск экранной заставки на время работы моей программы?
2. Как проиграть avi-файл?
В 71 выпуске была статья "Проиграть Avi-файл в Picture Box ".
Пример рабочий, только есть одно большое НО.
На время работы программа блокируется и невозможно
выйти из нее, пока avi-файл не будет проигран.
Т.е. если использовать этот пример, то необходимо добавить кнопку Stop и Pause, а также прогресс бар.
Код программы привожу :
Добавьте CommandButton и PictureBox на форму
Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Const WS_CHILD = &H40000000
Sub PlayAVIPictureBox(FileName As String, ByVal Window As PictureBox)
Dim RetVal As Long
Dim CommandString As String
Dim ShortFileName As String * 260
Dim deviceIsOpen As Boolean
'Retrieve short file name format
RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
FileName = Left$(ShortFileName, RetVal)
'Open the device
CommandString = "Open " & FileName & " type AVIVideo alias AVIFile parent " & CStr(Window.hWnd) & " style " & CStr(WS_CHILD)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal Then GoTo error
'remember that the device is now open
deviceIsOpen = True
'Resize the movie to PictureBox size
CommandString = "put AVIFile window at 0 0 " & CStr(Window.ScaleWidth / _
Screen.TwipsPerPixelX) & " " & CStr(Window.ScaleHeight / _
Screen.TwipsPerPixelY)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'Play the file
CommandString = "Play AVIFile wait"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'Close the device
CommandString = "Close AVIFile"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
Exit Sub
error:
'An error occurred.
'Get the error description
Dim ErrorString As String
ErrorString = Space$(256)
mciGetErrorString RetVal, ErrorString, Len(ErrorString)
ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)
'close the device if necessary
If deviceIsOpen Then
CommandString = "Close AVIFile"
mciSendString CommandString, vbNullString, 0, 0&
End If
'raise a custom error, with the proper description
Err.Raise 999, , ErrorString
End Sub
Private Sub Command1_Click()
'replace 'c:\myfile.avi' with the name of the AVI file you want to 'play
PlayAVIPictureBox "путь к файлу\*.avi", Picture1
End Sub
3. Есть код, позволяющий создать окно произвольной формы.
В Win9x/Me все работает как положено, а в Win XP ненужные участки формы не обрезаются, т.е. на экране форма имеет вид прямоугольника. Кто подскажет, в чем дело и как это поправить?
Код программы привожу:
Option Explicit
'Объявляем API-функцию, которая так сказать
'накладывает созданный регион на окно (те
'части которые остались за пределами
'региона исчезают), где: hwnd - идентифика-
'тор окна, на котором нужно "выдавить"
'форму, hRgn - "формочка" для окна,
'bRedraw - перерисовывать ли окно после
'"выдавления".
Private Declare Function SetWindowRgn _
Lib "user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As _
Boolean) As Long
'Объявляем API-функцию чтобы создать
'регион-"формочку" (состоит регион из n-ого
'количества точек, которое необходимо
'задать), где: lpPoint - первая точка
'региона, nCount - количество точек,
'nPolyFillMode - описание метода заливки
'полигона.
Private Declare Function CreatePolygonRgn _
Lib "gdi32" (lpPoint As POINTAPI, _
ByVal nCount As Long, ByVal _
nPolyFillMode As Long) As Long
'Объявляем тип для описания координат
'каждой точки
Private Type POINTAPI
x As Long
y As Long
End Type
'Объявляем массив P по типу POINTAPI
Dim P(128) As POINTAPI
Private Sub Form_Load()
'Присвоим свойству Picture формы такого
'же вида свойство
Picture = Image1
'Записываем код для каждой точки,
'описывающий её координаты в пикселах
P(0).x = 448: P(0).y = 25
P(1).x = 97: P(1).y = 45
P(2).x = 98: P(2).y = 33
'Задаются остальные точки...
P(126).x = 90: P(126).y = 43
P(127).x = 93: P(127).y = 45
P(128).x = 448: P(128).y = 25
'Объявляем переменную, содержащую
'регион
Dim Rgn As Long
'Создаём регион
Rgn = CreatePolygonRgn(P(0), 128, 0)
'"Выдавливем форму"
Call SetWindowRgn(hwnd, Rgn, True)
End Sub
Автор вопроса: Alec Perle
Ответ ожидается по этому адресу
Вопрос по VBA (Excel). К объектам Shape на листе можно приделать макрос (OnAction). У меня порядка двух-трех сотен элементов. Как программно определить, на каком именно элементе была нажата мышка?
Автор вопроса: SinitsynM@FreeMail.ru
Ответ ожидается по этому адресу
У меня есть форма, на которой куча текстовых полей для внесения
различного рода информации. Хочу, чтобы при печати они были распределены
по листу А4 равномерно (ну чтобы оформление было приемлемым). Сразу
расположить их в нужном порядке не получается. Как я ни старался, но А4
никак не вписывается в мои диагонали. Может кто-нибудь подкинет идею?
Сделал себе ScreenSaver, но заставить его по-человечески бегать никак не
могу. Может кто видел, как эти твари бегают по рабочему столу? Так вот,
это не про моего. Единственное, на что он способен (ну в этом отчасти и
моя вина), так это на:
Private Sub Timer1_Timer()
b = CurrentX
c = CurrentY
Move Left + 100 * f + b * f, Top + 100 * g + c * g
If Left >= Screen.Width - Form1.ScaleWidth Then f = -1
If Left <= 0 Then f = 1
If Top >= Screen.Height - Form1.ScaleHeight Then g = -1
If Top <= 0 Then g = 1
End Sub
(отскакивает от стенки на 90 градусов и убегает от мышки)
Может у кого-нибудь есть секретная формула активности этой живности?
Поделитесь пожалуйста.
П.С.: Так всегда бывает - как появляется свободное время, так куда-то
деваются все идеи, которые вынашивал и взращивал в минуты отвратительной
и нудной лекции по электрооборудованию с предвкушением их осуществления
и заблаговременным поздравлением себя с преждевременным успехом. О чём
это я?... А-а-а! Так вот - предлагаю поделиться с начинающими
программистами проектами, с которых вы начинали мозолить пальцы
клавиатурой. Думаю, не одному мне будет интересно.
Автор вопроса: VMJ
Ответ ожидается по этому адресу
Кому попадалась подсказка - как влепить свою кнопку в Toolbar InternetExplorer-на манер FlashGet?
Не обязательно на Vb...
Автор вопроса: Den
Ответ ожидается по этому адресу
Как сделать, чтобы программа была сервисом в Windows XP?
Ответы:
Вопрос:
Как скопировать папку со всем её содержимым, хорошо бы было без перебора всех подпапок и файлов.
Ответ:
Автор ответа: TiborF
Для начала ты должен понять, что есть папка(директория)
Без перебора подпапок и файлов содержащихся в них, ты скопируеш только саму папку.
Вопрос:
Как, если можно, сделать в VB ассемблерные вставки?
Ответ:
Автор ответа: TiborF
Да никак. Там етого не предусмотрено :(
Вопрос:
Подскажите, как сделать форму проярачной? С SetWindowLong что-то не получается
Ответ:
Автор ответа: TiborF
Это делаеться посредством ф BitBlt.
Ищи исходники примеров работы с этой ф.
А лудше поставь себе VB5, он немного отличаеться от 6 и там есть хелпы с семплами ;)
Вопрос:
Как в VB играть MIDI,WAV,MP3и другие файлы?
Ответ:
Автор ответа: TiborF
Используй Microsoft Multimedia Control, он всё могёт.
Вопрос:
Скажите, существует ли такая API функция, которая считывает состояние трафика, при соединении с Инетом?
Ответ:
Автор ответа: TiborF
Вообще существует много всёких полезных API.
Некоторые из них ходёт за тебя в магазин :)
Вопрос:
Как мне создать новый элемент а именно OptionButton в работающей программе на фрейме и определить ему свойства.
Ответ:
Автор ответа: TiborF
Ну вопервых на форме уже должен быть такой объект, причём с индексом. например всё так, и индекс первого объекта = 0, тогда чтобы создать ещё один надо всего лишь проделать следующее:
Load Option1(1)
With Option1(1)
.Left = 0
.Top = 0
.Caption = "Caption"
.Value = False
.Visible = True
End With
Вопрос:
Не подскажите ли вы как в тестбоксе (или рич текст боксе) изменить цвет
(программным путём) конкретных символов, например, я ввожу в текст-бокс "Привет всем !!!". Нужно слово "привет" сделать зелёным, "всем" красным и "!!!" синим цветом. Или ещё например как в редакторе VB- все команды синим цветом, ремарки зелёным и т.д.
Ответ:
Автор ответа: TiborF
Наверное тет оптимально использовать ф Find
Только толку от неё мало :(
Вопрос:
Можно ли привяяать координаты дочерней формы (свойства Top и Left) к координатам кнопки, по нажатию на котррую эта форма выяывается. Например, чтобы дочерняя форма появлялась строго под кнопкой неяависимо от положения самой кнопки на родительской форме?
В приведенном ниже примере привяяка почему-то не работает:
Form1.Left = MainForm.cmdButton.Left + 100
Form1.Top = MainForm.cmdButton.Top + 50
Ответ:
Автор ответа: ]CBK[CRaSH
Тут фишка в том что координаты кнопки считаются по форме. А формы по экрану. Чтобы это все дело работало в процедуру Form_resize from1 засунь текст
Me.Left = Form1.Command1.Left + MainForm.Left
Me.Top = Form1.Command1.Top + MainForm.Top
Но незабудь что дочерняя форма будет появляться чуть выше из-за заголовка
Вопрос:
У меня творческий облом ,и от делать нечего решил написать просмотрщик
графики.
Просто "просмотрщик графики" я сделал быстро, но просто "просмотрщик графики" это не интересно и даже грустно:((
Поэтому я решил добавить возможность просмотра графики из и-нета ,но как вы уже поняли.....
Если кто-нибуть знает как это возможно осуществить, напишите!!!
Ответ:
Автор ответа: ]CBK[CRaSH
А в чем фишка. Я понять не могу.
Я тоже решил написать СУПЕР МЕГА ИГРУ.
Люди у кого есть код этой игры поделитесь :))))))
А это делается легко
Добовляеш Microsoft Internet Control
WebBrowser1.Navigate "Имя картинки и путь"
Вопрос:
Помогите, какой нибудь информацией по поводу прокрутки колесиком мыши в элименте управления DBGrid и вообще в VB можно получить доступ к колесику
Ответ:
Автор ответа: Шалгачёв Алексей
На самом деле тебе просто нужны грамотные дрова и грид будет листаться довольно неплохо.
Посмотри дрова для своей мыши на сайте производителя.
У меня Genius оптическая на работе и обычная дома, так я поставил дрова и никаких проблем.
Если у тебя такая же мышь, пиши мне и я тебе дрова отправлю почтой!
Вопрос:
Народ, а каково Ваше мнение на Visual Basic 7.0... как он Вам на первый вягляд(а может быть и не на первый)...
Ответ:
Автор ответа: Loki
Зайди на www.vbrain.narod.ru
Вопрос:
Как сделать программу сервисом в Windows XP? Чтобы программа когда запускалась, определяла, какая версия Windows установлена, XP или 98?
Знаю,что сервис в Windows 98 делается так:
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal
ServiceFlags As Long) As Long
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
RegisterServiceProcess GetCurrentProcessId, 1
А как в XP?
Ответ:
Автор ответа: Loki
Никак!
Вопрос:
У меня несколько вопросов:
1. Как можно записать рисунок в переменную, чтобы после значение переменной снова присвоить PictureBox?
h = Picture1.Picture
Picture2.Picture = h - так не выходит, говорит, что требуется объект
h = Picture1.hDC - это вообще лишь указатель на картинку в памяти, если я правильно понял.
Или, если кто знает, как считать ее из памяти в переменную? BitBlt или через сохранение в файл не предлагать.
2. Как выключить комп из Win2k? Те API, что работали в Win9x в Win2k не работают.
3. Может кто знает как использовать *.dic - словари из Word'a(для проверки орфографии).
Буду рад любой информации!
Ответ:
Автор ответа: Loki
1. А непроще сохранить путь к картинки в переменную.
Вопрос:
Вот Задача или незадача! Необходимо создать отчет таком виде чтобы во время выполнения на него можно было брасать разные контролы по DragDrop и затем его распечатать. Пробывал с PictureBox, печатает только графику, может кто подскажет или даст ссылку.
Ответ:
Автор ответа: Артем Кривокрисенко
Кидай контролы на форму, а потом - PrintForm
Вопрос:
Как определить момент выключения компьютера? Надо отсеять перезагруяку и завершение сеанса.
Ответ:
Автор ответа: ViTal
Хехе.... VB для такого не предназначен. Обратись к asm.
Вопрос:
Как с помощью Vb очистить корзину?
Ответ:
Автор ответа: Eugene
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Const SHERB_NOPROGRESSUI = &H2
Private Sub Command1_Click()
Call SHEmptyRecycleBin(Me.hWnd, "", SHERB_NOPROGRESSUI)
End Sub
Ответ:
Автор ответа: ]CBK[CRaSH
На дисках есть папочки Recycled удаляеш их содержимое и все
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.