Visual Basic 6.0 - ленточная форма
Re: ленточная форма
From: "Вячеслав" <VVBmail [@] klg.sovintel.ru>
Sun Jul 18 2004 16:17, Dmitriy Kozyrev wrote to Вячеслав:
DK> Можно. Скроллбар + динамическое создание контрола (целесообразно элементы
DK> управления вынести в usercontrol).
хм... я могу расчитывать на халяву?
;)
в смысле, не подкинешь ли образец (на моё мыло)?
заранее благодарствую.
Вячеслав
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Автозагpузка
From: "A. Skrobov" <tyomitch [@] r66.ru>
Sun Jul 18 2004 03:11, Roman Yuakovlev wrote to A Skrobov:
RY> Можно и SendTo, но лучше Application Data, в старых виндусах. В
RY> исходниках Setup1 ни намека не нашел ни на то ни на то...
Option Explicit
Private Declare Sub SHGetSpecialFolderLocation Lib "shell32" (ByVal hWnd As
Long, ByVal csidl As Long, ppidl As Long)
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidl As
Long, ByVal pszPath As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Long)
Private Const CSIDL_APPDATA As Long = &H1A&
Private Const MAX_PATH As Long = 260&
Sub Main()
Dim pidl As Long, FilePath As String * MAX_PATH
SHGetSpecialFolderLocation 0, CSIDL_APPDATA, pidl
SHGetPathFromIDList pidl, FilePath
CoTaskMemFree pidl
MsgBox FilePath
End Sub
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
работа с jpg
AA> Да, еще должен сказать, что EXIF не поддерживается. А вообще штука
AA> весьма приятная и шустрая и не очень уж велика - 364 кб, а предыдущие
AA> версии еще намного меньше были (версия 1.1 - 134 кб).
К сожалению то, что EXIF не поддерживается, для меня критично. ;(
* Origin: 1134 (2:5045/44.13)
chm
RY>> Можно ли связать кнопку Help в InputBox с CHM-файлом.
AS> Ага ;-)
Очень извиняюсь, но уже не нужно. Юзеры - народ привередливый, им пустое место не нужно. ;) Поэтому сделал свой компактный вариант инпутбокса - дешево и сердито.
ps. Артем, ты что, десктоп-менеджер делаешь? Если да, и разработка у тебя не сторонне-комерческая, плиз, отклинись в емейле? Сильно не напрягет. ;)
* Origin: 1134 (2:5045/44.13)
Пpокpутка в TextBox
>>> Ок, вот так не мигает:
SM>> Мигает, но значительно меньше :-Ь
SM>> Чтобы увидеть, Timer1.Interval = 10
AS> Проверил. Текст мигает, а скроллбар - нет. Речь же шла о мигании
AS> скроллбара?
Я почему так говорю. Просто, как-то делал приложение, где постоянно добавлялись данные, короче, GUI версию консоли. И столкнулся с таким глюком.
Правда я решил вопрос намного проще. ;)
* Origin: 1134 (2:5045/44.13)
разница в записи
Есть ли разница в записи...
Public Const myStringConst = "Example"
и
Public Const myStringConst as String = "Example"
?
* Origin: 1134 (2:5045/44.13)
работа с постоянными данными более 2гб-1
Кто нибудь часто работает с данными? Может у кого есть уже готовые функции для замены Put, Get, Mod, Etc... замену для \ и Mod то я сделал, с файлами тоже вроде потихоньку работаю (по крайней мере, llseek на SetFilePointer с конвертацией типов почти удалось заменить [файлы делает не такого размера, как я просил, но уже больше 2х гб] ;)
Я использую это так
Const d1 As Double = 2147483648#
Const d2 As Double = 4294967296#
Const d3 As Double = 2147483647#
Dim p1 As Double, p2 As Double
p1 = fsize / d2
p1 = Int(p1)
p2 = fsize - (p1 * d2)
If p2 > d3 Then p2 = -p2 + d1
Как вообще грамотно Double <-> Long*2 делать?
* Origin: 1134 (2:5045/44.13)
работа с постоянными данными более 2гб-1
RY> Я использую это так
RY> Const d1 As Double = 2147483648#
RY> Const d2 As Double = 4294967296#
RY> Const d3 As Double = 2147483647#
RY> Dim p1 As Double, p2 As Double
RY> p1 = fsize / d2
RY> p1 = Int(p1)
RY> p2 = fsize - (p1 * d2)
RY> If p2 > d3 Then p2 = -p2 + d1
RY> Как вообще грамотно Double <-> Long*2 делать?
Палучилось!
then p2 = p2 - d2 ;)
Вопросы с Put/Get/FileLen остались. ;)
* Origin: 1134 (2:5045/44.13)
Re: Получить путь к ехешнику по hWnd
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
>
> Вот, на всякий случай, наверняка-уж-NT4-совместимая версия (без
> использования psapi.dll)
Интересно. Погляжу на досуге.
--
* Origin: Talk.Mail.Ru (2:5020/400)
работа с jpg
Hello Roman!
17 Jul 04 22:44, Roman Yuakovlev wrote to All:
RY> Hа VB есть примеры работы с JPG? А то в отличие от GIF/BMP, там
RY> математика, а в математике я разбираюсь так же, как ... короче конус
RY> от косинуса не отличу. :(
RY> Может есть уже готовые реализации? Интересует все, и Progressive JPED
RY> compression, и EXIF, и все прочее...
Есть вроде на cpp что-то вроде libjpeg или как-то так; exif можно вроде бы читать с помощью класса image из gdi+ (если есть gdi+ ;)) или с помощью соответствующих api функций. С примерами не помогу :)
Bye! Max Egorov
* Origin: Please believe me, the river told me... (2:5030/846.26)