vb frame数组问题,求助高手 。问题1:我如何创建frame数组控件??问题2:如何在各个frame上添加其他控件

vb frame数组问题,求助高手 。问题1:我如何创建frame数组控件??问题2:如何在各个frame上添加其他控件,第1张

然后在frame1 上粘贴一下刚才复制的frame????
不要在frame1 上粘贴,应该在 窗体 上粘贴。就这一步错了。其他ok。
还有代码不知道你怎么写的。你参考一下:
'Frame1(0)要放在TabStrip1上,其他Frame1都是以Frame1(0)为基准显示的。
Private Sub TabStrip1_Click()
Dim x As Frame
For Each x In Frame1
xMove Frame1(0)Left, Frame1(0)Top '如果你已经排版好了,可以删除这句
xVisible = xIndex = TabStrip1SelectedItemIndex - 1
Next
End Sub
'TabStrip 我也不常用,这是我刚才琢磨出来的。
'写的不好,不知道对你有没有参考价值o(╯□╰)o
不明白可以一起讨论-->HI

利用代码切换TabStrip上卡片的方法如下:

(1)新建一个VB6工程。在窗体上布置一个TabStrip和三个Command

如上图,设置TabStrip属性,使之具有3个Tab

(2)Form1窗体代码

Option Explicit
Private Sub Command1_Click()
    ' 切换到 #1 
    TabStrip1Tabs(1)Selected = True
End Sub
Private Sub Command2_Click()
    ' 切换到 #2 
    TabStrip1Tabs(2)Selected = True
End Sub
Private Sub Command3_Click()
    ' 切换到 #3 
    TabStrip1Tabs(3)Selected = True
End Sub

(3)运行效果

鼠标点击Command2后

鼠标点击Command3后

鼠标点击Command1后

使用菜单工程--部件,勾选Microsoft
Windows
Common
Controls
60
(SP6),确定
在工具箱上,将新增一组控件,其中就有。

我不建议用外挂控件,特别是用来做数据库开发,有需要的话还不如自己写一个
你先设置一下tabstrip每个页的关键字,比如你用了三个页为key1,key2,key3
双击tabstrip写类似以下代码
Private Sub TabStrip1_Click()
Select Case TabStrip1SelectedItemKey
Case "key1"
Frame1Visible = True
Frame3Visible = False
Frame4Visible = False
Frame5Visible = False
Frame9Visible = False
Frame14Visible = False
Case "key2"
Frame1Visible = False
Frame3Visible = True
Frame4Visible = False
Frame5Visible = False
Frame9Visible = False
Frame14Visible = False
Combo27ListIndex = 1
Combo28ListIndex = 1
Case "key3


欢迎分享,转载请注明来源:内存溢出

原文地址: https://www.outofmemory.cn/yw/12604502.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存