Arama sonuçlarınız

Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(Char) If KeyAscii = 13 Then If Text1.Text = "özlem esra" Then MsgBox ("şifreyi giriniz") Else MsgBox ("yanlış/ad soyad") Form1.Show Form2.Hide End...

Asp.net ile ilgili basit bir program yapmam gerekio. Bana yardım edebilecek biri var mı??Sımdıden tesekkurler... :saskin

Private Sub Command1_Click() a = 0 For i = 0 To List1.ListCount - 1 If List1.Selected(i - a) Then List2.AddItem List1.List(i - a) List1.RemoveItem i a = a + 1 End If Next End Sub Private Sub Command2_Click() a = 0 For i = 0 To List2.ListCount - 1 If List2.Selected(i - a) Then List1.AddItem...