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

Aslof рекомендует

Ищешь фильм?
http://subscribe.ru/catalog/rest.cinema.filmforyou
Сайт рассылки - http://aslof.balzer.ru/

Что такое MSDN?

Вопрос:

Скажите мне - обычному бизнесмену, пытающемуся использовать VB (и очень недавно) для решения прикладных задач, что такое MSDN? Все, наверное, поняли, что я не могу запустить справку в VB6 Prof.

Ответ:

MSDN (Microsoft Developers Network) - в том понимании, как вы спрашиваете, это справка по всем основным продуктам Microsoft. Состоит из четырех компакт дисков (3 CD + 1 DVD), имеет мощную систему поиска. Есть пиратская версия. А если взять шире - это подписка для разработчиков, в которую кроме вышеозначеных дисков входят все продукты Microsoft(!) включая релизы (беты, демо и т.п.). Можно найти даже японский windows!

Shemyakin, Dmitry

наверх

Где можно достать информацию о работе с DirectX в VB?

Вопрос:

Где можно достать информацию о работе с DirectX в VB?

Ответ:

Информацию эту можно достать на 4-х дисковом MSDN (Январь, 2001). Весь четвёртый CD полностью посвящён DirextX. Купил я этот компакт в Киеве на книжном рынке возле метро Петровка. Если нет MSDN, то зайдите на www.msdn.microsoft.com. Думаю, там что-нибудь найдёте.
Также о DirectX можно почитать на vbstreets.ru. Немного, зато по-русски!

Много информации о DirectX и, в частности, о его использовании в VB на сайте directx4vb.com.

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

наверх

Как получить текст или HTML страницы, загруженной в WebBrowser?

Вопрос:

Как получить текстовую информацию страницы загруженной в WebBrowser или хотя бы ее HTML код?

Ответ:

Текст:
Text1.Text = webbrowser1.Document.documentElement.outerText
HTML:
Text1.Text = webbrowser1.Document.documentElement.outerHTML

DmitryK1

наверх

Как проигрывать MP3 файлы на VB?

Вопрос:

Как проигрывать MP3 файлы на VB?

Ответ:

В Windows API нет функций для работы со звуковыми файлами, сжатыми по стандарту MP3. Но... Есть замечательный компонент, который называется Windows Media Player, вот он может помочь. Положите на форму контрол Windows Media Player, свойство AutoStart поставьте в True. Теперь для воспроизведения установите в свойство FileName, во время выполнения программы, имя файла для воспроизведения. И все...
Вообще-то, существуют различные OCX, которые могут воспроизвести mp3, но зачем они, если практически у всех есть Media Player.

Шатрыкин Иван

наверх

Как произвести запись данных в текстовый файл?

Вопрос:

Я хочу чтобы моя программа сохраняла текст из TextBox в текстовый файл после нажатия кнопки, имя файла задаётся при помощи Microsoft Dialog Control 6.0, то есть стандартного окна сохранения Windows. Как мне это сделать?

Ответ:

Создайте новый проект.
Поставьте на форму TextBox, CommandButton и CommonDialog.
Скопируйте и вставьте код ниже:

Private Sub Command1_Click()
Dim strFileName As String
Dim FileNumber As Integer

   CommonDialog1.ShowSave
   strFileName = CommonDialog1.FileName
   FileNumber = FreeFile
   Open strFileName For Output As #FileNumber
   Print #FileNumber, Text1.Text
   Close #FileNumber

End Sub

Наслаждайтесь! Читайте MSDN!

Sergey Y. Tkachev

наверх

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

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

Вопросы:

Автор вопроса: Михаил

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

Есть необходимость отправить данные из VB в cgi-программу методом POST через web. Кто подскажет, как реализовать?

Автор вопроса: Кошевой Дмитрий

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

Вобщем, считаю себе достаточно старым программером на VB (когда-то у меня был свой сайт посвященный этому вопросу www.vbland.narod.ru, но я его прикрыл... времени как то не было), начинал еще лет 10 назад на QB.

Последствия одной проблемы меня выбивает из коллеи... Если и вы не дадите ответ на мой вопрос - пойду за мыло и веревкой :)))

