Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с потоки / 9 сообщений из 9, страница 1 из 1
21.02.2008, 13:09
    #35147290
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
Можно ли API функцию создающую поток включить в класс и использовать как процедуру
в данном коде деларацию в классе не дает использовать как Public, а если через процедуру в классе то возникает вопрос как передать параметр процедуры выполнения
Mycls.CreateThrui DoAny ??
и еще можно и внедрить в модуль все объектами класса т.е.
в модуле GetTime(Now) без Mycls что то типа Namespaсe в .NET если не ошибаюсь
Заранее спасибо
в классе
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Function GetTime(vDtTime As Date)
    GetTime = Format(vDtTime, "hh:mm:ss")
End Function
Public Sub MyThread(ByVal lpStartAddress As Long)
    CreateThread ByVal  0 &, ByVal  0 &, AddressOf lpStartAddress, ByVal  0 &, ByVal  0 &, hThreadID
End Sub
в форме
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim Mycls As New Class1
Private Sub Command1_Click()
    Debug.Print Mycls.GetTime(Now)
    Mycls.CreateThrui DoAny
End Sub
Public Sub DoAny()
Dim i As Long
For i =  1  To  500000 
    Debug.Print i
Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 13:13
    #35147307
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
А что ты хочешь от потоков?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 13:17
    #35147329
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
хочу что бы мое приложение использовала возможность создания потоков для обработки данных
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 13:41
    #35147425
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
Советую забыть про это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 13:51
    #35147464
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
> Автор: TIKO
> хочу что бы мое приложение использовала возможность создания потоков
> для обработки данных

Сделай коллекцию в классе и в неё складывай нужные параметры или объяви
свойства и заполняй их перед созданием потока, не забудь об объектах
синхронизации.

Я делал ActiveX EXE для асинхронного вывода информации в Ворд. Вот код
класса:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Option Explicit

Private Frm As Form
Private WithEvents Tmr As Timer
Private mCol As New Collection

Public Function StartPrint()
    mCol.Add  1 
End Function

Private Sub Class_Initialize()
    Set Frm = New frmTimer
    Load Frm
    Set Tmr = Frm.Timer1
End Sub

Private Sub Class_Terminate()
    Tmr.Enabled = False
    Set Tmr = Nothing
    Unload Frm
    Set Frm = Nothing
End Sub

Private Sub Tmr_Timer()
If mCol.Count =  0  Then Exit Sub
mCol.Remove mCol.Count
Call PrintDoWord
End Sub

Private Sub PrintDoWord()
' Здесь вывод информации в Ворд
End Sub
frmTimer - форма добавленная в проект, на ней таймер с маленьким интервалом.
Передача параметров производится через реестр. Вызов производится
Private mPrintOutput As Object
Set mPrintOutput = CreateObject("PrintObject.clsPrint")
mPrintOutput.StartPrint

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 13:56
    #35147493
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
Интересно, каким боком этот код относится к потокам?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 14:11
    #35147567
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
> Автор: Antonariy
> Интересно, каким боком этот код относится к потокам?

К потокам никак :) , я так понимаю человек хочет обрабатывать данные, не
"замораживая" GUI при этом, накладные расходы конечно велики, но их нужно
оценивать исходя из условий задачи.

За ссылку спасибо.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 15:26
    #35147955
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
Игорь Горбонос,
если нужны статьи Matthew Curland, на которые ссылается tyomitch, обращайтесь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 18:03
    #35148644
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с потоки
Antonariy Советую забыть про это.
Спасибо за совет и ссылку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с потоки / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 355ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162668]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 202ms
total:  355ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]