|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Свежий выпуск.
Читайте! Содержание выпуска
Aslof рекомендует Ищешь фильм? http://subscribe.ru/catalog/rest.cinema.filmforyou Сайт рассылки - http://aslof.balzer.ru/ Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 08:38 / 23 дек. тест | Хитов: 0 | Ответов: 0 07:10 / 23 дек. Дерево | Хитов: 4 | Ответов: 1 01:46 / 23 дек. Microsoft в VB | Хитов: 9 | Ответов: 1 00:34 / 23 дек. Windows Secure v1.36 | Хитов: 9 | Ответов: 2 00:33 / 23 дек. Windows Secure v1.36 | Хитов: 6 | Ответов: 2 17:12 / 22 дек. Победителям олимпиад! | Хитов: 49 | Ответов: 12 17:09 / 22 дек. Мигает картинка!!! | Хитов: 20 | Ответов: 2 16:48 / 22 дек. CheckBox | Хитов: 13 | Ответов: 1 15:46 / 22 дек. VS .NET Whidbey | Хитов: 3 | Ответов: 0 15:37 / 22 дек. Павлу и всем умным (по олимпиаде) | Хитов: 14 | Ответов: 0 15:20 / 22 дек. Ошибки и их пояснение! | Хитов: 12 | Ответов: 1 15:13 / 22 дек. Как лучше | Хитов: 19 | Ответов: 1 15:12 / 22 дек. Группа программеров | Хитов: 52 | Ответов: 14 15:11 / 22 дек. DLL | Хитов: 18 | Ответов: 1 08:27 / 22 дек. RDS | Хитов: 15 | Ответов: 1 05:36 / 22 дек. Подскажите программку для создания хелпа? | Хитов: 40 | Ответов: 8 01:21 / 22 дек. Код в форму | Хитов: 36 | Ответов: 7 20:47 / 21 дек. уууу ODBC AdoDc | Хитов: 15 | Ответов: 0 18:01 / 21 дек. Кнопка | Хитов: 26 | Ответов: 1 17:37 / 21 дек. Хостинг | Хитов: 17 | Ответов: 1 Последние поступления в Библиотеку кодов: наверх Новости сайта MSDN наверх Новости сайта GotdotNet Новые статьи: наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Setup проектов Адерес темы: http://vbnet.ru/forum/show.asp?id=30229 Вопрос: Автор вопроса: danser Setup, который я сделал на VB .NET, не хочет устанавливатся без .NET Framework. Что делать? Ответы: Автор: Павел Поищи на microsoft.com "NET Framework Setup.exe Bootstrapper Sample". Это утилита такая, вместо своего сетапа запукскаешь её, она проверяет наличие Framework, если нету, то устанавливает его, и после этого запускает твою инсталляху. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: OWL Ответ ожидается по этому адресу Как использовать стиль XP в VB приложениях? Слышал, что нужно юзать .manifest файл и ресурс номер 24. Так ли это? И можно пример... Автор вопроса: Al Ответ ожидается по этому адресу Подскажите пожалуйста как можно производить поиск по содержанию html-файлов из VB, так, что бы найденный результат (текст), отображался в браузере, встроенном в VB форму. Допустим, у нас есть форма form1, в ней Веб броузер webbrowser1 , есть папка с htmL-файлами - papka, также в форме есть поле для ввода текста textbox для поиска по файлам, и кнопка commandbutton - GO! - то бишь, искать! Подскажите пожалуйста как это собрать в кучу, и чтобы это заработало. Автор вопроса: Alexbor Ответ ожидается по этому адресу Нужен код для генерации паролей случайным образом из определенного набора символов. Может кто-то встречал, а то самому написать просто некогда. Автор вопроса: DIM Ответ ожидается по этому адресу Подскажите, как получить SCREENSHOT и поместить его на форму. Автор вопроса: 3BEPb Ответ ожидается по этому адресу Как сделать HyperLink? Автор вопроса: 3BEPb Ответ ожидается по этому адресу Как запускать файлы с рашрирением *.exe *.txt и другие? Автор вопроса: Alexey Ответ ожидается по этому адресу Скажите пожалуйста, как упрастить следующее выражение: p = chr(128) & chr(69) & chr(90) ... и так далее Т.е мне нужно строку 128 69 90 ... представить в виде символов, она т.е. строка очень длинная (состоит из 15 символов) и поэтому пимать такой алгоритм не удобно. Автор вопроса: Дима Ответ ожидается по этому адресу Как открыть файл Excel c паролем (пароль известен), желательно VB script? Автор вопроса: Сергей Ответ ожидается по этому адресу Нет ли у кого реализации на VB алгоритма шифрования DES или может линками поможете? Автор вопроса: Swift Ответ ожидается по этому адресу Подскажите, пожалуйста, как узнать ID своей программы, чтобы потом ее можно было вызвать из другой (своей) программы по этому ID инструкцией AppActivate. Автор вопроса: Swift Ответ ожидается по этому адресу Подскажите, пожалуйста, как можно передавать нажатия клавиш в программу DOS. Например в Volcov Comander, запущенный в Windows 98. Автор вопроса: Snickers Ответ ожидается по этому адресу Ситуация такая: из INI-файла читается число ЭУ ListView и динамически добавляется на форму(столько штук, сколько записано в файле). Как динамически, во время выполнения программы(!) добавить на форму это число ListView? Как читать INI-файлы знаю. Автор вопроса: Tatyana Tipyasova Ответ ожидается по этому адресу I am a beginner in VB and i have a beginners' problem. I have to write data in binary format. Since the file will be read by some application i cannot change its structure or format. The problem I faced are following. I write 3 values in some binary file: string s1 = "W" Integer value i1 = 10123 Double value v1 = 10.8. When I would like to control data in the file and read it I get instead of expected other values: s1 = "W" i1 = 10071 v1 = 10.799999999948 So, the integer value is not what i expected to find. Could anybody explain what I did wrong in my code? The second question is following. I would like to read the data in the order: string s1, integer i1, double v1. I get this sequence only if I put data in the binary file in the way I have done it in my sub WriteData(). How could be done it in the order I wish to read? Could anybody help me? Private Sub writeData() Dim typInfo(5) As Double, length As Integer, resolution As String Dim v1 As Double v1 = 10.8 Dim i1 As Integer i1 = 10123 Dim s1 As String s1 = "W" Open ThisWorkbook.Path & "Test.bin" For Binary Access Read Write As #1 Len = Len(v1) Put #1, , v1 Close 1 Open ThisWorkbook.Path & "Test.bin" For Binary Access Read Write As #1 Len = Len(i1) Put #1, , i1 Close 1 Open ThisWorkbook.Path & "Test.bin" For Binary Access Read Write As #1 Len = Len(s1) Put #1, , s1 Close 1 End Sub Private Sub readData() Dim typInfo(5) As Double, length As Integer, resolution As String Dim v1 As Double Dim i1 As Integer Dim s1 As String s1 = "D" Open ThisWorkbook.Path & "Test.bin" For Binary Access Read Write As #1 Len = Len(s1) Get #1, , s1 Close 1 Open ThisWorkbook.Path & "Test.bin" For Binary Access Read Write As #1 Len = Len(i1) Get #1, , i1 Close 1 Open ThisWorkbook.Path & "Test.bin" For Binary Access Read Write As #1 Len = Len(v1) Get #1, , v1 Close 1 Debug.Print s1, i1, v1 End Sub Ответы: Вопрос: Есть FILE.DBF (FoxPro 2.6) с полями KOD,DATE,ZNACH (файл не отсортирован и не имеет индексного файла). 1. Как заполнить FlexGrid записями с KOD="123" и отсортировать их по полю DATE? 2. Как узнать сумму значений поля ZNACH для: KOD="321" и {01.07.2003} Ответ: Автор ответа: Роман Вам поможет SQL запрос Data1.RecordSource=sSQL 1) sSQL="SELECT * FROM имя_таблицы WHERE [KOD]='123' ORDER BY [DATE]" 2) sSQL="SELECT [ZNACH] FROM имя_таблицы WHERE [KOD]='321'" 3) Если вы используете SEEK, значит у вас набор типа TABLE, а набор записей должен быть проиндексирован. FindFirst, FindLast, FindNext, Findprevious используются только для наборов типа SNAPSHOT или DYNASET. SQL используется как альтернатива Find... Скорее всего вам придется поменять тип набора записей. Вопрос: Есть VB6 с обычным ListBox'ом. В нём есть свойство Column. Справшивается, если установить его >1, то как можно добавить новый элемент (AddItem и List добавляют только в 1-й столбец)? И вообще, зачем это свойство нужно - для отображения табличных данных только? Ответ: Автор ответа: Роман IMHO, это свойство только выводит данные в несколько колонок. Вопрос: После упаковки готового проекта с помощью Package and Diployment Wizard VB6.0 получаю следующие файлы и папки: C:\Мои документы\My VB6\Установка\*.* SETUP.LST setup.exe Проект1.CAB Проект1.TXT SETUP.LST Плюс Папка "Support" с копиями файлов упаковки проекта и самого проекта. При инсталяции упакованного проекта, после окна: Setup is checking for necessary disk space... (Установка проверяет необходимое дисковое пространство ...) выдается ошибка: C:\WINDOWS\SETUP.LST Invalid line in setup information file! Section: Setup1 Files @Project1.exe,$(AppPath),,$(Shared),12.12.03 10:53:58AM,16384,1.0.0.0 Содержимое файла SETUP.LST: [Bootstrap] SetupTitle=Install SetupText=Copying Files, please stand by. CabFile=Project1.CAB Spawn=Setup1.exe Uninstal=st6unst.exe TmpDir=msftqws.pdw Cabs=1 [Bootstrap Files] File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,6.18.98 12:00:00 AM,102912,6.0.81.69 File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5.31.98 12:00:00 AM,22288,4.71.1460.1 File3=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,5.5.99 10:22:00 PM,17920,2.40.4275.1 File4=@ASYCFILT.DLL,$(WinSysPathSysFile),,,5.5.99 10:22:00 PM,147728,2.40.4275.1 File5=@Olepro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,6.8.00 5:00:00 PM,164112,5.0.4515.0 File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,9.19.01 2:47:08 PM,614672,2.40.4515.0 File7=@MSVBVM60.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,12.9.98 4:28:18 PM,1409024,6.0.82.68 [IconGroups] Group0=Установка программы VB_6 PrivateGroup0=True Parent0=$(Programs) Group1=Установка программы VB6 PrivateGroup1=False Parent1=$(Start Menu) [Установка программы VB_6] Icon1="Проект1.exe" Title1=Установка программы VB_6 StartIn1=$(AppPath) [Setup] Title=Установка программы VB_6 DefaultDir=$(ProgramFiles)\Проект1 AppExe=Проект1.exe AppToUninstall=Проект1.exe [Setup1 Files] File1=@Проект1.exe,$(AppPath),,$(Shared),12.12.03 9:43:30 AM,20480,1.0.0.0 Прошу подсказать, где мною допускается ошибка. Ответ: Автор ответа: Роман Нигде вами ошибка не допускается. Это глюк Wizard'a. Нужно в датах заменить "." на "/" Например: @Project1.exe,$(AppPath),,$(Shared),12.12.03 10:53:58AM,16384,1.0.0.0 Заменить на: @Project1.exe,$(AppPath),,$(Shared),12/12/03 10:53:58AM,16384,1.0.0.0 Вопрос: Подскажите пожалуйста как сделать так, что бы в text-bar ввести (например) 5+2+(5-3)/2, и при нажатие кнопки он вычислил. Ответ: Автор ответа: Роман Подключите MSScript.ocx Dim MSScript As MSScriptControlCtl.ScriptControl msgbox MSScript.Eval(данные текстбокса) Вопрос: Как загрузить список файлов из папки в листбокс? Ответ: Автор ответа: Роман Либо, используя FileListBox, указав путь к каталогу построчно переписать данные из него в ListBox. Либо, через FileSystemObject. Вопрос: Купил резак, хочу сделать свой диск с инфой и автораном. Последний на VB. VB недавно начал учить, но есть опыт работы с Паскалем. Расскажи вкратце про это дело, и если знаешь дай пару ссылок. Ответ: Автор ответа: Andruew Для того, того чтоб прога с диска запускалась автоматом, тобишь имела авторан нужно в корень диска кинуть файл autorun.inf, в котором вставь: [autorun] OPEN=путь к твоей проге icon=путь к иконке Вопрос: Как в тексте найти двойные кавычки (") ? Ответ: Автор ответа: Роман instr(начальная позиция,текст,"""") - ищет с начала instrrev(текст,"""") - ищет с конца Вопрос: Как из VB запустить какую-либо программу (Excel, Word и др.)? Ответ: Автор ответа: Сан Саныч Shell "winword.exe", vbNormalFocus Ответ: Автор ответа: Котофей Для этого есть команда Shell, где в параметрах указываешь путь к файлу, и в каком режиме открывать окно. Ответ: Автор ответа: Артем Кривокрисенко Shell "C:\Program Files\Microsoft Office\office10\winword.exe" Вопрос: Может быть кто знает как обрабатывать параллельный порт (LPT) средствами Vb? Или,если уже есть где-то такие программы, может подскажете ссылку. Интересует опрос порта и запись в него. Ответ: Автор ответа: Сан Саныч http://www.entechtaiwan.com/tools.htm На сайте есть контролы для работы с LPT, COM Делают ВСЁ: пишут, читают, посылают и т.д. и т.п. Ответ: Автор ответа: C...R...a...S...H Я точно непомнь НО в рассылке я уже отвечал на этот вопрос посмотри в архиве open "LPT1" for Input as #1 и все остальное как работа с файлом Ответ: Автор ответа: WaX Смотри в сети библиотеку inpout32.dll не найдешь пиши намылю samples included Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
||||||
Выпуск подготовили: |
Сурменок Павел |