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


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

Покупали ли Вы CD или книги с сайта VBNet.Ru?

Да, конечно
Только книги
Только диски
Просто игнорирую




Рассылки Subscribe.Ru
VB.NET-World


Рассылки Subscribe.Ru
Старые игры

Доска почёта:

Sergey Y. Tkachev
Кононенко Роман
Kirill
Sergey Sapozhnikov
Sobic

Ссылки:

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

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

       Наконец-то обновился сайт "Азбука VB". Обязательно посмотрите.
    Читайте!


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




    Книги

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

    Дата: 17.11.2002 07:58 | Раздел: Статьи по VB | Автор: Остапенко Алексей

    Построение многоуровневого меню - Статья рассказывает о том, как создать многоуровневое меню на странице с использованием ASP.



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

    02:21 / 19 ноя.  Помогите разобраться с этим SOFTKEY'ем | Хитов: 6 |  Ответов: 1
    20:56 / 18 ноя.  Срочно Word SOSOSOS! Пжлста | Хитов: 8 |  Ответов: 0
    19:12 / 18 ноя.  Ctrl-Alt-Del | Хитов: 15 |  Ответов: 1
    17:24 / 18 ноя.  Куча классных сорсов! | Хитов: 29 |  Ответов: 0
    16:10 / 18 ноя.  Clarion | Хитов: 16 |  Ответов: 0
    13:57 / 18 ноя.  Уточняю !!!!!!! | Хитов: 28 |  Ответов: 1
    13:55 / 18 ноя.  Close Connection | Хитов: 21 |  Ответов: 0
    10:17 / 18 ноя.  проблемы с установкой visual studio .net | Хитов: 22 |  Ответов: 2
    02:10 / 18 ноя.  Unload Control Array | Хитов: 33 |  Ответов: 5
    01:41 / 18 ноя.  MSHFlexGrid | Хитов: 23 |  Ответов: 1
    21:44 / 17 ноя.  ДОСАДНАЯ ОШИБКА | Хитов: 48 |  Ответов: 2
    20:49 / 17 ноя.  BD (колёсико мыши) | Хитов: 33 |  Ответов: 2
    18:12 / 17 ноя.  Странности с Range | Хитов: 21 |  Ответов: 0
    17:27 / 17 ноя.  Как сымитировать нажатие клавиши ALT? | Хитов: 23 |  Ответов: 1
    15:46 / 17 ноя.  Защита ASP файлов.. | Хитов: 23 |  Ответов: 1
    13:25 / 17 ноя.  soundcard | Хитов: 27 |  Ответов: 3
    13:08 / 17 ноя.  VB6 exe s ODBC kak zapustit' na XP | Хитов: 14 |  Ответов: 0
    10:33 / 17 ноя.  Dbgrid32.ocx | Хитов: 20 |  Ответов: 2
    18:11 / 16 ноя.  Vb api sound | Хитов: 34 |  Ответов: 2
    18:01 / 16 ноя.  Экспорт изображения? | Хитов: 24 |  Ответов: 1


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



    наверх


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



    наверх


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

    • 18.11
      Visual Basic - Работа с Windows - Ассоциая собственной иконки с собственным расширением файла
      На примере показанно, что надо сделать, чтобы созданный вами файл связать с вашей собственной иконкой и какой программой его открывать.

      Visual Basic - Графика - Пример смены обоев на вашем рабочем столе с помощью API-функции
      Пример показывает, как с помощью Api поменять обои на Вашем рабочем столе.

      Visual Basic - Работа с Windows - Пример выключения/ перезагрузки Windows и помещение иконки в трей
      Пример выключения/ перезагрузки Windows. Также в примере рассматривается помещение иконки в трей

      Программы в кодах - Пользовательские - Редактор заметок
      Программа NotesPack была задуманна, как пример для сайта SwithSoft и других сайтов (и "Азбука Технологий Программирования" в частности), для того чтобы показать, как создать некое подобие на всем известную утилиту Криса Иствуда - VBCodeLibrary.

      VBA - Работа с MS Excel - ПрогрессБар с помощью ChartObjects
      Создание прогрессБар с помощью ChartObjects

      Visual Basic - Справочники - Библиотека VBRegTool6
      Библиотека VBRegTool6 является расширенным аналогом библиотеки REGTool5 от Microsoft. Она содержит функции для работы с реестром, использование которых значительно упрощает доступ к реестру.


    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


    Автор вопроса:
    Павел

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

       Как отследить, какие клавиши нажимаются на клавиатуре, при этом форма находится в свернутом состоянии?


    Автор вопроса: Б.А.Л.

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

       У меня такой вопросик: в Accessовской таблице есть два поля (допустим одно поле "Мужские фамилия", другое поле "Женские фамилия"), необходимо в отчете эти поля объединить в одно и отиндексировать по алфавиту.
    И такой вопросик: в Accessовской таблице есть поля (допустим поле "Пол" и поле "Имя"), необходимо в отчете вывести имена в два столбца параллельно (допустим справа Женские, а слева Мужские).
    Желательно пример кода, но буду рад даже мыслям и идеям!


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

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

       Как получить в Windows XP список всех модемных соединений установленных в системе и занести их в ListBox. Конкретно в XP. Примеры для Windows 98 и тд. имею, но в XP они не работают.


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

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

       Как на VB работать с графикой. Точнее со спайтами. Тобишь есть картинка. Как на ней яаставить двигаться другую картинку бея глюков. А то если испольяовать PicBox или Image то при движении появляються глюки. Желательно с примерами и по проши.


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

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

       Подскажите как поворачивать картинку С БЫСТРОЙ СКОРОСТЬЮ ?


    Автор вопроса: Александр

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

       Какой код надо набирать чтобы при набирание адреса человек поподал на главную страницу?


    Автор вопроса: Иваныч

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

       Как сделать так (не обяяательно средствами visual'a), чтобы приложение яапускалось раньше всех в системе, ну имеется ввиду, после ее запуска? Т.е. своеобраяная автозагруяка, но раньше всех... Желательно, даже значки с рабочки и трей обогнать!!!


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

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

       Как в VBA испольяуя ADODC и DGrid подключиться к файлу Excel и просматривать, ияменять яначения в ячейках.


    Автор вопроса: Александр

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

       Передать информацию по UDP протоколу проще простого!, но как принять? не подскажите как это можно осуществить - программа принимающая данные из сети по определённому порту в протоколе UDP.
    Я использую VB.NET


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

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

       Я сделал отчет с помощью Crystal Reports Pro присоединил к форме, но когда яаношу новые данные в отчете они не обновляются, как это сделать или подскажите как можно сделать отчет по другому если это вояможно. Испольяую баяу данных MS Access


    Автор вопроса: Саша

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

       Подскажите где вяять описание функций WinInet.dll.




    Ответы:


    Вопрос:

       Как получить полный объем жесткого диска и объем яагруженности жесткого диска.

    Ответ:

    Автор ответа: Андрей Щёкин

    есть 2 способа.

    1. Использовать функцию API GetDiskFreeSpace:

    Declare Function GetDiskFreeSpace Lib "kernel32" Alias
    "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
    lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
    lpNumberOfFreeClusters As Long, _
    lpTotalNumberOfClusters As Long) As Long

    Где lpRootPathName - имя диска ("C:"),

    свободное место = CDbl(lpNumberOfFreeClusters) * lpSectorsPerCluster *
    lpBytesPerSector,

    всего места = CDbl(lpTotalNumberOfClusters) * lpSectorsPerCluster *
    lpBytesPerSector

    CDbl я ставлю чтобы избежать ошибки Overflow.

    2. Подключить библиотеку Microsoft Scripting Runtime (scrrun.dll), затем

    Dim FSO As New FileSystemObject

    и использовать

    FSO.Drives("C").TotalSpace
    FSO.Drives("C").FreeSpace

    но этот метод не всегда праильно работает.


    Вопрос:

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

    Ответ:

    Автор ответа: Nechaev Sergey

    Пишешь bat файл который сносит реестр и кладет на его место заранее зарезервированный и добавляешь его в autoexec.bat. Теперь при каждой перезагрузке реестр будет возвращаться к исходному положению.


    Вопрос:

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

    Ответ:

    Автор ответа: Konstantin Kozhin

    Поставь NT-шку, как администратор, запрети любые изменения системы. Это достаточное и необходимое условие для того, чтобы тупые ученики не смогли ничего учудить:)))


    Вопрос:

       Есть-ли универсальные способы яаполнения ListView и TreeView ия объекта типа recordset. Это может быть как код, так и контролы, но код лучше.

    Ответ:

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

    Держи пару процедур, работающих с TreeView. Они написаны моим давним другом и уже давно кочуют и сайта в сайт. Может они тебе помогут. Набор использует в качестве источника "деревянную" (т.е. ссылающуюся саму на себя таблицу). В остальном разберешься. Удачи!

    Public Sub Read_ToTree(ByVal rs As Object, _
         ByVal iId As Integer, _
         ByVal iUp As Integer, _
         ByVal iName As Integer, _
         Optional EnsureVisible As Boolean = False)

    Dim Key_Item As String
    Dim Name_Item As String
    Dim i_UpTmp As Long

         Tree_Current.Nodes.Clear
         
         rs.MoveFirst
         
         Do Until rs.EOF
             'Формируем верхний уровень
             If rs(iUp) = 1 Then
                 
                 Key_Item = "ID" & Trim(CStr(rs(iId)))
                 Name_Item = Trim(CStr(IIf(IsNull(rs(iName)), " ", rs(iName))))
                 
                 Tree_Current.Nodes.Add , , Key_Item, Name_Item, 8
                 
                 'В Tag поместим ID !!!
                 Tree_Current.Nodes _
                 (Tree_Current.Nodes.Count).Tag = rs(iId)
                 
                 If EnsureVisible Then Tree_Current.Nodes _
                 (Tree_Current.Nodes.Count).EnsureVisible
                 
                 i_UpTmp = rs.Bookmark
                 ' Теперь следует для Parent-отчета сделать дерево Child
                 Call MySuns(rs(iId), Key_Item, rs, iId, iUp, iName, EnsureVisible)

                 'Вернуться к родительской записи
                 rs.Bookmark = i_UpTmp
             
             End If
             rs.MoveNext
         Loop
    End Sub

    Private Sub MySuns(ByVal Parent_ID As Long, _
         ByVal Parent_Key As String, _
         ByVal rs As Object, _
         ByVal iId As Integer, _
         ByVal iUp As Integer, _
         ByVal iName As Integer, _
         Optional EnsureVisible As Boolean = False)

    Dim i_UpTmp As Long

    rs.MoveFirst
         
    Do Until rs.EOF
             'Формируем верхний уровень
             
             If (rs(iUp) = Parent_ID) Then
                 Tree_Current.Nodes.Add Parent_Key, tvwChild, "ID" & Trim(CStr(rs(iId))), Trim(CStr(rs(iName))), 9
                 Tree_Current.Nodes _
                 (Tree_Current.Nodes.Count).Tag = rs(iId)
                 
                 If EnsureVisible Then Tree_Current.Nodes _
                 (Tree_Current.Nodes.Count).EnsureVisible
                 
                 ' Теперь следует для Parent-отчета сделать дерево Child
                 i_UpTmp = rs.Bookmark

                 Call MySuns(rs(iId), "ID" & Trim(CStr(rs(iId))), rs, iId, iUp, iName, EnsureVisible)
                 'Вернуться к родительской записи
                 rs.Bookmark = i_UpTmp
             End If
             rs.MoveNext
         Loop
    End Sub


    Вопрос:

       Как на форме нарисовать треугольник по 3 точкам, может быть с помощью API функции, важна скорость прорисовки!

    Ответ:

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

    Нельзя, только по 6 точкам ( 3 линии ).


    Вопрос:

       Как на форме нарисовать треугольник по 3 точкам, может быть с помощью API функции, важна скорость прорисовки!

    Ответ:

    Автор ответа: Nechaev Sergey

    если всего один треугольник то сойдет и функция бейсика

    Line(x1,y1)-(x2,y2),[color]

    там еще что-то есть - смотри в справке если надо.


    Вопрос:

       Тупой вопрос
       Открываю Notepad пишу туда число 20
       Закрываю. Смотрю размер файла - 2 байта
       Делаю тоже самое в ВБ

    Dim FileNum As Integer
    Dim txt As Byte
    FileNum = FreeFile

    txt = 20
    Open "c:\file.txt" For Output As FileNum
    Write #FileNum, txt
    Close #FileNum
    Смотрю размер 4 байта

    Мне необходимо создать именно 2 байтовый
    Пробовал через Binary Access - добавляются левые символы
    Помогите примером

    Ответ:

    Автор ответа: Konstantin Kozhin

    Попробуй заменить строчку

    txt = 20

    на

    txt = "20"

    , т.е. 20 - символьное значение.
    Возможен и такой вариант строки

    txt = str(20)


    Вопрос:

       Тупой вопрос
       Открываю Notepad пишу туда число 20
       Закрываю. Смотрю размер файла - 2 байта
       Делаю тоже самое в ВБ

    Dim FileNum As Integer
    Dim txt As Byte
    FileNum = FreeFile

    txt = 20
    Open "c:\file.txt" For Output As FileNum
    Write #FileNum, txt
    Close #FileNum
    Смотрю размер 4 байта

    Мне необходимо создать именно 2 байтовый
    Пробовал через Binary Access - добавляются левые символы
    Помогите примером

    Ответ:

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

    А вот так работает!

         Dim FileNum As Integer
         Dim txt As String 'Строковый тТип
         FileNum = FreeFile

         txt = Mid(Str(20), 2) 'Переводим цифры в символы и убираем 1 символ ( пробел )

         'Записываем в бинарном режиме.
         Open "c:\file.txt" For Binary As FileNum
             Put #FileNum, 1, txt
         Close #FileNum


    Вопрос:

       Тупой вопрос
       Открываю Notepad пишу туда число 20
       Закрываю. Смотрю размер файла - 2 байта
       Делаю тоже самое в ВБ

    Dim FileNum As Integer
    Dim txt As Byte
    FileNum = FreeFile

    txt = 20
    Open "c:\file.txt" For Output As FileNum
    Write #FileNum, txt
    Close #FileNum
    Смотрю размер 4 байта

    Мне необходимо создать именно 2 байтовый
    Пробовал через Binary Access - добавляются левые символы
    Помогите примером

    Ответ:

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

    Как раз через Binary и надо делать, только переменную txt объявляй не как Byte, а как String!


    Вопрос:

       Подскажите как сохранить фаил .txt не вызывая диалога сохранения

    Ответ:

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

    Open "C:\Файл.txt" For Output as #1
            Print #1, "Строка для сохранения"
       Close #1


    Вопрос:

       Подскажите как сохранить фаил .txt не вызывая диалога сохранения

    Ответ:

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

    Используй FileSystemObject. Никаких диалогов, все шито-крыто!:)


    Вопрос:

       Как сделать, чтобы RichTextBox скроллился автоматически?

    Ответ:

    Автор ответа: Konstantin Kozhin

    Есть 2 решения:
    1) попробовать вывести в объект КУЧУ текста:)))
    2) покопаться в Properties (Свойствах) объекта


    Вопрос:

       Как подключить FileSystemObject? Какая библиотека за нее отвечает?

    Ответ:

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

    Библиотека, отвечающая за FileSystemObject называется Microsoft Scripting Runtime. Подключаешь ее в References. Дальше объявляешь переменную

    Dim fsoObject As New FileSystemObject,

    а дальшн все увидишь полсле того,как наберешь после нее точку:)


    Вопрос:

       Как подключить FileSystemObject? Какая библиотека за нее отвечает?

    Ответ:

    Автор ответа: Андрей Щёкин

    Подключить библиотеку Microsoft Scripting Runtime (scrrun.dll) в Project->References.


    Вопрос:

       Как подключить FileSystemObject? Какая библиотека за нее отвечает?

    Ответ:

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

    Да вроде это библиотека ScrRun.dll
    ПОдключить можео в Ссылках на библиотеки


    Вопрос:

       Как подключить FileSystemObject? Какая библиотека за нее отвечает?

    Ответ:

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

    Создание объекта FileSystemObject
    Объектная модель FileSystemObject содержится в библиотеке типов, называемой Scripting, которая размещена в файле scrrun.dll. Для использования объекта в своих проектах нужно установить ссылку на Microsoft Scripting Runtime(Project->References...)

    Первый способ создания объекта FileSystemObject
    Объявим переменную, как объект:

    Dim fso As FileSystemObject
    Set fso = New Scripting.FileSystemObject

    Второй способ создания объекта FileSystemObject
    Используем метод CreateObject для создания объекта FileSystemObject:

    Dim fso As FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")


    Вопрос:

       Как найти число строк в Text1.Text?
    Как найти первое слово ия каждой стоки?
    Как польяоваться функцией Find в RichTextBox?

    Другими словами я соядал цикл:

             For i = 0 To [число строк в Text1.Text]
                     RTFText1.Find [первое слово ия строки i]
                     If [слово найдено] Then
                             . . .
                     End If
             Next i

    Всё что яаписанно в квадратных скобках, туда надо вписать правильный код.
    Да, и ещё, в Text1 текст записан вот так:

             чёрный, белый
             большой, малый
             . . .

    Ответ:

    Автор ответа: Андрей Щёкин

    >Как найти число строк в Text1.Text?

    LinesCount = Ubound(Split(Text1.Text,vbCrLf))

    Строки нумеруются с нуля.

    >Как найти первое слово ия каждой стоки?

    Split(Split(Text1.Text,vbCrLf)(LineNum),", ")(WordNum)

    Выдаёт слово под номером WordNum в строке номер LineNum.
    Строки и слова нумеруются с нуля.


    Вопрос:

       Здрасьте, мой вопрос про изображения.
    Короче у элемента ImageBox есть свойство Stretch, оно подгоняет картинку под размеры элемента, но когда переносишь это изображение в PictureBox, то размеры опять меняются. А мне надо, чтобы они остались такими какими были в ImageBox (Stretch=true). Я пробовал делать так: Загружаю картинку в ИмагеБокс и с помощью метода PaintPicture пытаюсь перенести её в ПикчерБокс в том же виде, но получается ещё большая фигня чем была. Последнее я делал так:

    Private Sub Command1_Click()
    Image1.Picture = LoadPicture(Text1.Text)
    Picture1.ScaleMode = 3
    Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.ScaleWidth,
    Picture1.ScaleHeight, _
    0, 0, Image1.Width, Image1.Height, vbSrcCopy
    End Sub

    Что здесь не так? Или как мне вообще перенести картинку из ImageBox (stretch=true) в PictureBox не потеряв размеров? Помогите пожайлуста, я уже просто в отчаянии, пробовал и через буфер, и через файл - никак не получается. Была надежда на метод PaintPicture и та провалилась. Как мне сделать так, как написано выше?

    Ответ:

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

    Да вроде Image только растягивает у себя внутри И ПикчерБоксу присваивается то, что растягивается в Имаге... :(
    Вообще в Интернете я видел контрол, у которого объеденины свойства Имага и ПикчерБокса... Сайт "VB на Русском":
    http://www.vbrussian.com/
    Посмотри там много чо есть


    Вопрос:

       Здрасьте, мой вопрос про изображения.
    Короче у элемента ImageBox есть свойство Stretch, оно подгоняет картинку под размеры элемента, но когда переносишь это изображение в PictureBox, то размеры опять меняются. А мне надо, чтобы они остались такими какими были в ImageBox (Stretch=true). Я пробовал делать так: Загружаю картинку в ИмагеБокс и с помощью метода PaintPicture пытаюсь перенести её в ПикчерБокс в том же виде, но получается ещё большая фигня чем была. Последнее я делал так:

    Private Sub Command1_Click()
    Image1.Picture = LoadPicture(Text1.Text)
    Picture1.ScaleMode = 3
    Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.ScaleWidth,
    Picture1.ScaleHeight, _
    0, 0, Image1.Width, Image1.Height, vbSrcCopy
    End Sub

    Что здесь не так? Или как мне вообще перенести картинку из ImageBox (stretch=true) в PictureBox не потеряв размеров? Помогите пожайлуста, я уже просто в отчаянии, пробовал и через буфер, и через файл - никак не получается. Была надежда на метод PaintPicture и та провалилась. Как мне сделать так, как написано выше?

    Ответ:

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

    Подробности в MSDN. Это разного назначения и свойств элементы...


    Вопрос:

       Здрасьте, мой вопрос про изображения.
    Короче у элемента ImageBox есть свойство Stretch, оно подгоняет картинку под размеры элемента, но когда переносишь это изображение в PictureBox, то размеры опять меняются. А мне надо, чтобы они остались такими какими были в ImageBox (Stretch=true). Я пробовал делать так: Загружаю картинку в ИмагеБокс и с помощью метода PaintPicture пытаюсь перенести её в ПикчерБокс в том же виде, но получается ещё большая фигня чем была. Последнее я делал так:

    Private Sub Command1_Click()
    Image1.Picture = LoadPicture(Text1.Text)
    Picture1.ScaleMode = 3
    Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.ScaleWidth,
    Picture1.ScaleHeight, _
    0, 0, Image1.Width, Image1.Height, vbSrcCopy
    End Sub

    Что здесь не так? Или как мне вообще перенести картинку из ImageBox (stretch=true) в PictureBox не потеряв размеров? Помогите пожайлуста, я уже просто в отчаянии, пробовал и через буфер, и через файл - никак не получается. Была надежда на метод PaintPicture и та провалилась. Как мне сделать так, как написано выше?

    Ответ:

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

    А попробуй использовань API BitBlt с ним можно работать с picturebox не используя ImageBox и быстро работает.


    Вопрос:

       Вот вам товарищи программеры обломный вопрос - как вставлять модели 3DMax'а в VB6 программы и самое главное как ими потом управлять, если можно с примерами и по проще...
    А то вот собрался 3D елку к новому году зделать а как MAX'овские модели всавлять неизвестно :(
      
    P.S.
    кстати если кто хочет присоединится к моему проэкту всегда пожалуйста, несколько vb программеров работающих за одно - это сила :))

    Ответ:

    Автор ответа: Андрей Щёкин

    Самый простой способ - переконвертить .3ds (.max) в .x, а затем вставить их с помощью Direct3D.
    Впрочем, можно поискать ActiveX в Инете, но всё же такое лучше делать руками.


    Вопрос:

       Впривет всем, не подскажет ли кто, как ставить на форму воидоусовские элементы по умолчанию, как например делает WinZip 8.1 - если его запустить в WinME то у него обычные кнопочки, а если его запустить под ХР то кнопки меняются на ХР'шные причем если поменять оформление рабочего стола (голубое / серебрянное / оливковое) то кнопки тоже меняются. Я что-то собневаюсь, что WinZip Computing (как они себя называют) переделала все контролы из ХР заново.

    Ответ:

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

    > Я что-то собневаюсь, что WinZip Computing (как они себя называют) переделала все контролы из ХР заново
    И правильно! Этот стандарт определяется фунциями Windows, отвечающими за создание окна. Если не пороть отсебятины, то всё происходит гармонично, а не как в WinAmp'е...


    Вопрос:

       Что такое Package & Deployment Wizard и нафиг это надо????

    Ответ:

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

    Package & Deployment Wizard - это инсталлятор наподобие InstallShield. Но в некоторых версиях он запорот. В Сервис Паке 6 он не запорот и его можно установить из него
    А вообще это не очень крутая штучка :( Лучше использовать Inno Setup, или еще круче Setup Factory, или еще что-нибудь понавороченнее :)


    Вопрос:

       Что такое Package & Deployment Wizard и нафиг это надо????

    Ответ:

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

    Если твою прогу не надо нести к кому-то на компьютер или продавать, то и на фиг Package & Deployment Wizard ...


    Вопрос:

       Есть ли у кого-нибудь библиотека Microsoft Data Bound Grid Control 5.0 или ссылка где её можно скачать. В VB6.0 у меня она отсутствует.

    Ответ:

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

    "Components" смотрел?


    Вопрос:

       есть прога которая паботает с базой данных mbd. Переношу на другую машину, инсталлирую. При запуске пишет что не может найти поставщика данных. Для доступа к базе использую Microsoft Jet 3.51 OLE DB Provider(выбираю в свойствах элемента ADO Data).
    В литературе пишут что надо создать источник данных, т.е. файл с расширением mdl. Это не получилось. Тем не менее приложение работает на машине где есть VB.
    Win 2000
    VB 6.0

    Ответ:

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

    Надо запустить MDAC, прилагаемый ко многим продуктам MS: Office, Visual Studio etc.


    Вопрос:

       Помогите! Кто-нибудь знает как сделать прогу, которая по нажатию на кнопку (Command1 например) удаляла бы все файлы из заданой папки?
    И еще. Кто-нибудь знает как сделать прогу при запуске которой по эрану бегала бы какая-нибудь зверюшка (может кто-нибудь видел овцу бегающую по экрану)?

    Ответ:

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

    В принципе знаю как зделать.
    Можно сделать окно не стандартной формы и у него поставить пикчер, но координаты контура должны совпадать с изображением
    Есть способ наверно получше... Так что подумай, если что пиши мне


    Вопрос:

       Помогите! Кто-нибудь знает как сделать прогу, которая по нажатию на кнопку (Command1 например) удаляла бы все файлы из заданой папки?
    И еще. Кто-нибудь знает как сделать прогу при запуске которой по эрану бегала бы какая-нибудь зверюшка (может кто-нибудь видел овцу бегающую по экрану)?

    Ответ:

    Автор ответа: Андрей Щёкин

    Добавь строчку в Command1_Click:

    Shell("cmd /C del /Q " & DirToPurge & "*.*",vbHide)

    где DirToPurge - очищаемая директория.
    В случае Win98-95-Me замени cmd на command.


    Вопрос:

       Помогите! Кто-нибудь знает как сделать прогу, которая по нажатию на кнопку (Command1 например) удаляла бы все файлы из заданой папки?
    И еще. Кто-нибудь знает как сделать прогу при запуске которой по эрану бегала бы какая-нибудь зверюшка (может кто-нибудь видел овцу бегающую по экрану)?

    Ответ:

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

    1) Удалять можно поразному, один из способов функция Kill ("c:\1\*.*").
    2) Овца или баран я незнаю но знаю одно я его почти сделал (нет только движений) точнее переделал. Наверное неделю пыхтел над ним, но ядро сделал, весь код писал сам без всяких dll ocx, кому нужен пишите ou953@ipn.ru .


    Вопрос:

       Народ, подскажите, можно ли в VB 6 генерить явук на Пищалку с яаданной частотой (по аналогу Basic'a: sound x,x)? И как это сделать?

    Ответ:

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

    Юзай (работает в W2k и выше, по-моему):

    Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long.


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

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

    наверх


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

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