Новый выпуск. Присылайте коды!!!
Читайте!

Книги

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

наверх

---

Эксперт

- Привет, Серый.
- Угу, привет. Ты проходи, садись, я щас, с функцией тут разберусь...
- Да я на момент. Вопросец имеется.
- Вопросец, вопросец... Так, тут переменная не объявлена... Вопросец... С вопросами в систему, к экспертам... А тут точку не поставил! Вот она где, соб-бака!!
- Ты че, какая система? Ты о чем?
- О! Все, работает... Чего ты говоришь?
- Ты про каких это экспертов тут заикаешься?
- А-а. А ты что, первый раз слышишь, что ли? Ты на СообЧа бывал?
- Где?!!
- Да вот, гляди. Щас соединимся... Во! http://soobcha.ru, зришь?
- М-да... Занятно. Так я с вопросом к тебе...
- А я вот и говорю: туда иди, в систему "Эксперт", там ответят.
- Это чайники, что ли, ответят?
- Не сомневайся, ответят. Там у них такое наворочено... Короче, ты по почте вопрос свой задаешь - и все:)))))) Больше не изволь беспокоиться, там они сами будут искать ответ на твой вопрос. А через некоторое время вывалят тебе на ящик не один, а несколько ответов. Пользуйся и радуйся:)
- А чего это они там такие добрые да услужливые? У них чего, своих проблем нет? Сколько я должен платить за такое трогательное беспокойство?
- Ну, это немного. Меньше, чем ты думаешь:) Тебе достаточно только подтвердить правильный ответ. Давишь на соответствующую ссылку, дескать, вот этот ответ мне понравился, помог, и я доволен. Просто пустое письмо засылаешь к ним, и вся оплата. А если хочешь у них экспертом стать, то пожалуйста, регистрируйся и отвечай на вопросы.
- Кем? Экспертом?
- А что? Что-то ты ведь знаешь, не вчера за комп сел.
- А на фига мне это надо? Разбираться с чужими проблемами... У меня своих - хоть отбавляй...
- Ага. Вот ты только что спрашивал: а сколько? И если уж ты со своими проблемами обращаешься к людям, то ведь надеешься, что тебе помогут. А сам-то что, влом, что ли, помочь кому-то? Да ладно! Тебя, вобщем-то, никто и не тянет, не заставляет. А вот те, кому интересно, кому не жаль поделиться, те там и работают. Я, между прочим, давно уже с ними.
- В смысле, экспертом, что ли, заделался? И сколько тебе платят?
- А ты не прикалывай. Там никто никому не платит. А вот конкурсы, между прочим, проводят, и не хилые. Представляешь, за лучший ответ дают бесплатно три месяца платного хостинга, да еще домен регистрируют. За просто так. А вот тебе, если ты задашь самый лучший вопрос, тоже приз может выгореть.
- Это как: лучший? На который никто ответить, что ли, не сможет? Так я щас таких вопро...
- Причем тут это? Просто ты, если вопрос пишешь к ним, так сподобься хоть запятые в нужных местах поставить, там, грамотно, короче, обрисуй свой трабл.
- Ну ладно, въехал. Ты мне вот лучше помоги с моим траблом. Мой Фотошоп не хочет по русски работать...
- Ха, так этот трабл там уже сколько раз появлялся. У них на сайте и ответ есть... Вот, любуйся: Заходим в редактор реестра (regedit.exe). Находим ключ HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Nls\Codepage В нем изменяем значение параметра 1252 с cp_1252.nls на cp_1251.nls. Перезагружаемся...
- Понял... погоди, запишу...
- Да чего записывать? Шагай домой, входи на сайт и копируй...
- Да я ссылку запишу... Слушай, а как там в эту систему вопрос задать? Вообще, как она работает?
- Так тут же, на сайте, все есть. А вообще, можешь по почте пустое письмо загнать на mailto:reply.infoexpert@soobcha.ru, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там.
- А не проше тебе здесь ответить?
- Э-э-э... Там я баллы зарабатываю...
- А это еще зачем?
- Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока.
- Пока. А как ты экспертом там зарегился?
- Иди, иди! Инфу читай...

наверх

---

Как в таблице DBGrid изменить названия колонок???

Вопрос:

Как в таблице DBGrid изменить названия колонок???

Ответ:

DataGrid1.Columns(0).Caption = "Новый заголовок"

     Дмитрий Данелия

наверх

---

Как загрузить в строковую переменную файл с диска?

Вопрос:

Как загрузить в строковую переменную файл с диска?

Ответ:

Public Function LoadTextFile(Path As String) As String
   Dim strFile As String
       
   Open Path For Binary As #1
   strFile = Space$(LOF(1))
   Get 1, , strFile
   Close #1
   LoadTextFile = strFile
End Function

Public Function SaveTextFile(Path As String, Text As String)
     Open Path For Binary As #1
     Put #1, , Text
     Close #1
End Function

     Артем Кривокрисенко

наверх

---

Как выделить определенный элемент в listbox?

Вопрос:

Есть текстовое поле. Как при нажатии на кнопку выделить элемент в листе, соответствующий тексту в текстовом поле?

Ответ:

Dim i As Integer

l = Text1.Text
For i = 0 To List1.ListCount - 1
Select Case List1.List(i)
Case Is = l
List1.ListIndex = i
List1.SetFocus
End Select
Next i

    Yuliya Shelmuk

dim strFind as string
strFind="абракадабра" & chr(0)
lngtemp=sendmessage(List1.hwnd,LB_SELECTSTRING,1,strText)

В переменную lngTemp вернется позиция выделенного элемента.

    Артем Кривокрисенко

наверх

---

Как узнать размер массива?

Вопрос:

Имеется масив созданый из строк
AllStrings = Split(tmp, vbCrLf)
Как узнать его размер?

Ответ:

Ubound(AllStrings) вернет конкретно что нужно.

    Артем Кривокрисенко

наверх

---

Где можно взять пример отправки почты на VB с помощью Winsock?

Вопрос:

Где можно взять пример отправки почты на VB с помощью Winsock? Желательно чтобы была возможность добавлять в сообщение аттачи.

Ответ:

Вот здесь лежат несколько примеров:
http://azbukavb.narod.ru/vbcod/vbcod13.html

    Yuliya Shelmuk

наверх

---

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

BalloonMessage for MS Agent


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

наверх

---

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

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

Вопросы:

---

Автор вопроса: Богдан

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

   Из VBA Excel вызываю с помощью Shell архиватор ZIP, чтобы заархивировать файл по указанному пути. К сожалению не работает. Как правильно это сделать?

---

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

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

   Помогите разобраться с функциями библиотеки UxTheme.dll (библиотека, отвечающая за темы XP). В MSDN есть описание функций только для C++.

---

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

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

   Как отключить менюшку выбора кодировок в CommonDialog.Font? Или как узнать, какая кодировка была выбрана?

---

Автор вопроса: Максим

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

   Вопросы примитивные, но я так и не разобрался: Интересует, как отрабатывать нажатие кнопок на тулбаре? Единственное, что мне удалось сделать, это конструкция типа:

Select Case e.Button.Text
             Case tbButton.Text

    А также сходства по другим признакам... но неужели нет ни какого, например, индекса кнопки?
Еще хочу знать, как пользоваться domainUpDown? Думаю, эти два вопроса взаимно связанны...

---

Автор вопроса: Максим

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

   У combobox'а не стандартной консоли, как в vb6, и вообще, при появлении фокуса на него, весь текст выделяется и все, ни каких операций с нельзя делать. Создал свою консоль. Работает. Но, работать можно только со всем текстом, и нельзя, скажем, копировать часть текста, только весь!.. Но с клавы все нормально. Можно выделять текст, и делать все, что душе угодно! Может есть у комба какая-нибудь опция мышиной поддержки...

---

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

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

   Проблема следующая: нужна нестандартная кнопка (т.е. круглая). Всё, что я скачивал, имеет много всяких фич, но они всё равно прямоугольные. Пробовал сам, сделал прозрачный gif с круглой кнопкой, рисую на форме Image, вставляю туда этот гиф, всё прекрасно. Но когда я пытаюсь оформить это в отдельное управление (т.к. постоянно таскать 4 имаджа не катит), появляется серый (и что ещё страшнее, прямоугольный) ореол. Что делать?

---

Автор вопроса: Борис

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

   При использовании DirectX7 я соядал поверхность. А с помощью какой функции присвоить ей картинку? Если возможно, дайте полное описание функции.

---

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

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

   Я зничит пишу такую стороку:

Set out = WScript.CreateObject("Outlook.Application")

А он мне говорит что не может создать объект, Outlook 6 у меня установлен и прекрасно функционирует!

---

Ответы:

---

Вопрос:

   Есть несколько картинок (BMP) в ресурсах приложения. Как сделать, чтобы при загрузке формы в PictureBox произвольно (!) отображалась одна из этих картинок?

Ответ:

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

LoadResStrings Me
n = int(число_картинок*rnd - 1)
PictureBox.Picture = LoadPicture(GetSetting(bitmap, n))

---

Вопрос:

   Как можно средствами "Drag & Drop" осуществить перенос файлов из внешних программ (таких, как файловые менеджеры) в собственный проект на VB. (Как это делает WinAmp)?

Ответ:

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

Я спрашивал на vbnet, мне дали ответ:
  
Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub
  
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print Data.Files(1)
End Sub
  

В Data.Files(1) получаешь имя файла который перетаскивают и с ним уже длаешь то что пожелаешь.

---

Вопрос:

   Как содержимое графического контейнера, сояданное посредством VB сохранить в *.jpeg? Но нормальный jpeg, а то он у меня получается того же раямера, что и bmp.

Ответ:

Автор ответа: Максим

Тёска! Это же битый вопрос! В этой рассылке уже 1000 раз объясняли, что лучший вариант: взять готовый контрол! Если не можешь успокоится, то тебе нужно искать алгоритм сжатия Joint Photographic Experts Group.

---

Ответ:

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

Скачал недавно библиотеку, но пока не рассматривал - поддержка большого числа графических форматов. http://www.xnview.com/download/GflAx-win.zip.

---

---

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

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

Текст сообщения:

Ваше имя
E-mail для ответа

наверх