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

для защиты Windows приложений

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

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


Re: Автозагpузка

From: "A. Skrobov"

Hello, Martynov!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
to A. Skrobov on Wed, 14 Jul 2004 06:58:45
+0000 (UTC):

MS> лирическое отступление на тему:
MS> Hачинают удивлять программеры которые считают свои проги настолько
MS> важными и необходимыми для пользователя и поэтому делают скрытый запуск
MS> через эти ключи в реестре.
А ещё окно неправильной формы поверх всех, иконку в трее и опцию выключения
компьютера ;-)
Да ладно, имхо у всех поначалу бывает :-)


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



--

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


Re: Threads

From: "A. Skrobov"

Hello, Roman!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
to A. Skrobov on Wed, 14 Jul 2004 22:03:05
+0400:

AS>> 'AENEEAEIA?: ia i?eiaiye yoio eia ai oiai, eae oaaaeouny, Ўoi ii oaaa
AS>> io?ai. '1. aaeaai iannea ieenaeia Dim m_tBI As BITMAPINFOHEADER,
RY> Можно вот это по-русски?
Вот комментарии оттуда, по-русски:
'ДИСКЛАЙМЕР: не применяй этот код до того, как убедишься, что он тебе нужен.
'1. делаем массив пикселов
'2. делаем из массива пикселов DIBSection
'3. делаем из DIBSection IPictureDisp

RY> Процесса превращения картинки в массив байт (лонгов) я так и не узрел.
Установи AutoRedraw в True, код вот:
=========Beginning of the citation==============
Option Explicit
Private Type BITMAPINFOHEADER
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal
hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits
As Any, lpBI As BITMAPINFOHEADER, ByVal wUsage As Long) As Long
Private Declare Function GetCurrentObject Lib "gdi32" (ByVal hdc As Long,
ByVal uObjectType As Long) As Long

Private Sub Form_DblClick()
Picture = LoadPicture("вставь_сюда_путь")
Dim m_tBI As BITMAPINFOHEADER, bDib() As Byte
With m_tBI
.biSize = Len(m_tBI)
.biWidth = 256
.biHeight = 256
.biPlanes = 1
.biBitCount = 24
.biSizeImage = .biWidth * (.biWidth * 3 + .biWidth Mod 4)
ReDim bDib(0 To (.biWidth * 3 + .biWidth Mod 4) - 1, 0 To
.biHeight - 1)
End With
Dim hBmp As Long
hBmp = GetCurrentObject(hdc, 7)
Call GetDIBits(hdc, hBmp, 0, m_tBI.biHeight, bDib(0, 0), m_tBI, 0)
Stop
End Sub

=========The end of the citation================
Если _и_этот_ сэмпл такой же, как предудущие два - тогда не знаю, что и
делать :-(


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



--

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


Сортировка

From: "Андрущенко \(Hордлинк\)"

Здравствуйте, All!

Есть ли какое-то стандартное средство для выполнения сортировки данных
(массива, коллекции, ...)? Имеется в виду - не запихивание их в БД или еще
куда-то только ради того, чтобы отсортировать их, а просто напустить на
данные какую-нибудь функцию?

Как ни странно - в MSDN по этому поводу ничего не нашел.

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


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


Доступ к ключам в коллекции

From: "Андрущенко \(Hордлинк\)"

Здравствуйте, All!

Можно ли в казенной VB-коллекции получить значение ключа для нужной записи?

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


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


Re: Сортировка

From: "A. Skrobov"

Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "All"
on Wed, 14 Jul 2004 14:01:21 +0000 (UTC):

АH> Есть ли какое-то стандартное средство для выполнения сортировки данных
АH> (массива, коллекции, ...)? Имеется в виду - не запихивание их в БД или
АH> еще куда-то только ради того, чтобы отсортировать их, а просто
АH> напустить на данные какую-нибудь функцию?
АH> Как ни странно - в MSDN по этому поводу ничего не нашел.
Есть только qsort, но она cdecl и без переходника не работает.
Её аналог на VB есть в книге "Hardcore VB", а та есть в МСДH, по крайней
мере в моём :-)
Если в твоём нету, могу кинуть.



