Архив рассылки сайта 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 можно найти здесь.

наверх

Citycat by Email

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

наверх

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

Дата: 13.04.2003 05:45 | Раздел: Примеры кода | Автор: Millenium

Игра в Кости - Простая игра в кости... .. Вы загадываете цифру и бросаете кости.

Дата: 11.04.2003 10:51 | Раздел: ActiveX контролы | Автор: Вологин Артём

WinControl 1.5 - Новая версия контрола, теперь собрано около 55 функций для работы с Windows. Имеется Help.

Дата: 09.04.2003 11:31 | Раздел: ActiveX контролы | Автор: SCINER

Advanced window hook - Контрол позволяет получать сообщения, посылаемые выбравнному окну.

Дата: 07.04.2003 10:47 | Раздел: Примеры кода | Автор: Kir Alper

WinExit III - Простенькая прога : Выход из Windows (XP) Видно ее работу только в SysTray. Иконка в SysTray "живая"(True Color). Добавлена быстрая перезагрузка, выключение, LogOff,Mailto,время работы Windows, получение своего IP-address и переменных среды. Добавлена возможность AutoStart. Добавлены украшательства.

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

наверх

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

наверх

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

наверх

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

10.04.2003 - Подведены итоги первого и второго мастер классов "Введение в C#"
Поздравляем участников первых мастер классов!
07.04.2003 - Открыт бесплатный пробный хостинг ASP.NET приложений на Windows Server 2003!
С 4 апреля 2003 мы начинаем предоставлять бесплатный пробный хостинг приложений ASP.NET на новой платформе - Windows Server 2003.

Новые статьи:

наверх

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

Новые статьи:

Новые примеры:

наверх

Один момент из жизни форума: Как, используя ADODC, передать в хранимую проце...

Вопрос:
Автор вопроса: Evgeny D

   Ситуация такая.
   Есть в SQL Server БД, в ней - хранимая процедура с входным параметром (дата).
   Для adodc задаю параметры:

   adodc.ConnectionString = "myDSN"
   adodc.CommandType = adCmdStoredProc
   adodc.RecordSource = "myProc"

   А как ей передать параметр (дату)?

Ответы:

Автор: Andrei
   Если кратко:
   Делай запрос на объединение.
   А чтобы програмно создать связи посмотри:
   http://www.relib.com/forums/topic.asp?id=758740

Автор: Satrapp
   Уточняя ответ по поводу запроса...
   table1 { INNER | LEFT | RIGHT } JOIN table2 ON table1.key1 = table2.key2

Автор: BuilderSoft
   SQL хорошо это делает

   dim db as database
   dim rec as recordset
   dim strsql as string
   set db = currentdb
   strsql=".........." whith joint tables
   set rec=db.openrecordset(strsql)

наверх

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

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

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

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

наверх

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

BalloonMessage for MS Agent

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

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

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

наверх

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

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

Вопросы:

Автор вопроса: Вадим

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

В Exel есть форма. 1-я строка(1) и столбец(А) с такими данными: день.месяц.год фамилия имя часы:минуты (это все в одной ячейке А1). Можно ли каким-то обраяом выделить только часы и минуты, скопировав часы в ячейку В1, минуты в С1? Данные каждый день вносятся в первый столбец до 200 строки(А200), накапливаются(1-й день в А1, 2-й в А2 и т.д). Можно решить этот вопрос средствами basic или макросами?

Автор вопроса: Данила

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

Есть ещё вопрос: как быстро вывести таблицу из базы на экран. Я использую MSFlexGrid. Проблема в том, что 36000 строк появляются примерно через 10 минут. Код такой:

Set rs = db.OpenRecordset("звонки")
rs.MoveFirst
Do Until rs.EOF = True
MSFlexGrid1.AddItem rs("ID_звонка")
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 1
MSFlexGrid1.Clip = rs("тип_звонка")
MSFlexGrid1.Col = 2
MSFlexGrid1.Clip = rs("дата")
MSFlexGrid1.Col = 3
MSFlexGrid1.Clip = rs("время")
MSFlexGrid1.Col = 4
MSFlexGrid1.Clip = rs("код")
MSFlexGrid1.Col = 5
MSFlexGrid1.Clip = rs("номер")
MSFlexGrid1.Col = 6
MSFlexGrid1.Clip = rs("направление")
MSFlexGrid1.Col = 7
MSFlexGrid1.Clip = rs("длительность")
MSFlexGrid1.Col = 8
MSFlexGrid1.Clip = rs("стоимость")
MSFlexGrid1.Col = 9
MSFlexGrid1.Clip = rs("валюта")
rs.MoveNext
Loop
MSFlexGrid1.Visible = True
MSFlexGrid1.Enabled = True

