dtpicker yardım lütfen

13/11/2015, 05:52

cobra65

arkadaşlar merhabalar, şöyle bir sorunum var:
vb6'da 3 adet dtpicker'im yani tarihim, bir de listbox'ım var, 3. girilen tarihin; 1. ve 2. girilen tarihler arasındaki günlerden birine eşit olması halinde listbox'a atmamasını, eşit değilse atmasını istiyorum. yardımcı olurmusunuz, şimdiden teşekkür ediyorum.
22/02/2017, 16:28

kadirba72

Merhabalar, text3 e girilen tarihi list1 de arat varsa ve yoksa İF THEN komutları ile istediğin şekilde kodu yap. Sana text e yazıp listte aramat kodu verecem devamı sen getir.

Kod:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = text1.Text Then
MsgBox " your item has been founded" & i, vbInformation + vbOKOnly, "founded"
Exit Sub
End If
Next i
MsgBox " Not founded", vbExclamation + vbOKOnly, "not founded"
End Sub
19/05/2020, 19:23

A.Kadir.

Private Sub Komut14_Click()
Dim tr1, tr2, tr3 As Date

tr1 = Me.Metin0.Value
tr2 = Me.Metin2.Value
tr3 = Me.Metin4.Value

If tr3 > tr1 And tr3 < tr2 Then
MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK"
'Şart msağlandığında yapılacak işlemler
Me.Liste12.AddItem (tr3)
Else
MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK ŞARTI SAĞLANMIYOR"
'Şart sağlanmadığında yapılacak işlemler.
End If
End Sub

konu eski fakat ilave etmek istedim.