Visual Basic 6.0 - Подсказка

Здpавствyй, Alexander!



Лови!

_/Это в фоpме:/_

на фоpме TextBox "Text1" и CommandButton "Command1"


Private Sub Form_Load()
InitComctl32 ICC_BAR_CLASSES
CreateTTWindow hwnd, True
SetToolTip Text1, "Multiline and Ballon" & vbCrLf & "Tooltip style example", vbBlue, vbWhite, 100
CreateTTWindow hwnd, False
SetToolTip Command1, "Multiline and Centered" & vbCrLf & "Tooltip style example", , , 100, , , True
End Sub

Private Sub Form_Unload(Cancel As Integer)
DestroyTT
End Sub


_/Это в модyле:/_


Option Explicit
Public Const ICC_BAR_CLASSES = &H4
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As tagINITCOMMONCONTROLSEX) As Boolean

Type tagINITCOMMONCONTROLSEX
dwSize As Long ' size of this structure
dwICC As Long ' flags indicating which classes to be initialized.
End Type

Public Const TTS_ALWAYSTIP = &H1
Public Const TTS_NOPREFIX = &H2
Public Const TTS_BALLOON = &H40

Public Const CW_USEDEFAULT = &H80000000

Public Const WS_POPUP = &H80000000

Public Const WM_USER = &H400

' ToolTip Messages
Public Const TTM_SETDELAYTIME = (WM_USER + 3)
Public Const TTM_ADDTOOL = (WM_USER + 4)
Public Const TTM_SETTIPBKCOLOR = (WM_USER + 19)
Public Const TTM_SETTIPTEXTCOLOR = (WM_USER + 20)
Public Const TTM_SETMAXTIPWIDTH = (WM_USER + 24)

Public Const TTDT_AUTOPOP = 2
Public Const TTDT_INITIAL = 3

Public Const TTF_IDISHWND = &H1
Public Const TTF_CENTERTIP = &H2
Public Const TTF_SUBCLASS = &H10

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type TOOLINFO
cbSize As Long
uFlags As Long
hwnd As Long
uId As Long
cRect As RECT
hinst As Long
lpszText As String
End Type

Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal
nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public bCreated As Boolean, hTT As Long
Public hCreated() As Long

Public Sub CreateTTWindow(hParent As Long, Optional bBalloon As Boolean = False)
Dim h As Long, lStyle As Long
lStyle = TTS_NOPREFIX Or TTS_ALWAYSTIP
If bBalloon Then lStyle = lStyle Or TTS_BALLOON
hTT = CreateWindowEx(0, "tooltips_class32", 0, lStyle, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, hParent, 0, App.hInstance, 0)
If Not bCreated Then
ReDim hCreated(0)
bCreated = True
Else
ReDim Preserve hCreated(UBound(hCreated) + 1)
End If
hCreated(UBound(hCreated)) = hTT
End Sub

Public Sub SetToolTip(objTT As Object, sTipText As String, _
Optional BkColor As Long = &HEEFFFF, _
Optional TxtColor As Long = vbBlack, _
Optional MaxWidth As Long = 300, _
Optional DelayTime As Long = 500, _
Optional VisibleTime As Long = 2000, _
Optional bCenter As Boolean = False)
Dim TI As TOOLINFO
With TI
GetClientRect objTT.hwnd, .cRect
.hwnd = objTT.hwnd
.uFlags = TTF_IDISHWND Or TTF_SUBCLASS
If bCenter Then
.uFlags = .uFlags Or TTF_CENTERTIP
End If
.uId = objTT.hwnd
.lpszText = sTipText
.cbSize = Len(TI)
End With
SendMessageLong hTT, TTM_SETMAXTIPWIDTH, 0, MaxWidth
SendMessageLong hTT, TTM_SETDELAYTIME, TTDT_INITIAL, DelayTime
SendMessageLong hTT, TTM_SETDELAYTIME, TTDT_AUTOPOP, VisibleTime
SendMessageLong hTT, TTM_SETTIPTEXTCOLOR, TxtColor, 0&
SendMessageLong hTT, TTM_SETTIPBKCOLOR, BkColor, 0&
SendMessage hTT, TTM_ADDTOOL, 0, TI
End Sub

Public Sub DestroyTT()
If Not bCreated Then Exit Sub
Dim i As Integer
For i = 0 To UBound(hCreated)
DestroyWindow hCreated(i)
Next
End Sub

Public Function InitComctl32(dwFlags As Long) As Boolean
Dim icc As tagINITCOMMONCONTROLSEX
On Error GoTo Err_OldVersion
icc.dwSize = Len(icc)
icc.dwICC = dwFlags
InitComctl32 = InitCommonControlsEx(icc)
On Error GoTo 0
Exit Function
Err_OldVersion:
InitCommonControls
End Function



