|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Свежий выпуск.
Читайте! Содержание выпуска
Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх
Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 01:50 / 25 ноя. Расширение и иконка | Хитов: 5 | Ответов: 0 01:46 / 25 ноя. Обновить ListView | Хитов: 14 | Ответов: 3 00:49 / 25 ноя. Visual Basic 3.0 | Хитов: 14 | Ответов: 1 00:48 / 25 ноя. Winsock- vechnaja golovnaja bol | Хитов: 7 | Ответов: 0 00:44 / 25 ноя. Tipa Combo | Хитов: 11 | Ответов: 2 22:49 / 24 ноя. VBScript & WinAPI, VBScript & Sound | Хитов: 1 | Ответов: 0 22:27 / 24 ноя. Создание HAlp'а!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!... | Хитов: 12 | Ответов: 2 22:24 / 24 ноя. Создание Halpа | Хитов: 6 | Ответов: 0 21:58 / 24 ноя. HELP! Хочу к объектам применить событие...КАК??? | Хитов: 10 | Ответов: 1 21:55 / 24 ноя. HELP! Хочу к объектам применить событие...КАК??? | Хитов: 3 | Ответов: 0 19:20 / 24 ноя. Перенос приложения на другой компьютер | Хитов: 7 | Ответов: 1 18:16 / 24 ноя. Не работает поиск по форуму | Хитов: 5 | Ответов: 1 16:01 / 24 ноя. ICQ че тут творить? | Хитов: 27 | Ответов: 2 15:34 / 24 ноя. SQL, ограничение количества выводимых записей | Хитов: 17 | Ответов: 4 13:23 / 24 ноя. AAACCCEEESSSSSSS 222000000000 !!!!!!!AAAAAAAAAAA | Хитов: 44 | Ответов: 3 09:26 / 24 ноя. Game и скорость key_press (keyAscii) ? | Хитов: 20 | Ответов: 5 07:27 / 24 ноя. Получить ответ сервера... | Хитов: 35 | Ответов: 3 04:19 / 24 ноя. Пара вопросов | Хитов: 23 | Ответов: 1 01:43 / 24 ноя. скажим "НЕТ!" .NET и "ДА!" PowerBasic ! | Хитов: 36 | Ответов: 4 23:07 / 23 ноя. Вопрос номер 2 | Хитов: 18 | Ответов: 0 Последние поступления в Библиотеку кодов: наверх Новости сайта MSDN наверх Новости сайта GotdotNet Новые статьи: наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Как к объектам применить событие? Адерес темы: http://vbnet.ru/forum/show.asp?id=27667 Вопрос: Автор вопроса: Cooller Я создал массив объектов: Dim a(100) As Object l = l + 1 For l = 1 To 10 Set a(l) = Controls.Add("VB.CommandButton", "a" & Trim$(Str$(l))) a(l).Left = 200 * l a(l).Visible = True Next l Как применить к ним событие(например MouseMove) ??? Ответы: Автор: cresta Слушай, может тебе такая штука подойдет, правда должна быть в Design Mode создана одна кнопка cmdBtn как образец, и нужно в Property для неё указать индекс 0. При этом автоматом создается массив кнопок и при запуске программы массив заполняется количеством кнопок, указанным в переменной цикла. И при этом у массива будет вполне цивильный Mouse_Move(Index as Integer), а если начальная кнопка мозолит глаза, то её можно задвинуть за пределы формы. Попробуй: Private Sub Form_Load() Me.Show For i = 1 To 10 Dim btn As CommandButton Dim iIndex As Integer iIndex = cmdBtn.Count If iIndex <= 32767 Then Load cmdBtn(iIndex) Set btn = cmdBtn(iIndex) With btn .Left = cmdBtn(iIndex - 1).Left + 620 .Caption = "" & iIndex + 1 .Visible = True End With Set btn = Nothing End If Next i End Sub Private Sub cmdBtn_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Caption = Index End Sub Автор: Павел Для единичного объекта выходом было бы объявление переменной на уровне формы с ключевым словом WithEvents. Для массивов это не прокатит. Могу предположить, что средствами VB6 это нереально. Вот в .NET это очень просто!.. Попробуй использовать сабклассинг, хотя получится не очень красиво, но работать будет. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Тим Ответ ожидается по этому адресу Возможно ли на Бейсике решить такую задачу?: Есть приложение (написанное на Дельфи не мной). В дочернем окне MDI-формы есть контрол ListView. Надо считать текстовое значение всех его item. Можно ли через API добраться до него. Автор вопроса: Dim-flash@yandex.ru Ответ ожидается по этому адресу Есть ярлык как можно c помощью VB получить его параметры, такие как объект, рабочая папка и др. Если можно по подробней. Автор вопроса: Игорь Ответ ожидается по этому адресу Как программно определить и изменить в международных стандартах (.на ,) ? Ответы: Вопрос: Как сшить два файла в один, и обращаться из одного к другому. Например: рисунок и мой проект, при этом если на кнопке кликнуть, то рисунок покажется в image. Или wav файл, сшитый с моей прогой и если кликнуть "играть", то будет играть этот файл! Ответ: Автор ответа: C...R...a...S...H Добавь эти файлы в ресурсы к программе и юзай их как и когда хочешь Если тебе надо "сшить" два файла в один то: Соедини их при помощи HEX редактора и пиши код dim WavLen as long dim ImgLen as long WavLen=XXX 'длина файла Wav в байтах ImgLen=ХХХ Длина Image 'ImgLen+WavLen-длинна "сшитого" файла Dim WavStr as string Dim ImgStr as string open "MyFile.xxx" for binary as #1 space(WavStr,wavlen) space(imgStr,Imglen) get #1,1,wavstr get #1,wavlen,imgstr close #1 open "Mywav.wav" for binary as #1 put #1,,wavstr close #1 open "Myimg.bmp" for binary as #1 put #1,,imgstr close #1 Код писался без IDE но должен работать Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |