Resource – Kaynak Dosyası (kaynak1.v.basic)
Birden fazla dosyayı tek bir dosya halinde birleştirek gerektiğinde gerekli dosyayı ayırma işlemidir. Dosyalar bir resource dosyası içerisinde projeye dahil edilir. Proje derlendiği zaman dosyalar artık .exe uzantılı programın içinde gömülü durmaktadır.
Add-Ins > Add-In Manager ile Resource Editor çalıştırılarak resource dosyası oluşturulabilir. Bu dosyaya resim, ikon, text, exe vb. eklenebilir.
Project > Add File ile Resource dosyasını (.RES) projeye Related ******** İçerisine eklenir.
Taşınan Dosyaları Ayırmak
Private Sub Form_Load()
Dim Dsy As String
Dsy = StrConv(LoadResData(101, "Custom"), vbUnicode) ‘ Dosya alınıyor
Open "C:\Aktarma.Doc" For Binary As #1
Put #1, , Dsy
Close #1
End Sub
Private Sub Command1_Click() ' Dosya içerisindeki resmi al
Image1.Picture = LoadResPicture(101, 0)
End Sub
Private Sub Command4_Click() ' Dosya İçerisinde ki ikonu al
Image1.Picture = LoadResPicture(101, 1)
End Sub
Private Sub Command3_Click() ' Dosya içerisindeki kursörü al
Image1.Picture = LoadResPicture(101, 2)
End Sub
Birden fazla dosyayı tek bir dosya halinde birleştirek gerektiğinde gerekli dosyayı ayırma işlemidir. Dosyalar bir resource dosyası içerisinde projeye dahil edilir. Proje derlendiği zaman dosyalar artık .exe uzantılı programın içinde gömülü durmaktadır.
Add-Ins > Add-In Manager ile Resource Editor çalıştırılarak resource dosyası oluşturulabilir. Bu dosyaya resim, ikon, text, exe vb. eklenebilir.
Project > Add File ile Resource dosyasını (.RES) projeye Related ******** İçerisine eklenir.
Taşınan Dosyaları Ayırmak
Private Sub Form_Load()
Dim Dsy As String
Dsy = StrConv(LoadResData(101, "Custom"), vbUnicode) ‘ Dosya alınıyor
Open "C:\Aktarma.Doc" For Binary As #1
Put #1, , Dsy
Close #1
End Sub
Private Sub Command1_Click() ' Dosya içerisindeki resmi al
Image1.Picture = LoadResPicture(101, 0)
End Sub
Private Sub Command4_Click() ' Dosya İçerisinde ki ikonu al
Image1.Picture = LoadResPicture(101, 1)
End Sub
Private Sub Command3_Click() ' Dosya içerisindeki kursörü al
Image1.Picture = LoadResPicture(101, 2)
End Sub
