Vb ile ActiveX Bileşen Oluşturma-7: superText #4

Önceki bölümde kaldığımız yerden devam ediyoruz. superText ActiveX kontrolüne yeni özellikler ekleyeceğiz.

• Önceki bölümdeki proje dosyasını açın. Eğer proje dosyaları yoksa önceki bölümdeki dosyayı indirebilirsiniz.

En son About (Hakkında) özelliği eklemiştik ancak açılan hakkında iletişim kutusunun başlığında Project1 yazıyordu. Başlığı değiştirelim.

• Hakkinda prosedürünü aşağıdaki kodlar ile değiştirin.

Sub Hakkinda()
    MsgBox "superText ActiveX Kontrol" & vbCrLf & "©2020 Mesut Akcan" & vbCrLf & _
        "Bu kontrol TextBox kontrolüne yeni kullanışlı özellikler eklenerek geliştirilmiştir.", , _
        "superText Hakkında"
End Sub

Bu kodları biraz geliştirelim.

• Kontrol adını superText diye yazmak yerine UserControl.Name kullanalım.

Bunun faydası kontrol adını değiştirdiğimizde Hakkinda prosedüründe değişikliğe gerek olmaması.

Sub Hakkinda()
    MsgBox UserControl.Name & " ActiveX Kontrol" & vbCrLf & "©2020 Mesut Akcan" & vbCrLf & _
        "Bu kontrol TextBox kontrolüne yeni kullanışlı özellikler eklenerek geliştirilmiştir.", , _
        UserControl.Name & " Hakkında"
End Sub

Kodları biraz daha geliştirelim ama önce yapmamız gereken ayarlar var.

• Project Group penceresinde SuperTextKontrol üzerinde sağ tıkla / SuperTextKontrol Properties... tıkla.
• Açılan pencerede Make tabında Auto Increment işaretli olsun. Bu seçenek her derleme işleminde sürüm numarasını otomatik olarak arttırır.
• Title: superText ActiveX Kontrol
• Comments: Bu kontrol TextBox kontrolüne yeni kullanışlı özellikler eklenerek geliştirilmiştir.
• Company Name: akcanSoft
  olarak girin.Tamam tıklayın.

• Hakkinda prosedürünü aşağıdaki kodlar ile değiştirin.

Sub Hakkinda()
    MsgBox App.Title & " v" & App.Major & "." & App.Minor & "." & App.Revision & _
        vbCrLf & "©" & Year(Now) & " " & App.CompanyName & vbCrLf & vbCrLf & _
        App.Comments, , UserControl.Name & " Hakkında"
End Sub

Böylece kod içinde bir değişiklik yapmaya gerek duymadan aynı kodu başka ActiveX projelerde de kullanabiliriz.

Şimdi daha iyi oldu değil mi?

Peki! Bu hakkında penceresi bana çok basit geldi ben bir form üzerinde daha ayrıntılı bilgiler vermek istiyorum diyor musunuz? Öyleyse bunu yapmaya çalışalım.

About Dialog (Hakkında) formu ekleme

• Project Group penceresinde SuperTextKontrol üzerinde sağ tıkla / Add / Form tıkla
  Açılan pencerede About Dialog seçip Aç tıklayın.

İsterseniz boş bir form oluşturmak için Form seçebilirsiniz. Ancak biz bu aşamada hazıra konmak için About Dialog seçtik.

SuperTextKontrol projesine frmAbout adlı bir form eklenecek.

Bu formda bir çok şey hazır durumda hatta gerekli kodlar bile var. Kod penceresini açıp kodları inceleyebilir, Form üzerinde ya da kodlarda özelleştirmeler yapabilirsin.

Form işi tamam ancak tasarlanan bu form ekranda nasıl gösterilecek. Hakkinda prosedüründe bu bu formu çağıran kodları ekleyeceğiz.

• Hakkinda prosedürünü aşağıdaki kodlar ile değiştirin.

Sub Hakkinda()
    frmAbout.Show vbModal
End Sub

• Şimdi Hakkında penceresini denemek için Test projesindeki formda bulunan superText kontrolünün özelliklerindeki About'u çift tıklayın ya da ... butonunu tıklayın.

Proje dosyaları: Vb_ile_ActiveX_Olusturma_7.rar

---

Önceki Bölüm: 6: superText #3

Sonraki Bölüm: 8: superText #5

Vb ile ActiveX Bileşen Oluşturma Ana Sayfa