Архив рассылки сайта VBNet

Книги

		Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.) Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...
		Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.
		Программирование на VB.NET. Учебный курс (цена ~ 119 руб.) Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .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 можно найти здесь.

наверх

Внимание!

Здравствуйте!
На нашем сайте www.vbnet.ru происходит смена дизайна. Одной из его особенностей является публикация информации об авторах статей, опубликованных на нашем сайте. В связи с этим администрация сайта просит, если есть такая возможность, всем авторам статей, выслать на admin@vbnet.ru любую Вашу фотографию (на сайте будет использоваться ее небольшой фрагмент 90х90). Размеры фотографии и т.д. мы "подгоним" сами. Также нам хотелось бы, чтобы Вы прислали немного информации о себе - несколько строчек. Надеемся на понимание в этом вопросе. Спасибо!

наверх

Citycat by Email

Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

наверх

Новости сайта VBNet

Дата: 01.12.2002 12:04 | Раздел: Примеры кода | Автор: CyRax

PicInDoc - Извлечение рисунков из документов Word'97-2002

Дата: 01.12.2002 12:02 | Раздел: Полезные программы | Автор: CyRax

ПСП - С её помощью можно быстро создавать справочную систему для своих приложений или просто файлы помощи Windows.

Дата: 01.12.2002 07:16 | Раздел: Примеры кода | Автор: Половый Александр

Ruler - Это новая версия витуальной линейки. В ней больше возможностей для работы с метками.

Дата: 26.11.2002 15:11 | Раздел: Статьи по VB | Автор: Команда dotSite

Конфигурирование ASP.NET приложений. Обзор config.web - Если вы более или менее внимательно изучали ASP.NET, то безусловно встречали название config.web. Более того, не сложно догадаться, для чего он нужен - для конфигурирования приложения. Однако более подробно о действии установок файла, его структуре и возможном составе складывается противоречивое впечатление. Здесь мы опишем возможности и правила применения config.web.

Новости сайта VBMania

наверх

Новости сайта Азбука VB

наверх

Доска объявлений

Ищу телеработу.

Переводы: английский, украинский, русский.
Cipper программист.
Assembler программист.
PIC разработчик
композитор
Прогрессивные стили
3D анимация
GIF анимация

Антон Лозовский.

наверх

Мои программы

BalloonMessage for MS Agent

BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

Авторы: Шатрыкин Иван и Павел Сурменок.

Подробнее...

наверх

Вопрос/Ответ

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

Вопросы:

Автор вопроса: RJ

Ответ ожидается по этому адресу

Я новичок.
У меня два вопроса.

1) Установил VB6. При выяове справки получаю "MSDN collection is not installed". Это ояначает, что диск, с которого я устанавливал VB6 является пиратским и не содержал файлов справки или я что-то сделал не то? И где я могу найти эту самую MSDN collection и как ее доустановить?
2) При написании кода, ничего не могу напечатать по-русски. например

MsgBox "Привет"

Как можно яаставить VB6 понимать кириллицу или мне надо установить VB6 русскую версию?

Автор вопроса: shadow

Ответ ожидается по этому адресу

В некоторых играх есть слишком сложные комбинации управляющих клавиш, я пытаюсь заменить их. Но при помощи sendkeys, keybd_event или postmessage - нифига невыходит... В оконные приложения все передается замечательно, а игрушки полноэкранные. Что посоветуете(кроме забить и не парицца)?

Автор вопроса: Святослав

Ответ ожидается по этому адресу

В 113 выпуске был ответ на вопрос о вертикальной прокрутке в ListBox-е, а как сделать горизонтальную прокрутку ? Очень надо.

Автор вопроса: Святослав

Ответ ожидается по этому адресу

Есть ListBox у которого свойство Sorted = False. Необходимо в определенный момент работы программы (например при установке свойства VALUE = 1 у CheckBox-а) произвести сортировку. Программно, простым заданием ListBox1.Sorted = True не получается.

Автор вопроса: lom

Ответ ожидается по этому адресу

Хотелось бы конечно, чтобы мои элементы управления были бы неправильной формой (в особенности форма проекта, кнопки и textbox), не подскажите как это сделать?

Автор вопроса: newstyle@aspol.ru

Ответ ожидается по этому адресу

В MS Access 2002 есть тип данных - "Код репликации", если я правильно понял генерируется уникальное слово в 16 байт с цифирями, буквами и всякими другими символами, которое [слово] в одной базе(*.mdb) по полям всех таблиц АБСОЛЮТНО НИГДЕ БОЛЬШЕ НЕ ВСТРЕЧАЕТСЯ, т.е. только уникальная запись какой-то одной таблицы в базе носит его?!
Или я не правильно понял HELP по Access'у? Поправьте меня, плз?!

Ответы:

Вопрос:

   Как отобаяить в listbox имена файлов в укаяаной папки

Ответ:

Автор ответа: Святослав

Все очень просто.
----------------------------

Dim fileName As String

fileName=Dir (''путь для поиска")
'Перечисляем файлы каталога
Do While fileName <> ""
     ListBox1.AddItem fileName
     fileName = Dir
Loop
------------------------------
Только необходимо помнить, что путь к файлу должен оканчиваться символом "\".

Вопрос:

Что нужно сделать, чтобы гиперссылка отображалась в текстовом поле также как в Wordе или в IE.

Ответ:

Автор ответа: Bezeq

Если тебе надо чтоб только ссылка отображалась как нужно, а текст был черным, то единственный путь - это использовать RichTextBox.
Если же ссылка является единственным текстом, находящимся в блоке, то тогда, установи свойства фонта текстового поля. (синий цвет с подчеркнутой линией)

Ответ:

Автор ответа: Tibor

Вот тебе код.
Конечно не то что тебе надо но думаю пригодиться.

Option Explicit
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 Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long)
As Integer
Private Declare Function ShellExecuteA Lib "shell32.dll" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Type Point
     lngX As Long
     lngY As Long
End Type
Private pntPos As Point

Private Sub Form_Load()
txtMain.Text = "mailto:[mail@mail.ru]"
End Sub

Private Sub Form_Resize()
     On Error Resume Next
     txtMain.Move txtMain.Left, txtMain.Top, ScaleWidth - txtMain.Left * 2,
ScaleHeight - txtMain.Top * 2
End Sub
Private Sub txtMain_KeyDown(Key As Integer, Shift As Integer)
     If GetAsyncKeyState(vbKeyControl) <> 0 And GetAsyncKeyState(vbKeyV) <> 0 Then
         If Not Clipboard.GetData.Type > 0 Then txtMain.SelText = Clipboard.GetText
         Key = 0
     End If
End Sub
Private Sub txtMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     Shell GetWord(txtMain.Text, SendMessage(txtMain.hwnd, &HD7, 0, pntPos))
End Sub
Private Sub txtMain_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
     pntPos.lngX = x \ Screen.TwipsPerPixelX
     pntPos.lngY = y \ Screen.TwipsPerPixelY
     If GetWord(txtMain.Text, SendMessage(txtMain.hwnd, &HD7, 0, pntPos)) = "" Then txtMain.MousePointer = 1 Else txtMain.MousePointer = 99
End Sub
Public Function GetWord(ByVal strString As String, ByVal lngPos As Long) As String
     On Error Resume Next
     If InStr(1, strString, "[") = False Then Exit Function
     Dim lngIndex As Long
     For lngIndex = lngPos To 1 Step -1
         If Mid(strString, lngIndex, 1) = "]" Then Exit Function
         If Mid(strString, lngIndex, 1) = "[" Then Exit For
     Next
     If InStr(lngIndex + 1, strString, "]") Then GetWord = Mid(strString, lngIndex + 1, InStr(lngIndex, strString, "]") - lngIndex - 1)
End Function
Public Sub Shell(ByVal strAdress As String)
     On Error Resume Next
     If InStr(1, strAdress, ".") = False Then Exit Sub
     If InStr(1, strAdress, "@") > 0 Then
         ShellExecuteA 0, "open", "mailto:" & strAdress, 0, 0, 0
     ElseIf Left(LCase(strAdress), 3) = "www" Or Left(LCase(strAdress), 7) = "http://" Or Left(LCase(strAdress), 6) = "ftp://" Then
         ShellExecuteA 0, "open", strAdress, 0, 0, 0
     End If
End Sub

Вопрос:

Народ! Может кто знает, как делать асемблерные вставки в VB???? (на подобии Delphi или C++ ...) - ведь должно ж быть.

Ответ:

Автор ответа: Александров Дмитрий

Говорю как MCP по VB, нету в нем такого ;)

Вопрос:

Как можно прицепить к TextBox'у свое контекстное меню, чтобы при нажатии правой кнопки мыши выскакивала моя менюшка а не стандартная. Если в событие MouseDown (up) прописать ShowPopupMenu все равно выскакивает стандартное от текстового поля. Как его заблокировать. Писать свой контрол с нуля или подключать уже готовый не хотелось бы, т.к. данный ход нужен только в одном месте на весь проект, а сторонний контрол ресурсов сожрет немерено.

Ответ:

Автор ответа: Tibor

а надо писать не ShowPopupMenu а просто Popupmenu MenuName

Вопрос:

есть ли такой компонент с помощью которого можно было открыть HTML страницу? Если есть то как с помощью него открыть страницу?

Ответ:

Автор ответа: Tibor

есть такой контрол MicroSoft Internet Controls называется
а вот так он будет открывать нужный УРЛ

WebBrowser.Navigate "page.html"

Вопрос:

Как заблокировать клавиатуру и мышь. Нужно чтоб работало даже если запущена игра или еще что.

Ответ:

Автор ответа: Nechaev Sergey

shell "rundll32 keyboard,disable"
shell "rundll32 mouse,disable"

Вопрос:

   Подскажите как считать из *.txt строки, к примеру 10 всего 5 но в произвольном порядке

Ответ:

Автор ответа: Ревягин_Алексей

Довольно просто:

   'считываем файл в массив
   dim mas(4) as string,i%,str$,c%
   open ПУТЬ_К_ФАЙЛУ for input as #2
   do until eof(2)
   line input #2,str
   mas(i)=str
   i=i+1
   loop

   for i=1 to 10
   101:
   c=int(rnd*10)
   if c<=4 then
   msgbox mas(c)
   else
   goto 101
   endif
   next

Вопрос:

Есть файл Avi, ножно сунуть его в прогу ,чтобы не тоскать его отдельно. Кто-нибудь знает как ??? Мои эксперементы с ole обламилсь:((((((((( если ,конечно, ole это то ,что нужно.

Ответ:

Автор ответа: Стас Паничев

А ты не пробовал пользоваться редактором ресурсов он есть в VB.

Ответ:

Автор ответа: Tibor

используй ResursEditor
а потом чтобы вытащить из него какой нибудь ресурс пишеш что - ни будь из етого

LoadResData,
LoadResString,
LoadResPicture.

Вопрос:

   Пишу

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub Form_Load()
     lngresult = fCreateShellLink("..\..\Desktop", "LINK", "C:\myfile.exe", "")
End Sub

Но нечего не появляется.
1.Почему ?
2. Как создать ярлык на рабочем столе ?

Ответ:

Автор ответа: Nechaev Sergey

Адрес папки рабочий стол есть в реестре (вот только не помню где точно, выполни поиск по ее реальному пути у себя и найдешь нужный параметр). Читай данный путь из реестра и передавай его функции, она похоже не понимает твоих ".."

Можете заполнить эту форму, либо отослать вопрос СЮДА

Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
наверх

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 114.

Выпуск подготовили:

Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 114.

Выпуск подготовили:

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 114.