ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > 我的酷贴 > Excel VBA > vb写的【麻将】游戏

vb写的【麻将】游戏

作者：绿色风 分类： 时间：2022-08-18 浏览：121
楼主
HHAAMM		 闲来无事，网友提议写个麻将玩，所以就动手写了
原本是excel+dll版的，后来感觉不如直接写成exe的来的方便
由裁剪图片到寻找声源到设计算法到编写代码，花费了不少精力
目前不能“吃、碰、杠”

说明：
1、点击‘开’，开始游戏
2、点住文字“大赛”下的蓝色小点不放，拖动窗体
3、点住文字“大赛”下的棕色小点不放，最小化窗体
4、当出现听牌的牌后，先点击“点击听牌”，再打出不要的牌，之后才可以胡牌

代码见9\10\11楼
麻将.rar
2楼
HHAAMM		 不知发错地方没有
3楼
gouweicao78		 没错，谢谢郝兄分享！
4楼
HHAAMM		 黄兄、陈兄：
原本是想共享的，可VB的该怎么办
是把代码贴上来，还是把那一堆VB文件传上来
5楼
HHAAMM		 如果是EXCEL+动态链接库的，也存在这个问题，dll里的代码也看不到。
6楼
apolloh		 如果要共享应该是放上编译前的工程和模块文件。
7楼
chrisfang		 是不是可以考虑把几个主要算法模块的代码贴一下，不需要把整个工程贴上来吧？
8楼
HHAAMM		 好的
分几次吧，一次发帖的字数有限制
  1. '透明
  2. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  3. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  4. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  5. Private Const WS_EX_LAYERED = &H80000
  6. Private Const GWL_EXSTYLE = (-20)
  7. Private Const LWA_ALPHA = &H2
  8. Private Const LWA_COLORKEY = &H1
  9. Private Declare Function ReleaseCapture Lib "user32" () As Long
  10. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  11. Private Const WM_NCLBUTTONDOWN = &HA1
  12. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  13. '播放
  14. Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
  15. Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
  16. Const SND_SYNC = &H0 '同步调用,声音播放完毕,程序才能继续
  17. Const SND_ASYNC = &H1 '非同步调用,不必等声音播放完毕,程序即可继续
  18. Const SND_LOOP = &H8 '声音播放完毕后,从头重复播放,与SND_ASYNC(=&H1)使用
  19. Const SND_NOSTOP = &H10 '如果其他声音正在播放,则不终止该声音的播放，而返回False
  20. Const SND_MEMORY = &H4 '播放内存中的声音
  21. Dim bArr() As Byte
  22. '暂停
  23. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  24. '给动态添加的控件添加事件
  25. Private WithEvents btnObj As CommandButton
  26. '记录已经使用的个数
  27. Dim GeSu()
  28. '窗体移动
  29. Dim CTYD As Boolean
  30. '听牌限制
  31. Dim TPAIXIANZICANSU As Boolean
  32. '窗体加载
  33. Private Sub Form_Load()
  34.     Dim rtn As Long, A As Integer
  35.     Me.BackColor = &HFF0000
  36.     BorderStyler = 0
  37.     rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
  38.     rtn = rtn Or WS_EX_LAYERED
  39.     SetWindowLong hwnd, GWL_EXSTYLE, rtn
  40.     SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY
  41.     A = 1111
  42.     For i = 0 To Image3.Count - 1
  43.         Image3(i).Left = A
  44.         Image3(i).Top = 7300
  45.         Image4(i).Left = A
  46.         Image4(i).Top = 500
  47.         A = A + 367
  48.     Next
  49. End Sub
  50. '单击头像
  51. Private Sub Image1_Click()
  52.     Dim i%, j%, t%, b As Boolean
  53.     Dim A(13) As Integer
  54.     If Label7 = "点击听牌" Then MsgBox "  要先听牌", , "系统提示": Exit Sub
  55.         For i = 0 To Text1.Count - 1
  56.             A(i) = Val(Text1(i).Text)
  57.             If A(i) < 28 Then
  58.                 A(i) = Int(A(i) / 9.001) * 100 + A(i)
  59.             Else
  60.                 A(i) = Int(A(i) / 9.001) * 100 + A(i) * 6
  61.             End If
  62.         Next i
  63.         HUPAI A, b
  64.         If b Then
  65.             Label4.Caption = "开"
  66.             bArr = LoadResData(137, "CUSTOM")
  67.             sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  68.         End If
  69. End Sub

  71. '单击牌
  72. Private Sub Image3_Click(Index As Integer)
  73.     Dim A As String
  74.     If Text1(13).Text = "" Or Label4.Caption = "开" Then Exit Sub
  75.     If TPAIXIANZICANSU = True Then
  76.         CHUANGJIAN Val(Text1(13).Text)
  77.         Text1(13).Text = ""
  78.     Else
  79.         If Label7 = "已经听牌" Then TPAIXIANZICANSU = True
  80.         A = Text1(Index).Text
  81.         Text1(Index).Text = Text1(13).Text
  82.         Text1(13).Text = ""
  83.         PAIXU "Text1"
  84.         CHUANGJIAN Val(A) '创建
  85.     End If
  86.     Timer1.Interval = 1
  87. End Sub
  88. '单击网址
  89. Private Sub Label1_Click()
  90.     Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "http://club.excelhome.net/index.php"
  91. End Sub
  92. '单击退
  93. Private Sub Label3_Click()
  94.     End
  95. End Sub
