我想知道一下那些扑克牌游戏的图片是如何得到的呢?是自己画出来的还是专门有这样的现成的资源,如果哪位朋友知道的话,能发到我的信箱里,谢谢![email protected]

解决方案 »

  1.   

    有个库文件:qcard.dll,搜一下。
      

  2.   

    http://www.ourfly.com/download/downloadlist.aspx?type=VB
     教你如何制作微软的纸牌和空当接龙 使用微软的dll
      

  3.   

    你的email
    我给你图片和代码!!
    要快!!
      

  4.   


    洗牌再完美版:
    <SCRIPT LANGUAGE=vbscript >
    function xipai(mystr)
    xipai=""
    if len(mystr)=0 then'如果是空的,那么初试化一付连续的牌
    for i=1 to 52
    mystr=mystr & "<" & i & "> " 
    next
    end if
    dim i,x
    for i=1 to 52
    myarry=split(mystr) 'myarry是下标52的数组,前0-51个有效
    randomize
    x=cint(rnd*(ubound(myarry)-1))'前0-51个随便找一个
    mystr=replace(mystr, myarry(x) & space(1),"")'从没发的牌中随便挑一张
    xipai=xipai &  myarry(x) & space(1)
    next
    end functionfunction XP(n)
    mystr="xipai("""")"
    dim i
    for i=1 to n
    mystr="xipai(" & mystr & ")"
    next
    XP=eval(mystr)
    end function
    document.write  "洗牌完美版" & "<br/>"
    document.write  "洗一次牌:" & XP(1) & "<br/>"
    document.write  "洗两次牌:" & XP(2)  & "<br/>"
    document.write  "洗三次牌:" & XP(3) & "<br/>"
    document.write  "洗一百次牌:" & XP(100) & "<br/>"
    </SCRIPT>