| Вопрос: Class | Добавлено: 25.01.05 18:19 |
Автор вопроса:  Дмитрий Щапов
|
|
Кто поскажет, кто покажет...
Не могу скопировать Класс. Если Set юзаю то, естесственно, мура. Кто знает как это do? |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 1 Автор ответа:  Дмитрий Щапов Вопросов: 71 Ответов: 321 |
Профиль | | #1 | Добавлено: 25.01.05 20:07 |
|
пока вы не опомнились у меня появился 2й вопрос%
юзаю ф-ю GradientFillRect из API-Guid пример. Дак он никак не хочет заполнять правильные цвета, указываю одни, рисует другие... а может монитор дальтоник?.. Private Sub Form_Paint()  im vert(1) As TRIVERTEX
im gRect As GRADIENT_RECT
'from black With vert(0) .x = 0 .y = 0 .Red = 0& .Green = 0& '&HFF& '0& .Blue = 0& .Alpha = 0& End With 'to blue With vert(1) .x = Me.ScaleWidth .y = Me.ScaleHeight .Red = 0& .Green = 0& .Blue = LongToUShort(&HFF00& 
.Alpha = 0& End With gRect.UpperLeft = 0 gRect.LowerRight = 1 GradientFillRect Me.hdc, vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H End Sub |
||
|
Номер ответа: 2 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #2 | Добавлено: 25.01.05 21:35 |
| А ещё: я в контроле наблюдаю за формой родительской, как мне узнавать события её, ... хотя мыслишка появилась.. | ||
|
Номер ответа: 3 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #3 | Добавлено: 26.01.05 19:01 |
| Ну тогда подскажите как работать со справкой, мне тут уже говорили, но это было до краха форума. | ||
|
Номер ответа: 4 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #4 | Добавлено: 26.01.05 19:13 |
| Что-то нифига не понял... Поясни еще разок. | ||
|
Номер ответа: 5 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #5 | Добавлено: 26.01.05 19:15 |
|
Вот. С этого форума, до краха:
Const HELP_COMMAND = &H102& Const HELP_CONTENTS = &H3& Const HELP_CONTEXT = &H1 Const HELP_CONTEXTPOPUP = &H8& Const HELP_FORCEFILE = &H9& Const HELP_HELPONHELP = &H4 Const HELP_INDEX = &H3 Const HELP_KEY = &H101 Const HELP_MULTIKEY = &H201& Const HELP_PARTIALKEY = &H105& Const HELP_QUIT = &H2 Const HELP_SETCONTENTS = &H5& Const HELP_SETINDEX = &H5 Const HELP_SETWINPOS = &H203& Private Declare Function WinHelp Lib "user32.dll" Alias "WinHelpA" (ByVal hWndMain As Long, ByVal lpHelpFile As String, ByVal uCommand As Long, dwData As Any) As Long Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net WinHelp Me.hWnd, "C:\Windows\help\common.hlp", HELP_CONTENTS, ByVal 0 End Sub |
||
|
Номер ответа: 6 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #6 | Добавлено: 26.01.05 20:57 |
|
"Что-то нифига не понял... Поясни еще разок."
Про что именно  )
Про класс: Вот создал я класс Х. И как-то раз, поздно вечером мне понадобилось поюзать ТОЧНУЮ КОПИЮ этого класса(ну, допустим генные опыты на нём поставить) Я беру его Set NewCLS=WasCLS Естесняк он просто создаст указатель на уже имеющийсссся. А Если мне создать новый и поэлементно копировать значения... нуу, это будет как-то долго, следует отметить что класс у меня "рекурсивный", в нём ещё классов такого-же типа дохрена. Я вот подумывал что если использовать CopyMemory, так я размер не могу узнать Отлично справка теперь е. Только ещё заминочка вышла: Вот у меня есть контрол типа RadioButton(самописный). еСЛИ Я УСТ vALUE v True, то он ищет по форме такиеже... выбрать можно только одну, работает.. А вот если я добавил на форму Frame, 2 RadioBtn на форме и 2 вo Frame. Так ему FRAME Побоку! Я понятно изьясняюсь? Надо чтоб он определял кто во Frame, а кто на форме... ух ты что я увидет!.... QUOTE CODE B I U |
||
|
Номер ответа: 7 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #7 | Добавлено: 27.01.05 09:52 |
|
А ты лучше подпишись на ForumByEmail, а там тебе и справочник и архив
в одном флаконе будет. И пользуй The Bat! с его возможностью бекапа всех писем. Тогда вообще проблем не будет. |
||
|
Номер ответа: 8 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #8 | Добавлено: 27.01.05 10:44 |
|
Естесняк он просто создаст указатель на уже
имеющийсссся. 1) Попробуй вот это: Set xVariable1 = New xClass Set xVariable2 = New xClass 'это когда в нем не генерятся события Set xVariable2 = xVariable1 Может так выйдет? 2) Покопай в сторону UserControl.Extender.[свойства] ух ты что я увидет!.... QUOTE CODE B I U
Да они уже полгода как тут висят И появляются новые во время
свободного времени Павла.
|
||
|
Номер ответа: 9 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #9 | Добавлено: 27.01.05 20:23 |
|
Чего-то я не заметил Эффекта от этих кнопочек ...
На TheBat не перейду, я свою Оперу не предам! 1) Не, не катит. Блин ещё немного и я на это забью.  (((((
2) Не, по Extendery не идёт, да и оно видется то только у самой себя. Короче пофиг с ним. 3)Блин, люди, не хочу вас огорчать, но у меня такой Qwestion. Содержание следующее: "Как вообще письмо отправить(желательно чтобы коротко и по-русски.у меня тут валяются пара примеров, но чёт пахать отказываются) и как использовать на Web странице скои ActiveX(пробовал : дык их ещё и на комп из ниоткуда скачай, зарегистрируй....)" Вот такие пироги(зато с мяясом) |
||
|
Номер ответа: 10 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #10 | Добавлено: 27.01.05 20:42 |
| Как? Обычно можно через mapi, cdo(createobject) и т.п. | ||
|
Номер ответа: 11 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #11 | Добавлено: 27.01.05 21:48 |
| Э-э-э-э-э..... | ||
|
Номер ответа: 12 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #12 | Добавлено: 28.01.05 00:56 |
|
mailStr = "mailto:ua6xhy@mail.ru?subject=Тема сообщения&Body=Тут текст письма"
Call ShellExecute(0&, "Open", mailStr, "", "", SW_NORMAL) Это работает из аутлука, Бат глючит и половину текста письма может отрезать. |
||
|
Номер ответа: 13 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #13 | Добавлено: 28.01.05 18:58 |
|
Нее, юзеру не нужно знать про это письмо . С Письмами - ясно, разберусь. А что можете предложить чтобЪ на странице юзать ActiveX? Нормальные возможности можно исп только через Activex & dll но и то и другое нужно регить, да ещё небось и закачать заставит
Поднимаю старый как мир, но наболевший как синяк под глазом, вопрос: КАК УЗНАТЬ КОМПЫ В СЕТИ? Чего-то у меня не получается. У меня даже код на Delphi есть, но переводить времени нет(пока я вспомню чё такое вообще Delphi, пока найду знакомые буквы... а может и лень) А в Delphi7 можно ActiveX dll писать? |
||
|
Номер ответа: 14 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #14 | Добавлено: 29.01.05 18:18 |
|
А кто это сможет перевести? Код рабочий
---------------------------------------- Procedure EnumNetResources(ResType:DWORD; ItemsList:TStrings; LpNR:PNetResource); type PNetResourceArray=^TNetResourceArray; TNetResourceArray=array[0..MaxInt div SizeOf(TNetResource)-1] of TNetResource; var NetHandle:DWORD; BufSize:DWORD; Size:DWORD; NetResources:PNetResourceArray; Count:DWORD; NetResult:Integer; I:Integer; begin if WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,LpNR,NetHandle)<>NO_ERROR then Exit; //I?e iaaaa?? aeo?a c i?ioaao?e try BufSize:=50*SizeOf(TNetResource); GetMem(NetResources, BufSize); try while true do begin Count:=1; Size:=BufSize; NetResult:=WNetEnumResource(NetHandle, Count, NetResources, Size); if NetResult=ERROR_MORE_DATA then begin BufSize:=Size; ReallocMem(NetResources, BufSize); Continue; end; if NetResult<>NO_ERROR then Exit; For I:=0 to Count-1 do begin with NetResources^ do begin if RESOURCEUSAGE_CONTAINER=(DwUsage and RESOURCEUSAGE_CONTAINER) then EnumNetResources(ResType, ItemsList, @NetResources^); if dwDisplayType=ResType then ItemsList.Add(LpRemoteName); end; end; end; finally FreeMem(NetResources, BufSize); end; finally WNetCloseEnum(NetHandle); end; end; |
||
|
Номер ответа: 15 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #15 | Добавлено: 30.01.05 08:45 |
|
Получить из реестра маску подсети и свой IPшник, а потом всех пропинговать
А Outlook Express тоже можно бекапить. |
||