9楼
HHAAMM
  1. '单击开
  2. Private Sub Label4_Click()
  3.     Dim i As Integer, lngCount As Integer
  4.     If Label4.Caption = "！" Then Exit Sub
  5.     lngCount = Image5.UBound
  6.     For i = 1 To lngCount
  7.         Unload Image5(i)
  8.     Next
  9.     Text4 = 1111: Text5 = 1600: Text6.Text = "": Text7.Text = ""
  10.     ReDim GeSu(1 To 34)
  11.     Label4.Caption = "！"
  12.     Label7 = "点击听牌"
  13.     TPAIXIANZICANSU = False
  14.     Image3(13).Picture = LoadPicture("")
  15.     Image4(13).Picture = LoadPicture("")
  16.     For i = 0 To 34
  17.         m = m & i & ","
  18.     Next
  19.     Text3.Text = Mid(m, 1, Len(m) - 1)
  20.     For i = 0 To Image3.Count - 2
  21.         Text1(i).Text = SUIJISHU
  22.         Text2(i).Text = SUIJISHU
  23.     Next
  24.     PAIXU "Text1"
  25.     PAIXU "Text2"
  26.     Timer1.Interval = 10
  27. End Sub

  29. '文本框1
  30. Private Sub Text1_Change(Index As Integer)
  31.     If Text1(Index).Text <> "" Then
  32.         Image3(Index).Picture = ImageList1.ListImages(Val(Text1(Index).Text)).Picture
  33.     Else
  34.         Image3(Index).Picture = LoadPicture("")
  35.     End If
  36. End Sub
  37. '文本框2
  38. Private Sub Text2_Change(Index As Integer)
  39.     Dim i%, j%, k%, t%, b As Boolean, m%, m1$, m2$, n%, g%, TTEEXXTT As String, MM$, tt%
  40.     Dim A() As Integer, A34() As String, JA(13) As Integer, c() As Integer, BM1() As String, BM2() As String, BCF() As String, GDS() As Integer, SULIANG() As Integer
  41.     ReDim A(13)
  42.         If Text2(Index).Text <> "" Then
  43.             Image4(Index).Picture = ImageList1.ListImages(Val(Text2(Index).Text)).Picture
  44.             If Index = 13 Then
  45.                 DoEvents
  46.                 Sleep (266)
  47.                 For i = 0 To Text2.Count - 1
  48.                     A(i) = Val(Text2(i).Text)
  49.                     If A(i) < 28 Then
  50.                         A(i) = Int(A(i) / 9.001) * 100 + A(i)
  51.                     Else
  52.                         A(i) = Int(A(i) / 9.001) * 100 + A(i) * 6
  53.                     End If
  54.                 Next i
  55.                 HUPAI A, b
  56.                 If b Then
  57.                     Label4.Caption = "开"
  58.                     bArr = LoadResData(137, "CUSTOM")
  59.                     sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  60.                     DoEvents
  61.                     Sleep (1200)
  62.                     Exit Sub
  63.                 End If
  64.                 If Text6.Text = "听牌" Then
  65.                     CHUANGJIAN Val(Text2(13).Text)
  66.                     Text2(13).Text = ""
  67.                 End If
  68.                 If Len(Text3.Text) < 3 Then Exit Sub
  69.                 If Text6.Text <> "听牌" Then
  70.                     A34 = Split(Text3.Text, ",") '调用胡牌函数，找出所有能胡的牌，再在已经打掉的牌中查找剩余最多的，然后听牌
  71.                     For i = 0 To 13
  72.                         If A(i) <> t Then
  73.                             t = A(i)
  74.                             For j = 1 To UBound(A34)
  75.                                 m = Val(A34(j))
  76.                                 If m < 28 Then
  77.                                     m = Int(m / 9.001) * 100 + m
  78.                                 Else
  79.                                     m = Int(m / 9.001) * 100 + m * 6
  80.                                 End If
  81.                                 For g = 0 To 13
  82.                                     JA(g) = A(g)
  83.                                 Next
  84.                                 JA(i) = m
  85.                                 HUPAI JA, b
  86.                                 If b Then
  87.                                     m1 = m1 & "," & i
  88.                                     m2 = m2 & "," & j
  89.                                     b = False
  90.                                 End If
  91.                             Next j
  92.                         End If
  93.                     Next i
  94.                     
  95.                     If m1 <> "" Then
  96.                            
  97.                             BM1 = Split(0 & m1, ",")
  98.                             BM2 = Split(0 & m2, ",")
  99.                            
  100.                             For i = 1 To UBound(BM1) '提取不重复
  101.                                 If BM1(i) <> MM Then
  102.                                    tt = tt + 1
  103.                                    ReDim Preserve BCF(tt)
  104.                                    BCF(tt) = BM1(i)
  105.                                    MM = BM1(i)
  106.                                 End If
  107.                             Next i
  108.                            
  109.                             ReDim GDS(UBound(BM2))
  110.                             For i = 1 To UBound(BM2) '获得剩余牌的数量
  111.                                 GDS(i) = 4 - GeSu(A34(BM2(1)))
  112.                             Next i
  113.                            
  114.                             ReDim SULIANG(UBound(BCF))
  115.                             For i = 1 To UBound(BCF) '相同的合计
  116.                                 For j = 1 To UBound(BM1)
  117.                                     If BCF(i) = BM1(j) Then SULIANG(i) = GDS(j)
  118.                                 Next j
  119.                             Next i
  120.                            
  121.                             For i = 2 To UBound(BCF)
  122.                                 If SULIANG(i - 1) > SULIANG(i) Then
  123.                                     SULIANG(i) = SULIANG(i - 1)
  124.                                     BCF(i) = BCF(i - 1)
  125.                                 End If
  126.                             Next i
  127.                             'MsgBox A(BCF(UBound(BCF)))
  128.                            
  129.                             If SULIANG(UBound(SULIANG)) > 1 Then
  130.                                 For i = 0 To 13
  131.                                     m = Text2(i).Text
  132.                                     If m < 28 Then
  133.                                         m = Int(m / 9.001) * 100 + m
  134.                                     Else
  135.                                         m = Int(m / 9.001) * 100 + m * 6
  136.                                     End If
  137.                                     If m = A(BCF(UBound(BCF))) Then
  138.                                         CHUANGJIAN Val(Text2(i).Text)
  139.                                         Text2(i).Text = Text2(13).Text
  140.                                         Text2(13).Text = ""
  141.                                         Text6.Text = "听牌"
  142.                                         PAIXU "Text2"
  143.                                         bArr = LoadResData(136, "CUSTOM")
  144.                                         sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  145.                                         DoEvents
  146.                                         Sleep (1200)
  147.                                         Exit For
  148.                                     End If
  149.                                 Next i
  150.                                 'Exit Sub代''''''码待补充
  151.                             End If
  152.                         Else
  153.                         '调用筛选函数，得到一个数组，打出最不好的一张
  154.                         ReDim c(0)
  155.                         SAIXUAN A, c, 3, 3
  156.                         ZAOZUIBUHAODEPAI c, n
  157.                         For i = 0 To Text2.Count - 1
  158.                             m = Val(Text2(i).Text)
  159.                             If m < 28 Then
  160.                                 m = Int(m / 9.001) * 100 + m
  161.                             Else
  162.                                 m = Int(m / 9.001) * 100 + m * 6
  163.                             End If
  164.                             If m = n Then
  165.                                 CHUANGJIAN Val(Val(Text2(i).Text)) '创建
  166.                                 Text2(i).Text = Text2(13).Text
  167.                                 Text2(13).Text = ""
  168.                                 PAIXU "Text2"
  169.                                 Exit For
  170.                             End If
  171.                         Next i
  172.                     End If
  173.                 End If
  174.             End If
  175.         Else
  176.             Image4(Index).Picture = LoadPicture("")
  177.         End If
  178.         Timer1.Interval = 1
  179. End Sub
  180. '文本框4
  181. Private Sub Text4_Change()
  182.     If Text4.Text = "5623" Then
  183.         Text5.Text = Val(Text5.Text) + 500
  184.         Text4.Text = 1111
  185.     End If
  186. End Sub
  187. '时钟
  188. Private Sub Timer1_Timer()
  189.     Static t As Boolean
  190.     If Timer1.Interval = 10 Then Timer1.Interval = 1: t = False
  191.     DoEvents
  192.     If Command3.Visible = False Then Command3.Visible = True
  193.     Command3.Top = Command3.Top + 1000 * (IIf(t, -1, 1))
  194.     If Command3.Top > 7270 Or Command3.Top < 530 Then
  195.         bArr = LoadResData(135, "CUSTOM")
  196.         sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  197.         Timer1.Interval = 0
  198.         Command3.Visible = False
  199.         Command3.Top = 3720
  200.         If t Then
  201.             t = False
  202.             If Len(Text3.Text) > 2 Then Text2(13).Text = SUIJISHU Else MsgBox "没牌了": Label4.Caption = "开": Exit Sub
  203.             'Timer2.Interval = 1
  204.         Else
  205.             t = True
  206.             If Len(Text3.Text) > 2 Then Text1(13).Text = SUIJISHU Else MsgBox "没牌了": Label4.Caption = "开": Exit Sub
  207.         End If
  208.     End If
  209. End Sub
10楼
HHAAMM

  2. ''''''随机数
  3. Public Function SUIJISHU() As Integer
  4.     Dim A() As String, i As Integer, d As Integer, m$, n$
  5.     A = Split(Text3.Text, ",")
  6.     Randomize
  7.     i = Int(Rnd() * UBound(A)) + 1
  8.     d = Val(A(i))
  9.     GeSu(d) = GeSu(d) + 1
  10.     If GeSu(d) = 4 Then
  11.         m = d & ","
  12.         n = Text3.Text & ","
  13.         n = Replace(n, m, "", 1, 1, vbBinaryCompare)
  14.         Text3.Text = Mid(n, 1, Len(n) - 1)
  15.     End If
  16.     SUIJISHU = d
  17. End Function
  18. ''''''排序
  19. Public Function PAIXU(r As String)
  20.     Dim i As Integer, j As Integer, n As String
  21.     Dim A(13)
  22.     For i = 1 To 13
  23.         For j = 1 To 13 - i
  24.             If Val(Controls(r)(j - 1).Text) > Val(Controls(r)(j).Text) Then
  25.                 n = Controls(r)(j - 1).Text
  26.                 Controls(r)(j - 1).Text = Controls(r)(j).Text
  27.                 Controls(r)(j).Text = n
  28.             End If
  29.         Next j
  30.     Next i
  31. End Function
  32. ''''''创建
  33. Public Function CHUANGJIAN(n As Integer)
  34.     Dim i As Integer, lngIndex As Long
  35.     lngIndex = Image5.UBound + 1
  36.     Load Image5(lngIndex)
  37.         With Image5(lngIndex)
  38.             .Stretch = True
  39.             .ZOrder 0
  40.             .Width = 375
  41.             .Top = Text5.Text
  42.             .Left = Text4.Text
  43.             .Visible = True
  44.             .Picture = ImageList1.ListImages(n).Picture
  45.         End With
  46.         bArr = LoadResData(100 + n, "CUSTOM")
  47.         sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  48.         DoEvents
  49.         Sleep (600)
  50.         Text4.Text = Val(Text4.Text) + 376
  51.         'Timer2.Interval = 1
  52. End Function

  54. ''''''胡牌
  55. Public Function HUPAI(L() As Integer, A As Boolean)
  56.         Dim i%, j%, k%, m%, t%
  57.         Dim RL(13) As Integer, c(3) As Integer
  58.         
  59.         For i = 1 To 13
  60.             For j = 1 To 14 - i
  61.                 If L(j - 1) > L(j) Then
  62.                     t = L(j - 1)
  63.                     L(j - 1) = L(j)
  64.                     L(j) = t
  65.                 End If
  66.             Next j
  67.         Next i
  68.         
  69.         For i = 0 To 13 Step 2
  70.             If L(i) = L(i + 1) Then c(0) = c(0) + 1
  71.         Next i
  72.         If c(0) = 7 Then A = True: Exit Function
  73.         
  74.         For i = 0 To 12
  75.             If c(2) <> L(i) Then
  76.                 If L(i) = L(i + 1) Then
  77.                     c(2) = L(i)
  78.                     For j = 0 To 13
  79.                         RL(j) = L(j)
  80.                     Next j
  81.                     RL(i) = 0: RL(i + 1) = 0
  82.                     
  83.                     For j = 0 To 11
  84.                         If RL(j) Then
  85.                             c(0) = j: c(1) = 0: m = RL(j)
  86.                             For k = j + 1 To 13
  87.                                 If RL(k) - m = 1 Then
  88.                                     If c(1) > 0 Then
  89.                                         RL(c(0)) = 0: RL(c(1)) = 0: RL(k) = 0
  90.                                         Exit For
  91.                                     End If
  92.                                     c(1) = k
  93.                                     m = RL(k)
  94.                                 ElseIf RL(k) - m > 1 Then
  95.                                      Exit For
  96.                                 End If
  97.                             Next k
  98.                         End If
  99.                     Next j
  100.                     
  101.                     For j = 0 To 11
  102.                         If RL(j) Then
  103.                             c(0) = j: c(1) = 0
  104.                             For k = j + 1 To 13
  105.                                 If RL(k) = RL(j) Then
  106.                                     If c(1) > 0 Then
  107.                                         RL(c(0)) = 0: RL(c(1)) = 0: RL(k) = 0
  108.                                         Exit For
  109.                                     End If
  110.                                     c(1) = k
  111.                                 ElseIf RL(k) - RL(j) > 1 Then
  112.                                      Exit For
  113.                                 End If
  114.                             Next k
  115.                         End If
  116.                     Next j
  117.                     '待补充。不完整，特定牌型找不到，应该反过来再运行一次
  118.                     k = 0
  119.                     For j = 0 To 13
  120.                        If RL(j) Then k = k + 1
  121.                     Next j
  122.                     If k = 0 Then A = True: Exit Function
  123.                     k = 0
  124.                 End If
  125.             End If
  126.         Next i
  127. End Function

  129. '找牌出

  131. Public Function SAIXUAN(A() As Integer, c() As Integer, tj1 As Integer, tj2 As Integer)
  132.     Dim i%, j%, k%, t%, n%, m%
  133.     Dim JA() As Integer, b() As Integer
  134.     If tj2 = -1 Then Exit Function
  135.     If UBound(c) = 0 Then
  136.         ReDim JA(0)
  137.         For i = 0 To UBound(A) - 1
  138.             t = 0
  139.             If A(i) Then
  140.                 n = A(i)
  141.                 ReDim b(t)
  142.                 b(t) = i
  143.                 For j = i + 1 To UBound(A)
  144.                     If A(j) Then
  145.                         If A(j) - n < tj1 And A(j) - n <> tj2 Then
  146.                             n = A(j)
  147.                             t = t + 1
  148.                             ReDim Preserve b(t)
  149.                             b(t) = j
  150.                         ElseIf A(j) - n > tj1 - 1 Then
  151.                             Exit For
  152.                         End If
  153.                     End If
  154.                 Next j
  155.             End If
  156.             If t > 1 Then
  157.                 For k = 0 To t
  158.                     ReDim Preserve JA(UBound(JA) + m)
  159.                     JA(UBound(JA)) = A(b(k))
  160.                     A(b(k)) = 0
  161.                     m = 1
  162.                 Next k
  163.             End If
  164.         Next i
  165.         m = 0
  166.         For i = 0 To UBound(A)
  167.             If A(i) > 0 Then
  168.                 m = m + 1
  169.                 ReDim Preserve c(m)
  170.                 c(m) = A(i)
  171.             End If
  172.         Next i
  173.         tj2 = tj2 - 1
  174.         If tj2 = 1 Then tj2 = 0
  175.         SAIXUAN JA, c, 2, tj2
  176.     End If
  177. End Function

  179. Public Function ZAOZUIBUHAODEPAI(L() As Integer, A As Integer)
  180.     Dim i%, j%, t%, k%, n%
  181.     Dim RL() As Integer, g() As Integer
  182.     ReDim RL(0)
  183.     ReDim g(UBound(L()))
  184.     For i = 2 To UBound(L())
  185.         If L(i) - L(i - 1) < 2 Then g(i) = 1: g(i - 1) = 1
  186.     Next i
  187.     For i = 1 To UBound(L())
  188.         If g(i) = 0 Then g(i) = 20
  189.     Next i
  190.     For i = 1 To UBound(L)
  191.         n = L(i)
  192.         If n = 1 Or n = 9 Or n = 110 Or n = 118 Or n = 219 Or n = 227 Then
  193.             k = t
  194.             t = t + 10 * g(i)
  195.             ReDim Preserve RL(t)
  196.             For j = 1 To 10 * g(i)
  197.                 RL(k + j) = n
  198.             Next j
  199.         ElseIf n > 227 Then
  200.             k = t
  201.             t = t + 20 * g(i)
  202.             ReDim Preserve RL(t)
  203.             For j = 1 To 20 * g(i)
  204.                 RL(k + j) = n
  205.             Next j
  206.         Else
  207.             k = t
  208.             t = t + 1 * g(i)
  209.             ReDim Preserve RL(t)
  210.             For j = 1 To 1 * g(i)
  211.                 RL(k + j) = n
  212.             Next j
  213.         End If
  214.     Next i
  215.     Randomize
  216.     A = RL(Int(Rnd() * UBound(RL)) + 1)
  217. End Function

  219. '窗体移动
  220. Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  221.     CTYD = True
  222. End Sub

  224. Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  225.     If CTYD Then
  226.         Text8.Text = Val(Text8.Text) + X
  227.         Text9.Text = Val(Text9.Text) + Y
  228.     End If
  229. End Sub

  231. Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  232.     CTYD = False
  233. End Sub

  235. Private Sub Text8_Change()
  236.     Form1.Left = Text8.Text
  237. End Sub

  239. Private Sub Text9_Change()
  240.     Form1.Top = Text9.Text
  241. End Sub

  243. Private Sub Label6_Click()
  244.     Me.WindowState = 1
  245. End Sub

  247. Private Sub Label7_Click()
  248.     Label7 = "已经听牌"
  249.     bArr = LoadResData(136, "CUSTOM")
  250.     sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  251. End Sub
11楼
HHAAMM		 函数名都是自己乱编的，别笑哈，俺z zh，c ch，s sh不分
12楼
myliujjj		 后面的就不懂了，慢慢学习，游戏吗有空的时候娱乐一下，谢谢版主了。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap