vb中如何用一个按钮实现标签控件中两项内容的切换

VB 状态切换按钮 单选按钮~

请直接使用 optionButton 控件数组,然后将控件的 style设为:1--Graphical 即可

切!这不简单!
新建按钮C,和图片框P
在C中写:
Dim h as String
If

窗体上加入两个控件,一个是command1,一个是Label1
Private Sub Command1_Click()
Static Flag As Boolean
If Flag = False Then
Me.Command1.Caption = "切换"
Me.Label1.Caption = "bbbb"
Flag = True
Else
Me.Command1.Caption = "显示"
Me.Label1.Caption = "aaaa"
Flag = False
End If
End Sub

你描述的不太清晰,但是这是一种能实现的较直观的方法,至于两个caption是怎么对应的,请你再确认一下
解释一下,在这个sub过程里使用的static变量的声明,而没有用dim.
楼上的代码稍有问题,一个是如果不使用static变量的话,还可以使用全局变量来实现,但是不应当在form_load中进行变量声明,应在通用中进行声明.第二个,在i的累加过程中,可以用余数来判断两种状态,比如进行s=i mod 2,s值=0或者=1来判断.使用这种方法有个缺陷,进行累加时i值会不断增加,因此i的声明就成了个问题,假如声明为int型,那么只能累加到255,以上就可能会出现溢出错误.所以在进行i的自加时,进行判断后,还可以再减回去.
比如
if i = 1 then
i=i-1
elseif i = 0 then '其实用else就行了,为了看起来清晰这里我使用了elseif
i=i+1
end if
不过声明为全局变量也是一种不错的办法.
这里只是作为知识的探讨,没有任何其他意思.

这个有很多方法的，我这里随便写了一种，按你的要求只有一次变换的···
private sub form_load()
dim i as integer
end sub

private sub command1_click()
label1.caption="aaaa"
command1.caption="切换"
i = i+1
if i =1 then
label1.caption="bbbb"
end if
end sub

Private Sub Command1_Click()
Static a As Boolean
If a Then
Label1 = "bbbbbbbbbbbbb"
Else
Label1 = "aaaaaaaaaaaa"
End If
a = Not a
End Sub

Private Sub Form_Load()
Label1 = "bbbbbbbbbbbbb"
End Sub

Private Sub form_load()
Label1.Caption = "aaaa"
End Sub

Private Sub command1_click()
If Command1.Caption = "切换" Then Label1.Caption = "bbbb"
Command1.Caption = "切换"
End Sub

---

恩施市15379684862： 如何在VB上用一个“关于”按钮,就会显示出标签来？
雷毅又欣： 添加一个窗体form2 在form1中加入 Private Sub Command1_Click() '“关于”按钮 form1.show End Sub

恩施市15379684862： vb中如何用一个按钮实现标签控件中两项内容的切换 - ？
雷毅又欣： 窗体上加入两个控件,一个是command1,一个是Label1 Private Sub Command1_Click() Static Flag As Boolean If Flag = False Then Me.Command1.Caption = ＂切换＂ Me.Label1.Caption = ＂bbbb＂ Flag = True Else Me.Command1.Caption ...

恩施市15379684862： VB编程实现:单击命令按钮Command1,标签控件1从左到右,标签控件2从下到上循环移动.注:不 - ？
雷毅又欣： 在窗体中做两个标签62616964757a686964616fe59b9ee7ad9431333337383230,一个命令按钮,一个定时器控件,复制以下的代码,就可以运行了,如果需要可以调整其中的100和400二个数据的大小. Dim fx As Integer, fx1 As Integer ...

恩施市15379684862： .编写程序,请问在vb中两个标签内容交换用一个按钮来实现 - ？
雷毅又欣： 这个简单啊 假如标签1的内容为“白日放歌需纵酒” 标签2的内容为“青春作伴好还乡” 则代码为: dim s as string s=label1.caption label1.caption=label2.caption label2.caption=s 思路为先将其中一个的内容放到一个变量里面,再将第二个的内容赋值到第一个里面 然后再将变量里面的赋值到第二个里面

恩施市15379684862： VB考试怎么在标签数组里含标签控件 - ？
雷毅又欣： LZ:你在窗体放置一个标签控件,然后复制该标签控件,粘贴于窗体,VB提示你＂已经有一个'Label1'控件.创建一个控件数组吗?按是(Y)按钮,就建立了Label1为名的控件数组.

恩施市15379684862： vb6.0怎么添加标签控件 - ？
雷毅又欣： 1)运行VB6.0,新建一个标准EXE工程,将鼠标移到下图copy左侧工具箱的A按钮处. 2)双击该按钮,zd窗体上就会出现一个Label控件. 3)可对它进行属性设置,并移动到窗体需要的位置.接着可继续按前方法添加Label控件. 4)Label 控件, Label 控件是图形控件,可以显示用户不能直接改变的文本.

恩施市15379684862： VB中怎么加入一个标签 - ？
雷毅又欣： 1、首先我们新建一个工程,并新建一个标准Exe工程. 2、这时候我们找到工具箱中标签框. 3、这时候我们可以直接双击控件即可成功绘制. 4、或者我们可以选中他,然后在页面上绘制. 5、如果对它的外观不满意,我们在属性窗口中修改. 6、双击控件即可进入代码窗口.完成效果图.

恩施市15379684862： 在VB中怎样实现:单击命令按钮,答案出现在指定标签里. - ？
雷毅又欣： 好的程序跟你一起分享,已经验证OK了!Private Sub Command1_Click() Label2.Caption = ＂VB的全称:Visual Basic＂ End SubPrivate Sub Form_Load() Label1.Caption = ＂VB的全称是什么呢?＂ End Sub你在窗体上添加两个label控件,一个command控件,把代码复制进去就OK!!!Private Sub Command1_Click() Label2.Caption = Rnd End Sub这个就是变化的数字了!

恩施市15379684862： 如何让VB程序在运行时使标签控件只显示文字呢. - ？
雷毅又欣： Label1.BackStyle = 0'透明 Label1.BorderStyle = 0'没有边框

恩施市15379684862： vb中如何让单击按钮事件触发标签内容随机改变(有一定的限定范围)? - ？
雷毅又欣： 比如 aa,bb,cc三个单词 Dim a(2) Private Sub Command1_Click() Randomize i = Int(3 * Rnd) Label1.Caption = a(i) End Sub Private Sub Form_Load() a(0) = ＂aa＂ a(1) = ＂bb＂ a(2) = ＂cc＂ End Sub