如何建一个QQ式导航介面
时 间:2007-11-03 14:00:34
作 者:刘贵平整理 ID:14 城市:长沙
摘 要:如何建一个QQ式导航介面
正 文:
平台中的主介面强吧,好看吧!
实现过程如下:
1\新建一个数据库(ACCESS),新建一个窗体,默认属性为FORM1
2在窗体上添加一个COMMANDBUTTRON控件,数组(COMMAND1(0)-COMMAND1(4))和一个FRAME控件
3在FRAME1控件中添加一个IMAGE控件数组(IMAGE3(0))和一个LABEL控件数组(LABEL()0)
4主要程序代码如下
Private Sub Command1_Click(Index As Integer)
On Error Resume Next
If Image3.Count > 1 Then
For i = 1 To Image3.Count - 1
Unload Image3(i)
Next i
End If
For i = 1 To Index
Command1(i).Top = Command1(0).Top + Command1(0).Height * (i)
Next i
For i = Index + 1 To Command1.Count
Shape1.Top = Command1(Index).Top + Command1(0).Height
Command1(i).Top = Shape1.Top + Shape1.Height + Command1(0).Height * (i - Index - 1)
Next i
Image3(0).Top = Shape1.Top + 100
Label3(0).Top = Image3(0).Top + Image3(0).Height + 100
lk (Index)
If Command1(Index).Tag > 1 Then
For j = 1 To Command1(Index).Tag
Load Image3(j)
Load Label3(j)
Image3(j).Left = Image3(0).Left
Image3(j).Top = Image3(0).Top + 500 * j + Image3(0).Height * j
Image3(j).Picture = LoadPicture(App.Path & "\tx\" & Index & j & ".ico")
Image3(j).Visible = True
Label3(j).Left = Label3(0).Left
Label3(j).Top = Image3(j).Top + Image3(j).Height + 200
Label3(j).Visible = True
k = Index & j
liank (k)
Next j
End If
End Sub
5\请注意此代码只是提供参考,请高手多指教不对之处.
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)