VB文本如何作按钮

发布网友 发布时间：2022-04-26 20:27

我来回答

共4个回答

热心网友 时间：2023-10-29 12:33

'窗体内有一个label数组（label1(0),label1(2),label1(1)),和一个textbox
你要的效果代码如下,

Private Sub Form_Load()
Text1.Text = ""
Label1(0).Caption = "aaaaaaaaaa"
Label1(1).Caption = "bbbbbbbbbbbbb"
Label1(2).Caption = "ccccccccc"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each Label In Label1
Label.ForeColor = vbBlack
Label.Font.Underline = False
Label.MousePointer = 0
Next
End Sub

Private Sub Label1_Click(Index As Integer)
Text1.Text = Label1(Index).Tag '用tag来传递参数
End Sub

'双击标签来设置参数
Private Sub Label1_DblClick(Index As Integer)
temp = InputBox("请输入这个标签的赋加数", , Label1(Index).Tag)
Label1(Index).Tag = temp
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
With Label1(Index)
.ForeColor = vbRed
.FontUnderline = True
End With
End Sub

热心网友 时间：2023-10-29 12:33

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "??"
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "??"
End Sub

MouseDown过程可以使当LABEL被点击使触发事件MouseMove过程可以使当鼠标移动到LABEL时触发事件

热心网友 时间：2023-10-29 12:34

唉……还不如使用富文本呢。提前编好代码，一显示就好了。

热心网友 时间：2023-10-29 12:34

做成控件数组示例：
新建.exe工程，在form1添加COMMAND1命令按钮，复制再粘贴，提示是否创建控件数组，选是，再加一个文本框用来设定新网址或内容，在加一个COMMAND2按钮来添加按钮。
代码：
Option Explicit

Dim web(100) As String
Dim maxIndex As Integer

Private Sub Command1_Click(Index As Integer)
MsgBox web(Index + 1)
End Sub

Private Sub Command2_Click()
Load Command1(maxIndex)
With Command1(maxIndex)
.Left = Command1(maxIndex - 1).Left + 735
.Top = Command1(maxIndex - 1).Top
.Visible = True
.Caption = maxIndex + 1
End With
maxIndex = maxIndex + 1
web(maxIndex) = Text1
End Sub

Private Sub Form_Load()
web(1) = "http://www.aaa.com"
web(2) = "http://www.bbb.com"
maxIndex = 2
End Sub