View Full Version : سوال: استفاده از beep هنگام حرکت لیبل
mahdiabi
چهارشنبه 09 اردیبهشت 1394, 19:05 عصر
سلام
دوستان میخوام یه لیبل یا picture box رو فرم بزارم و از سمت راست به چپ حرکت کنه و هنگام حرکت با استفاده از api ی beep بوق هم بزنه و وقتی رسید به سمت چپ قطع شه... خیلی به کمک نیاز دارم . با تشکر
meys34
چهارشنبه 09 اردیبهشت 1394, 22:55 عصر
یه لیبل و یه تایمر بزارید روی فرم:
تابع Beep صداش از توی کیس در میاد...
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
Timer1.Interval = 100
Label1.BackColor = vbRed
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 30
Beep 600, 50
If Label1.Left < 0 Then Timer1.Enabled = False
End Sub
mahdiabi
پنج شنبه 10 اردیبهشت 1394, 14:28 عصر
[QUOTE=meys34;2206591]یه لیبل و یه تایمر بزارید روی فرم:
تابع Beep صداش از توی کیس در میاد...
خیلی ممنون دقیقا چیزی شد که میخواستم ... با تشکر فراوان
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.