Архив рассылки сайта 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

Дата: 01.05.2003 11:01 | Раздел: Примеры кода | Автор: Ларин Александр

UniCum Enumeration Converter - Очень компактная функция для работы с преобразованием одной системы исчисления в другую. Вроде работает!

Дата: 30.04.2003 10:57 | Раздел: Полезные программы | Автор: Per Carlsson

3С - Пипетка для взятия цвета с экрана и его анализа (сам цвет, его RGB и шестнадцатеричный код (для Web)). RGB очень полезно для программистов и дизайнеров, а HEX - для Web-дизайнеров.

Дата: 29.04.2003 16:54 | Раздел: Примеры кода | Автор: Daniyar Atadjanov

AntiAutoStart - Эта прога проверяет все записи в пункт Главного меню Автозагрузка. Прога сообщит Вам о том, что какая-то другая прога записалась или выписалась из Автозагрузки!

Дата: 27.04.2003 13:22 | Раздел: Статьи по VB | Автор: Немиро Алексей

Разработка окна в стиле Windows XP - В данной статье я расскажу о том, как можно сделать обычное окно в стиле Windows XP, без использования дополнительных элементов управления, за пять минут.

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

наверх

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

наверх

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

наверх

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

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

29.04 - Обфускация – есть такое слово

наверх

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

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

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

наверх

Один момент из жизни форума: Создание ярлыка

Вопрос:
Автор вопроса: jimm

   Как программно создать ярлык к приложению?

Ответы:

Автор: V!RU$™
   Вrundll32 AppWiz.Cpl, NewLinkHere %1 - запуск мастера создания нового ярлыка, где %1 - путь к исходному файлу.

Автор: <==Alex==>
   'Ещё один хороший способ создания ярлыка:

Public Sub CreateShortcut(ByVal SCPath As String, ByVal SCName As String, ByVal FilePath As String, Optional HotKey As String, Optional SHIcon As String, Optional SHWorkingDirectory As String, Optional SHDescription As String, Optional WindowStyle As Integer = vbNormalFocus)
Dim WshShell As Object
Dim oShellLink As Object
Dim sLinkPath As String
Set WshShell = CreateObject("WScript.Shell")
On Error GoTo 0
Set oShellLink = WshShell.CreateShortcut(SCPath & SCName & ".lnk")
oShellLink.WindowStyle = WindowStyle
oShellLink.HotKey = HotKey
oShellLink.TargetPath = SCPath
oShellLink.IconLocation = SHIcon
oShellLink.Description = SCDescription
oShellLink.WorkingDirectory = SHWorkingDirectory
oShellLink.Save
Set oShellLink = Nothing
Set WshShell = Nothing
End Sub

Private Sub Form_Load()
Dim shFolder As String
shFolder = "C:\" 'или "Desktop", "StartMenu", "StartUp", "Programs" и т.д.
CreateShortcut shFolder, "Калькулятор", "calc.exe", "CTRL+SHIFT+C", "calc.exe,0", , "Калькулятор Windows"
End Sub

Автор: Страшный Сон
   Можно изучить структуру LNK-файла и создавать ярлыки без всяких апи.

наверх

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

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

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

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

наверх

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

BalloonMessage for MS Agent

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

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

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

наверх

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

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

Вопросы:

