对于"如何实现 两个窗体,当 一个拉动的时候,另外一个也会随着跟动"这个问题,小弟用了比较陈旧的方法,就是利用了Timer控件实现的
设Form1为主窗体form2为跟随窗体
Private Sub Timer1_Timer()
form2.left=form1.left+form1.width
form2.top=form1.top
End Sub
当timer的interval的值越小其精确度越大,这样看起来越舒服,越流畅;当然这样占用CPU越大
至于"如何实现自动装载上次的播放列表",只要用读写文件就可以了
在确定选择了这个功能的时候,可以在退出时实现
下面只是一个例子:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
on error resume next
if 选择了这个功能 then
open "c:\autoload.txt" for output as #1
print #1,"true"
print #1,列表路径(在此就省略了)
close #1'写入文件
else kill "c:\autoload.txt" '没有选择进行删除
end if
End Sub
接着就在启动窗体的时候读取文件就大功告成了
Private Sub Form_Load()
on error goto 1'出错时忽略
dim a as string
dim b(1000) as string
dim i as integer
open "c:\autoload.txt" for input as #2
line input #2,a
if a<>"true"then close #2:goto 1'如果不等于true,就退出
while not eof(2)
line input b(i)'读取文件名
combo1.additem b(i)'装入列表
i=i+1
wend
......
1:
End Sub