平台中的主介面强吧,好看吧!
实现过程如下:
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\请注意此代码只是提供参考,请高手多指教不对之处.