Anasayfa > Kodlar > Visual Basic 6 ile DLL yazmak ve kullanmak

Visual Basic 6 ile DLL yazmak ve kullanmak

Bu programda visual basic ile bir stack kullanan dll yazılmış ve başka bir program içinde bu dll kullanılmıştır.

Bunun için önce dll projesinin kodlarını veriyorum. Bu kodları yeni bir ActiveX.dll sayfası açarak ve projeye "pstack.vbp" adını verdiğiniz projenizin modülüne kopyalayın ve modülün adını "stack" olarak değiştirin.

***********************

Option Explicit
Private liste As Collection
Public Sub Main()
Set liste = New Collection
Temizle
End Sub

Public Function push(ByVal x As Variant) As Variant
liste.Add x
push = x
End Function

Public Function pop() As Variant
Dim x As Variant
x = liste(liste.Count)
liste.Remove liste.Count
pop = x
End Function

Public Sub Temizle()
Dim i As Integer
For i = 1 To liste.Count
liste.Remove liste.Count
Next
End Sub

****************************

Sonra bu dosyayı derleyerek pstack.dll dosyasını oluşturun. Şimdi sırada bunu kullanıcak olan programı yazmakta.

Yani bir proje acin ve forma bir listbox, bir textbox ve üç tane de command button ekleyin. İsinleri sırasıyla "list1", "text1", "command1", "command2" ve "command3" olsun. Daha sonra formun kod kısmına aşağıdaki kodları yapıştırın.

************************************

Option Explicit
Public yigin As pstack.stack
Public liste As Variant

Private Sub Command1_Click()
List1.AddItem yigin.push(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
On Error Resume Next
MsgBox yigin.pop & Chr(13) & "listeden atıldı."
List1.RemoveItem (List1.ListCount - 1)
Text1.SetFocus
End Sub

Private Sub Command3_Click()
yigin.Temizle
List1.Clear
Text1.SetFocus
End Sub

Private Sub Form_Load()
Set yigin = New pstack.stack
yigin.Main
End Sub

************************************

Son olarak yapmanız gereken "Project->References" dan browse'a basarak pstack.dll dosyamızı bulmak ve onaylamaktır. Program çalıştırıldığında stack işlemleri dll dosyası üzerinde gerçekleşecektir.


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: