AddRebarTab

Синтаксис

Declare Function AddRebarTab(ByVal gadget As Long, ByVal GadgetChild As Long, ByVal IDinNumber As Integer = 0, ByRef string_ As String = "", ByVal pos_ As Integer = -1, ByVal x As Integer = 100, ByVal MinX As Integer = 0, ByVal MinY As Integer = 20, ByVal Mask As Integer = RBBIM_STYLE Or RBBIM_CHILD Or RBBIM_CHILDSIZE Or RBBIM_SIZE Or RBBIM_TEXT Or RBBIM_ID, ByVal Style As Integer = RBBS_CHILDEDGE Or RBBS_GRIPPERALWAYS) As Integer

Описание

Добавляет вкладку в RebarGadget.

Параметры

gadget - номер гаджета RebarGadget (любое натуральное число может быть 1,2,3,4 и др.)

GadgetChild - номер гаджета, который надо разместить во вкладке

IDinNumber - идентификатор(не хендл) вкладки (нужен для функции IDinIndexRebarGadget)

string_ - любая строка в заголовке вкладки

pos_ - позиция вставки. (если -1 в конец, если 0 в начало)

x - реальная ширина вкладки (Не может быть меньше MinX)

MinX - минимальная ширина вкладки

MinY - минимальная высота вкладки

Mask - маска установки атрибутов вкладки. Информацию на английском языке по всем маскам можно найти ЗДЕСЬ

Style - стиль вкладки. Описания на английском языке всех стилей можно найти ЗДЕСЬ

Платформы

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)
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free Web Help generator