Visual Basic 6.0 - Автозагpузка

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

+0000 (UTC):





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


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

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




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

+0400:




Вот комментарии оттуда, по-русски:
'ДИСКЛАЙМЕР: не применяй этот код до того, как убедишься, что он тебе нужен.
'1. делаем массив пикселов
'2. делаем из массива пикселов DIBSection
'3. делаем из DIBSection IPictureDisp


Установи 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)




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

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

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

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


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




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

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

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


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




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







Есть только qsort, но она cdecl и без переходника не работает.
Её аналог на VB есть в книге "Hardcore VB", а та есть в МСДH, по крайней
мере в моём :-)
Если в твоём нету, могу кинуть.
--

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




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




Hет.

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

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


Пpиснилось мне 14 июля 04, что A. Skrobov пpиходил к Albert Einstein и говоpил
ему о Re: Пpокpутка в TextBox




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

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


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

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

WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/
/_SMS:_/ /prowler#sms.umc.com.ua/

¦¦¦ Лишь об одном думаешь ты: кто правит злом, может спастись...
* Origin: MadPort NodeStation (2:464/562)




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

+0400:








=========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)


Пpиснилось мне 14 июля 04, что A. Skrobov пpиходил к Albert Einstein и говоpил
ему о Re: Пpокpутка в TextBox



/ske-e-ep/



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

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