+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: dtpicker yardım lütfen (/konu-dtpicker-yardim-lutfen.html)
dtpicker yardım lütfen - cobra65 - 13/11/2015
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.
Cvp: dtpicker yardım lütfen - kadirba72 - 22/02/2017
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 SubRe: Dtpicker Yardım Lütfen - A.Kadir. - 19/05/2020
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.