نمونه کد زیر رو برای PropBag تست کن
Dim Inventory As New PropertyBag
Function LoadInv(FileName As String)
Dim FF As Integer, Data As String
Open FileName For Binary As #FF
Data = String(LOF(FF), Chr(0))
Get #FF, , Data
Close
Inventory.Contents = Data
End Function
Function SaveInv(FileName As String)
Dim FF As Integer
Open FileName For Binary As #FF
Put #FF, , Inventory.Contents
Close
End Function
Function ReadInv(VarName As String) As Variant
ReadInv = Inventory.ReadProperty(VarName, vbNullString)
End Function
Function WriteInv(VarName As String, Value As Variant) As String
Inventory.WriteProperty VarName, Value, vbNullString
End Function
ولی این کاری که میکنی جالب نیست میتونی فایل های اجرایی رو کنار برنامه بزاری و کدشون کنی و در مواقع که بهشون نیاز داری از کد در بیاری و هر موقع کارت تموم شد دوباره کدشون کنی
------------------------
در مورد سوال دومت هم اینم جالب نیست اما روش کار اینطوریه
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Hello"
Form1.Show
Unload Me
Case "Bye"
Form2.Show
Unload Me
End Select
End Sub
پاسخ با نقل قول
نوشته شده توسط بهروز عباسی