Автор вопроса: ]CBK[CRaSH

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

У немя возник тут такой вопрос
Как сделать так что-бы можно было обводить несколько контролов во время работы программы (типа как в VB во время разработки)

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

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

Как записать и считать информацию ия определённой ячейки используя объект List. Каждый элемент списка должен находиться в определённой записи и в разных полях этой записи.

Автор вопроса: Меркуль Юрий

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

Подскажите пожалуйста, какими средствами VB 6.0 можно организовать передачу файлов( по типу Hyper Terminal).
Или какая команда(или, что-нибудь ещё) есть в VB для перехода в полноэкранный режим, т.е. в простом Бэйсике есть команда screen, А в ВБ?

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

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

Хочется повесить выгрузку формы на событие MouseMove. Но это событие происходит сразу в момент запуска приложения, поэтому форма не загружается вообще.

Автор вопроса: Игорь

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

Буду признателен за прогр на VBA в Access-сохранить текущую запись, т.е. что бы для опреденленных записей запретить в форме делать изменения,удаления. Форма предназначена для ввода и просмотра данных.

Ответы:

Вопрос:

   Как в программе на VB проигрывать музыкальные файлы в фоновом режиме?

Ответ:

Автор ответа: KAS (c)

Используй MultiMedia Control:

Private Sub Form_Load()
  MMC.FileName = "c:\mdi.mdi" 'Путь до файла
  MMC.Command = "Open"
  MMC.Command = "Play"
End Sub

Private Sub MMC_Done(NotifyCode As Integer) ' Повторное воспроизведение по окончании
  MMC.Command = "Prev"
  MMC.Command = "Play"
End Sub

Вопрос:

   1. Не могу установить ссылку на Microsoft Scripting Runtime(FileSystemObject). Хотя scrrun.dll лежит, пробовал вручную, тоже самое - пишет - "C:\WINDOWS\SYSTEM\SCRRUN.DLL не может загрузится", и в тоже время заносит его в "Сomponents| Управление".

2. Как обращаться к Temporary Internet Files, а точнее как его удалить(чистить)? Т.к FileSystemObject не удалось использовать, делал так-

    On Error GoTo 2
    Shell "DelTree /Y " + wd + "\TEMPOR~1\CONTENT.IE5", vbHide
    GoTo 3
    2 MsgBox "Ошибка удаления или отказ в доступе"
    3

в последствии некоторая часть файлов удаляется и в списке процессов остаётся "Winoldap", возможно нужен подходящий ключ для DelTree, перепробовал все.
Буду рад любым советам.

Ответ:

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

1. Попробуй подключить её в качестве Referense. Должно работать. У меня работает вроде :-)

Вопрос:

   Как сделать, чтобы после первого запуска программа в дальнейшем запускалась автоматически?

Ответ:

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

При запуске программы добавляй строковый параметр (App.EXEName), равный (App.Path & "\" & App.EXEName & ".exe") в одну из веток реестра:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run - будет запускаться под всеми пользователями.

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run - будет запускаться только под текущим пользователем.

Ответ:

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

Допиши в реестр, в раздел RunOnce, такой параметр "Имя своей проги" - "Путь по которому она располагается". Прога при каждом перезапуске будет запускаться автоматически

Вопрос:

Как открыть файл exe из своей проги?

Ответ:

Автор ответа: KAS (c)

Shell "Путь до программы"

Вопрос:

Что такое: Item, Trim, Replace, Space??
Для чего это, что они делают??

Ответ:

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

Trim - функция, удаляющая ведущие и конечные пробелы.
Space - функция выводящая заданное число пробелов.

Ответ:

Автор ответа: KAS (c)

Item(Index) - используется как функция задающая порядковый номер элемента
Trim(" 123 ") - дает "123" - обрезает пробелы с обеих сторон переменной
Replace("Текст","Что искать","На что заменить") - заменяет что-либо в тексте
Space(10) даст " " - возвращает столько пробелов сколько укажете

Ответ:

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

Trim - функция, которая обрезает пробелы по краям. Например,
было " 123321 "
стало"123321"

Функции LTrim и RTrim позволяют обрезать пробелы только слева или справа соответственно.

Replace - функция, которая заменяет один фрагмент текста другим.

strTemp=Replace("HELLO","H","h")
Получится "hELLO". Причем заменятся все такие фрагменты.

Space - функция, которая заполняет строк. переменную пробелами, например:

Space(10) вернет:
" ".

Вопрос:

   Привет, у меня несколько вопросов, касающихся Internet Transfer Controla: Программа качает файл по адресу Text1.Text в директорию Text2.text
    Вот привожу код, вопросы после него:

Private Sub Command1_Click()
Inet1.Execute Text1.Text, "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim FUCK() As Byte
Dim NOF As Long
If State = 12 Then
NOF = FreeFile
Open Text2.Text For Binary Access Write As NOF
FUCK = Inet1.GetChunk(1024, icByteArray)
Do While LenB(CStr(FUCK)) > 0
Put NOF, , FUCK
FUCK = Inet1.GetChunk(1024, icByteArray)
Loop
Close NOF
MsgBox "OK"
End If
End Sub

1) почему, переменная FUCK объявляется как массив, хотя в коде программы массивом и не пахнет? Хотя если объявить просто объявить переменную (без () ), то программа не работает.
2) Как связано с нулём вот это выражение LenB(CStr(FUCK)) , ну то есть я понимаю, что оно делает и понимаю зачем, но как все эти преобразования связаны с файлом?

