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: 07:23 / 28 июл. Перехват ошибок Windows 98 | Хитов: 3 | Ответов: 0 06:54 / 28 июл. $$$Админам$$$ | Хитов: 8 | Ответов: 0 05:35 / 28 июл. Есть или не есть... пф... нету, всмысле | Хитов: 5 | Ответов: 0 21:22 / 27 июл. Активное окно | Хитов: 4 | Ответов: 0 13:39 / 27 июл. Как заблокировать появление контексного меню | Хитов: 9 | Ответов: 0 10:39 / 27 июл. !Админам! | Хитов: 34 | Ответов: 5 15:01 / 26 июл. Серийный номер диска | Хитов: 27 | Ответов: 1 13:38 / 26 июл. Документ Project в MS Word | Хитов: 15 | Ответов: 0 13:12 / 26 июл. Подскажите про TextBox | Хитов: 40 | Ответов: 2 17:51 / 25 июл. Как работь с Winsock Control' ом | Хитов: 56 | Ответов: 5 17:09 / 25 июл. Toolbox Bitmap из ocx'a... | Хитов: 38 | Ответов: 4 15:33 / 25 июл. Не дать юзеру завершить сеанс, пока прога работает | Хитов: 46 | Ответов: 3 14:48 / 25 июл. Лицензия COMDLG32.OCX | Хитов: 40 | Ответов: 3 13:06 / 25 июл. как в датагриде сделать поле со списком? | Хитов: 34 | Ответов: 1 11:00 / 25 июл. Sub Main | Хитов: 66 | Ответов: 8 09:31 / 25 июл. Как связать два DBF файла? | Хитов: 25 | Ответов: 0 07:17 / 25 июл. OLE объект? | Хитов: 26 | Ответов: 0 00:04 / 25 июл. Помогите с гридом (GRID) | Хитов: 50 | Ответов: 3 21:49 / 24 июл. 3D графика | Хитов: 114 | Ответов: 15 21:37 / 24 июл. Я опять про своих баранов... ( MsComm32 ) | Хитов: 37 | Ответов: 2 Последние поступления в Библиотеку кодов: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Саша Ответ ожидается по этому адресу У меня есть нетипияированный файл (тот который открывается RANDOM) Как уянать сколько в файле яаписей ? Автор вопроса: Rus Kend Ответ ожидается по этому адресу Где (в Москве или в инете) можно приобрести лицензионный VB и MSDN? Автор вопроса: Umid Ответ ожидается по этому адресу Как не дать юзеру выключить или завершит сеанс? Типа, юзер нажимает на пуск-завершение сеанса, а прога говорит, "Вы не можете выйти из Виндоус, пока я работаю", и отменяет последнее действие. Автор вопроса: СаНеК Ответ ожидается по этому адресу Кто знает как пользоваться компонентом Direct Text-to-Speech...пожалуйста напишите... Автор вопроса: VES progman Ответ ожидается по этому адресу При открытии некоторых файлов MS Excel появляется сообщение - включать или невключать макросы. Когда открываешь в этих файлах редактор Visual Basic, то никаких макросов там нет. Что это может быть ? Автор вопроса: ALEX Ответ ожидается по этому адресу Как программно открыть файл, что б как при двойном щелчке грыяуном открывался? Автор вопроса: Михаил Ответ ожидается по этому адресу Господа! Какую API-функцию следует использовать для регулировки "общей громкости воспроизведения" звуковой карты? (Применение waveOutSetVolume Lib "winmm.dll" дает возможность регулировать "громкость воспроизведения звукозаписи") Автор вопроса: Александр Ответ ожидается по этому адресу Как программно съимитировать нажатие кнопки мыши? Автор вопроса: Dmitry Gavrilov Ответ ожидается по этому адресу Форму в проект можно добавить например из меню project>AddForm вызывать её из кода MyForm.Show Если ты вызвал InputBox то реагировать он будет по кнопке OK ;) А если у тебя на форме лежит тектовое поле и ты хочешь научить его реагировать на нажатие Enter после ввода слова в него, то тебе надо знать, что для всех контролов (которым и является текстовое поле) и для некоторых объектов есть такая фича, как "события" - код срабатывающий при выполнении с контролом заданного действия. Например если ты щёлкнешь два раза по лежащему на орме тектовому полю, то по умолчанию создасться в коде формы процедура для обработки события Private Sub Text1_Change() .... .... End Sub а тебе для отработки реагирования лучше наверно использовать Private Sub Text1_KeyPress(KeyAscii As Integer) .... .... End Sub в который тебе и надо пихать код обработки входящего параметра KeyAscii который является кодом нажатой кнопки. Ответы: Вопрос: Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"? Ответ: Автор ответа: Dima Добавить новую форму: меню Project -> Add Form или программно: global frmMy as Form set frmMy=new Form frmMy.Show Производитель меняется так: заходишь в свойства проекта, открываешь раздел Make, в окошке Version Information выбираешь Company Name и пишешь произволителя. Вопрос: Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"? Ответ: Автор ответа: Rutshtein Alex Форму добавляют так: меню "Разработать --> Добавить форму". Насчёт InputBox ничего поменять нельзя, но кто мешает Вам добавить форму и сделать там свой InputBox. А производителя меняйте здесь: меню "Разработать --> [Проект1] свойства", выберите вкладку "Make" и там все меняется. Вопрос: Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"? Ответ: Автор ответа: SINED 1. Чтобы добавить к проекту еще одну форму можно воспользоваться меню Project->Add Form. Вывод окна на экран осуществляется командой Form2.Visible = True или Form2.Show vbModal (в этом случае нельзя переключаться в другие окна!) 2. У TextBox есть свойство Change. Код, описанный в процедуре Private Sub Text1_Change(), будет выполняться при изменении содержимого поля ввода. 3. Изменить производителя можно в файле *.vbp в строке VersionCompanyName="SINED". Вопрос: Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"? Ответ: Автор ответа: Dilon Прикрепить форму - зайти Project выбрать Add Form и все. Про Input Box - просто присваиваешь переменную box'y и записываешь её куда хочешь: g=inputbox("Введи чего") text1.text=g Изменить производителя - Project->Project Properties вкладка Make->Company name просто запиши туда себя любимого Вопрос: Вопрос 1: Как сделать так чтобы ия папки VB60, где лежит моя прога яапускающая help.hlp файл, открывался help.hlp файл? Вопрос 2: Как можно уянать что делает какой-либо dll файл? Ответ: Автор ответа: Dilon Для запуска .hlp нужно использовать функцию api WinHelp. Что бы узнать возможности dll подключи его через Project->References, объявим в коде переменную как dim p as new mydll p.mydllfeatures Вопрос: Как узнать (программно) где лежит шаблон Normal.dot в Office 97/2000 ? Ответ: Автор ответа: Иван Normal.dot всегда вроде лежит по такому адресу: "C:\WIN98\Application Data\Microsoft\Шаблоны\Normal.dot" так что единственная переменная тут это Папка виндов. Если конечно винды обычные и офис обычный. Вопрос: Как узнать (программно) где лежит шаблон Normal.dot в Office 97/2000 ? Ответ: Автор ответа: Dilon Ищи при помощи функции Dir Вопрос: Как из программы на VB отправить документ Word на печать ? Ответ: Автор ответа: Dilon Открыть его в окошке rtf и печатать сколько влезет Вопрос: Как из программы на VB отправить документ Word на печать ? Ответ: Автор ответа: Иван 'загружаем ворд set wo = CreateObject("Word.Application") 'открываем нужный документ 'параметры по обстоятельствам wo.Documents.Open FileName:="JICA.doc", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto 'переправляем на печать wo.ActiveDocument.PrintOut Cовет: Если не знаешь как что делать из ВБ в ёкселе или ворде: запиши макрос в ёкселе/ворде где делаешь, что нужно. потом посмотри получившийся код, и прибавь ко всем функциям в начале имя объекта и пользуйся!!! Это был вариант первый. Вариант второй такой: Запустить Ворд с нужными параметрами DDE, как это делается по контекстному меню на файле документа в Эксплорере. А вот как DDE передавать я не в курсе. Строка запуска: "C:\Program Files\Microsoft Office\Office\WINWORD.EXE" /x /n Строка DDE [REM _DDE_Minimize][FileOpen("%1")][t=IsDocumentDirty()][FilePrint 0][SetDocumentDirty t][DocClose] Может кто другой подскажет... Вопрос: помогите составить оптимальный алгоритм создания дерева (treeviewer)из таблицы, в которой два основных поля - ссылка на верхний и нижний узел ( rec_up,rec_down ) Ответ: Автор ответа: DDA Я однажды использовал этот компонент и написал свой алгоритм основанный на 3-х полях: 1 - Parent, 2 - Text(Текст ноды), 3 - Child. Поля Parent и Child - числовые - где Parent 2-й ноды должен совпадать с Child 1-й и т. д. Вот сам алгоритм (кусок из моей проги), где TMenu - это объект TreeView, dtMenu - объект Data, - сама таблица с данными, состоящая из 3-х полей, описанных выше.: Sub LoadMenu() Dim n As Long Dim NewNode As Node Dim Tchild As String, Tparent As String, Ttext As String On Error Resume Next Set NewNode = TMenu.Nodes.Add(, , "C0", "Все товары", 4) If dtMenu.Recordset.RecordCount = 0 Then Exit Sub TMenu.Visible = False Z1: dtMenu.Recordset.MoveFirst Do While Not dtMenu.Recordset.EOF = True Tparent = dtMenu.Recordset.Fields(0) Ttext = dtMenu.Recordset.Fields(1) Tchild = dtMenu.Recordset.Fields(2) Set NewNode = TMenu.Nodes.Add("C" & Tparent, tvwChild, "C" & Tchild, Ttext, 1) dtMenu.Recordset.MoveNext Loop If Err > 0 And Err.Number <> 35602 Then Err.Clear DoEvents GoTo Z1 End If TMenu.Visible = True End Sub Так как алгоритм писался на скорую руку, он не очень быстродейственный - но зато работает безотказно! Ж:-) Вопрос: VB. Как писать в определенное место файла? Типа патч. Как найти файл и проверить (сравнить) дату и изменить ее по своему желанию? Ответ: Автор ответа: Dilon Все это можно проделать с помощью FileSistemObject, а искать DIR'ом Вопрос: Как сделать так, чтобы программа работала в ДОСовском окне. Ответ: Автор ответа: Dilon Версии VB 5 и 6 расчитаны на 32-разрядные приложения и заставить их работать с 16-разр нельзя. Но если есть желание написать такую прогу, то возьми VB4 или ниже Вопрос: Как сделать так, чтобы программа работала в ДОСовском окне. Ответ: Автор ответа: Иван Насколько я понял тебе нужно не ДОС-окошко, а так называемое консольное приложение. Просто VB - это не тот язык на котором пишут консоли. (Visual - он и есть Visual). Я пока ни одной консоли на VB не видел. Вроде и функций соответствующих нету, и в типах проектов такого нету.... (Вот в VB.Net - может быть такое уже можно) А на СиБилдере, Дельфи, VC++ - только так. Вопрос: Народ подскажите плиз как считать/записать в файл бинарный код и где мне его в VB потом хранить ведь в переменные типа iteger и long нечего не поместиться . Ответ: Автор ответа: P@Ssword Чтобы считать/записать в файл бинарный код, надо открыть его For Binary. А хранить его лучше всего в байтовых массивах (типа Dim BinData(0 To 1023) as Byte). Чтобы считать из файла, пишешь Get #Номер_файла, [Адрес], BinData где Адрес - смещение от начала файла + 1, т.е. если надо считать с 1-го байта - ставишь 1, с 30185-го - ставишь 30185. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |