VB6 کار سیستم فایل سیستم نمونه کد.

هر برنامه باید داده ها را به دیسک ذخیره کند و آنها را از دیسک بخواند. به عنوان مثال، لازم است، برای ذخیره تنظیمات برنامه، بعید است که کاربر برنامه را دوست داشته باشد که دفعه بعد شما باید دوباره پیکربندی کنید.

این مقاله ما در مورد کار با فایل های متنی توسط ویژوال بیسیک صحبت خواهیم کرد.

دسته پرونده

برای کار با فایل ها سیستم عامل استفاده از کانال های I / O، I.E. هر کس پرونده باز این شماره خود را دارد.

در ویژوال بیسیک یک تابع وجود دارد Freefileکه یک شماره کانال رایگان را می دهد که می تواند برای کار با فایل استفاده شود. اگر هیچ کانال آزاد وجود نداشته باشد، یک خطا رخ می دهد.

Freefile [(رأی) ]

رأی پارامتر Hellifying که به شما اجازه می دهد تا محدوده ارزش کانال های آزاد را تعریف کنید رأی \u003d 0 (به طور پیش فرض)، سپس شماره کانال از محدوده 1 تا 255، و اگر 1، سپس از محدوده 256 تا 511 بازگردانده شود.

myfile \u003d freefile. "متغیر myFile یک کانال رایگان اختصاص داده شده است و اکنون می توان آن را برای کار با فایل ها استفاده کرد

کار با فایل های متنی

اغلب شما باید با فایل های متنی ملاقات کنید. فایل های متنی شامل مجموعه ای هستند نمادها ASCII. (کد استاندارد آمریکایی برای تبادل اطلاعات - آمریکایی کد استاندارد برای به اشتراک گذاری اطلاعات)

قبل از شروع نوشتن / خواندن داده ها، فایل باید باز شود، آن را با استفاده از اپراتور انجام می شود باز کن (نام فایل) به عنوان #شماره پروندهجایی که:

ورودی - اگر فایل وجود نداشته باشد، یک فایل خوانده شده را باز کنید، خطا رخ می دهد؛

خروجی - برای ضبط، اگر فایل وجود ندارد، آن را ایجاد خواهد شد، و اگر فایل وجود دارد، آن را بازنویسی خواهد شد؛

اضافه کردن - برای اضافه کردن اگر فایل وجود ندارد، آن را ایجاد خواهد شد، و اگر فایل وجود دارد، داده ها به پایان فایل اضافه می شوند.

خواندن فایل های متن را می توان به دو روش انجام داد: READ غلبه، برای این کار از تابع استفاده می کند ورودی (number_stile_simvol, #شماره پرونده) و خط برای این تابع ورودی خط #شماره پرونده, به موجب آن.

myfile dim

DIM S به عنوان رشته "متغیر ذخیره سازی داده ها

myfile \u003d freefile.

باز ("C: \\ test.txt) برای ورود به عنوان #myfile

ورودی خط #myfile، s "خط اول را از فایل test.txt به متغیر S بخوانید

dim myfile "ما یک متغیر را برای یک فایل رایگان اعلام می کنیم

کم نور من به عنوان عدد صحیح "متغیر چرخه

کم کم Ts به عنوان رشته "متغیر برای خواندن رشته ها

DIM S به عنوان رشته "متغیر ذخیره سازی داده های نهایی

myfile \u003d freefile. "ما کانال رایگان را برای کار با فایل ها اختصاص می دهیم

"فایل test.txt را باز کنید

برای I \u003d 1 تا 5

ورودی خط #myfile، ts "خط فایل test.txt را بخوانید

اگر I \u003d\u003e 5 سپس S \u003d TS "اگر خط پنجم، سپس آن را در متغیر s به یاد داشته باشید

بعدی منم.

بستن #myfile "بستن فایل

Dim MyFile "ما یک متغیر را برای یک فایل رایگان اعلام می کنیم

DIM S به عنوان String "متغیر ذخیره سازی داده خواندن

myfile \u003d freefile. "ما کانال رایگان را برای کار با فایل ها اختصاص می دهیم

باز ("C: \\ test.txt) برای ورود به عنوان #myfile "فایل test.txt را باز کنید

s \u003d ورودی $ (log (1)، 1) "کل فایل را در متغیر s بخوانید

بستن #myfile "بستن فایل

اپراتورها برای نوشتن به فایل وجود دارد چاپ #شماره پرونده, داده ها و نوشتن #شماره پرونده, داده ها. این اپراتورها را فقط این اپراتورها را تشخیص می دهد نوشتن داده ها را در نقل قول ها می نویسد و چاپ بدون نقل قول.

کد زیر بر روی C: \\ Disk ایجاد خواهد شد فایل جدید test.txt و دو خط را در آن ضبط می کند، اولین بار بدون نقل قول، و دوم در نقل قول ها:

myfile dim "ما یک متغیر را برای یک فایل رایگان اعلام می کنیم

myfile \u003d freefile. "ما کانال رایگان را برای کار با فایل ها اختصاص می دهیم

باز ("C: \\ test.txt) برای خروجی به عنوان #myfile "فایل test.txt را برای ضبط باز کنید

چاپ #myfile، "این خط توسط اپراتور چاپ ضبط شده است، بدون نقل قول ..."

نوشتن #myfile، "این خط توسط اپراتور نوشتن ثبت شده است، آن را در نقل قول ..."

بستن #myfile "بستن فایل

مشکلی نیست. همانطور که احتمالا فهمید، اپراتور برای بستن فایل به کار می رود نزدیک #شماره پرونده، که در آن، # شماره پرونده لازم نیست.

مقاله کمی مرطوب است، اما برای برنامه نویسان تازه کار مفید خواهد بود. دفعه بعد من در مورد کار با فایل های باینری صحبت خواهم کرد.

8. ذخیره و خواندن اطلاعات

برای انجام پس از خاموش شدن برنامه، تمام داده های ایجاد شده در حافظه رفته اند، شما باید قادر به ذخیره اطلاعات در هارد دیسک باشید. در غیر این صورت، تمام اطلاعات بدون ردیابی ناپدید می شوند. ذخیره داده ها و خواندن آنها را به روش های مختلف. برای کار با اطلاعات از حجم و فرمت های مختلف، می توانید از فایل های باینری و متن استفاده کنید. شما می توانید از رجیستری ویندوز برای ذخیره مقدار کمی از اطلاعات استفاده کنید. و برای سخت ترین وظایف، منطقی است که از پایگاه های داده استفاده کنیم.

8.1 باز کردن فایل ها با استفاده از اپراتور "باز کن "

فایل یک منطقه نامی از هر درایو اطلاعات خارجی است. داده ها "زنده" در حافظه کامپیوتر، و فایل ها بر روی هارد دیسک هستند. این برنامه به طور مستقیم با فایل ها کار نمی کند، اما از سیستم عامل به عنوان واسطه استفاده می کند.

نام فایل ها دو نوع وجود دارد: Full - علاوه بر نام فایل، محل فایل بر روی حامل خارجی نیز مشخص شده است (به عنوان مثال، "C: \\ برنامه های برنامه \\ مایکروسافت ویژوال استودیو / VB98 \\ VB 6.Exe" ) و تنها نام فایل (vb 6.exe). اگر محل فایل مشخص نشده باشد، در پوشه فعلی، پوشه پیش فرض که در آن برنامه شما قرار دارد جستجو می شود. نام فایل مستقیم شامل دو بخش است: نام واقعی فایل منحصر به فرد و گسترش آن. این نام فایل را شناسایی می کند و فرمت معمولا فرمت فایل را نشان می دهد یا برنامه ای که آن را ایجاد می کند.

قبل از شروع کار با فایل، باید از سیستم عامل درخواست کنید. اشارهگر (توصیف کننده) فایل. برای به دست آوردن آن، از عملکرد "Freefile" استفاده کنید. سپس، با استفاده از بیانیه باز، این اشاره گر با فایل مورد نیاز مرتبط است. فقط پس از آن برنامه قادر به کار با آن خواهد بود. نحو باز کردن فایل به شرح زیر است:

'دریافت یک اشاره گر فایل رایگان و اختصاص آن به یک متغیر

filehandle٪ \u003d freefile

'Open Bevel

باز کردن فایل _

به عنوان [#] filehandle٪

... (WorkFile)

بستن [#] filehandle

· FileHandle٪ یک متغیر است که اشاره گر فایل ذخیره می شود؛

· Freefile - نام تابع که اشارهگر فایل را باز می کند؛

· باز - نام اپراتور؛

· FirePath - نام فایل کامل؛

· برای - یک کلمه کلیدی دنبال توضیح حالت دسترسی به فایل؛

· حالت - حالت دسترسی به فایل (جدول 15 را ببینید)؛

جدول 15

حالت های دسترسی فایل

حالت های دسترسی	شرح
اضافه کردن	اضافه کردن داده ها به انتهای یک فایل متنی موجود. اگر فایل وجود ندارد، آن را ایجاد خواهد شد
دودویی.	باز کردن یک فایل در حالت دودویی، I.E. به شکل مجموعه ای از بایت ها. اگر فایل وجود ندارد، اما ایجاد خواهد شد
ورودی	باز کردن یک فایل خواندن در فرمت متن
خروجی	باز کردن یک فایل برای ضبط یک فایل متنی. در عین حال، تمام اطلاعات قدیمی حذف خواهد شد. اگر فایل وجود ندارد، اما ایجاد خواهد شد
تصادفی	باز کردن یک فایل در حالت دسترسی دلخواه. این حالت برای کار با نوشته های ساده استفاده می شود. اگر فایل وجود ندارد، اما ایجاد خواهد شد

· دسترسی - یک کلمه کلیدی اختیاری و پس از توصیف نوع دسترسی؛

· AccessType - نوع دسترسی توضیحات:

· خواندن - خواندن؛

· نوشتن - ضبط؛

· خواندن نوشتن - خواندن و نوشتن

توجه داشته باشید

هنگامی که حالت های دسترسی اضافه و خروجی، تنها نوع دسترسی به نوشتن در ورودی موجود است - فقط خواندن و با دو باینری و تصادفی هر سه نوع دسترسی در دسترس هستند.

· LockType یک پارامتر اختیاری است که تعیین می کند که آیا برنامه های دیگر از این فایل استفاده می کنند در حالی که برنامه شما با آن کار می کند. این معمولا با کار در شبکه همراه است (جدول 16 را ببینید).

جدول 16

مقادیر احتمالی پارامتر LockType

مقدار	شرح
به اشتراک گذاشته شده	این فایل دارای دسترسی کامل به همه کاربران با حقوق لازم است.
قفل خواندن	بلوک خواندن یک فایل، و رکورد مجاز است
قفل نوشتن	ضبط را به یک فایل ضبط می کند و خواندن مجاز است
قفل کردن خواندن نوشتن	خواندن و نوشتن به آن

· AS - کلمه کلیدی به دنبال اشاره گر فایل.

· # - نماد نشان می دهد که مقدار زیر آن اشاره گر فایل است.

· LEN - کلمه کلیدی اختیاری، به دنبال یک پارامتر است که طول ضبط را تعریف می کند.

· charinbuffer٪ - طول ضبط برای یک فایل باز در حالت دسترسی دلخواه (تصادفی).

· بستن یک اپراتور است که فایل مربوط به توصیفگر مشخص شده را بسته می کند.

مهم است که پس از پایان کار با آن، فایل را ببندید. اپراتور "بستن" نشانگر فایل و منطقه حافظه مرتبط را آزاد می کند.

هنگام کار با فایل، یعنی خواندن از آن، بسیار مهم است که پایان فایل را تعیین کنید. این را می توان با استفاده از عملکرد EOF (پایان فایل) تعیین کرد:

EOF (FileHhandle)

· EOF - نام تابع؛

· FileHandle یک اشاره گر فایل است، پایان آن تعیین می شود.

این تابع اگر پایان فایل رسیده باشد، عملکرد درست (حقیقت) را باز می کند، در غیر این صورت نادرست بازگردانده می شود.

8.2 خواندن و نوشتن به فایل متنی

فایل متنی در حالت دسترسی "ورودی"، "خروجی" یا "اضافه کردن" باز می شود (جدول 15 را ببینید). ویژگی این رژیم این است که تنها با نمادهای چاپی خاص کار می کند. با استفاده از نمادهای خدمات، بی فایده است.

برای ضبط اطلاعات، دو اپراتور چاپ و نوشتن استفاده می شود، نحو آن به شرح زیر است:

چاپ # filehandle٪، varbuffer [؛]

نوشتن # filehandle٪، varbuffer [؛

· چاپ / نوشتن - اپراتورهای کلمات کلیدی.

· # FileShandle٪ اشاره گر فایل است که اطلاعاتی را قرار می دهد.

· Varbuffer یک مقدار است که در فایل ثبت می شود.

· ؛ - پارامتر اختیاری مورد استفاده هنگام نوشتن به فایل متنی به این معنی است که مقدار بعدی در همان خط ثبت می شود و در غیاب آن - به یکی دیگر.

برای خواندن اطلاعات از فایل، اپراتورهای "ورودی" و "ورودی خط" استفاده می شود. Syntaxichangchendrugdrugua:

ورودی خط # filehandle٪، varbuffer

ورودی # filehandle٪، varbuffer

· ورودی / ورودی خط - اپراتورهای کلمات کلیدی.

· # filehandle٪ یک اشاره گر فایل است که از آن اطلاعات اعتقاد خواهد داشت.

· Varbuffer متغیر است که در آن اطلاعات خوانده می شود.

تفاوت بین ورودی خط و اظهارات ورودی این است که اولین بار فقط برای فایل های متنی مورد نظر قرار دارد و دوم برای هر کدام است. در مورد فایل های متنی، ورودی داده ها را در یک خط به اولین جداساز (برای داده های متنی، جداساز "،" (کاما)، و برای عددی - "" (فضا) و "،") خوانده می شود ورودی خط "کل خط را در یک بار می خواند، هر جداساز را نادیده می گیرد.

توجه داشته باشید

ویژوال بیسیک، فرمت فایل های قبلا ایجاد شده را کنترل نمی کند. بنابراین، نماد "2" را می توان به عنوان یک شماره مناسب خواند و بالعکس.

8.3. کار با فایل های دودویی

فایل های باز B. فرمت دودویی اپراتور "باز" \u200b\u200bدر حالت "باینری". یکی از ویژگی های متمایز این حالت این است که کار با فایل به طور انحصاری بر روی بایت های خاص متمرکز شده است. از آنجا که ویژوال بیسیک می تواند به طور مستقیم به محل فایل اضافه شود، این حالت نیز نامیده می شود - حالت دسترسی مستقیم. یکی دیگر از ویژگی های این حالت در دسترس بودن ضبط همزمان و خواندن اطلاعات به بخش های مختلف فایل بدون افزایش آن است. ضبط به یک فایل که در حالت دودویی باز است توسط نحو زیر انجام می شود:

قرار دادن # FileHhandle٪، NameVar

· قرار دادن نام اپراتور ضبط اطلاعات است.

· recnumber - تعداد بایت فایل که در آن اطلاعات ثبت می شود (پارامتر اختیاری).

· NameVar - متغیر، محتویات آن در فایل ثبت می شود.

بررسی اطلاعات از فایل در حالت دودویی با استفاده از اپراتور زیر است:

دریافت # filehandle٪، numbar

· دریافت - نام اپراتور ضبط اطلاعات.

· filehandle٪ - اشاره گر فایل.

· ReBnumber - تعداد بایت تعداد فایل که از آن اطلاعات خوانده می شود (پارامتر مورد نیاز نیست).

· NAMEVAR نام متغیر است که در آن اطلاعات خوانده شده قرار می گیرد.

از آنجا که حالت باینری بر روی بایت های اطلاعات متمرکز شده است، پس از خواندن از فایل، متغیر بافر باید یک نوع دقیق تعریف شده را داشته باشد: یا "بایت"، سپس مقدار عددی بایت، یا نماد ثابت در یک شخصیت، پس از آن بایت به عنوان یک نماد خوانده می شود، ANSI که کد آن به ارزش بایت مربوط می شود. این نماد حتی ممکن است یک مدیر باشد، که نمی تواند در مورد فایل های متنی به دست آید.

توجه داشته باشید

در غیاب پارامتر "Recnumber"، ضبط یا خواندن اطلاعات پس از اینکه شما با آن کار کرده اید، ضبط یا خواندن اطلاعات در پانل زیر رخ می دهد.

8.4 گرافیک دستکاری

شما می توانید تصاویر گرافیکی را در فایل ها و استخراج نگه دارید. برای حذف از فایل Raster یا فایل آیکون و اختصاص آن به ویژگی "تصویر" از کنترل "PictureBox" و "تصویر"، از عملکرد "LoadPicture ()" با نحو زیر استفاده کنید:

ImageCtrl.Picture \u003d LoadPicture (FirePath)

· Imagectrl - نام پنجره کنترل با یک الگوی، یک عنصر کنترل تصویر یا فرم؛

· LoadPicture - نام تابع؛

· FirePath - نام فایل کامل

SavePicture Imagectrl تصویر، FirePath

· SavePicture نام اپراتور است؛

· Imagectrl - نام پنجره کنترل با یک الگوی، یک عنصر کنترل تصویر یا فرم؛

· تصویر - نام اموال شیء مسئول تصویر؛

· FilePath - نام کامل فایل نشان دهنده موقعیت مکانی آن بر روی دیسک است.

8.5. کار با داده ها در رجیستری

برای ذخیره قطعات کوچک از اطلاعات شخصیت شخصیت، شما می توانید از رجیستری ویندوز استفاده کنید. ویژوال بیسیک دارای چهار روش است که می تواند برای دسترسی به آن استفاده شود. آنها بسیار آسان برای استفاده هستند، اما دارای یک عیب اصلی هستند: شما می توانید داده ها را فقط از یک کلید رجیستری خاص دسترسی داشته باشید: "MyComputer \\ HKEKE _Current _user \\ Software \\ VB و VBA تنظیمات برنامه". برای دسترسی به بخش های رجیستری دیگر، شما باید از ویژگی های ویژه Win 32 API استفاده کنید.

برای دریافت مقدار پارامتر از بخش ویژوال بیسیک بخش رجیستری ویندوز، شما باید از تابع زیر استفاده کنید:

myString \u003d getsetting (vbkeyname، بخش، کلید [، به طور پیش فرض])

· MyString یک رشته برای ذخیره سازی ارزش بازگشتی توسط تابع است؛

· GetSetting نام تابع است.

· VBKeyName - یک مقدار رشته ای است که نام بخش داخلی VB / VBA است.

· کلید - یک مقدار رشته ای است که نام پارامتر در بخش را نشان می دهد.

· پیش فرض یک استدلال اختیاری است که ارزش آن در صورت خطا (بدون پارامتر) بازگردانده می شود.

برای صرفه جویی در ارزش در رجیستری ویندوز، اپراتور زیر استفاده می شود:

SaveSetting VBKeyname، بخش، کلید، رشته من

· SaveSetting نام اپراتور است.

· MyString یک متغیر رشته ای است که ارزش آن قرار می گیرد.

برای به دست آوردن آرایه از رجیستری حاوی تمام مقادیر پارامتر از یک بخش خاص، تابع زیر استفاده می شود:

myvaryt \u003d setallsettings (vbkeyname، بخش)

· MyVaryt یک تابع است که توسط محدوده مقادیر "نوع" بازگشته است.

· SetAllSettings - نام تابع.

· بخش - یک مقدار رشته نشان دهنده بخش یا بخش خاصی از یک برنامه خاص است.

برای حذف یک بخش کامل از پارامترها، یک اپراتور با نحو زیر اعمال می شود:

Deletesetting vbkeyname، بخش، کلید

· Deletesetting نام اپراتور است.

سوالات خود را برای آزمون خود بررسی کنید

1. چه مدت می توانم اطلاعاتی را ذخیره کنم؟
2. یک فایل چیست؟
3. چه نام های فایل را می دانید؟
4. نحو اپراتور باز را به ارمغان بیاورید. هدف پارامترهای آن را توضیح دهید.
5. چگونه می توانید دسترسی مشترک به برنامه های متعدد را به یک فایل در همان زمان سازماندهی کنید؟
6. چگونه می توان تعیین کرد که چه اطلاعاتی در فایل خسته شده است؟
7. چرا پس از کار با فایل توصیه می شود برای بستن؟
8. تفاوت انواع فایل های متن و فایل های باینری چیست؟
9. چگونه داده ها خواندن و نوشتن در حالت فایل متنی؟
10. چگونه داده ها را در حالت فایل باینری خواندن و نوشتن می کنند؟
11. تفاوت بین اپراتورهای "چاپ" و "نوشتن" در هنگام کار با فایل ها چیست؟
12. تفاوت بین "ورودی" و "ورودی" اپراتورها در هنگام کار با فایل ها چیست؟
13. چگونه می توانم با داده های گرافیکی کار کنم؟
14. اصول اساسی کار با رجیستری ویندوز چیست؟

پنجره ها

هدف از کار: یادگیری و استفاده از اپراتورهای VB 6 برای کار با فایل ها انواع متفاوت: فایل های متوالی (متن)، فایل های دسترسی دلخواه، فایل های دودویی. تحقیق و استفاده از ابزار مشترک.گفتگو برای باز کردن و ذخیره فایل ها، فونت و رنگ را انتخاب کنید، و همچنین استفاده از شی کلیپ بوردبرای ذخیره قطعات متن - در مثال ایجاد یک ویرایشگر متن ساده.

سوالات کنترل:

1. چه راهی می توانید یک فایل متنی را باز کنید؟ چگونه متن و هر فایل باز دیگر را ببندید؟

2. داده ها در فایل متنی برای نوشتن باز می شود؟ تفاوت بین اپراتورهای نوشتن و چاپ چیست؟

3. چگونه داده ها از فایل متنی باز می شود؟ چه چیزی از هر یک از اپراتورهای دیگر ورودی و ورودی خط متفاوت است؟ با کدام تابع می توانید از فایل بخوانید شماره را تنظیم کنید شخصیت ها؟ چگونه همه کاراکترهای فایل را بخوانید؟

4. نوع داده کاربر چیست و چگونه این مفهوم در هنگام کار با فایل های دسترسی دلخواه استفاده می شود ( رفی)?

5. کدام اپراتورها از فایل رفی خواندن سوابق و فایل رفیآیا سوابق جدید نوشتن خواهد کرد؟

6. برای چه هدف، شاخص تعیین می شود و هنگام کار با فایل استفاده می شود رفی?

7. ویژگی های استفاده از فایل های باینری چیست؟ آنها چگونه باز می شوند؟ چگونه از خواندن فایل باینری و به فایل باینری بنویسید؟

8. چگونه می توانم کنترل را اعمال کنم؟ مشترک.گفتگو برای دانلود محتویات یک فایل متنی در جعبه متن؟ چگونه می توان متن ویرایش شده را در فایل متنی با استفاده از عنصر کنترل مشابه ذخیره کرد؟

9. چگونه می توانم کنترل را اعمال کنم؟ مشترک.گفتگو برای دانلود محتویات فایل rTF در زمینه ثروتمندجعبه متن؟ نحوه ذخیره متن ویرایش شده در فایل با استفاده از همان عنصر کنترل rTF?

10. چگونه می توانم یک عنصر را اعمال کنم؟ مشترک.گفتگو برای تغییر مقادیر پارامترهای فونت و تغییر رنگ متن در پنجره جعبه متن (یا قطعه متن انتخاب شده در پنجره ثروتمندجعبه متن)?

مثال 7.1 یک برنامه را در نظر بگیرید که وارد یک فایل متنی (و خواندن از یک فایل متنی) "اطلاعات کارکنان" - خطوط، هر کدام شامل تعداد شناسایی، نام کامل، تاریخ تولد و محل تولد یک کارمند است. رشته ها یک جدول را تشکیل می دهند که بر روی شکل صفحه نمایش 4 کنترل جعبه دسته کوچک موسیقی جاز (شکل 7.1)، که مجموعه ای از اشیاء شانه (I) را تولید می کند، که در آن اموال سبک 1 - SimpleCombo است.

رشته راه دور را برجسته کنید "، vbexclamation

شانه (j) .removeitem i

جعبه ضبط جدید جدول:

sub mnuinsert_click خصوصی ()

i٪ \u003d شانه (0) .Listindex

اگر من.< 0 Then

Msgbox "یک رشته را برای قرار دادن در مقابل آن"، vbexclamation را برجسته کنید

شانه (0). Additem InputBox ("شماره را وارد کنید")، من

شانه (1). ADDIDEM INPOTBOX ("نام کامل را وارد کنید")، من

شانه (2) INPUTBOX .ADDIDEM ("تاریخ تولد را وارد کنید")، من

شانه (3). ADDIDEM INPUTBOX ("محل تولد را وارد کنید")، من

'تغییر ورود در جدول:

sub mnuupdate_click خصوصی ()

i٪ \u003d شانه (0) .Listindex

اگر من.< 0 Then

msgbox "یک رشته متغیر"، vbexclamation را برجسته کنید

شانه (0) .list (i) \u003d inputbox ("شماره" را وارد کنید، شانه (0) .List (i))

شانه (1) .List (i) \u003d inputbox ("نام کامل را وارد کنید"، comb (1) .list (i))

شانه (2) .List (i) \u003d inputbox ("تاریخ تولد را وارد کنید"، شانه (2) .List (i))

شانه (3) .list (i) \u003d inputbox ("محل را وارد کنید"، شانه (3) .List (i))

پاک کردن کل جدول:

sub mnuclic_click خصوصی ()

'پر کردن اطلاعات جدول از یک فایل متنی:

خصوصی sub mnuload_click ()

باز "شخص. TXT" برای ورودی به عنوان # 1

ورودی # 1، numb، fio، bdate، bloc

شانه (0) .additem numb

شانه (1) .additem fio

شانه (2) .additem bdate

شانه (3) .Additem بلوک

'ضبط اطلاعات جدول در یک فایل متنی:

Sub MnUsave_click خصوصی ()

n٪ \u003d شانه (0) .Listcount

باز "شخص. TXT" برای خروجی به عنوان # 1

برای i \u003d 0 تا n - 1

numb \u003d val (cumb (0) .list (i))

fio \u003d comb (1) .List (i)

bdate \u003d cdate (comb (2) .list (i))

بلوک \u003d شانه (3). لیست (I)

نوشتن # 1، numb، fio، bdate، bloc

خاموش شدن برنامه:

sub mnuexit_click خصوصی ()

مثال 7.2 . یک برنامه کاربردی را که استفاده از کنترل را نشان می دهد را در نظر بگیرید مشترک.گفتگو برای باز کردن و ذخیره فایل، برای انتخاب فونت و رنگ، و همچنین برای ویرایش متن.

فایل فرمت txt به فیلد متن (فیلد چپ در شکل 7.2) و فایل فرمت بارگذاری می شود RTF - در زمینه ثروتمندجعبه متن (میدان راست در شکل 7.2).

هدف - شی

کلاس

هدف - شی

ویژگی

هدف - شی

اموال ارزش

"پانل های عمومی

گفتگو

باز / ذخیره به عنوان تب

فونت چوب الف

رنگ نشانه گذاری

جدول از خواص فرمان منو جلوگیری نمی کند. فونت, رنگ و ویرایش. در زیر کد روش فقط برای دستورات منو است. فایل (باز کن., صرفه جویی. و صرفه جویی.مانند) طراحی کد برای سایر دستورات منو - موضوع کار دوم این کار.

خصوصی sub mnuopen_click ()

commondialog1.Showopen.

f $ \u003d commondialog1.filename

اگر راست (F، 3) \u003d "RTF" سپس

richtextbox1.loadfile f.

Elseif Right (F، 3) \u003d "TXT" سپس

باز کردن f برای ورودی به عنوان # 1

S $ \u003d ورودی (n، 1)

Sub MnUsave_click خصوصی ()

commondialog1.Showsave

f $ \u003d commondialog1.filename

sub mnusaveas_click خصوصی ()

commondialog1.Showsave

f $ \u003d commondialog1.filename

richtextbox1.savefile f، rtfrtf

در این اثر، دانش آموز باید 2 وظیفه را انجام دهد.

تمرین 1. در فرایند تکمیل این کار، دانش آموزان در دسترس بودن در قابلیت های VB 6 با فایل های دسترسی دلخواه ( رفی -تصادفیدسترسیفایل).

برای یک جدول داده داده شده، یک نوع داده کاربر اعلام شده است، یک متغیر این نوع (Tutorial، Page 108 - 112) و رویه هایی که متغیر کاربر مورد استفاده قرار می گیرد، اعلام می شود.

به طور خاص، روش ها برای دستورات منو اجرا می شود. به فایل بنویسیدرفی و خواندن از فایلرفی. همانطور که در مثال 7.1، مجموعه ای از اشیاء برای ویرایش داده ها استفاده می شود. دسته کوچک موسیقی جازجعبه و منو ویرایش با پنج دستورات زیر منو: یک یادداشت اضافه کنید, ضبط را حذف کنید, نوشتن, ضبط ویرایش, جدول روشن.

انتخاب 1.

یک نوع داده کاربر را برای جدول "ماشین" (جدول 7.1) "سرویس خودکار" اعلام کنید.

ماشین	ماشین	عیب

در خط پایین جدول 7.1 - انواع زمینه ها.

گزینه 2..

یک نوع داده کاربر را برای جدول "خطا" (جدول 7.2) از پایگاه داده "خودکار سرویس" اعلام کنید.

عیب	نام عیب	هزینه

در خط پایین جدول 7.2 - انواع زمینه ها.

با استفاده از کاربرد مثال 7.1 به عنوان یک نمونه، برای سازماندهی اطلاعات ورودی و ویرایش داده ها برای جدول نشان داده شده، این داده ها را به یک فایل دسترسی تصادفی و خواندن داده ها از یک فایل دسترسی دلخواه ثبت کنید. همانطور که در مثال 7.1، اقدامات مشخص شده اجرای نحوه عملکرد دستورات منو نشان داده شده در شکل. 7.1

وظیفه 2 در طول این کار، دانش آموزان برنامه نمونه 2 را با ویژگی های جدید تکمیل می کنند که به شما این امکان را می دهد که این برنامه را به عنوان یک ویرایشگر متن ساده در نظر بگیرید.

انتخاب 1 مشترک.گفتگو دستورات منو را اجرا کنید فونت و رنگ (با زیر منو نمادهای رنگ و رنگ پس زمینه) با استفاده از این دستورات، یک انتخاب فونت (نام، نقاشی و اندازه آن) باید برای بخش متن انتخاب شده در پنجره ارائه شود. ثروتمندجعبه متنو همچنین انتخاب رنگ شخصیت های قطعه انتخاب شده و رنگ پس زمینه کل پنجره را انتخاب کنید.

توجه داشته باشید: هنگام تنظیم شی مشترک.گفتگو برای انتخاب یک فونت با استفاده از Properties (سفارشی)، باید مقدار ویژگی های پرچم 1، 2 یا 3 را تنظیم کنید (به صورت دستی مراجعه کنید، صفحه 183).

گزینه 2.. با استفاده از کنترل مشترک.گفتگو دستورات منو را اجرا کنید ویرایش (زیر منو کپی 🀄, برش. و چسباندن)، انتصاب آن است کپی 🀄 یا حذف در کلیپ بورد قطعه انتخاب شده از متن، و همچنین قرار دادن در محل انتخاب شده متن محتویات کلیپ بورد.

توجه داشته باشید: به بافر مبادله (شی کلیپ بورد) شما می توانید از روش Settext و Gettext استفاده کنید:

کلیپ بورد SettexText RichTextbox1.Seltext.

richtextbox1.seltext \u003d کلیپ بورد. گلت