Есть варианты? Нужно учесть, что данные в базе меняются и выводимую таблицу нужно будет обновлять.

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

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

Вот такая тупая ситуация... На форме есть filelistbox, в нём отображаются файлы, находящиеся в какой либо папке. Так вот после удаления файла никак не могу сделать чтобы сабж обновил список. Делал после удаления вот так:

fileListBox.path = SomeCatalog

где SomeCatalog - папка, содержащая данные файлы. Раньше делал подобное, а сейчас подзабыл как...

Автор вопроса: Сергей Авраменко

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

Как сделать прозрачный контрол,чтобы отвечал на MouseMove, MouseEnter, MouseOut?

Автор вопроса: Сергей

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

Подскажите пожалуйста, как преобразовать фаил. То есть открыть *bmp и сохранить как *jpg ???

Ответы:

Вопрос:

   у меня 4 вопроса но особенно меня волнуют 1 и 4(в особенности) вопросы.

1).как через winsock отправлять файлы
2).как из *dll использовать ресурсы
3).как с помощью vb запорлить папку
4).как в ходе работы программы записовать текст прямо в *exe-шник программы и читать его от туда!

Ответ:

Автор ответа: Алексей

PrgPath = LCase(Trim(App.Path)) ‘получаем путь к нашей программе
        If Right(PrgPath, 1) <> "\" Then PrgPath = PrgPath & "\"
        FF = FreeFile

     Считываем сами себя (содержимое запущенного exe-файла) в переменную

        Open PrgPath & App.EXEName & ".exe" For Binary As #FF
            Size = LOF(FF)
     ** Tet = Input(Size, #FF)
        Close #FF

     Находим наше специальное слово, указывающее на начало исходного кода

        CodeStart = InStr(1, Tet, "YXINE", vbTextCompare)
        If CodeStart = 0 Then
          указатель не найден - значит мы в оригинальном файле
           (копия RIPLC.exe), который ещё не содержит исходный код ->
            записываем исходный код в конец exe-программы

  Теперь записываем преобразованный исходник в конец exe-файла после специального слова ‘YXINE’

         Open FNWE(cmd) For Binary Access Write As FF
              Put #FF, Size + 1, "YXINE"
              Put #FF, Size + 6, Code()
         Close #FF


Данная вырезка сделана из статьи Ларина Александра с сайта VBNET.Ru.

Вопрос:

Где найти библиотеку VB со статистическими или аналитическими функциями, например вычисление корреляции между массивами?
Всё-таки испольяование Excel тяжеловесно!

Ответ:

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

Используй MathCad 2000.

Вопрос:

   Кто знает как получить содержимое ListBox с помощью API???

Ответ:

Автор ответа: Savchuk, Andrey

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
     (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam As Long) As Long
Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
     (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam As String) As Long

Public Const LB_GETCOUNT = &H18B
Public Const LB_GETTEXT = &H189

Dim sItemText As String * 255

     lngItemCount = SendMessageLong(hwndListBox, LB_GETCOUNT, 0&, 0&)
     If lngItemCount > 0 Then
         For iElement = 0 To lngItemCount - 1
             sItemText = ""
             Call SendMessageStr(hwndListBox,LB_GETTEXT, iElement, ByVal
sItemText)
         Next
     End If

Вопрос:

Как использовать файл "programm.exe.manifest". У меня однажды получилось, интерфейс действительно стал в стиле ХР, но потом убрал ссылку на какую-то библиотеку и все пропало. Win XP начал выдавать ошибку в msvbm60.dll прияапуске приграммы. Удаляю .manifest - все работает, но интерфейс становится стандартным. Как это исправить?

Ответ:

Автор ответа: Андрей Никитин

1. Надо добавить:
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
в (General)->(Declarations)

2. В Form_Initialize добавить:
InitCommonControls

3. В каталог с программой положить файлик моя_программа.exe.manifest

P.S. При запуске в среде VB не произведет никакого эффекта - надо скомпилировать проект и запустить прогу не из VB.

Вопрос:

   Как можнл перехватить нажатие клавиши tab на каком нибудь контроле, keypress и keydown не работают. Может надо пользоваться какой-нибудь API-шной функцией, поскольку вроде Windows перехватывает упрвление на себя?

Ответ:

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

'Модуль
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_TAB = &H9 ' Константа для TAB key.Для других кнопок посмотрите в API вьювере

'Программа
If GetAsyncKeyState(VK_TAB) And KEY_SHIFT = True Then
     msgboх "Кто то трогает ТАБ", vbinformation
End If

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

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

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

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

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

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

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