查看完整版本: 用VB6寫的撲克牌小遊戲(4支刀)
頁: [1] 2 3

rr09192084 發表於 2010-5-13 12:05 AM

用VB6寫的撲克牌小遊戲(4支刀)

本帖最後由 rr09192084 於 2010-6-1 02:43 PM 編輯

用VB6寫的撲克牌小遊戲(4支刀)Dim colors(8)As Variant, points(8) As Variant
Dim mysum(2)As Variant, gsum(2) As Variant
Dim poker_issame(5) As Boolean
Dim win As Integer
Private Sub Form_Load()
  Dim i As Integer  Command2.Visible = False  For i = 0 To 7    Picture1(i).BorderStyle = 0    Picture1(i).DragMode = 1    Picture1(i).Visible = False  Next i  For i = 0 To 3    Label1(i).Visible = False    Label2(i).Visible = False  Next i  Label5.Visible = FalseEnd Sub

Private Sub Command1_Click()  Dim i As Integer  Label5.Visible = False  For i = 0 To 3    Label1(i).Visible = True    Label2(i).Visible = True  Next i  Command1.Visible = False  Command2.Visible = True  Label2(2).Caption = ""  Label2(3).Caption = ""  Call showPoker  Call calc_poker(0, mysum(), Label2(0), Label2(1))
End Sub
Private Sub Command2_Click()
Command1.Visible = TrueCommand2.Visible = Falsewin = 0Label5.Visible = TrueLabel5.Caption = ""Dim i As IntegerFor i = 8 To 5 Step -1  Picture1(i - 1).Picture = LoadPicture(App.Path & "\Poker\" & colors(i) & "-" & points(i) & ".jpg")  Call wait(0.05)Next iCall calc_poker(4, gsum(), Label2(2), Label2(3))If gsum(0) >...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

s25354362 發表於 2010-6-6 05:27 PM

感謝大大無私分享!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

lex770228 發表於 2010-7-4 06:30 PM

感恩                     謝大大無私分享

ii9ii9ii9ii9 發表於 2010-7-8 11:40 AM

多謝大大  的愛心與分享

aeguls 發表於 2010-7-24 06:53 PM

感謝大大您的分享啦 收下來做參考囉 感恩<br><br><br><br><br><div></div>

26732364 發表於 2010-7-25 06:58 PM

非常感謝你的分享~~~~

金頭人 發表於 2010-8-23 07:35 PM

謝大大無私分享
收下來做參考囉

h81630 發表於 2010-11-8 11:11 PM

我不行下載     好失望

ajeams 發表於 2010-11-22 10:22 AM

感謝分享
謝謝提供範例

ere3212 發表於 2011-1-2 12:59 AM

感謝大大分享
我也來試試看<br><br><br><br><br><div></div>

deer7878978 發表於 2011-2-1 05:09 PM

謝謝大大  感恩喔!!!!!!!!!!!!!!!

a0956681855g 發表於 2011-2-5 12:49 AM

感謝大大您的分享啦 收下來做參考囉 感恩

ix75109 發表於 2011-3-20 04:20 PM

a4h5g4e6f 發表於 2011-4-2 06:09 PM

回復 1# rr09192084

謝謝大大的分享

a7982658 發表於 2011-4-19 01:25 PM

頁: [1] 2 3