با چه دستوري تو تايمر بگيم كه هر 2 دقيقه command1 كليك بشه .

[a_m_i_n_000]

با چه دستوري تو تايمر بگيم كه هر 2 دقيقه command1 كليك بشه .

[parselearn]

Dim ins As Integer

Private Sub cmdStart_Click()
Timer1.Enabled = True
End Sub

Private Sub Command1_Click()
'COMMAND
End Sub

Private Sub Form_Load()
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
ins = ins + 1
If ins = 2 Then
MsgBox "2 Minuts"
ins = 0
Command1_Click
End If
End Sub

[hamid_sos]

Private Sub Form_Load()
Timer1.Interval = 60000
End Sub


Private Sub Timer1_Timer()
Command1_Click
End Sub

[alifa135]

تو properties تايمر مقدار Interval مساوي 2000 قرار بده . بعد تو قسمت كد تايمر كد زير رو تايپ كن !



Timer1_timer()
call command1_click()

[a_mohammadi_m]

با سلام
كد اول بهتره
البته با دوتا تايمر هم ميشه نوشت

[a_mohammadi_m]

كد دوم دو ثانيه فرض كرده نه دو دقيقه

[nader.golab]

عزیزم Interval تایمرو مساوی 120000 قرار بده بعد در داخل رویداد Timer این رو قرار بده command1 _Click

سپس بعد از 2 دقیقه یک بار کلید باتونت کیلیک می شه.

[nader.golab]

هر 1000 در Interval مساوی 1 ثانیه است
یک دقیقه=1000*1*60
دودقیقه=1000*2*60

[miniator]

فكر نكنم تايمر خود وي بي بيشتر از 60000 (1دقيقه) قبول كنه !

من يه كاموننت دارم . فكر كنم كارتون رو راحت ميكنه .

اين تايمر داراي اينتروال ثانيه - دقيقه و ساعت هست ! بدون محدوديت !

فقط كافيه MinuteInterval رو برابر 2 بزاري !

بعدش تو بنويس call command1_click

موفق باشيد ! :کف:

[vbhamed]

سلام

در مورد زمان بندي كه دوستان راهنمايي كردن
در مورد كليك دكمه از دستور زير هم مي توني استفاده كني


Command1.Value = True

دستور بالا مخصوصا در مواردي كه دكمه ها ايندكسي هستند مفيد هست


Dim i%
For i = 1 To 10
cmd(i).Value = True
Next

[mahak006]

عزیزم Interval تایمرو مساوی 120000 قرار بده بعد در داخل رویداد Timer این رو قرار بده command1 _Click

سپس بعد از 2 دقیقه یک بار کلید باتونت کیلیک می شه.

فكر نكنم تايمر خود وي بي بيشتر از 60000 (1دقيقه) قبول كنه!
در VB ، یک زمان سنج ( Timer ) در خاصیت Interval میتواند مقادیر 1 تا 65535 را کسب نماید .
Interval اگر برابر 0 باشد ، هیچ کاری انجام نمیگیرد .