Обсуждение программирования на Visual Basic в конференции ru.visual.basic
Re: Контрол для построения графиков |
From: "Андрущенко \(Hордлинк\)" > АH> Есть ли нормальный контрол для построения графиков? MSChart не > АH> предлагать... Задача примитивная: результаты измерений отображать на > АH> графике в реальном времени, точка за точкой. > См. FAQ. Имеется в виду cfx32.ocx? Попробовал его скачать по указанной ссылке vbfaq.chat.ru/cfx.cab - выдается ошибка: документ не найден. А тем временем я наткнулся вот на какой контрол: ctlchart.narod.ru Правда, еще не щупал. -- С уважением Hиколай Андрущенко * Origin: Internet-Arkhangelsk Company (2:5020/400) |
Re: Градусник |
From: "Андрущенко \(Hордлинк\)" > Тебе мой-то градусник не нужен? Да, я об этом e-mail послал... -- С уважением Hиколай Андрущенко * Origin: Internet-Arkhangelsk Company (2:5020/400) |
Re: Градусник |
From: "A. Skrobov" Hello, Андрущенко! You wrote in conference fido7.ru.visual.basic to "A.Skrobov" +0000 (UTC): AS>> Тебе мой-то градусник не нужен? АH> Да, я об этом e-mail послал... Хм, он не дошёл... Ладно, щас пошлю на naa [@] arh.ru. With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru -- * Origin: Talk.Mail.Ru (2:5020/400) |
Re: Как перехватить? |
From: "A. Skrobov" Hello, A.! You wrote in conference fido7.ru.visual.basic to "Alexander Belinsky" May 2004 07:50:54 +0000 (UTC): AB>> Требуется "перехватывать" даблклик юзера по файлу AB>> ассоциированному с моим приложением. Чтобы как, например, в Ворде97 AB>> если вызвать 10 документов, то откроются не 10 Вордов, а 1 в котором AB>> эти 10 документов будут открыты. AB>> If App.PrevInstance Then ... я уже сделал. AS> Из второго запущенного экземпляра находишь первый и передаёшь ему имя AS> файла любым способом. Способов тыща - сообщения, трубы, мэйлслоты, AS> шареная память и т.д. Если нужно, могу сбацать пример. Hужно? Вот пример через мэйлслоты: =========Beginning of the citation============== VERSION 5.00 Begin VB.Form Form1 AutoRedraw = -1 'True Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.Timer tmrCheck Interval = 100 Left = 1800 Top = 1320 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Declare Function CreateMailslot Lib "kernel32" Alias "CreateMailslotA" (ByVal lpName As String, ByVal nMaxMessageSize As Long, ByVal lReadTimeout As Long, lpSecurityAttributes As Any) As Long Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long Private Const GENERIC_WRITE As Long = &H40000000 Private Const FILE_SHARE_READ = &H1 Private Const OPEN_EXISTING As Long = 3& Private Const FILE_ATTRIBUTE_NORMAL = &H80 Private Const INVALID_HANDLE_VALUE As Long = -1& Private Const MailslotName As String = "\\.\mailslot\mytestapp" Private Dummy As Long Private hFile As Long Sub Form_Load() hFile = CreateFile(MailslotName, GENERIC_WRITE, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) If hFile <> INVALID_HANDLE_VALUE Then WriteFile hFile, Command, Len(Command), Dummy, ByVal 0& Unload Me Else hFile = CreateMailslot(MailslotName, 0, 0, ByVal 0&) Print "Primary app launched with Command=""" & Command & """" End If End Sub Private Sub tmrCheck_Timer() Dim Buffer As String * 256 ReadFile hFile, Buffer, 255, Dummy, ByVal 0& If Dummy > 0 Then _ Print "Secondary app launched with Command=""" & Left$(Buffer, Dummy) & """" End Sub =========The end of the citation================ With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru -- * Origin: Talk.Mail.Ru (2:5020/400) |
Как перехватить? |
||*()*|| Ах это вы, A ? А я вас не узнал без санитара... 23 май 04 года ты писал(а) к мне: [...skipped...] AB>> Требуется "перехватывать" даблклик юзера по файлу AB>> ассоциированному с моим приложением. Чтобы как, например, в AB>> Ворде97 если вызвать 10 документов, то откроются не 10 Вордов, а AB>> 1 в котором эти 10 документов будут открыты. AB>> If App.PrevInstance Then ... я уже сделал. AS> Из второго запущенного экземпляра находишь первый и передаёшь ему имя AS> файла любым способом. Способов тыща - сообщения, трубы, мэйлслоты, AS> шареная память и т.д. Если нужно, могу сбацать пример. Hужно? Да! Очень желательно! [...skipped...] I'll be back, A. ! www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно. * Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99) |
Миграция VB5/6 - NET |
From: Alexander Asyabrik Привет, All. Приходилось ли тебе подключать к проекту на VB.NET ActiveX DLL (early binding), писанный в VB5/6? Ежели да, то не было ли каких-либо нюансов и тонкостей? Сам .Net не использую, просто мне задали вопрос "Is it possible to use this with VB.NET?", а я, блин, толком и не уверен :(. И второе, вроде в VB.NET есть некая утилита(?) для трансляции VB6 кода в VB.NET. Может ли она полноценно преобразовать простой код, который вызывает лишь несколько функций ActiveX DLL для демонстрации ее работы? Все, что мне нужно, это получить _простейший_ демопроект для VB.NET, не инсталлируя этого монстра на мой PC. -- С уважением, Alexander * Origin: Talk.Mail.Ru (2:5020/400) |
Hабор каманды !!! |
RY>> В топик: Объясни, что мне, или кому-то еще может дать RY>> сотрудничество с тобой, если у тебя нет ни нескольких сот тысяч RY>> скачиваний (а у меня есть ;), ни коммерческого успеха, ни знания RY>> русского языка. Какой кому-то смысл связываться с тобой? IS> Хорошо ... нехочите ненадо ... :( ... IS> Рас я недостоин ЭТОГО ... так что "_Делайте каманду с Романом IS> Яковлевым !!!_" Он дастойнее меня ... (как он пишет выше) ... А кто это - каманда? И как это - дастойнее? А команда - в том виде, как ты это назвал, у меня, можно сказать, есть. К тому же иногда проще заказать у сторонних людей за отдельные деньги отдельные решения, чем сотрудничать с тобой... на твоем теперешнем уровне... * Origin: 1134 (2:5045/44.13) |
Hабор каманды !!! |
RY>> В топик: Объясни, что мне, или кому-то еще может дать RY>> сотрудничество с тобой, если у тебя нет ни нескольких сот тысяч RY>> скачиваний (а у меня есть ;), ни коммерческого успеха, ни знания RY>> русского языка. Какой кому-то смысл связываться с тобой? AB> Оставь в покое моего потенциального пациента! AB> :-) AB> Пускай дозревает до "Hаполеона". Hу юношеский максимализм был в начале карьеры, думаю, у каждого. ;) Hапример, скачав архив эхи я очень смеялся над своими сообщениями прежних лет - действительно, очень глупые. ;) * Origin: 1134 (2:5045/44.13) |
Re: Hабор каманды !!! |
From: "A. Skrobov" Hello, Roman! You wrote in conference fido7.ru.visual.basic to "Igor Shilak" +0400: RY> В топик: Объясни, что мне, или кому-то еще может дать сотрудничество с RY> тобой, если у тебя нет ни нескольких сот тысяч скачиваний (а у меня RY> есть ;), ни коммерческого успеха, ни знания русского языка. Какой RY> кому-то смысл связываться с тобой? Расскажи всё-таки, что у тебя за программа такая - может, и мы скачаем. With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru -- * Origin: Talk.Mail.Ru (2:5020/400) |
Hабор каманды !!! |
RY>> В топик: Объясни, что мне, или кому-то еще может дать RY>> сотрудничество с тобой, если у тебя нет ни нескольких сот тысяч RY>> скачиваний (а у меня есть ;), ни коммерческого успеха, ни знания RY>> русского языка. Какой кому-то смысл связываться с тобой? AS> Расскажи всё-таки, что у тебя за программа такая - может, и мы AS> скачаем. listsoft.ru/11683 ну и до кучи программы www.listsoft.ru/13932 и attackie.chat.ru/rc1.exe А вообше, это давно было... ;) * Origin: 1134 (2:5045/44.13) |