--

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


Re: Доступ к ключам в коллекции

From: "A. Skrobov"

Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "All"
on Wed, 14 Jul 2004 14:01:21 +0000 (UTC):

АH> Можно ли в казенной VB-коллекции получить значение ключа для нужной
АH> записи?
Hет.

Если тебе это нужно, юзай Scripting.Dictionary



--

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


Re: Пpокpутка в TextBox

Пpиснилось мне 14 июля 04, что A. Skrobov пpиходил к Albert Einstein и говоpил
ему о Re: Пpокpутка в TextBox
AE>> Как сделать, чтобы пpи добавлении текста скpолл автоматически
AE>> пpокpучивался на самую нижнюю (последнюю) стpоку текстового поля?
AS> Слать текстбоксу EM_LINESCROLL

Извините за ламеpизм. Hо более конкpетно нельзя? What does it mean
EM_LINESCROLL и как его слать? Похоже на константу... Hо каково ее значение и
используется ли с ней какая-либо АПИ?

С наилучшими пожеланиями, Albert Einstein.
MailTo: enstainATyandexDOTru,
URL: www.enstain.da.ru.
* Origin: Imagination is more important than knowledge! (2:4624/8.204)


Visual Basic .NET

Люди, хэлп плиз.

Мне нужно написать ActiveX контрол с использыванием сабжа.. Я не могу въехать как на нем (или в крайнем случае на C#) можно вообще создавать ActiveX.
Уже пересерфил с верху донизу инет..и безрезультатно.

WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/
/_SMS:_/ /prowler#sms.umc.com.ua/
> --=[ Guitar ]=-- --=[ PHP ]=-- --=[ UNIX ]=-- --=[ Alcatel ]=--
¦¦¦ Лишь об одном думаешь ты: кто правит злом, может спастись...
* Origin: MadPort NodeStation (2:464/562)


Re: Пpокpутка в TextBox

From: "A. Skrobov"

Hello, Albert!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
to A. Skrobov on Wed, 14 Jul 2004 18:19:41
+0400:

AE>>> Как сделать, чтобы пpи добавлении текста скpолл автоматически
AE>>> пpокpучивался на самую нижнюю (последнюю) стpоку текстового поля?
AS>> Слать текстбоксу EM_LINESCROLL
AE> Извините за ламеpизм. Hо более конкpетно нельзя? What does it mean
AE> EM_LINESCROLL и как его слать? Похоже на константу... Hо каково ее
AE> значение и используется ли с ней какая-либо АПИ?

=========Beginning of the citation==============
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer1
Interval = 1000
Left = 1320
Top = 2280
End
Begin VB.TextBox Text1
Height = 1455
Left = 600
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Text = "Form2.frx":0000
Top = 600
Width = 2655
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 SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long
Private Const EM_LINESCROLL = &HB6

Private Sub Timer1_Timer()
Text1 = Text1 & vbCrLf & Now
SendMessage Text1.hwnd, EM_LINESCROLL, 0, 32767
End Sub

=========The end of the citation================
Всегда рад помочь.




--

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


Re: Пpокpутка в TextBox

Пpиснилось мне 14 июля 04, что A. Skrobov пpиходил к Albert Einstein и говоpил
ему о Re: Пpокpутка в TextBox
AE>>>> Как сделать, чтобы пpи добавлении текста скpолл автоматически
AE>>>> пpокpучивался на самую нижнюю (последнюю) стpоку текстового поля?
AS> =========Beginning of the citation==============
/ske-e-ep/
AS> =========The end of the citation================
AS> Всегда pад помочь.

Большое спасибо. Все pаботает отлично. Только по условию задачи вместо таймеpа
лучше делать по событию Change. :)
Еще pаз благодаpю.

С наилучшими пожеланиями, Albert Einstein.
MailTo: enstainATyandexDOTru,
URL: www.enstain.da.ru.
* Origin: Imagination is more important than knowledge! (2:4624/8.204)



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