kodun doğru olduğuna emin misin zira "select case" "end select"le biter ve sen case 1 i direk "end select" le bitirmiş sin "end" bile

İlgin için sağol 4mat, kodlarımda bir sorun yok, kodlar uzun olduğu için bu şekilde verdim. Yani tek sıkıntı command1_click'te çalışan timer içindeki kod, command1_mousedown'da hata veriyor. Hatayı timer içindeki kodda alıyorum.command1_mousedown satırı uyarı veriyor. Command1_clickte sorun yaşamıyorum. Ama ben tam anlaşılması için command1 içindeki ve timer içindeki kodları veriyorum. Önce click ile çalışan buton ve timer kodu; Private Sub Command1_Click Text2. Text = Text2. Text + 1 If Text2. Text = 1 Then Command1. BackColor = vbRed If Text2. Text = 1 Then txtWritePort = 1 If Text2. Text = 2 Then Command1. BackColor = vbWhite If Text2. Text = 2 Then txtWritePort = 17 If Text2. Text = 2 Then Text2. Text = 0 End Sub Private Sub Timer1_Timer If Time = MSHFlexGrid1. TextMatrix(1, 2) Then Command1_Click If Time = MSHFlexGrid1. TextMatrix(1, 3) Then Command1_Click end sub Buda hata aldığım kod (Mousedown kullanmak istediğimde timer içindeki command1mousedown hata veriyor) ; Private Sub Command1_mousedown Select Case Button Case 1 Text2. Text = Text2. Text + 1 If Text2. Text = 1 Then Command1. BackColor = vbRed If Text2. Text = 1 Then txtWritePort = 1 If Text2. Text = 2 Then Command1. BackColor = vbWhite If Text2. Text = 2 Then txtWritePort = 17 If Text2. Text = 2 Then Text2. Text = 0 End Select End Sub Private Sub Timer1_Timer If Time = MSHFlexGrid1. TextMatrix(1, 2) Then Command1_Mousedown If Time = MSHFlexGrid1. TextMatrix(1, 3) Then Command1_Mousedown end sub Yani kısaca case1 içindeki kodu ben timerla butona basılıyormuş gibi nasıl çalıştırabilirim. Clickte çalışıyor ama mousedownda sıkıntı oldu. 2 gündür bir sonuca ulaşamadım

timer1 deki koşul gerçekleşmesi durumundaki satırı "Call Command1_Mousedown(1,0,0,0)" olarak değiştirirsen program

Merhaba Forum, command1 butonuna bir timer ile istediğim zamanda tıklayabiliyorum, timer kodu şöyle: If Time = MSHFlexGrid1. TextMatrix(1, 2) Then Command1_Click If Now = MSHFlexGrid1. TextMatrix(1, 3) Then Command1_Click MDB dosyasından zamanı alıp değerlendirebiliyorum. Buraya kadar sorun yok, ancak şu olayı kullanmak istediğimde; Private Sub Command1_mousedown Select Case Button Case 1 end select Case2 end select end sub ve, timer içine : If Time = MSHFlexGrid1. TextMatrix(1, 2) Then Command1_mousedown If Now = MSHFlexGrid1. TextMatrix(1, 3) Then Command1_mousedown yazdığımda kod derlenmiyor, case1'i nasıl çalıştırabilirim. Araştırmadığım kaynak kalmadı, baya denemeler yaptım buraya yazsam sayfalar alır, varmı yardımcı olacak bir vbasic üstadı.