Ответ:

Автор ответа: Владимир Кирко

1) Должно было бы работать и без массива, т.к. переменная по умолчанию - variant. А согласно MSDN:

GetChunk Method (Internet Transfer Control) - Retrieves data from in the StateChanged event. Use this method after invoking the Execute method as a GET operation.
Syntax: object.GetChunk( size [,datatype] )

The Get property syntax has these parts:
  Part Description
  object Anobject expression that evaluates to an object in the Applies To list.
  size Required. A long numeric expression that determines the size of the chunk to be retrieved.
  datatype Optional. An integer that specifies the data type of the retrieved chunk, as shown in Settings below.
Settings
The settings for datatype are:
Constant Value Description
icString 0 Default. Retrieves data as string.
icByteArray 1 Retrieves data as a byte array.
Return Type - Variant
Remarks - Use the GetChunk method in the StateChanged event. When the State property is icResponseCompleted (12), then use the GetChunk method to retrieve the buffer's contents.

И выдают такой пример:
Private Sub Inet1_StateChanged(ByVal State As Integer)
    ' Retrieve server response using the GetChunk
    ' method when State = 12. This example assumes the
    ' data is text.
    Select Case State
    ' ... Other cases not shown.
    Case icResponseReceived ' 12
       Dim vtData As Variant ' Data variable.
       Dim strData As String: strData = ""
       Dim bDone As Boolean: bDone = False
       ' Get first chunk.
       vtData = Inet1.GetChunk(1024, icString)
       DoEvents
       Do While Not bDone
          strData = strData & vtData
          DoEvents
          ' Get next chunk.
          vtData = Inet1.GetChunk(1024, icString)
          If Len(vtData) = 0 Then
             bDone = True
          End If
       Loop
       txtData.Text = strData
    End Select
End Sub

2)GetChunk - получить порцию. И согласно тому же источнику действует так (описание я взял немного из другого места, но принцип действия должен быть тот же):

Each subsequent GetChunk call retrieves data starting from where the previous GetChunk call left off. However, if you are retrieving data from one field and then you set or read the value of another field in the current record, ADO assumes you have finished retrieving data from the first field. If you call the GetChunk method on the first field again, ADO interprets the call as a new GetChunk operation and starts reading from the beginning of the data. Accessing fields in other Recordset objects that are not clones of the first Recordset object will not disrupt GetChunk operations.

Не вдаваясь в детали - каждый вызов GetChank выдаёт некую порцию информации, начиная с той, которая не попала в предыдущий её вызов. Если вызов GetChank ничего не возвратил, т.е. "длина" объекта нулевая, то, надо полагать, вы получили весь объект.

Ответ:

Автор ответа: KAS (c)

В переменную FUCK закачивается указанный вами файл.
А строка: LenB(CStr(FUCK)) > 0, проверяет длину закачиваемого файла, CStr преабразует выражение в строковую переменную, а LenB проверяет ее длину.

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

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

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

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

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

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

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