如何用VB製作標籤，如何用VB製作標籤

其實按鈕加上圖片框作為容器就是標籤，如果你不想讓軟體執行需要更多的執行時庫，那麼這裡是你最好的選擇，如果你對按鈕樣式不滿意，也可以用圖片框或者圖片**代替自己，你可以自己用滑鼠使用效果。和其他事件。

vb 中有乙個可以完成的控制項。

1. 首先，新增乙個使用者控制項 usercontrol，並將 controlcontainer 屬性更改為 true;

2. 複製貼上以下核心**：

dim labelactive as long '選擇卡號。

選項卡切換。 private sub tagcut(byval index as long)

dim lastactive as long

if labelactive <>index then

lastactive = labelactive

labelactive = index

call controlrefresh(lastactive)

end if

end sub

顯示隱藏新增到選項卡的物件。

private sub controlrefresh(lastactive as long)

dim ctl as control, moveval as single

if lastactive = labelactive then exit sub

on error resume next

moveval = csng(labelactive - lastactive) *10000

for each ctl in

moveval

next ctl

end sub

3.上面的tagcut功能是標籤選項卡的開關，index是索引號，至於卡片的數量和卡片按鈕的數量，您可以自己設計。

舉個例子：點選檢視。

工程 - 元件。

選擇“Microsoft 選項卡式對話方塊控制項 （SP6）”。

申請 - 已關閉。

使用左側小部件欄中的“sstab”

您可以使用命令按鈕來顯示不同的介面。

我試過了，可能是我的機器有問題。

striptab 無法再新增控制項。

你看這可以嗎？

dim otab as

dim owebbrowser as

1.如何在程式執行時新增和刪除選項卡。

set otab = '新增選項卡。

2. 如何在新新增的選項卡中新增新控制項（控制項和布局與初始選項卡相同） 設定 owebbrowser="", "webbrowser2", otab)'新增 webbrowser

可以動態載入小部件，我給大家寫了一張圖片的小例子。。你看 private sub command2 click（）dim i as long

for i = 1 to 10

dim opic as pictureboxset opic = "", "pic" & i, me)with opic

height = 500

top = 100 + height * ileft = 100

width = 500

visible = true

**檔案。 end with

next end sub

3.每個選項卡中的控制項和變數是獨立的還是通用的，以及如何區分它們（區域性和全域性）。

這很常見，就像把它放在乙個表格中一樣。

考慮使用一系列小部件...

選項卡看起來不像容器，但我們可以使用圖片框來代替！ 將圖片框放在標籤條的頂部並刪除邊框，使標籤條本身看起來像是容器。

思路如下：1.建立乙個新的標籤條並開啟多個標籤（例如，3）。

2. 建立乙個新的 picturebox 控制項陣列 （picture1（0）-picture1（2））。

3.寫作過程。 這裡有 3 個例子。

private sub tabstrip1_click

dim lc as long

for lc = 0 to - 1

picture1(lc).visible = iif((lc = - 1), true, false)

next lc

end sub

然後將所需的小部件放入圖片框中（注意“內部”一詞）。 將每個圖片框的邊框樣式設定為 0，然後放置它並與製表條保持一致。

選項卡控制項，只需新增 Microsoft 選項卡控制項。

它經常與框架一起使用，每個選項卡下的所有東西都放在每個框架中，使用時可以顯示相應的框架。

我想這是乙個 sstab 控制項。

在小組件視窗的控制項列表中選擇“Microsoft 選項卡式對話方塊控制項”。

首先，你用的是什麼控制？ 如果新增小部件，選擇 Microsoft Windows 公共控制項或製表條控制項，那就很麻煩了，這個控制項的每個選項頁都不是獨立的容器控制項，所以你只能使用某個選項卡，隱藏一批控制項，並顯示一批控制項來實現。

使用 if 確定是否選中它，然後將內容新增到 text=""

if = true then = &if = true then = &if = true then = &