当前位置:编程学习 > VB >>

4个重叠在一起的picturebox,用来绘制不同参数的曲线,如何控制那一个在前显示

我在做一个工业用软件,现在要求显示不同采集参数的实时曲线,我想用4个重叠的Picturebox分别绘图,用option选择,当一个被选中时变显示,另外几个消隐。但是始终找不到如何去做。谢谢大家帮忙哈。敬请指教!!! --------------------编程问答-------------------- 把要显示的 PictureBox 的 .Visible = True, 不显示的 PictureBox 的 .Visible = False
--------------------编程问答-------------------- 只显示第一个:
Picturebox1.Visible =True 
Picturebox2.Visible =False
Picturebox3.Visible =False
Picturebox4.Visible =False

只显示第2个:
Picturebox1.Visible =False
Picturebox2.Visible =True
Picturebox3.Visible =False
Picturebox4.Visible =False

类推
--------------------编程问答-------------------- 我试过了 好像不行,当最上面的那个picturebox不可见时,位于其下面的所有的都被遮掩了应该 --------------------编程问答--------------------
引用 3 楼 songfengshuiyue 的回复:
我试过了 好像不行,当最上面的那个picturebox不可见时,位于其下面的所有的都被遮掩了应该

这是你‘画’picturebox 的操作错误。



你先把这几个 picturebox 删除,再重新画:

画好第一个后,画第二个时(后同),一定要在窗体内的空白处点下鼠标,再拖动开始画。
画好后,再拖动它到要放置的位置去。
重复上面的操作,把需要的picturebox添加完。
--------------------编程问答-------------------- 用控件数组的方法:

Private Sub Command1_Click()
'四个 Picture1 组成数组,下标默认从 0 到 3
    'DispPic 0   '显示第1个
    DispPic 2   '显示第3个
End Sub

Private Sub DispPic(iIdx As Long)
    Dim i&
    For i = 0 To 3
        If (iIdx = i) Then
            Picture1(i).Visible = True
        Else
            Picture1(i).Visible = False
        End If
    Next
End Sub
--------------------编程问答--------------------
Private Sub Command1_Click()
'四个 Picture1 组成数组,下标默认从 0 到 3
    'DispPic 0   '显示第1个
    DispPic 2   '显示第3个
End Sub

Private Sub DispPic(iIdx As Long)
    Dim i&
    For i = 0 To 3
        If (iIdx = i) Then
            Picture1(i).Visible = True
        Else
            Picture1(i).Visible = False
        End If
    Next
End Sub
--------------------编程问答-------------------- thanks 谢谢各位 我试试 --------------------编程问答-------------------- 谢谢 这样可以 哈哈 以后有问题还得多请教你  --------------------编程问答-------------------- 又一个不结帐的,霸王餐看来好吃。
补充:VB ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,