Он-лайн руководство по VB, ASP, SQL

--------------------------------------------------------------------------------
ОБЗОР НОВОСТЕЙ

http://vbcity.com/vbcode/ru/home.asp

НОВИНКА: ВИРУСЫ ДЛЯ МОБИЛЬНИКОВ

Для того чтобы создать вирус достаточно уметь программировать на VB. В Германии появилась
новая вредоносная программа, написанная на MS Visual Basic 5.0, способная нанести
вред сотовым телефонам и их владельцам. Она позволяет в любое время и в любом количестве
отправлять SMS-сообщения на выбранный номер того или иного сотового телефона. Для
передачи SMS-сообщений программа использует публичные шлюзы в сотовые сети связи:
www.free-sms.com, sms-link.btn.de, www.nm-info.de, www.pcteam.de, www.mobidig.net,
www.lycos.de. Остается добавить, что наши владельцы мобильников пока могут спать
спокойно - данные шлюзы работают только в ФРГ.

В ФРГ ЗА ПОСЛЕДНИЕ 8 ДНЕЙ ВЫДАНО 432 GREEN CARDS

В Германии началась выдача временных разрешений на проживание и работу для иностранных
программистов. За первую неделю августа было выдано 432 Green Cards, сообщил Комитет
ФРГ по занятости населения. В общей сложности страна намерена принять 20 тыс. компьютерных
экспертов с целью покрыть недостаток в программистах, оцениваемый в настоящее время
в 75 тыс. человек.

О том, как устроиться на работу в Германию, сколько получает немецкий программист
и как живут русские за рубежом читайте в материалах сервера Rusportal.de

www.rusportal.de

--------------------------------------------------------------------------------
VB: СОВЕТЫ РАЗРАБОТЧИКУ

ПОЛУЧЕНИЕ ОПРЕДЕЛЕННОЙ СТРОКИ В TEXTBOX

Данный пример показывает как при помощи API-функции SendMessage() получить количество
строк в TextBox и построчно считать их значения. Добавьте на вашу форму TextBox с
именем TextBox1 и скопируйте данный пример.

Private Declare Function SendMessageAsLong Lib "user32" 
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, 
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function SendMessageAsString Lib "user32" 
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, 
ByVal wParam As Long, ByVal lParam As String) As Long

Dim Buffer As String
Dim resizing As Integer

Const EM_GETLINE = 196
Const EM_GETLINECOUNT = 186
Const MAX_CHAR_PER_LINE = 255 ' ограничение длины строки в TextBox

'Получение строки с номером LineNumber
Private Function fGetLine$(LineNumber As Long)

byteLo% = MAX_CHAR_PER_LINE And (255)
byteHi% = Int(MAX_CHAR_PER_LINE / 256)
Buffer$ = Chr$(byteLo%) + Chr$(byteHi%) + Space$(MAX_CHAR_PER_LINE - 2)
x = SendMessageAsString(Text1.hWnd, EM_GETLINE, LineNumber, Buffer$)
fGetLine$ = Left$(Buffer$, x)

End Function

'Определение кол-ва строк
Private Function fGetLineCount&()

lcount = SendMessageAsLong(Text1.hWnd, EM_GETLINECOUNT, 0, 0)
fGetLineCount& = lcount

End Function

Кроме того, все ваши вопросы о программировании VB, ASP и БД найдут ответ на форумах
vbCode - http://vbcity.com/vbcode/ru/home.asp

--------------------------------------------------------------------------------

Если у вас еще нет хороей книги по VB6, то сейчас самое время ее купить. Крупнейший
интернет-магазин "Озон" предлагает вашему вниманию книгу "Использование
Visual Basic 6". Она рассчитана не только на начинающих программистов, стремящихся
изучить VB, но и на тех, кто уже знаком с другими языками программирования, но решил
перейти на Visual Basic...

http://www.ozon.ru/detail.cfm/ent=2&id=9509&partner=vbcode

--------------------------------------------------------------------------------

Выпуск подготовил Алексей Смирнов
http://vbcity.com/vbcode/ru/home.asp