Function ID_In_Number(ByVal hWin As HWND) As Integer
Позволяет узнать номер(идентификатор) гаджета по его хендлу
hWin - хендл гаджета
Windows , Linux
#Include "window9.bi"
Dim As Integer event
Dim As Hwnd cal
OpenWindow("",10,10,300,300)
cal=CalendarGadget(1,10,10,220,220)
'-----------------
? cal
? ID_In_Number(cal)
? GadgetID(1)
'-----------------
Do
event=WaitEvent()
If event= eventclose Then End
Loop
Created with the Personal Edition of HelpNDoc: Free Web Help generator