Всего тебе самого светлого, Alexander!

* Origin: Mailto: RMBakeev [@] Yandex.Ru, tel: 998(79) 572-36-89 (2:5085/533.7)


Здpавствyй, Vadim!








Лови

Private Declare Function SystemParameters Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPIF_UPDATEINIFILE = &H1, SPIF_SENDWININICHANGE = &H2

Public Sub SetDeskWallPaper(func As Byte, Optional sBitmapFile As String)
Dim lRetVal As Long
Select Case func
Case 1
lRetVal = SystemParameters(ByVal 20, 0&, ByVal sBitmapFile, _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
Case 0
lRetVal = SystemParameters(20, 0&, "(None)", _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Select
End Sub


Всего тебе самого светлого, Vadim!

* Origin: Mailto: RMBakeev [@] Yandex.Ru, tel: 998(79) 572-36-89 (2:5085/533.7)


Hello Anton.

01 Апр 04 21:00, you wrote to All:






Воспользоваться функцией DIR, воспользоваться объектом FileSystemObject, или обpатиться за помощью к Win32 API.


Ivan

* Origin: Hехристь (2:5023/19.9)




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

09:47:10 +0400:












А что сложного с осх? Изменить тип проекта, сбацать контрол и прописать в
html-коде.
Да нет, я верю, что через CGI несложно; просто _чем_ обоснован выбор CGI
вместо осх, кроме того факта, что "все потоки уже перехвачены"?


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"

21:47:42 +0400:









Hатурально говорю, только парсер команд прикрутить. Формат тебе Дмитрий
прислал. Т.е. видишь POST - запускаешь ехе и передаёшь ответ, (если надо)
видишь GET - запускаешь ехе с параметрами по умолчанию и опять передаёшь
ответ. Ты внутрь того примера смотрел?







Да ну альтернативные браузеры, говорят, у 95% пользователей IE. А в опере
VBS есть, сам видел :-) Ставится, кажется, отдельно.



А чем COM плох?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)


Мы где-то виделись, A.?






Выбор между cgi и ocx определяется спецификой задачи. Если это прибамбас
наподобие калькулятора, то однозначно ocx. Если это централизованный опросник,
т.е. клиент != сервер, то однозначно cgi. В прочих случаях (вот как сейчас) -
дело вкуса.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Мы где-то виделись, Roman?





Я думаю, там делается также, как и в ОЕ - через внедрение объекта WebBrowser
на форму.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Приветствую в нашем подземелье, All ?

Service Pack 6 for Visual Basic 6.0, Visual C++ 6.0 with Visual Source Safe 6.0d provides the latest updates to these products. It is recommended for all users of Visual Basic 6.0, Visual C++ 6.0 and Visual Source Safe 6.0.

Download Size:
62305 KB - 62768 KB

Date Published:
3/29/2004

Version:
6
Overview
Service Pack 6 for Visual Basic 6.0, Visual C++ 6.0 with Visual Source Safe 6.0d provides the latest updates to these products. It is recommended for all users of Visual Basic 6.0, Visual C++ 6.0 and Visual Source Safe 6.0.

адрес для скачивания английской версии
http://download.microsoft.com/download/1/9/f/19fe4660-5792-4683-99e0-8d48c22eed74/Vs6sp 6.exe


Я взял бы частями, но мне нужно сразу. Genrih Rudenok.
* Origin: Genrih Cool! (2:452/25.115)


Приветствую в нашем подземелье, All ?

кто нибудь сталкивался с такой проблемой: надо писать в файл звук с линейного входа причем с левого канала в один файл а с правого в другой, мало того начало записи одного канала может несовпадать с временем начала записи с другого - независимые как бы должны быть? где кто что видел - слышал?
в DirectX только про воспроизведение и т.п. написано
в инете тоже нефига нет про это

Я взял бы частями, но мне нужно сразу. Genrih Rudenok.
* Origin: Genrih Cool! (2:452/25.115)


1. Как сделать подсказку к пункту Меню a-la акселлератор (т.е. имя пункта тянется слева, описание справа), но не ограничиваясь теми вариантами (F1-F2 и т.д.), которые там представлены. Представление кнопки как акселлератора не особо нужно, скорее даже наоборот. ;)

2. Как поменять цвет фона горизонтального меню своей программы?


¦ Послано в RU.VISUAL.BASIC
¦ Также послано в RU.VISUAL.BASIC.CHAINIK

* Origin: 1134 (2:5045/44.13)