VB6 ile programınıza name ve serial

Konu çok basittir fakat kişisel kullanımlarda işe yarar.Örneğin yazdığınız virüs yapıcı programınızı kardeşinizden korumak gibi...
2 adet label
2 adet command button
2 adet text box
ve formumuzu projenin asıl formu yapmak gerisi kodlarda gizli

Public Sub Command1_Click()
If Text1.Text = "THT" AND text2.Text = "THT" Then MsgBox "DOĞRU !" Else MsgBox "YANLIŞ !"

End Sub

Public Sub Command2_Click() 'Temizle butonu
Text1.Text = ""
Text2.Text = ""
End Sub

msgbox yerine 1.formu gizleyen 2. formu gösteren kodlar yazılıcaktır.Ben if-else döngüsünü göstermek amacıyla böyle yaptım.
-----------
ekleme1;

Private Sub Command1_Click()
If Text1.Text = "THT" And Text2.Text = "THT" Then Form2.Show Else MsgBox "YANLIŞ"
End Sub

Public Sub Command2_Click() 'Temizle butonu
Text1.Text = ""
Text2.Text = ""
End Sub

sağolasın

xxdolunaymaxx' Alıntı:

sağolasın

Genişletmek için tıkla ...

By AYhan' Alıntı:

Sanırsam Böyle Basit Şeyleri Herkez Biliyor
Ama Yinede Sağol.

Genişletmek için tıkla ...

Eyvallah.Sizde sağ olun.Üyeliğimden beri yardım merkezinde ki bütün konuları inceliyorum.Evet bize basit,ancak her yeni kayıt olan kardeşimiz böyle şeyleri soruyor.bende bu sebeple konu açtım.tabi eklemelerim olacaktır.