مشكل در بسته نشدن برنامه

نقل قول:

---

نوشته شده توسط amirxbest [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

1-میتونی از کامپوننت tab control استفاده کنی و مجبور نیستی از چند فرم استفاده کنی.
روشهای دیگه ای هم هست مثل استفاده از picture box که زیاد منطقی نیست.
2-وایه اینکه فرمت به هم نریزه باید از کامپوننت ثautosize استفاده کنی که تو نت بگردی پیدا میکنی.
خواستی بگو آپلود کنم.
موفق باشید:46:

---

سلام ممنون ولی من اصلا نفهمیدم میشه واسم یه مثال آپلود کنی؟
وقتی از تب استفاده کنم اگه تعداد سیستم ها زیاد باشه گیر میده که تعداد کاراکترات از حد استاندارد 255 بیشتر شده
در ضمن کسی میدونه چطور میشه زبان پیشفرض یه تکست باکس رو فارسی کرد؟

با عرض شرمندگی ولی من نتونستم بازم دیتا بیس رو به تکست باکس وصل کنم میشه دستور اونم بنویسید برام؟:11:
من اینجوری میذارم ارور میده باید چه مدلی بنویسم کدم رو میشه راهنمایی کنید؟

کد:

---

Data1 = App.Path & "\ok.mdb"
Data1.RecordSource = asa
Text1.DataSource = Data1
Text1.DataField = a

---

در ضمن کسی میدونه چطور میشه زبان پیشفرض یه تکست باکس رو فارسی کرد؟
و اینکه چه جوری میشه یه فرم رو چند بار فراخوانی کرد و رو هر باتن جدیدی که کلیک میشه او ن فرم به دیتا بیس جدیدی وصل بشه؟

میشه یکی سریعتر جوابم رو بده آخه من خیلی سوال دارم خیلی هم عجله دارم متاسفانه کسی هست جواب بده؟

کسی میدونه چطور میشه زبان پیشفرض یه تکست باکس رو فارسی کرد؟ یعنی بعد از اجرای برنامه اون تکست باکس خاص فقط فارسی باشه بقیه انگلیسی بمونن!!!

من برای دیتا بیس این روش رو هم پیدا کردم کسی میتونه کامل ترش کنه؟ یا اگه کسی راه حل دیگه ای داره لطفا یاد بده!

مثل اضافه کردن جستجو، گزینه قبلی، گزینه بعدی، گزینه اولین جدول و آخرین جدول !!

کد:

---

http://cnmeysam.persiangig.com/VB6/2.zip

---

a= یک جدول
asa= نام یک تیبل
ok.mdb=نام بانک اطلاعاتی

کد:

---

'ريفرش فرم
Private Sub Command3_Click()
Form1.Refresh
End Sub
Private Sub Form_Load()
 
'ديتا بيس براي Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ok.mdb"
 Adodc1.CommandType = a
 Adodc1.RecordSource = "asa"
 Adodc1.Refresh
 
'ديتا بيس براي text
 Set Text.DataSource = Adodc1
 Text.DataField = "a"
 
'ديتا بيس براي data1
Data1 = App.Path & "\ok.mdb"
Data1.RecordSource = asa
End Sub
 
'ساختن رکورد جديد
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
 
'حذف رکورد
Private Sub Command2_Click()
Adodc1.Recordset.Delete
Adodc1.Refresh
End Sub

---