如何用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 = &