Aralık
11th 2007
Posted under Visual Basic
Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean)
zipIT = App.Path & “winzip32 -a”
unzipIT = App.Path & “winzip32 -e “
Aralık
11th 2007
Posted under Visual Basic
Aemail.dll ile kolaylıkla mail gönderebiliriz. Öncelikle mail yollayabilmemiz için bilgisayarımızda bir e-mail servera yada pop desteği veren bir e-maila sahip olmamız gerekmektedir. (Bunun için ücretsiz olarak www.hotpop.com adresinden mail adresi alabilirsiniz).
Fazla uzatmadan gerekli componentler: 11 tane textbox , checkbox(check1), Durum (label) ,buton (command1) ve text başlıkları için label lar.
Public HTA As AEMAILLib.SmtpMail ‘mail için
Aralık
11th 2007
Posted under Visual Basic
Hepimiz, güzel görünümlü butonlar yapmaktan hoşlanıyoruzdur…
Fakat ben gibi image kullanarak buton yapanlar bilirlerki tıklama efekti image kullanınca oluşmuyor…
Ancak formunuza ilki butonun kendisi, ikincisi tıklanmış hâli, üçüncüsü de butonun normal
hâli olacak biçimde 3 tane image ekleyip aşağıdaki kodları kullanırsanız
image butonunuza tıklama efekti verebilirsiniz.
Private Sub Form_Load ()
image1.picture = image3.picture
image2.visible = False
image3.visible = false
End Sub
Continue Reading »