大神真是惜字如金。。。

我正在升级系统呢，晚点给你。

惜字如金的大神。请教教我吧~~~~~听说你和蔼可亲威望又高技术又精授人予渔特别有耐心应该不会嫌弃我这个vf二级的菜鸟。请多多指教。

OK。您先忙。

你这样点歌不方便的啦

可是像KTV系统那样，不就是，查询想点的歌，然后查出来了，就可以播放了。我的想法就是这样。最好播放的时候还有歌词什么的，或者歌手的照片，我不打算做播放视频。想法就是这样。您觉得的呢？

你去卡拉ok看看通常的點歌是怎樣的

帮你把播放部分嵌进去了，收吧。在“唱歌的”部分，管理员部分，你自己参照着做。

其實就是在按鈕的Click事件中寫了這麽一段：

LOCAL loPlayer                                                            && 定義對象爲局部變量，在方法結束後對象將自動釋放佔用的資源，不用手動release
loPlay = CREATEOBJECT("C_Player")                                         && 動態創建一個播放器對象，視類類型不同，可以是窗體，或是當前頁面的控件對象
WITH loPlay                                                               && 給對象設置屬性，等效於在設計對話器中填寫的過程
    .Width = 800                                                          && 對象的寬
    .Height = 600                                                         && 對象的高
    .AutoCenter = .T.                                                     && 如果對象是Form類型，則可以自動居中，否則自己定位
    .Resize                                                               && 根據對象的尺寸拜訪內部控件，它會跟隨窗體的尺寸拉伸而自動變化
    .Play(ADDBS(ALLTRIM(歌单表.所在文件夹)) + ALLTRIM(歌单表.歌曲))       && 播放歌曲
    .Show(1)                                                              && 把窗體呈現出來，參數1是類型窗體，衹有在關閉窗體後才能接著運行後面的代碼，否則窗體會一閃而過
ENDWITH

我已經把播放器修改爲Form類型，原先是Container類型，前者用於彈出一個窗體播放，後者用於在當前窗體中開闢空間播放。原來的主程序是不需要的。現在你看看，我這樣直接在代碼中寫出所有的屬性設置和方法調用，不是比在設計對話器中翻來翻去來得清晰？自己做了什麽一目瞭然，要修改也容易（比如要改個東西，在一行前面加個星號就可以了，但在設計器中，要把内容刪掉，想留著以後撿回來都不行），想加減什麽，直接增刪行代碼就可以了；關鍵是邏輯一眼看出，而在設計器中，那是無序的，要自己整理思路，不是看出來的。

那個C_Player就是一個設計好的控件，當普通控件用就是，另存爲.vcx，就是可以拖拉的控件。


[ 本帖最后由 TonyDeng 于 2015-5-21 16:56 编辑 ]

這次足夠偏心了，給你解釋得那麽詳細。