Function GetCountTabRebarGadget(ByVal gadget As Long) As Integer
Получает кол-во вкладок в RebarGadget
gadget - номер гаджета
Windows
#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("",10,10,300,300) : CenterWindow(hwnd)
TextGadget(1,10,10,100,20,"Text")
ButtonGadget(2,10,10,100,20,"Button")
RebarGadget(3)
AddRebarTab(3,2)
AddRebarTab(3,1)
? GetCountTabRebarGadget(3)
Do
event=WaitEvent()
If Event=EventClose Then End
Loop
2
Created with the Personal Edition of HelpNDoc: Free EPub producer