Dim Krnl
Dim Comp
Dim Dsgn
Dim Edt
Set Krnl = CreateObject("NDIAPIX40.Kernel")
Set Comp = Krnl.GetCompany("NDI_SIRKET_ADI", "NETSIS_GIRIS_ADI", "NETSIS_KULLANICI_SIFRESI")
Set Dsgn = Comp.CallWinDesign("NDI_DA_HAZIRLANAN_EKRAN_KODU")
Set Edt = Dsgn.NDIComponentByName("DBNEdit1")
Dsgn.Show
Deger=Edt.Text
MsgBox Deger
Set Edt=nothing
Set Dsgn=nothing
Set Comp=nothing
Krnl.FreeNetLib
Set Krnl=nothing
Dim Comp
Dim Dsgn
Dim Edt
Set Krnl = CreateObject("NDIAPIX40.Kernel")
Set Comp = Krnl.GetCompany("NDI_SIRKET_ADI", "NETSIS_GIRIS_ADI", "NETSIS_KULLANICI_SIFRESI")
Set Dsgn = Comp.CallWinDesign("NDI_DA_HAZIRLANAN_EKRAN_KODU")
Set Edt = Dsgn.NDIComponentByName("DBNEdit1")
Dsgn.Show
Deger=Edt.Text
MsgBox Deger
Set Edt=nothing
Set Dsgn=nothing
Set Comp=nothing
Krnl.FreeNetLib
Set Krnl=nothing