| ← Март 2002 → | ||||||
|
2
|
3
|
|||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
9
|
10
|
||
|
12
|
13
|
14
|
16
|
17
|
||
|
19
|
20
|
21
|
23
|
24
|
||
|
26
|
27
|
28
|
30
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Автор
Статистика
4.063 подписчиков
0 за неделю
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 42.
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 42.
|
VBNet
VBMania
Голосование: Нет тем! Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Наконец-то каникулы!!! Времени много свободного!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 09:35 / 24 мар. ещё один глюк... | Ответов: 1 05:23 / 24 мар. Как избежать повторной компилляции | Ответов: 1 21:49 / 23 мар. глюки... | Ответов: 1 15:31 / 23 мар. zapusk ishodnikov s neta | Ответов: 1 09:27 / 23 мар. Error: Logon session doesn't exist | Ответов: 0 03:21 / 23 мар. Перекодировка текста WIN/DOS | Ответов: 1 03:03 / 23 мар. эй тут есть крутые или нет? | Ответов: 1 22:33 / 22 мар. Как минимизировать любое окно проги (игры)???? | Ответов: 1 20:59 / 22 мар. Outlook отправка почты | Ответов: 1 17:59 / 22 мар. Сортировка таблицы в базе данных | Ответов: 1 19:58 / 21 мар. Печать рисунка | Ответов: 1 14:32 / 21 мар. Точка и восклицательный знак | Ответов: 1 13:44 / 21 мар. Запуск Access'a из VB без лого !!! | Ответов: 1 12:50 / 21 мар. Доступ к ресурсам ЛВС с пом. FileSystemObject | Ответов: 0 12:31 / 21 мар. Ну кто нибудь знает ???????????????????? | Ответов: 1 02:50 / 21 мар. при проигрывание звука все отстанавливается ! | Ответов: 1 18:54 / 20 мар. Массив Элементов... | Ответов: 1 18:11 / 20 мар. Split | Ответов: 1 11:42 / 20 мар. Помогите!!! | Ответов: 1 08:14 / 20 мар. Вопрос по DBF | Ответов: 0 Последние поступления в Библиотеку кодов: Нет новых кодов. наверх Новости сайта VBMania
наверх Новости сайта Азбука VB
наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Roman 'Devil' Yuakovlev Ответ ожидается по этому адресу Дайте плиз полную декларацию GetDiskFreeSpaceEx с флажками, константами etc... Тяжело жить без msdn... Btw, в apitextviewer упоминается large_integer... что это, Double? Автор вопроса: Deull Ответ ожидается по этому адресу Как сохранить графические данные в буфере обмена в BMP - файл? Автор вопроса: Владимир Капустин Ответ ожидается по этому адресу Как связать файл с программой и присвоить ему значок через реестр или любым другим способом (без прописки в WIN.INI). Автор вопроса: Саша Ответ ожидается по этому адресу Три вопроса о манипуляторах. 1. Можно ли манипулировать джойсиком с помощью клавиатуры. 2. Если не джойсика можно его с эмитировать. 3. Можно ли соядать две мыши одна на COM1 управляется клавеатурой другая на COM2 управляется самой мышью Автор вопроса: Миша Ответ ожидается по этому адресу Вопрос свяяан с Excel. Как сделать что бы события реагировали на скролинг страницы. т.е. Сдвинул скролинг проияошло событие Автор вопроса: Роман Ответ ожидается по этому адресу 1) Как в ListBox вставить содержимое базы данных, не набирая его вручную. 2) Можно ли работать с базами данных не используя элемент Data. Автор вопроса: P@Ssword Ответ ожидается по этому адресу Как перехватывать обращения к файлам (как антивирусные мониторы) и в случае чего блокировать к ним доступ? Автор вопроса: Samit Ответ ожидается по этому адресу Visual Basic 6.0 как нибудь может общаться с портами LPT или COM, если да, то как? И как сделать так, чтобы я нажимал выключатель и запускался ну например таймер? Пожалуюста укажите Web-страницы, где об этом можно прочитать! Автор вопроса: Андрей Тюрин Ответ ожидается по этому адресу Как на Ваське работать с портами, принимать и отправлять информацию, в каком она формате. Интересуют КОМ-порты. Автор вопроса: Alex Ответ ожидается по этому адресу Как передать данные запроса на удаленное устройство после получения от модема сообщения "CONNECT ..."? Автор вопроса: Сергей Ответ ожидается по этому адресу Как зделать установачный пакет (что бы моя программа заносилось в список "Установка и удоления программ") Автор вопроса: Вячеслав Ответ ожидается по этому адресу Как можно програмно на VB, в Access найти и заменить в полях букву на другую, по всей базе? Автор вопроса: Юрий Ответ ожидается по этому адресу Доброго времени суток! У меня следующий вопрос. Для вывода данных в виде таблицы испольяуется MSFlexGrid control. Для редактирования данных испольяуются EditBox и ComboBox с соответствующими обработчиками. Для редактирования данных по двойному клику на ячейке нужный элемент управления вписывается в нее и делается видимым (Visible = True). Все работает нормально, но время от времени элементы управления перестают выводиться на экран, несмотря на то, что Visible у них равен True. Если при это нажать Alt+[курсор вния], но у невидимого ComboBox'а выпадающий список появляется на экране. Кроме того, после редактирования данные ия невидимых элементов управления яаносятся в таблицу нормально. Как победить эту проблему? Испольяуется VB 6, SP 5. Автор вопроса: AIT Ответ ожидается по этому адресу Подскажите как сделать стикеры ("липкие листочки" на рабочем столе)? И чтобы была возможность делать настройки к ним (изменять цвет, размер фона, шрифта и т.д.). Автор вопроса: Владимир Ответ ожидается по этому адресу Сделал программу расч?та таблицы. При печати таблицы пришлось программировать черчение сетки для страниц командой Line. Почему-то во время отправки страниц на печать не работает простой цикл For a=1 to 2. Выдается яначение а=0. On Error не действует. Можно ли напечатать таблицу ия VB6 каким нибудь другим способом? Автор вопроса: RIO Ответ ожидается по этому адресу Как программно узнать значение поля типа "счетчик" в MDB. Примеры типа 'MoveLast' или Запрос 'Max' не подходят, т. к. последняя или последние несколько записей могут удалены пользователем а значение счетчика будет увеличено, сжатие тоже не выгодно быза очень большая и при добавлении новой записи выполняется достаточно долго, что ни есть хорошо для пользователя. Ответы: Вопрос: В VB пытаюсь сделать текстовый редактор. Посоветуйте, как сделать, чтобы по нажатии на кнопку BOLD(жирный), жирным становился не весь текст, а только выделенный. Я написал так: Case "Bold" With txtBox If .FontBold = True Then .FontBold = False Else .FontBold = True End If End With Ответ: Автор ответа: Rutshtein Alex Чтобы сделать часть текста как Bold нужно использовать компонент Microsoft Rich Textbox Control. Это такое же текстовое поле, но можно для любой части текста менять свойства. Вопрос: В VB пытаюсь сделать текстовый редактор. Посоветуйте, как сделать, чтобы по нажатии на кнопку BOLD(жирный), жирным становился не весь текст, а только выделенный. Я написал так: Case "Bold" With txtBox If .FontBold = True Then .FontBold = False Else .FontBold = True End If End With Ответ: Автор ответа: Игорь Для того, чтобы сделать текстовый редактор, нужно использовать элемент RichTextBox, здесь можно выделять текст и полужирным, и каким хочешь. А в обычном TextBox, изменение шрифта распространяется на весь текст. Могу быть соавтором. Обращайся если что igoryk@yandex.ru Вопрос: В VB пытаюсь сделать текстовый редактор. Посоветуйте, как сделать, чтобы по нажатии на кнопку BOLD(жирный), жирным становился не весь текст, а только выделенный. Я написал так: Case "Bold" With txtBox If .FontBold = True Then .FontBold = False Else .FontBold = True End If End With Ответ: Автор ответа: Roman 'Devil' Yuakovlev Использовать richtextbox и sel* Вопрос: На каких платформах работают программы написанные на VB6? Ответ: Автор ответа: Иван Точно работают на Win9x,Me. Но необходимо, чтобы рядом были все используемые библиотеки. В WindowsXP стандартные библиотеки не требуется. Вопрос: Как перекодировать ия какой либо кодировки в другую при помощи VB. (Только не Win в Дос) Ответ: Автор ответа: NeoLord Function Recode(Char As String, Src As Code, Dest As Code) As String 'Rem Великолепная функция перекодирования, взятая мной с сайта 'http://www.vbrussian.com' Const wDos As String = "°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧрЩЪЫЬЭЮЯтуфхцчшщсыьэюяШъЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”∙–—™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬®Їабвгдежзийклмноп" Const wIso As String = "°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧўЩЪЫЬЭЮЯтуфхцчшщсыьэюяШъ°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп" Const wKoi As String = "ђ‘’Ѓ‡Іґ§¦µЎЁ®¬ѓ„‰€†ЂЉЇ°«Ґ»ё± ѕ№є¶·Є©ў¤ЅЁ…‚ЌЊЋЏ‹™“›џ—њћЈ–љќ”їј∙бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС" Const wWin As String = "ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”∙–—™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬®Ї°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя" Const NotRecodedChar As String = "?" If Src = Dest Then Recode = Char Exit Function End If Dim t As String, i As Long, tt As String, a As Long, ss As String, ch As String If Src = Win Then t = Char Else Select Case Src Case Koi: ss = wKoi Case Dos: ss = wDos Case Iso: ss = wIso End Select For i = 1 To Len(Char) ch = Mid(Char, i, 1) If Asc(ch) < 128 Then t = t & ch Else a = InStr(1, ss, ch, vbBinaryCompare) If a = 0 Then t = t & NotRecodedChar Else t = t & Mid$(wWin, a, 1) End If End If Next i End If If Dest = Win Then Recode = t Else Select Case Dest Case Koi: ss = wKoi Case Dos: ss = wDos Case Iso: ss = wIso End Select For i = 1 To Len(Char) ch = Mid(t, i, 1) If Asc(ch) < 128 Then tt = tt & ch Else a = InStr(1, wWin, ch, vbBinaryCompare) If a = 0 Then tt = tt & NotRecodedChar Else tt = tt & Mid$(ss, a, 1) End If End If Next i Recode = tt End If End Function Вопрос: Можно ли удалить файл так что бы его нельяя было востановить даже unerase или undelete. Ответ: Автор ответа: Rutshtein Alex 'Вот как удалить файл без возможности восстановления Option Explicit Private Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long Private Declare Function lwrite Lib "kernel32" Alias "_lwrite" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal wBytes As Long) As Long Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long Private Declare Function llseek Lib "kernel32" Alias "_llseek" (ByVal hFile As Long, ByVal lOffset As Long, ByVal iOrigin As Long) As Long Private Sub Form_Load() Const BlockSize = 98304 Dim S As String Dim F As String Dim F1 As String Dim F2 As String Dim i As Long Dim i1 As Long Dim i2 As Long Dim N As Integer Dim CurSize As Long Dim FAttr As Integer F = "C:\1.txt" 'ИМЯ ФАЙЛА CurSize = FileLen(F) i1 = CurSize \ BlockSize i2 = CurSize - i1 * BlockSize FAttr = GetAttr(F) SetAttr F, vbNormal N = lopen(F, 2) For i = 1 To i1 + 1 DoEvents If i = i1 + 1 Then lwrite N, S, i2 Else lwrite N, S, BlockSize End If Next lclose N N = lopen(F, 2) lwrite N, "", 0 lclose N SetAttr F, FAttr Kill F End Sub Вопрос: Можно ли удалить файл так что бы его нельяя было востановить даже unerase или undelete. Ответ: Автор ответа: P@Ssword Забиваешь файл разной фигнёй и затем просто удаляешь. Вопрос: Можно ли удалить файл так что бы его нельяя было востановить даже unerase или undelete. Ответ: Автор ответа: Roman 'Devil' Yuakovlev Открыть бинарно, забить нулями, потом удалить... Вопрос: Как мне «воткнуть» файл в программу (музыкальный) чтобы от туда же его использовать…или воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой переместят)… + как заставить объект типа Picture по нажатии кнопки влево, двигаться влево, и т.д…прошу написать поподробнее…+как при определенном условии создавать объект (Picture), а при ненадобности его удалять (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)…+как откомпилять EXEшник, чтоб он потом не требовал библиотек (VB6) Ответ: Автор ответа: Tolic Поставь на форму эл. Picture, а в модуль формы вставь этот кусок кода. Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top - 50 If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 50 If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left - 50 If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 50 End Sub Вопрос: Как мне «воткнуть» файл в программу (музыкальный) чтобы от туда же его использовать…или воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой переместят)… + как заставить объект типа Picture по нажатии кнопки влево, двигаться влево, и т.д…прошу написать поподробнее…+как при определенном условии создавать объект (Picture), а при ненадобности его удалять (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)…+как откомпилять EXEшник, чтоб он потом не требовал библиотек (VB6) Ответ: Автор ответа: Ревягин_Алексей Сделай на форме OLE-объект, не создавай в нём объект, потом через Explorer выдели свой файл, нажми "копировать в буфер", потом иди в окно VBasic'a там правой кнопкой мыши нажми по OLE-объекту и выбери "Paste Special". А потом впиши в нопку, при нажатии на которую будет играть музыка, в этот код: ole1.doverb таким образом этот файл будет сохранён в самом ЕХЕ-шнике. Чтобы объект двигался в лево на определённое расстояние при нажатии на кнопку; нужно вписать код: button1.left=button1.left + 10 теперь при каждом нажатии на кнопку button1 обект будет сдвигаться влево на 10 у.е. (еденицы измерения указываются в Properties->ScaleMode) Создай на форме Picture-объект, потом укажи в Properties->index равный 0. КоД: Private sub LoadObject_click() load picture1(1) picture1(1).show end sub Private sub UnloadObject_click() unload picture1(1) end sub Вопрос: Как мне «воткнуть» файл в программу (музыкальный) чтобы от туда же его использовать…или воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой переместят)… + как заставить объект типа Picture по нажатии кнопки влево, двигаться влево, и т.д…прошу написать поподробнее…+как при определенном условии создавать объект (Picture), а при ненадобности его удалять (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)…+как откомпилять EXEшник, чтоб он потом не требовал библиотек (VB6) Ответ: Автор ответа: Rutshtein Alex Не указывать путь можно так: MusicFile = App.Path + "\Music.wav" где App.Path - путь к папке с программой. Например, если прога в папке C:\SuperMusic, то переменная MusicFile будет равна C:\SuperMusic\Music.wav Насчет двигать Picture1, то Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft Picture1.Left = Picture1.Left - 50 Case vbKeyRight Picture1.Left = Picture1.Left + 50 Case vbKeyUp Picture1.Top = Picture1.Top - 50 Case vbKeyDown Picture1.Top = Picture1.Top + 50 End Select End Sub Не забудь указать в свойствах формы: KeyPreview = True Создать клон объекта можно при помощи функции Load, а выгружать объект при помощи Unload. В параметре указываешь имя объекта. Объект должен иметь св-во Index=0 или 1 или... Создается объект с тем же именем и теми же св-ми но с другим индексом. Выгружается объект по индексу. Никак не откомпилить, чтобы он не требовал msvbvm60.dll. Программируй в Delphi, том такой проблемы нет. Вопрос: Как мне «воткнуть» файл в программу (музыкальный) чтобы от туда же его использовать…или воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой переместят)… + как заставить объект типа Picture по нажатии кнопки влево, двигаться влево, и т.д…прошу написать поподробнее…+как при определенном условии создавать объект (Picture), а при ненадобности его удалять (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)…+как откомпилять EXEшник, чтоб он потом не требовал библиотек (VB6) Ответ: Автор ответа: P@Ssword 1) "Воткнуть" VB Resource Editor 2) Воспроизводить Функция WinAPI sndPlaySound 3) ... Picture по нажатии кнопки ... двигаться ... Сабклассинг, больше возможностей не вижу (пока что ;) 4) ... создавать объект, а при ненадобности его удалять ... Либо коллекция объектов, либо ниже вопрос ComputerDestroyer'а о создании контролов, там мой ответ Что значит "а код компактен должен быть"? 5) откомпилять EXEшник, чтоб он потом не требовал Программы PEBundle, Fusion (кажется так). Если напишешь на Е-Мыло, могу скинуть (244 Кб RAR) Вопрос: Народ, отзовитесь, кто работал гокда-нибудь с диаграммой Excel. Мне нужно внести в нее исходные данные для построения графика, но не вручную, а программно. Но какие свойства и методы надо использовать я не знаю. Ответ: Автор ответа: helaldmin В MS Excel включи запись макросов и построй диаграмму. После этого код макроса почитай. Там будет все необходимое. Вопрос: Работа с базой данных. Расклад такой: Таблица - "А" Поля - "Дата Продажи" "Наименование Товара" "Стоимость" Как должен выглядеть SQL запрос чтобы вывести данные о количестве записей из поля"Наименование Товара",общей суммы из поля"Стоимость" на конкретную дату"Дата Продажи" из таблицы"А". Причём должна быть возможность делать выборку на дату задаваемую пользователем,в отдельном Text.Box. Пример: 17.03.02 было проданно 15 наименований товара на сумму 1500 рублей. "VB 6.0" ,база данных "ACCESS" , контрол "DATA" Ответ: Автор ответа: Linas mySQL="SELECT A.[Дата Продажи], COUNT(A.[Наименование Товара]), SUM(A.[Стоимость]) FROM A WHERE A.[Дата Продажи]=#" + TextBox.Text + "# GROUP BY A.[Дата Продажи]" Set data.recordset = myDB.openrecordset(mySQL) esli izpolzuetsia data.databasename data.recordsource = mySQL data.refresh Вопрос: Работа с базой данных. Расклад такой: Таблица - "А" Поля - "Дата Продажи" "Наименование Товара" "Стоимость" Как должен выглядеть SQL запрос чтобы вывести данные о количестве записей из поля"Наименование Товара",общей суммы из поля"Стоимость" на конкретную дату"Дата Продажи" из таблицы"А". Причём должна быть возможность делать выборку на дату задаваемую пользователем,в отдельном Text.Box. Пример: 17.03.02 было проданно 15 наименований товара на сумму 1500 рублей. "VB 6.0" ,база данных "ACCESS" , контрол "DATA" Ответ: Автор ответа: Игорь Кузенков Private Sub Command1_Click() Data1.DatabaseName = App.Path & "\db4.mdb" Data1.RecordSource = "SELECT Дата, Count(Наименование) AS Count, Sum(Стоимость) AS Sum FROM А GROUP BY Дата HAVING Дата=#" & txtDate & "#;" Data1.Refresh Label1.Caption = Data1.Recordset.Fields(0) & " было продано " & Data1.Recordset.Fields(1) & " наименования товара на сумму " & Data1.Recordset.Fields(2) & " рублей." End Sub Может возникнуть проблема с форматом даты для SQL запроса, но для этого есть ф-ция Format(). Вопрос: Работа с базой данных. Расклад такой: Таблица - "А" Поля - "Дата Продажи" "Наименование Товара" "Стоимость" Как должен выглядеть SQL запрос чтобы вывести данные о количестве записей из поля"Наименование Товара",общей суммы из поля"Стоимость" на конкретную дату"Дата Продажи" из таблицы"А". Причём должна быть возможность делать выборку на дату задаваемую пользователем,в отдельном Text.Box. Пример: 17.03.02 было проданно 15 наименований товара на сумму 1500 рублей. "VB 6.0" ,база данных "ACCESS" , контрол "DATA" Ответ: Автор ответа: Sergey Скорее всего это должно выглядеть так: SELECT [Дата Продажи],Count([Наименование Товара]), Sum([Стоимость]) FROM A WHERE [Дата Продажи]='17/03/2002' Вопрос: Кто знает, как програмно создать кнопку али др. элемент упраления ? Ответ: Автор ответа: Rutshtein Alex Создать клон (копию) можно при помощи функции Load. Выгрузить при помощи Unload. Объект должен быть с индексом. Вопрос: Кто знает, как програмно создать кнопку али др. элемент упраления ? Ответ: Автор ответа: P@Ssword В General Declarations пишется что-то вроде Dim MyCoolSuperPuperControlКоторыйВзялсяИзниоткуда As КлассКонтрола А в сабе, где надо создать контрол, пишем Set MyCoolSuperPuperControlКоторыйВзялсяИзниоткуда = ИмяФормыКудаДобавляем.Controls.Add ("ПолноеНазваниеКлассаКонтролаКоторыйХотимСоздать", "БудущееИмяКонтрола") Контрол создан! Теперь осталось переместить его куда надо и сделать ему... нет, не больно, а MyCoolSuperPuperControlКоторыйВзялсяИзниоткуда.Visible = True. Вопрос: Кто знает, как програмно создать кнопку али др. элемент упраления ? Ответ: Автор ответа: Ревягин_Алексей Укажи в элементе управления свойство INDEX=0, а потом пиши код: private sub button1_click() load ЭЛЕМЕНТ_УПРАВЛЕНИЯ(1) ЭЛЕМЕНТ_УПРАВЛЕНИЯ(1).show end sub Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
