Visual Basic Dosya Gömme Nasıl Yapabilirim Yardım Edermisiniz ? Visual Basic 2010 kullanıyorum.
Visual Basic Dosya Gömme
- Konuyu başlatan alemoturk
- Başlangıç tarihi
resource bölümü var ordan add file diyorsun.
kullanmak için mesela axmediaplayer url = my.resource.******çıkartmak için daha farklı writeallbyte kulanıyorsun
kullanmak için mesela axmediaplayer url = my.resource.******çıkartmak için daha farklı writeallbyte kulanıyorsun
- Konuyu başlatan
- #4
Bunu yaptım gömeceğim butona yazacağım kod nedir ?
Kod:
[FONT=verdana][COLOR=blue]Private Sub[/COLOR] Command1_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open App.Path & "[COLOR=green]\\Dosyamın_Adı.TXT[/COLOR]" For Binary As #no
Put #no, , resbytes
Close #no
Shell App.Path & "[COLOR=green]\\Dosyamın_Adı.TXT[/COLOR]", vbNormalFocus
[COLOR=blue]End Sub[/COLOR][/FONT]- Konuyu başlatan
- #6
dosyamınadı.txt yi kendimemi göre ayarlayım ?
