Конференция VBStreets

**Alexander N. Samarin** » 28.03.2005 (Пн) 16:05

Нужно использовать WinSock (STrayIco, Timer и т. п. "невидимые") контрол в программе, где нет форм. Т. е. обращаться с ними также, как обычно. Как так сделать?

**Морфий** » 28.03.2005 (Пн) 16:10

Выход один - сделать "невидимую" форму.

**Alexander N. Samarin** » 28.03.2005 (Пн) 16:28

Да не хочу использовать форму!!!! :twisted:

Все равно ее не видно!!!!! место жрет, некрасиво и можно без нее!!!! Сначала делал форму только для иконки, затем научили.
Нельзя ли объявлять Так

Код: Выделить всё: Public Winsock as Winsock Public Timer1 as Timer Public Tray as STrayIco

**Морфий** » 28.03.2005 (Пн) 16:41

FleX_2004 писал(а):
Код: Выделить всё
Public Wsk as Winsock Public Tmr1 as Timer Public Tray as STrayIco

Нет уж, тогда уж лучше так:

Код: Выделить всё: Public WithEvents Wsk as Winsock

**Alexander N. Samarin** » 28.03.2005 (Пн) 18:06

Error писал(а):Object variable or With block variable not set

Кто что на это скажет?
Код:

Код: Выделить всё: Option Explicit Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub Main() Dim tr1 As STrayIco tr1.Create Sleep 1000 tr1.Destroy End Sub

Контрол STrayIco уже когда-то прикреплял

**Alexander N. Samarin** » 28.03.2005 (Пн) 18:08

Кстати, с таймером тоже самое
WithEvents Вообще не распознает

**GSerg** » 28.03.2005 (Пн) 18:52

Страдают фигнёй, страдают

Если совсем хотите страдать, то всегда пожалуйста

http://bbs.vbstreets.ru/viewtopic.php?t=9370

**alibek** » 28.03.2005 (Пн) 19:57

Туды, туды. Только при условии, что человек знает, чего хочет.

**Naked** » 29.03.2005 (Вт) 1:34

Невидимый таймер:
Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Включаем таймер
SetTimer hwnd, 0, 1, AddressOf TimerProc

Убиваем таймер
KillTimer hwnd, 0

а сюда пиши что угодно
Function TimerProc(hWnd As Long, nIDEvent As Long, uElapse As Long, lpTimerFunc As Long)

End Function

**Naked** » 29.03.2005 (Вт) 1:47

используй апи

GM » 29.03.2005 (Вт) 7:25

Для таймеров также можна юзать timeSetEvent и timeKillEvent.

**Alexander N. Samarin** » 29.03.2005 (Вт) 10:51

А для других контролов??? Нужно применять разные контролы в одном приложении без форм и обращаться к ним, например отправка текста через WinSock из командной строки. Форм не нужно, т. к. программа пихается в ресурсы, а места жаль

**Naked** » 30.03.2005 (Ср) 2:01

Alexander N. Samarin писал(а):А для других контролов??? Нужно применять разные контролы в одном приложении без форм и обращаться к ним, например отправка текста через WinSock из командной строки. Форм не нужно, т. к. программа пихается в ресурсы, а места жаль

какие именно контролы?

**Alexander N. Samarin** » 30.03.2005 (Ср) 17:03

Нужны:
WinSock STrayIco, Timer, MSComm и т. п. (те контролы, которые при выполнении не видны)
НЕ нужны:
CommandButton, TextBox, Label, PictureBox, Image, Data, *ScrollBar

Конференция VBStreets

Контрол без формы

Контрол без формы

Кто сейчас на конференции