| ← Ноябрь 2002 → | ||||||
|
2
|
3
|
|||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
9
|
10
|
||
|
11
|
12
|
13
|
14
|
15
|
||
|
18
|
20
|
21
|
23
|
24
|
||
|
26
|
27
|
28
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Автор
Статистика
4.065 подписчиков
0 за неделю
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 110.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 110.
|
VBNet
VBMania
Голосование: Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Наконец-то обновился сайт "Азбука 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 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 владельцу сайта. |
|||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
