private
tabarea as rectangle
private tabtextarea as rectanglef
private
sub form1_load(byval sender as system.object, byval e as system.eventargs) handles
mybase.load
me.tabcontrol1.drawmode = tabdrawmode.ownerdrawfixed '
設定使用者繪製方式
me.tabcontrol1.alignment = tabalignment.right '
設定tab項右對齊布局
'tabcontrol1.sizemode = tabsizemode.fixed
『設定tab項大小的方式（全都一樣大小）
'tabcontrol1.itemsize = new size(150, 20) '
設定大小
endsub
private
sub tabcontrol1_drawitem(byval sender as
object, byval e as system.windows.forms.drawitemeventargs) handles tabcontrol1.drawitem
tabarea = tabcontrol1.gettabrect(e.index) '
主要是做個轉換來獲得tab項的rectangelf
tabtextarea = rectanglef.op_implicit(tabcontrol1.gettabrect(e.index))
dim g as graphics = e.graphics
dim sf as
new stringformat() '
封裝文字布局資訊
sf.linealignment = stringalignment.center
sf.alignment = stringalignment.center
dim p as
new pen(color.blue) '
繪製邊框的畫筆
dim font as
new font("arial",
10.0f
)dim brush as
new solidbrush(color.red)
g.drawrectangle(p, tabarea) '
繪製邊框
'繪製文字
g.drawstring(ctype(sender, tabcontrol).tabpages(e.index).text, font, brush, tabtextarea, sf)
endsub
VC控制項 Tab Control
1 新增上乙個tab control 控制項 為這個控制項新增乙個變數，如 m tabctrl 2 建立兩個新的對話方塊資源，其屬性作如下修改 border none 邊界為空,這樣它就沒了標題欄 style child 這樣這個模板就可以當作另乙個視窗的子視窗了。可在上面加一些控制項，具體操作跟普...
新增Tab Control控制項
本文講述在普通對話方塊上新增標籤的簡單示例 第一步拖乙個tab control到對話方塊上並新增變數m tabctrl 第二步新增兩個對話方塊資源idd dialog1,idd dialog2並將style為child,border為none,再分別為其新增對應的基於cdialog m page1,...
MFC控制項程式設計 Tab Control
tab控制項的使用 1 插入tab控制項的資料項 標籤 ctabctrl insertitem 2 以tab控制項為父視窗建立對話方塊 3 調整對話方塊大小 4 在tab控制項的selchange訊息處理函式中，根據當前選項的索引設定對話方塊的顯示狀態。新建乙個基於對話方塊的工程，拖放乙個tab c...