command butonununun yarısına tıklandıgında bir işlem diğer yarısına tıklandıgında...

[m_senturk]

command butonunun % 50 den sonrasına tıklandıgında bir işlem % 50 den öncesine tıklandıgında bir işlem yapmasını istiyorum. yani bir buton iki butonun yaptıgı işi yapcak. bir türlü yapamadım 3 günden beri uğraşıyom yardımcı olursanız sevinirim.. şimdiden teşekkürler..

[vbtarık]

command butonunun % 50 den sonrasına tıklandıgında bir işlem % 50 den öncesine tıklandıgında bir işlem yapmasını istiyorum.

bu vb de olanaksız br şey (yani button olaylarında böyle bir şey yok)

ama 2 button kullanımı ile yapabilirsin...

bir diğer yöntem ise , buttonun yarısını ve diğer yarısını resim olarak kaydet ; basınca filan normal button gibi davransın (mousedown olayı diye bişey var) , böylece yarısına tıklanınca yarısını , diğer yarısına tıklayınca öbür yarısını tamamlar , bu arada 1 işi 2 buttonla nasıl yaparım diyorsan , değişken tut elinde...

örneğin 1. butonddan sonra 2. butona tıklayınca forum kapanmasını istiyorsun (varsayalım)

dim i as integer

button1_click()
i=50

button2_click()
i= val(i+50)
if i = 100 then end

bunun gibi...

[nbakolik]

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If X < Command1.Width / 2 Then
MsgBox "sol taraf tıklandı"
Else
MsgBox "sağ taraf tıklandı"
End If
End If
End Sub
------------------------
buton olaylarında böyle bir şey olmaması yapılamıyacağı manasına gelmezki
bu şekilde çalışıyor denedim sol ve sağ yarı şeklinde
eğer üst alt yarı şeklinde çalışmasını istiyorsan x yazan yerlere y yazarsın Width yazan yerede Height yazdığında o şekilde çalışır
yazacağın kodlarıda msgboxların yerlerine yaz olay bitti

kolay gelsin

[vbtarık]

nbakolik, mesajından alıntı:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If X < Command1.Width / 2 Then
MsgBox "sol taraf tıklandı"
Else
MsgBox "sağ taraf tıklandı"
End If
End If
End Sub
------------------------
buton olaylarında böyle bir şey olmaması yapılamıyacağı manasına gelmezki
bu şekilde çalışıyor denedim sol ve sağ yarı şeklinde
eğer üst alt yarı şeklinde çalışmasını istiyorsan x yazan yerlere y yazarsın Width yazan yerede Height yazdığında o şekilde çalışır
yazacağın kodlarıda msgboxların yerlerine yaz olay bitti

kolay gelsin

gelmez ki aklıma , vb i unuttuk gitti walla

[Sabahi]

@nbakolik
Command1_MouseDown yerine Command1_MouseUP eventi daha uygun olur yanilmiyorsam.

[nbakolik]

tabiki olabilir, kulanıma görede değişir
kodu yazarken mouse_down kullanmışım nedense bilmiyorum.
mouseup; clik olayının karşılığı gibi olabilir
ama onunda sakıncaları var, biraz koruma koymak gerekiyor...
butona tıklayıp mouse basılı iken buton genişliğinin dışına doğru sürüklenip bırakılsa bile yazdığımız kodlar çalışacaktır. buda pek istenmeyen bir durum olsa gerek. onuda çözüme kavuşturacak kodu veriyorum...

 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And X > 0 And Y > 0 And X < Command1.Width And Y < Command1.Height Then
If X < Command1.Width / 2 Then
MsgBox "sol taraf tıklandı"
Else
MsgBox "sağ taraf tıklandı"
End If
End If
End Sub

önerin için teşekkürler

[Sabahi]

Bir oneri daha
Diyelimki sag tarafa tikladik ve fareyi sol tarafa surukleyip sonra parmagimizi kaldirdik. Button'un sag tarafina mi tiklamis olduk sol tarafina mi?

[Revne]

Dim Konum as Integer

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Konum=X
End Sub

Private Sub Command1_Click()
  If x>Konum/2 then
    'Sag Taraf
  Elseif x>Konum/2 then 
    'Sol  Taraf
  End if
End Sub

[nbakolik]

mouse u bıraktığımız yer asıl tıkladığımız yer kabul ediliyor standart bir buton tarafından
o yüzden en son bıraktığımız yer kabul edilmesi gerekir sanırım

[ali çetin]

ben yeni başladım pek bilgim yok ama formun üzerine iki butonu bir birinin üzerini yarı yarı ya kapata cak şekilde koydum ve çalıştırdığımda buton ortadan ikiye kesik bir butonmuş gibi göründü ve çalışıyor