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


VBNet VBMania
Голосование:



Рассылки Subscribe.Ru
VB.NET-World
Новости сайта IgorykSoft и советы по программированию
DanSoft о Visual Basic
Visual Basic.NET Уроки.

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • Snoozex Design
  • IgorykSoft
  • DanSoft
  • Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       
    Читайте!


    Содержание выпуска




    Книги

    Переход на 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

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

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

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

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

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



    Последние 20 тем форума на VBNet.Ru:

    13:27 / 4 май.  net.exe | Хитов: 0 |  Ответов: 0
    13:15 / 4 май.  Новое сообщение без темы | Хитов: 0 |  Ответов: 0
    10:33 / 4 май.  Повестка в армию пришла!!!!!!!?????!!!!! | Хитов: 18 |  Ответов: 2
    07:24 / 4 май.  Проблема с GetPixel | Хитов: 8 |  Ответов: 2
    07:10 / 4 май.  Иконки в меню | Хитов: 17 |  Ответов: 3
    00:06 / 4 май.  mscoree.dll | Хитов: 24 |  Ответов: 5
    23:07 / 3 май.  как запретить закрывать программу (+) | Хитов: 18 |  Ответов: 3
    21:58 / 3 май.  Помогите с 1с | Хитов: 16 |  Ответов: 1
    19:40 / 3 май.  Как перерисовать окно | Хитов: 17 |  Ответов: 1
    18:45 / 3 май.  InputBox - это круто! | Хитов: 35 |  Ответов: 2
    17:58 / 3 май.  listbox? | Хитов: 19 |  Ответов: 2
    15:23 / 3 май.  VB.NET | Хитов: 22 |  Ответов: 2
    14:36 / 3 май.  Вопрос по AVI | Хитов: 15 |  Ответов: 0
    12:41 / 3 май.  Winsock? Опять | Хитов: 14 |  Ответов: 1
    12:24 / 3 май.  listbox? | Хитов: 21 |  Ответов: 1
    12:01 / 3 май.  Winsock? | Хитов: 15 |  Ответов: 2
    06:14 / 3 май.  Как удалить exe файл? | Хитов: 29 |  Ответов: 2
    01:00 / 3 май.  Размеры форм VB .NET | Хитов: 7 |  Ответов: 0
    22:35 / 2 май.  И всё-равно open file | Хитов: 24 |  Ответов: 5
    20:43 / 2 май.  MAPI for LotusNotes | Хитов: 6 |  Ответов: 0


    Последние поступления в Библиотеку кодов:



    Новости от VBNet-чиков!:



    наверх


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



    наверх


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



    наверх


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



    наверх


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



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



    наверх


    Новости сайта 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 владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


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

    Сурменок Павел