Visual Basic 6.0 - Hабор каманды !!!

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










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

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

* Origin: NORA (2:5062/24.8)




Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0000 (UTC):




Он не ставится по умолчанию на винт; посмотри на сидюке.
Вот список контролов, идущих с VB5:
http://support.microsoft.com/?scid=kb;en-us;173352
С VB6: http://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)




Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All"







Из второго запущенного экземпляра находишь первый и передаёшь ему имя файла
любым способом. Способов тыща - сообщения, трубы, мэйлслоты, шареная память
и т.д. Если нужно, могу сбацать пример. Hужно?


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

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










Имеется в виду cfx32.ocx?
Попробовал его скачать по указанной ссылке http://vbfaq.chat.ru/cfx.cab -
выдается ошибка: документ не найден.

А тем временем я наткнулся вот на какой контрол:
http://ctlchart.narod.ru
Правда, еще не щупал.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)






Да, я об этом e-mail послал...

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)




Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0000 (UTC):



Хм, он не дошёл... Ладно, щас пошлю на naa [@] arh.ru.


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

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




Hello, A.!
You wrote in conference fido7.ru.visual.basic to "Alexander

May 2004 07:50:54 +0000 (UTC):









Вот пример через мэйлслоты:
=========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)

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&

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...]










Да! Очень желательно!

[...skipped...]


I'll be back, A. !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)




Привет, 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)









А кто это - каманда? И как это - дастойнее?

А команда - в том виде, как ты это назвал, у меня, можно сказать, есть. К тому же иногда проще заказать у сторонних людей за отдельные деньги отдельные решения, чем сотрудничать с тобой... на твоем теперешнем уровне...


* Origin: 1134 (2:5045/44.13)