如何建一个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\请注意此代码只是提供参考,请高手多指教不对之处.