Голосование:
Доска почёта:
Sergey Y. Tkachev
Кононенко Роман
Kirill
Sergey Sapozhnikov
Sobic
Ссылки:
Несколько слов от автора:
Наконец-то обновился сайт "Азбука VB". Обязательно посмотрите.
Читайте!
Читайте!
Содержание выпуска
- Книги
- Citycat by Email
- Новости сайта VBNet
- Новости сайта VBMania
- Новости сайта Азбука VB
- Доска объявлений
- Вопрос/Ответ
Книги
Остальные книги о VB можно найти здесь.
наверх
Citycat by Email
Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.
наверх
Новости сайта VBNet
Последние 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
наверх
Доска объявлений
наверх
Мои программы
BalloonMessage for MS Agent
Авторы: Шатрыкин Иван и Павел Сурменок.
наверх
Вопрос/Ответ
Автор вопроса: Павел
Ответ ожидается по этому адресу
Как отследить, какие клавиши нажимаются на клавиатуре, при этом форма находится в свернутом состоянии?
Автор вопроса: Б.А.Л.
Ответ ожидается по этому адресу
У меня такой вопросик: в 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 владельцу сайта.
наверх
|
Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.) Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр... |
||
|
Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.
|
|||
|
Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)
Эта книга является вводным курсом по
изучению языка программирования Visual Basic .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 владельцу сайта.