Реализую систему плугинов для определенной программы. Так как этим уже занимался, был уверен проблем не возникнет. Написал (поддержка OCX, DLL в директории) - все работает более чем прекрасно. Новые плугины - регистрируются - старые работают.

20:00 по Киевскому времени. Решаю переработать алгоритм. Хочу, чтобы плугины были сбиты не в одной папке, а в Plugins\[Название плугина], т.е. чтобы при загрузке программа пробегала по всем папкам и добавляла плугины.

20:30 все сделал. Адреса файлов возвращает... но не хочет регистрировать новые плугины. Часа три мучаюсь... не хочет. Лезу в инет за помощью - нифига не нахожу: все используют одну апиху регистрации. У меня ничего не работает (вернее новые подключаемые модули не регистрируются - старые работают).

Иду в Windows\System запускаю regsvr32.exe и регистрирую по очереди новые плугины. Написало - "зарегистрировано успешно". Запускаю - не работает.

Утро вечера мудренее - иду спать.

Утром с чистой головой сажусь писать. Еще часа четыре страдаю - не пашет. Ошибок синтаксических\логических нет. String с путями к плугинами, флаги и все остальное возвращаются в нормальной форме. Два раза переставлял Винду (первоначально Me, потом 98 se2, потом 2000 Server) - не пашет.

Что делать?!

Кто ответит: бутылка виртуального пива.

Ответы:

Вопрос:

   В VB6 создаю объект EXCEL, добавляю лист, вношу данные, выставляю эти данные жирным шрифтом но у меня не получается выставить центровкуэтих данных в ячейке по горизонтале. При попытке выставить свойство

        myExcelObject.Sheets("Лист1").Range("A1:E1").HorizontalAlignment = xlCenter, или
        myExcelObject.Sheets("Лист1").Cells(1, 1).HorizontalAlignment = xlCenter

выдается сообщение об ошибке

Run-time error '1004':
Нельзя установить свойство HorizontalAlignment класса Range

Что не так? Помогите, пожалуйста.

Ответ:

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

myExcelObject.Sheets("List1").Range("A1:E1").SELECT
myExcelObject.Sheets("List1").Selection.HorizontalAlignment = xlCenter

Вопрос:

Какой наиболее эфективный способ передать кучу параметров в функцию?
Задача: на форме куча информации (тексты, списки), которые нужно передать в функцию, которая добавит их в базу.

Ответ:

Автор ответа: Евгений Смоляков

Передай ссылку на форму.

Вопрос:

Дан одномерный массив А, сост. из 10 элементов. Как написать программу нахождения максимального отрицательного элемента массива А и определения его индекса?

Ответ:

Автор ответа: Роман

a - массив
temp - временное хранилище значения

temp = a(0)
For nCount = LBound(a) + 1 To UBound(a)
If Sgn(a(nCount)) = "-1" And a(nCount) > temp Then temp = a(nCount)
Next

Вопрос:

Хотелось бы поиметь список API с параметрами, для реализации следующих задач:

- включить ActiveDesctop;
- поиметь его хендл;
- изменить хендл сторонней проги.

Может неправильно выразился, но суть такая: я хочу заставить работать вместо десктопа свой любимый ScreenSaver.

Ответ:

Автор ответа: Роман

Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Dim hWndDesk As Long, hDCDesk As Long
'Получает жендл десктопа
hWndDesk = GetDesktopWindow()
'Получает контекст устройства по хендлу десктопа
hDCDesk = GetDC(hWndDesk)

Вопрос:

Как при выходе из программы выключить windows, а если возможно то и компьютер?

Ответ:

Автор ответа: Роман

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Вопрос:

Как добавлять в *.txt строки из VB?

Ответ:

Автор ответа: Пащенко А.

Dim Fnum as integer
Dim S as string

S="jkhdkghdhgdhdhgdhgdfhjl"
Fnum=freefile
Open "text.txt" for append as Fnum
Print #Fnum, S
Close FNum

Вопрос:

Как загружать файлы из .txt в VB?

Ответ:

Автор ответа: Пащенко А.

Dim Fnum as integer
Dim S as string

Fnum=freefile
Open "text.txt" for input as Fnum
Line input #Fnum, S
Close FNum

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

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

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

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

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

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

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