پخش رندم فايل صوتي در vb6

آقا اكبر دستت درد نكنه :40:واقعا خسته نباشي كارت عالي بود موفق باشي:11:
فقط من اگه بخوام كاري كنم كه اگه تصوير اشتباه كليك شدو اون پيغام كه ميگه اشتباه كردي هم نمايش داده شد . اگه نخوام تصوير حذف بشه بايد كجاي كد را دستكاري كنم به عبارتي اگه تصوير اشتباه كليك شد حذف نشه بلكه در چرخه رندوم قرار بگيره

نقل قول:

---

نوشته شده توسط abo1524 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آقا اكبر دستت درد نكنه :40:واقعا خسته نباشي كارت عالي بود موفق باشي:11:
فقط من اگه بخوام كاري كنم كه اگه تصوير اشتباه كليك شدو اون پيغام كه ميگه اشتباه كردي هم نمايش داده شد . اگه نخوام تصوير حذف بشه بايد كجاي كد را دستكاري كنم به عبارتي اگه تصوير اشتباه كليك شد حذف نشه بلكه در چرخه رندوم قرار بگيره

---

کد های درون رویداد Click کنترل Imgae رو پاک کن و کد های زیرو جایگزین کن :

کد:

---

Private Sub Image1_Click(Index As Integer)Timer2.Enabled = False
Dim mototemp As Integer
mototemp = Index + 1
If mototemp = NUMPLAY Then
  PLAYFILESOUND.Open "OK.wav": Timer2.Enabled = False
  Image1(NUMRND1 - 1).Visible = False
Else
  MsgBox "  ÊÕæíÑ ÏÑÓÊ Ñæ ÇäÊÎÇÈ ä˜ÑÏíí  "
  Select Case NUMRND1
  Case 1
      PID1 = False
  Case 2
      PID2 = False
  Case 3
      PID3 = False
  Case 4
      PID4 = False
  End Select
End If
Timer1.Enabled = True


End Sub

---

:11::40::11::11: