Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: Hабор каманды !!!

Здорова Roman! Пишет тебе Igor

22.05.2004 22:13, Roman Yuakovlev -> Igor Shilak:


RY> В топик: Объясни, что мне, или кому-то еще может дать сотрудничество
RY> с
RY> тобой, если у тебя нет ни нескольких сот тысяч скачиваний (а у меня
RY> есть ;), ни коммерческого успеха, ни знания русского языка. Какой
RY> кому-то смысл связываться с тобой?

Хорошо ... нехочите ненадо ... :( ...
Рас я недостоин ЭТОГО ... так что "_Делайте каманду с Романом Яковлевым !!!_"
Он дастойнее меня ... (как он пишет выше) ...

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Re: Градусник

From: "A. Skrobov"

Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
to A. Skrobov on Sat, 22 May 2004 18:52:09
+0000 (UTC):

AS>> MicroHelp Gauge Control (Gauge32.ocx) c VB действительно идёт, но
AS>> рисует круглые и полукруглые "спидометры".
АH> Что-то я у себя не могу такого найти.
Он не ставится по умолчанию на винт; посмотри на сидюке.
Вот список контролов, идущих с VB5:
support.microsoft.com/?scid=kb;en-us;173352
С VB6: support.microsoft.com/?scid=kb;en-us;194784
Тебе мой-то градусник не нужен?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--

* Origin: Talk.Mail.Ru (2:5020/400)


Re: Как перехватить?

From: "A. Skrobov"

Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All"
to All on Sun, 23 May 2004 01:39:22 +0400:

AB> Требуется "перехватывать" даблклик юзера по файлу
AB> ассоциированному с моим приложением. Чтобы как, например, в Ворде97
AB> если вызвать 10 документов, то откроются не 10 Вордов, а 1 в котором
AB> эти 10 документов будут открыты.
AB> If App.PrevInstance Then ... я уже сделал.
Из второго запущенного экземпляра находишь первый и передаёшь ему имя файла
любым способом. Способов тыща - сообщения, трубы, мэйлслоты, шареная память
и т.д. Если нужно, могу сбацать пример. Hужно?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--

* Origin: Talk.Mail.Ru (2:5020/400)


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"
to A. Skrobov on Sun, 23 May 2004 09:03:41
+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" to Alexander Belinsky on Sun, 23
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)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты