Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 158.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 158.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора: Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 13:27 / 4 май. net.exe | Хитов: 0 | Ответов: 0 13:15 / 4 май. Новое сообщение без темы | Хитов: 0 | Ответов: 0 10:33 / 4 май. Повестка в армию пришла!!!!!!!?????!!!!! | Хитов: 18 | Ответов: 2 07:24 / 4 май. Проблема с GetPixel | Хитов: 8 | Ответов: 2 07:10 / 4 май. Иконки в меню | Хитов: 17 | Ответов: 3 00:06 / 4 май. mscoree.dll | Хитов: 24 | Ответов: 5 23:07 / 3 май. как запретить закрывать программу (+) | Хитов: 18 | Ответов: 3 21:58 / 3 май. Помогите с 1с | Хитов: 16 | Ответов: 1 19:40 / 3 май. Как перерисовать окно | Хитов: 17 | Ответов: 1 18:45 / 3 май. InputBox - это круто! | Хитов: 35 | Ответов: 2 17:58 / 3 май. listbox? | Хитов: 19 | Ответов: 2 15:23 / 3 май. VB.NET | Хитов: 22 | Ответов: 2 14:36 / 3 май. Вопрос по AVI | Хитов: 15 | Ответов: 0 12:41 / 3 май. Winsock? Опять | Хитов: 14 | Ответов: 1 12:24 / 3 май. listbox? | Хитов: 21 | Ответов: 1 12:01 / 3 май. Winsock? | Хитов: 15 | Ответов: 2 06:14 / 3 май. Как удалить exe файл? | Хитов: 29 | Ответов: 2 01:00 / 3 май. Размеры форм VB .NET | Хитов: 7 | Ответов: 0 22:35 / 2 май. И всё-равно open file | Хитов: 24 | Ответов: 5 20:43 / 2 май. MAPI for LotusNotes | Хитов: 6 | Ответов: 0 Последние поступления в Библиотеку кодов: Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet Новые статьи:
наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Создание ярлыка Вопрос: Автор вопроса: jimm Как программно создать ярлык к приложению? Ответы: Автор: V!RU$™ Вrundll32 AppWiz.Cpl, NewLinkHere %1 - запуск мастера создания нового ярлыка, где %1 - путь к исходному файлу. Автор: <==Alex==> 'Ещё один хороший способ создания ярлыка: Public Sub CreateShortcut(ByVal SCPath As String, ByVal SCName As String, ByVal FilePath As String, Optional HotKey As String, Optional SHIcon As String, Optional SHWorkingDirectory As String, Optional SHDescription As String, Optional WindowStyle As Integer = vbNormalFocus) Dim WshShell As Object Dim oShellLink As Object Dim sLinkPath As String Set WshShell = CreateObject("WScript.Shell") On Error GoTo 0 Set oShellLink = WshShell.CreateShortcut(SCPath & SCName & ".lnk") oShellLink.Windowstyle="WindowStyle" oShellLink.HotKey = HotKey oShellLink.TargetPath = SCPath oShellLink.IconLocation = SHIcon oShellLink.Description = SCDescription oShellLink.WorkingDirectory = SHWorkingDirectory oShellLink.Save Set oShellLink = Nothing Set WshShell = Nothing End Sub Private Sub Form_Load() Dim shFolder As String shFolder = "C:\" 'или "Desktop", "StartMenu", "StartUp", "Programs" и т.д. CreateShortcut shFolder, "Калькулятор", "calc.exe", "CTRL+SHIFT+C", "calc.exe,0", , "Калькулятор Windows" End Sub Автор: Страшный Сон Можно изучить структуру LNK-файла и создавать ярлыки без всяких апи. наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: ]CBK[CRaSH Ответ ожидается по этому адресу У немя возник тут такой вопрос Как сделать так что-бы можно было обводить несколько контролов во время работы программы (типа как в VB во время разработки) Автор вопроса: mikl Ответ ожидается по этому адресу Как записать и считать информацию ия определённой ячейки используя объект List. Каждый элемент списка должен находиться в определённой записи и в разных полях этой записи. Автор вопроса: Меркуль Юрий Ответ ожидается по этому адресу Подскажите пожалуйста, какими средствами VB 6.0 можно организовать передачу файлов( по типу Hyper Terminal). Или какая команда(или, что-нибудь ещё) есть в VB для перехода в полноэкранный режим, т.е. в простом Бэйсике есть команда screen, А в ВБ? Автор вопроса: Dmitry Ответ ожидается по этому адресу Хочется повесить выгрузку формы на событие MouseMove. Но это событие происходит сразу в момент запуска приложения, поэтому форма не загружается вообще. Автор вопроса: Игорь Ответ ожидается по этому адресу Буду признателен за прогр на VBA в Access-сохранить текущую запись, т.е. что бы для опреденленных записей запретить в форме делать изменения,удаления. Форма предназначена для ввода и просмотра данных. Ответы: Вопрос: Как в программе на VB проигрывать музыкальные файлы в фоновом режиме? Ответ: Автор ответа: KAS (c) Используй MultiMedia Control: Private Sub Form_Load() MMC.FileName = "c:\mdi.mdi" 'Путь до файла MMC.Command = "Open" MMC.Command = "Play" End Sub Private Sub MMC_Done(NotifyCode As Integer) ' Повторное воспроизведение по окончании MMC.Command = "Prev" MMC.Command = "Play" End Sub Вопрос: 1. Не могу установить ссылку на Microsoft Scripting Runtime(FileSystemObject). Хотя scrrun.dll лежит, пробовал вручную, тоже самое - пишет - "C:\WINDOWS\SYSTEM\SCRRUN.DLL не может загрузится", и в тоже время заносит его в "Сomponents| Управление". 2. Как обращаться к Temporary Internet Files, а точнее как его удалить(чистить)? Т.к FileSystemObject не удалось использовать, делал так- On Error GoTo 2 Shell "DelTree /Y " + wd + "\TEMPOR~1\CONTENT.IE5", vbHide GoTo 3 2 MsgBox "Ошибка удаления или отказ в доступе" 3 в последствии некоторая часть файлов удаляется и в списке процессов остаётся "Winoldap", возможно нужен подходящий ключ для DelTree, перепробовал все. Буду рад любым советам. Ответ: Автор ответа: fox 1. Попробуй подключить её в качестве Referense. Должно работать. У меня работает вроде :-) Вопрос: Как сделать, чтобы после первого запуска программа в дальнейшем запускалась автоматически? Ответ: Автор ответа: Пащенко А. При запуске программы добавляй строковый параметр (App.EXEName), равный (App.Path & "\" & App.EXEName & ".exe") в одну из веток реестра: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run - будет запускаться под всеми пользователями. HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run - будет запускаться только под текущим пользователем. Ответ: Автор ответа: fox Допиши в реестр, в раздел RunOnce, такой параметр "Имя своей проги" - "Путь по которому она располагается". Прога при каждом перезапуске будет запускаться автоматически Вопрос: Как открыть файл exe из своей проги? Ответ: Автор ответа: KAS (c) Shell "Путь до программы" Вопрос: Что такое: Item, Trim, Replace, Space?? Для чего это, что они делают?? Ответ: Автор ответа: fox Trim - функция, удаляющая ведущие и конечные пробелы. Space - функция выводящая заданное число пробелов. Ответ: Автор ответа: KAS (c) Item(Index) - используется как функция задающая порядковый номер элемента Trim(" 123 ") - дает "123" - обрезает пробелы с обеих сторон переменной Replace("Текст","Что искать","На что заменить") - заменяет что-либо в тексте Space(10) даст " " - возвращает столько пробелов сколько укажете Ответ: Автор ответа: Артем Кривокрисенко Trim - функция, которая обрезает пробелы по краям. Например, было " 123321 " стало"123321" Функции LTrim и RTrim позволяют обрезать пробелы только слева или справа соответственно. Replace - функция, которая заменяет один фрагмент текста другим. strTemp=Replace("HELLO","H","h") Получится "hELLO". Причем заменятся все такие фрагменты. Space - функция, которая заполняет строк. переменную пробелами, например: Space(10) вернет: " ". Вопрос: Привет, у меня несколько вопросов, касающихся Internet Transfer Controla: Программа качает файл по адресу Text1.Text в директорию Text2.text Вот привожу код, вопросы после него: Private Sub Command1_Click() Inet1.Execute Text1.Text, "GET" End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) Dim FUCK() As Byte Dim NOF As Long If State = 12 Then NOF = FreeFile Open Text2.Text For Binary Access Write As NOF FUCK = Inet1.GetChunk(1024, icByteArray) Do While LenB(CStr(FUCK)) > 0 Put NOF, , FUCK FUCK = Inet1.GetChunk(1024, icByteArray) Loop Close NOF MsgBox "OK" End If End Sub 1) почему, переменная FUCK объявляется как массив, хотя в коде программы массивом и не пахнет? Хотя если объявить просто объявить переменную (без () ), то программа не работает. 2) Как связано с нулём вот это выражение LenB(CStr(FUCK)) , ну то есть я понимаю, что оно делает и понимаю зачем, но как все эти преобразования связаны с файлом? Ответ: Автор ответа: Владимир Кирко 1) Должно было бы работать и без массива, т.к. переменная по умолчанию - variant. А согласно MSDN: GetChunk Method (Internet Transfer Control) - Retrieves data from in the StateChanged event. Use this method after invoking the Execute method as a GET operation. Syntax: object.GetChunk( size [,datatype] ) The Get property syntax has these parts: Part Description object Anobject expression that evaluates to an object in the Applies To list. size Required. A long numeric expression that determines the size of the chunk to be retrieved. datatype Optional. An integer that specifies the data type of the retrieved chunk, as shown in Settings below. Settings The settings for datatype are: Constant Value Description icString 0 Default. Retrieves data as string. icByteArray 1 Retrieves data as a byte array. Return Type - Variant Remarks - Use the GetChunk method in the StateChanged event. When the State property is icResponseCompleted (12), then use the GetChunk method to retrieve the buffer's contents. И выдают такой пример: Private Sub Inet1_StateChanged(ByVal State As Integer) ' Retrieve server response using the GetChunk ' method when State = 12. This example assumes the ' data is text. Select Case State ' ... Other cases not shown. Case icResponseReceived ' 12 Dim vtData As Variant ' Data variable. Dim strData As String: strData = "" Dim bDone As Boolean: bDone = False ' Get first chunk. vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData DoEvents ' Get next chunk. vtData = Inet1.GetChunk(1024, icString) If Len(vtData) = 0 Then bDone = True End If Loop txtData.Text = strData End Select End Sub 2)GetChunk - получить порцию. И согласно тому же источнику действует так (описание я взял немного из другого места, но принцип действия должен быть тот же): Each subsequent GetChunk call retrieves data starting from where the previous GetChunk call left off. However, if you are retrieving data from one field and then you set or read the value of another field in the current record, ADO assumes you have finished retrieving data from the first field. If you call the GetChunk method on the first field again, ADO interprets the call as a new GetChunk operation and starts reading from the beginning of the data. Accessing fields in other Recordset objects that are not clones of the first Recordset object will not disrupt GetChunk operations. Не вдаваясь в детали - каждый вызов GetChank выдаёт некую порцию информации, начиная с той, которая не попала в предыдущий её вызов. Если вызов GetChank ничего не возвратил, т.е. "длина" объекта нулевая, то, надо полагать, вы получили весь объект. Ответ: Автор ответа: KAS (c) В переменную FUCK закачивается указанный вами файл. А строка: LenB(CStr(FUCK)) > 0, проверяет длину закачиваемого файла, CStr преабразует выражение в строковую переменную, а LenB проверяет ее длину. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
