不要在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 ExplicitPrivate 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后
使用菜单工程--部件,勾选MicrosoftWindows
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)