UC知道vb高手进！！如何让这些代码正确执行？急！！！！！！！！
来源：百度知道 编辑：UC知道 时间：2024/05/12 01:19:54
Public Sub CP8()
CardForm.Tcp8.Enabled = True
If CardForm.Image68(0).Picture = frmcards1.Picture1(81).Picture And CardForm.Image68(Z).Picture = frmcards1.Picture1(11).Picture Or frmcards1.Picture1(12).Picture Or frmcards1.Picture1(13).Picture Or frmcards1.Picture1(14).Picture Or frmcards1.Picture1(15).Picture Or frmcards1.Picture1(16).Picture Or frmcards1.Picture1(17).Picture _
Or frmcards1.Picture1(18).Picture Or frmcards1.Picture1(21).Picture Or frmcards1.Picture1(22).Picture Or frmcards1.Picture1(23).Picture Or frmcards1.Picture1(24).Picture Or frmcards1.Picture1(25).Picture Or frmcards1.Picture1(26).Picture Or frmcards1.Picture1(27).Picture Or frmcards1.Picture1(28).Picture Or frmcards1.Picture1(31).Picture Or frmcards1.Picture1(32).Picture Or frmcards1.Picture1(33).Picture Or frmcards1.Picture1(34).Picture Or frmcards1.Picture1(35).Picture Or frmcards1.Picture1(36).Picture Or frmcards1.Picture1(37).Picture Or frmcards1.Picture1(38).Picture Or frmcards1.Picture1(41).
CardForm.Tcp8.Enabled = True
If CardForm.Image68(0).Picture = frmcards1.Picture1(81).Picture And CardForm.Image68(Z).Picture = frmcards1.Picture1(11).Picture Or frmcards1.Picture1(12).Picture Or frmcards1.Picture1(13).Picture Or frmcards1.Picture1(14).Picture Or frmcards1.Picture1(15).Picture Or frmcards1.Picture1(16).Picture Or frmcards1.Picture1(17).Picture _
Or frmcards1.Picture1(18).Picture Or frmcards1.Picture1(21).Picture Or frmcards1.Picture1(22).Picture Or frmcards1.Picture1(23).Picture Or frmcards1.Picture1(24).Picture Or frmcards1.Picture1(25).Picture Or frmcards1.Picture1(26).Picture Or frmcards1.Picture1(27).Picture Or frmcards1.Picture1(28).Picture Or frmcards1.Picture1(31).Picture Or frmcards1.Picture1(32).Picture Or frmcards1.Picture1(33).Picture Or frmcards1.Picture1(34).Picture Or frmcards1.Picture1(35).Picture Or frmcards1.Picture1(36).Picture Or frmcards1.Picture1(37).Picture Or frmcards1.Picture1(38).Picture Or frmcards1.Picture1(41).
哇，很不错的打扑克软件哦！
不过要执行很困难，因为这个只是一个出牌逻辑，并不完整！
你可以放到模块中就能编绎通过了
具体操作：在你原有的程序中新建一个模块，把上面的复制进去，再把显示红色的删除就可以了！