关于VB编程的问题 望高手指点!

2024-12-04 15:12:15
推荐回答(3个)
回答(1):

第一个问题可以你遍历一下窗体上所有控件,如:
Private Sub Command1_Click()
Dim oTemp As Object

For Each oTemp In Me.Controls
If TypeOf oTemp Is CommandButton Then
'// 这里是要将当前按钮分出来,要不然会连自己也隐藏
If oTemp.Name <> "Command1" Then
oTemp.Visible = Not oTemp.Visible
End If
End If
Next

Set oTemp = Nothing
End Sub

第二个你可以借助第三方控件来实现。

回答(2):

问题真多啊!
command1_Dilck()
if m mod 2=0 then
command2.enabled=false
command3.enabled=false
.
.
commandn.enabled=false

else
command2.enabled=ture
command3.enabled=ture
.
.
commandn.enabled=ture
end if
m=m+1
end sub
"更改按钮的形状和样式" 是在属性里面设置的

"将按钮上的文字出现在按钮旁,不是在按钮上" 只要在按钮旁边添加一个标签就可以了

回答(3):

'计数器
Dim intj As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inti As Integer '循环变量
For inti = 0 To Me.Controls.Count - 2 '循环开始
If Me.Controls.Item(inti).GetType.Name = GetType(System.Windows.Forms.Button).Name Then '判定窗体上的控键类型
If intj Mod 2 = 1 Then '隐藏控键
Me.Controls.Item(inti).Hide()
Else '显示控键
Me.Controls.Item(inti).Show()
End If
End If
Next
intj += 1 '计数器累加
End Sub

注意:窗体上的控件顺序要排列下,这个Demo是由button1~7,一共7个控件组成的,控件添加的顺序按照button1~7的顺序来排。

提示:想修改控件的先后顺序可以修改自动生成代码中的
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
先后次序

这个是VB.NET版本的