VB6 Ish menyusi Fayl tizimining misollari kodi.

Har bir dastur ma'lumotlarni diskka saqlash va ularni diskdan o'qiydi. Bu zarur, masalan, dastur sozlamalarini saqlash uchun foydalanuvchi keyingi safar yana sozlashingiz kerak bo'lgan dasturni yoqtirishi dargumon.

Ushbu maqolada biz matnli fayllar bilan vizual bazada ishlash haqida gaplashamiz.

Fayl dastagi

Fayllar bilan ishlash operatsion tizim I / O kanallaridan foydalanadi, i.e. hamma ochiq fayl Uning o'z raqami bor.

Vizual bazada funktsiya mavjud Ozod qilish.Fayl bilan ishlash uchun foydalanilishi mumkin bo'lgan bepul kanal raqamini qaytaradi. Agar bepul kanal bo'lmasa, xato yuzaga keladi.

Freifile [(Rangeumber) ]

Rangeumber - Agar siz bepul kanal qiymatlarini aniqlashga imkon beradigan parametr Rangeumber \u003d 0 (standart), keyin kanal raqami 1 - 255 oralig'idan qaytariladi va agar 1 bo'lsa, 256 - 511 oralig'ida.

MyFile \u003d Freefile. "Myfile o'zgaruvchisi bepul kanalga tayinlanadi va endi u fayllar bilan ishlash uchun ishlatilishi mumkin

Matnli fayllar bilan ishlash

Ko'pincha siz matnli fayllar bilan uchrashishingiz kerak. Matnli fayllar to'plamdan iborat aSCII ramzi. (Amerikaning standart kodi Ma'lumot almashish. - Amerikalik standart kod Ma'lumot almashish uchun).

Ma'lumotni yozishdan / o'qishni boshlashdan oldin, fayl ochilishi kerak, u operatordan foydalanib amalga oshiriladi Ochiq (Fayl nomi) #Fayl raqamiQayerda:

Kiritish - Agar fayl mavjud bo'lmasa, o'qilgan faylni oching, xato yuzaga keladi;

Chiqish. - Yozish uchun, agar fayl mavjud bo'lmasa, u yaratiladi, agar fayl mavjud bo'lsa, u ustidan yoziladi;

Ilova qilmoq - Agar fayl mavjud bo'lmasa, u yaratiladi, u yaratiladi va agar fayl mavjud bo'lsa, ma'lumotlar fayl oxiriga qo'shiladi.

Matnli fayllarni o'qish ikki usulda o'qilishi mumkin: ustunlikni o'qing, chunki bu funktsiyadan foydalanadi Kiritish (Raqam_stile_simvol, #Fayl raqami) va ushbu funktsiya uchun chiziq Chiziqni kiritish #Fayl raqami, Qayerdan.

Xira miksile

Satr sifatida xira "Ma'lumotni saqlash o'zgaruvchisi

MyFile \u003d Freefile.

#Myfile sifatida kirish uchun ochiq ("C: \\ test.txt")

Layn kirish #myfile, s "Birinchi qatorni test.txt faylidan o'zgaruvchan s ga o'qing

Xira miksile "Biz bepul fayl uchun o'zgaruvchini e'lon qilamiz

Men butun son sifatida "Vaqt o'zgaruvchisi

Dim Ts satr sifatida "O'qish satrlari uchun o'zgaruvchisi

Satr sifatida xira "Yakuniy ma'lumotlarni saqlash uchun o'zgaruvchisi

MyFile \u003d Freefile. "Biz fayllar bilan ishlash uchun bepul kanalni tayinlaymiz

"O'qish uchun test.txtish faylini oching

I \u003d 1 dan 5 gacha

Line Inpute #Myfile, TS "Test.txt fayl chizig'ini o'qing

Agar i \u003d\u003e 5 keyin s \u003d ts "Agar beshinchi chiziq bo'lsa, keyin uni o'zgaruvchida eslang

Keyingi I.

#MyFile-ni yoping

Miyfile "Biz bepul fayl uchun o'zgaruvchini e'lon qilamiz

Satrlar satr satr satr sifatida "Scho'lim o'zgaruvchisi ma'lumotlarni o'qing

MyFile \u003d Freefile. "Biz fayllar bilan ishlash uchun bepul kanalni tayinlaymiz

#Myfile sifatida kirish uchun ochiq ("C: \\ test.txt") "O'qish uchun test.txtish faylini oching

S \u003d Kirish $ (qayd (1), 1) "Barcha faylni o'zgaruvchan s-da o'qing

#MyFile-ni yoping

Faylga yozish uchun operatorlar mavjud Chop etish #Fayl raqami, Ma'lumotlar va # Yozing #Fayl raqami, Ma'lumotlar. Ushbu operatorlarni faqat shu tarzda ajratib turadi Yozmoq kotirovkalarda ma'lumotlarni yozadi va Chop etish. tirnoqsiz.

Quyidagi kod C: \\ diskida yaratadi yangi fayl. Test.txt va unda ikkita qatorni yozib, birinchi bo'lib tirnoq va ikkinchi kotirovkada:

Xira miksile "Biz bepul fayl uchun o'zgaruvchini e'lon qilamiz

MyFile \u003d Freefile. "Biz fayllar bilan ishlash uchun bepul kanalni tayinlaymiz

#Myfile sifatida chiqish uchun ("C: \\ TEST.TXT") "Yozib olish uchun sinov.txt faylini oching

#MyFile-ni chop eting, "Ushbu chiziq bosib chiqarish operatori tomonidan qayd etiladi, bu tirnoqsiz ..."

#Myfile-ni yozing, "Ushbu chiziq yozish operatori tomonidan qayd etiladi, bu tirnoqda ..."

#MyFile-ni yoping

Hammasi joyida. Ehtimol siz tushunganingizdek, operator faylni yopishga xizmat qiladi Yopish #Fayl raqami, bunda # Fayl raqami Shart emas.

Maqola biroz nam, ammo yangi dasturchilar uchun foydali bo'ladi. Keyingi safar men ikkilik fayllar bilan ishlash haqida gaplashaman.

8. Ma'lumotni saqlash va o'qish

Dasturni o'chirishdan so'ng amalga oshirish uchun xotirada yaratilgan barcha ma'lumotlar yo'qolmaydi, siz qattiq diskda ma'lumotlarni saqlashingiz kerak. Aks holda, barcha ma'lumotlar izsiz yo'qoladi. Ma'lumotni saqlang va ularni turli yo'llar bilan o'qing. Turli xil ovoz va formatdan ma'lumot bilan ishlash uchun siz ikkilik va matnli fayllardan foydalanishingiz mumkin. Kam miqdordagi ma'lumotlarni saqlash uchun siz Windows reestridan foydalanishingiz mumkin. Va eng qiyin vazifalar uchun ma'lumotlar bazalaridan foydalanish oqilona.

8.1. Operatordan foydalanib fayllarni ochish "Ochiq "

Fayl har qanday tashqi axborot drayverining nomlangan maydonidir. Kompyuter xotirasida "jonli" ma'lumotlar va fayllar qattiq diskda. Dastur to'g'ridan-to'g'ri fayllar bilan ishlamaydi, ammo operatsion tizimni vositachi sifatida ishlatadi.

Fayl nomlari ikki xil: To'liq - Fayl nomiga, fayl nomiga qo'shimcha ravishda, faylning joylashuvi ham ko'rsatilgan (masalan, »C: Microsoft Visual Studio 6\\ VB98 \\ VB 6exe" ) va qisqacha - Fayl nomi (VB 6exe). Agar faylning joylashgan joyi ko'rsatilmagan bo'lsa, u joriy papkada, standart papkada qidiriladi. To'g'ridan-to'g'ri fayl nomi ikki qismdan iborat: haqiqiy noyob fayl nomi va kengayishi. Ism faylning o'zligini aniqlaydi va kengaytma odatda fayl formatini yoki u yaratilgan dasturni ko'rsatadi.

Fayl bilan ishlashni boshlashdan oldin, operatsion tizimdan so'rashingiz kerak. ko'rsatkich (deskriptor) fayli. Uni olish uchun "FreeFile" funktsiyasidan foydalaning. Keyin, ochiq bayonotdan foydalanib, ushbu ko'rsatgich kerakli fayl bilan bog'liq. Shundan keyingina dastur u bilan ishlashi mumkin. Faylni ochish sintaksisi quyidagicha:

'Fayl ko'rsatgichini oling va uni o'zgaruvchan joyga tayinlang

Fotoelle% \u003d Freefile

'Ochiq BEVEL

Filepate _

[#] Fotoxelle%

... (ish joyi)

[#] FilhHandle

· FaylhHhHhHelle% - bu fayl ko'rsatkichi saqlanadigan o'zgaruvchidir;

· FreeFile - fayl ko'rsatgichini qaytaradigan funktsiyaning nomi;

· Open - Operatorning ismi;

· FilePath - to'liq fayl nomi;

· Uchun - va undan keyin fayl kirish rejimining tavsifi bilan kalit so'z;

· Rejim - faylga kirish rejimi (15-jadvalga qarang);

15-jadval.

Fayl qo'shish rejimlari

Kirish rejimlari	Tavsif
Ilova qilmoq	Mavjud matn fayli oxiriga ma'lumotlarni qo'shish. Agar fayl mavjud bo'lmasa, u yaratiladi
Ikkilik.	Ikkilik rejimida faylni ochish, i.e. Baytlar to'plami shaklida. Agar fayl mavjud bo'lmasa, lekin yaratiladi
Kiritish	Matn formatida o'qish faylini ochish
Chiqish.	Matn faylini yozib olish uchun faylni oching. Shu bilan birga, barcha eski ma'lumotlar o'chiriladi. Agar fayl mavjud bo'lmasa, lekin yaratiladi
Tasodifiy	Faylni o'zboshimchalik bilan kirish rejimida ochish. Ushbu rejim oddiy yozuvlar bilan ishlash uchun ishlatiladi. Agar fayl mavjud bo'lmasa, lekin yaratiladi

· Kirish - kirish turini tavsiflash orqali ixtiyoriy kalit so'z;

· Kirish turlari - Kirish turlari tavsifi:

· O'qish - o'qish;

· Yozish - yozish;

· O'qish va yozishni o'qing.

Eslatma

Kirish va chiqish rejimlari bo'lsa, faqat yozish turini faqat o'qish va tasodifiy kirish imkoniyati mavjud.

· LockType - bu boshqa dasturlardan boshqa dasturlardan foydalanishini aniqlaydigan boshqa dasturlardan farq qiladimi yoki yo'qligini aniqlaydi. Odatda u tarmoqdagi ish bilan bog'liq (16-jadvalga qarang).

16-jadval.

Locktype parametrining mumkin bo'lgan qiymatlari

Qiymati	Tavsif
Umumiy.	Fayl barcha foydalanuvchilarga kerakli huquqlarga ega bo'lish huquqiga ega bo'ladi.
Qulfni qulflash.	Faylni o'qiydi va yozuvga ruxsat beriladi
Qulf yozish.	Faylni faylga yozib oling va o'qish uchun ruxsat etiladi
Qulflamoq O'qishni o'qing.	O'qimang va unga yozmang

· Sifatida - kalta ko'rsatkichdan so'ng kalit so'z.

· # - bu qiymatdan keyingi qiymat bu fayl ko'rsatgich ekanligini ko'rsatadigan belgi.

· Len - ixtiyoriy kalit so'z, undan keyin yozuv uzunligini aniqlaydigan parametr.

· Charinbuffer% - o'zboshimchalik bilan ochilish rejimida (tasodifiy) ochiq fayl uchun rekord.

· Yopish - bu ko'rsatilgan tavsiflar bilan bog'liq faylni yopadigan operator.

Faylni u bilan ishlash tugaganidan keyin yopish juda muhimdir. "Yopish" operatori fayl ko'rsatkichi va ulangan xotira maydoni.

Fayl bilan ishlashda, ya'ni undan o'qiyotganda faylning oxirini aniqlash juda muhimdir. Bu (faylning oxiri) funktsiyasidan foydalanish mumkin:

EOF (Fotoelle)

· EOF - funktsiya nomi;

· Faylhelle - bu fayli ko'rsatkichidir, uning oxiri aniqlanadi.

Funktsiya haqiqiy (haqiqat) ni qaytaradi, agar fayl tugagan bo'lsa, aks holda yolg'on qaytariladi.

8.2. Matn faylini o'qish va yozish

Matnli fayl "Kirish", "Chiqish" yoki "Amaliy" kirish rejimida ochiq (15-jadvalga qarang). Ushbu rejimning o'ziga xos xususiyati shundaki, u faqat aniq bosma belgilar bilan ishlaydi. Xizmat belgilari bilan ishsiz.

Ma'lumotni yozish uchun ikkita bosma va yozish operatorlari qo'llaniladi, ular sintaksis quyidagicha:

Chop etish # Fallhhandle%, Varbuffer [;]

# Fallhhandle%, Varbuffer [;]

· Chop etish / yozish - kalit so'zlar operatorlari.

· # Faylhhhindl% bu ma'lumotlar joylashtiriladigan fayl ko'rsatgichidir.

· Varbuffer - bu faylda qayd etadigan qiymat.

· ; - Matnli faylga yozishda ishlatiladigan qo'shimcha parametr, keyingi qiymat bir xil chiziqda va uning yo'qligi - keyingisiga tegishli ekanligini anglatadi.

Fayldan ma'lumotni o'qish uchun "Kirish" va "Line Input" operatorlari qo'llaniladi. SynjixsixeningRugua:

Line Inpute # Faylhhindle%, Varbuffer

Kirish # Faylhhindle%, Varbuffer

· Chizma kirish / kirish - kalit so'zlar operatorlari.

· # Faylhhhindle% - bu ma'lumotga ishoniladi.

· Varbuffer - bu ma'lumotlarning o'qilishi o'zgaruvchan.

Chiziq kiritish va kiritish maqsadlari o'rtasidagi farq shundaki, birinchi bo'lib faqat matnli fayllar uchun mo'ljallangan va ikkinchisi har qanday uchun mo'ljallangan. Matnli fayllar mavjud bo'lsa, kiritish birinchi qismdagi ma'lumotlarni bir qatorda o'qiydi (matnli ma'lumotlar uchun) va "" "(bo'shliq) va" "," (bo'shliq) va ",". Chiziq kirish "har qanday ayirboshlamachilarni e'tiborsiz qoldirib, butun chiziqni birdan o'qiydi.

Eslatma

Vizual bazada ilgari yaratilgan fayllarning formatini boshqarmaydi. Shuning uchun "2" belgisi kerakli raqam sifatida o'qish mumkin va aksincha.

8.3. Ikkilik fayllar bilan ishlash

B. ikkilik format "Operator" "Ikkilik" rejimida. Ushbu rejimning o'ziga xos xususiyati shundaki, fayl bilan ishlash faqat ma'lum bir baytlarda yo'naltirilgan. Vizual bazani faylning joylashuviga to'g'ridan-to'g'ri qo'shishi mumkin bo'lganidan beri ushbu rejim ham deyiladi - to'g'ridan-to'g'ri kirish rejimi. Ushbu rejimning yana bir xususiyati - bu bir vaqtning o'zida yozish va ma'lumotni qayta ko'rib chiqmasdan o'qish va o'qishni o'qitish. Ikkilik rejimida ochiq bo'lgan faylga yozish quyidagi sintaksis tomonidan amalga oshiriladi:

# Fallhhandle%, Namevar

· Bu ma'lumot yozuvchi operatori nomi.

· Qayta qurish - ma'lumotlar yozib olinadigan faylning bayt soni (ixtiyoriy parametr).

· Namevar - o'zgaruvchini, ularning tarkibi faylda qayd etiladi.

Fayldan ikkilik rejimdagi ma'lumotlarni tekshirish quyidagi Operatordan foydalanadi:

# Fotoelle%, Namevar

· Olish - Axborot yozish operatori nomi.

· Fotoelle% - fayl ko'rsatgich.

· Qayta qurish - ma'lumotlar o'qiladi (majburiy emas) faylning baytim soni.

· Namevar - bu ma'lumotlarni o'qigan o'zgaruvchining ismi.

Ikkilik rejim ma'lumot baytatlariga e'tibor qaratganligi sababli, bufer o'zgaruvchisi qat'iy belgilangan turga ega bo'lishi kerak: keyin baytning raqami, keyin belgi bir belgi yoki belgi bir belda. baytning belgilari bayt qiymatiga mos keladigan belgi, Ansi sifatida o'qiladi. Ushbu belgi hatto matnli fayllar bo'yicha erishib bo'lmaydigan menejer bo'lishi mumkin.

Eslatma

"Qayta sotish" parametrlari bo'lmasa, ma'lumotni yozib olish yoki o'qish paytida siz ishlaganingizdan so'ng, ma'lumotning yozish yoki o'qish.

8.4. Manipulyatsiya grafikasi

Siz fayllardagi grafik rasmlarni ushlab turishingiz va ekstrakti. Raster faylidan yoki ikonka faylidan olib tashlash va uni "Rasmbox" va "Image" boshqarishning "rasm" xususiyatiga tayinlash uchun quyidagi sintaksis mavjud:

TasavvurectRl.picture \u003d loadikittura (Filpate)

· Tasavvur qilish - deraza nazorati nomi, rasmni boshqarish elementi yoki shaklida;

· Loadikture - funktsiya nomi;

· FilePath - to'liq fayl nomi.

Savopicance Tasavvur qiling .Kiktura, FilPath

· Ozlash operatorning ismi;

· Tasavvur qilish - deraza nazorati nomi, rasmni boshqarish elementi yoki shaklida;

· Rasm - tasvir uchun mas'ul bo'lgan ob'ektning nomi;

· FilePath - diskdagi joylashuvini ko'rsatadigan faylning to'liq ismi.

8.5. Ro'yxatdan o'tish kitobida ma'lumotlar bilan ishlash

Belgilar formatidagi ma'lumotlarni kichik bo'laklarni saqlash uchun Windows Registridan foydalanishingiz mumkin. Vizual katakchada unga kirish uchun ishlatilishi mumkin bo'lgan to'rtta protseduraga ega. Ular juda oson, ammo bitta asosiy kamchilikka ega: Siz faqat ma'lum bir ro'yxatga olish kitobidan foydalanishingiz mumkin: "Mycompyuter \\ HKey _curent \\ Dasturi \\ VBA dasturi sozlamalari". Boshqa ro'yxatga olish kitoblarini kuzatish uchun siz 32 API-ning maxsus xususiyatlaridan foydalanishingiz kerak.

Windows Ro'yxatdan o'tish bo'limining vizual asosiy bo'limi qiymatini olish uchun quyidagi funktsiyadan foydalanishingiz kerak:

MyScring \u003d getetting (vbkeyname, bo'lim, kalit [, standart])

· Mystring - bu funktsiya tomonidan qaytarilgan qiymatni saqlash uchun satr;

· Xonadir - bu funktsiyaning nomi.

· VBKEYNAME - ichki qismning hokazo / VBA nomi bilan mag'lubiyatga qiymati.

· Kalit - bo'limning parametrining nomini ifodalovchi satr qiymat.

· Odatiy holdir, agar xato bo'lsa, uning qiymati qaytariladi (parametr yo'q).

Windows reestrida ba'zi qiymatni tejash uchun quyidagi operator ishlatiladi:

VBKeyname, bo'lim, kalit, mening satrim

· Savol - bu operatorning nomi.

· Mystring - bu qiymat joylashtirilgan string o'zgaruvchisi.

Muayyan kichik bo'limdagi barcha parametr qiymatlarini o'z ichiga olgan ro'yxatga olish kitobidan qator olish uchun quyidagi funktsiya qo'llaniladi:

MyVirt \u003d SetallSetsings (vbkeyname, bo'lim)

· Myvariant "variant" qiymatlari oralig'ida qaytarilgan funktsiya.

· SetallSettings - funktsiya nomi.

· Bo'lim - ma'lum bir dasturning bo'limini yoki bo'limini ifodalovchi satr qiymat.

Parametrlarning butun qismini o'chirish uchun operator quyidagi sintaksis bilan qo'llaniladi:

VBKeyname, Bo'lim, kalit o'chirish

· Deletsetting operatorning ismi.

O'z-o'zini tekshirish uchun savollarni tekshiring

Qancha ma'lumotni qancha vaqt saqlashim mumkin?
Fayl nima?
Siz qaysi fayl nomlarini bilasiz?
Operatorni ochiq operator sintaksisini olib keling. Uning parametrlarining maqsadini tushuntiring.
Bir vaqtning o'zida bitta faylga bir nechta dasturlarga qo'shma kirishni tashkil qilishingiz mumkin?
Faylda qanday ma'lumotni tugatganini qanday aniqlash mumkin?
Nega fayl bilan ishlashdan keyin uni yopish tavsiya etiladi?
Matn va ikkilik fayllarning farqini nimada ko'rasiz?
Ma'lumotlar matn rejimida o'qish va yozish qanday?
Datalarni ikkilik fayl rejimida o'qish va yozish qanday?
Fayllar bilan ishlashda "bosma" operatorlari o'rtasidagi farq nima?
Fayllar bilan ishlashda "Kirish" va "Line Input" operatorlari o'rtasidagi farq nima?
Qanday qilib grafik ma'lumotlar bilan ishlashim mumkin?
Windows reestrlari bilan ishlashning asosiy printsiplari nima?

Derazalar

Ishning maqsadi: Fayllar bilan ishlash uchun VB 6 operatorlarini o'rganish va ulardan foydalanish turli xil turlar: ketma-ket (matn) fayllari, o'zboshimchalik bilan kirish fayllari, ikkilik fayllar. Asbobni tadqiq qilish va undan foydalanish Umumiy.Dialog oynasi. Fayllarni ochish va saqlash uchun, shrift va rangni tanlang, shuningdek ob'ektdan foydalanish Clipboard.matnli parchalarni saqlash uchun - oddiy matn muharririni yaratish misolida.

Boshqarish savollari:

1. Matn faylini qanday ochishingiz mumkin? Matn va boshqa ochiq faylni qanday yopish kerak?

2. Matnli fayldagi ma'lumotlar yozish uchun ochiq? Yozish va chop etish operatorlari o'rtasidagi farq nima?

3. O'qish uchun matnli faylning ma'lumotlari qanday ishlaydi? Bir-biridan tashqari operatorlarning kirish va kirish kiritish usuli? Fayldan qaysi funktsiyani o'qishingiz mumkin set raqami belgilar? Barcha fayl belgilarini qanday o'qish kerak?

4. Foydalanuvchi ma'lumotlari turi va ushbu kontseptsiyaning o'zboshimcha kirish fayllari bilan ishlashda qanday qo'llaniladi ( rAF.)?

5. Faylning qaysi operatorlari bilan rAF. Yozuvlar va faylni o'qing rAF.yangi yozuvlar yozadimi?

6. Qaysi maqsadda, indeks fayl bilan ishlashda aniqlanadi va ishlatiladi rAF.?

7. Ikkilik fayllardan foydalanishning xususiyatlari qanday? Ular qanday ochishadi? Qanday qilib o'qish kerak ikkilik fayl. va ikkilik faylga yozingmi?

8. Qanday qilib boshqaruvni qo'llashim mumkin Umumiy.Dialog oynasi. Matnli oynada matn faylining tarkibini yuklab olish uchun? Tahrirlangan matnni xuddi shu boshqaruv elementidan foydalanib qanday tejash kerak?

9. Qanday qilib boshqaruvni qo'llashim mumkin Umumiy.Dialog oynasi. Fayl tarkibini yuklab olish uchun rTF. dalada BoyText qutisi.? Ushbu boshqaruv elementidan foydalanib fayldagi tahrirlangan matnni qanday tejash rTF.?

10. Qanday qilib elementni qo'llashim mumkin Umumiy.Dialog oynasi. Shrift parametrlarini o'zgartirish va oynada matn rangini o'zgartirish uchun Text qutisi. (yoki derazadagi tanlangan matnli bo'lak BoyText qutisi.)?

7.1 misol. Matnli faylni (matn faylidan o'qish) arizasini ko'rib chiqayotgan dasturni ko'rib chiqing "Xodimlar haqida ma'lumot" - ularning har biri identifikatsiya raqami, to'liq ism, tug'ilgan sana va xodimning tug'ilgan joyi mavjud. Satrlar ekran shaklida kombinatsiyadagi 4.1-rasmda (I)) massivdagi taroqsimon buyumlarning 1 - soddalashtirilgan qismini yaratadigan stol hosil qiladi.

Masofaviy qatorni ajratib ko'rsatish ", vbexciantsiya

Taroq (j) .Remeitem i

'Quti yangi yozish Jadval:

Xususiy sub mnuinsert_click ()

i% \u003d taroq (0) .Listindex

Agar men bo'lsa< 0 Then

Msgbox "uning oldida qo'shilish uchun satrni ajratib ko'rsatish", vbExcllanions

Taroq (0) .Additem Inputbox ("Raqamni kiriting"), men

Taroq (1) .Additem Inputbox ("To'liq ismni kiriting"), men

Taroq (2) .Additem Inputbox ("tug'ilgan kunini kiriting."), Men

Taroq (3) .Additem kirish qutisi ("tug'ilgan joyini kiriting."), Men

Arizani jadvalga o'zgartirish:

Xususiy sub mnuupdate_click ()

i% \u003d taroq (0) .Listindex

Agar men bo'lsa< 0 Then

Msgbox "o'zgaruvchan satrni ajratib ko'rsatish", vbexcylacation

Taroq (0) .List (i) \u003d kiriting ("Raqamni kiriting", taroq (0) .List (i))

Taroq (1) .List (i) \u003d kiriting ("To'liq ismni kiriting", taroq (1) .List (i))

Taroq (2) .List (i) \u003d kirish qutisi ("tug'ilgan kunini kiriting.", Taroq (2) .List (i))

Taroq (3) .List (i) \u003d kirish qutisi ("joyni kiriting.", Taroq (3) .List (i))

'Jadvalni tozalash:

Xususiy subergenr_click ()

'Stol ma'lumotlarini matnli fayldan to'ldirish:

Xususiy sub mnulafe_click ()

Ochish uchun "odam. TXT"

№ 1, xumb, fio, BDEAT, blok

Taroq (0) .Additem xumb

Taroq (1) .Additem Fio

Taroq (2) .Additem BDAT

Taroq (3) .Additem bloki

'Matnli faylda jadval ma'lumotlarini yozib olish:

Xususiy sub mnusiv_click ()

N% \u003d taroq (0) .ListCount

Ochiq "odam. TXT" 1-sonli mahsulot uchun

I \u003d 0 dan n - 1 uchun

numb \u003d val (taroq (0) .List (i))

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

bDEAT \u003d CDEAT (2) .List (i))

blok \u003d taroq (3). Ro'yxat (i)

# 1, xumb, fio, BDEAT, blokni yozing

"Ilovani o'chirish:

Xususiy sub mnuexit_click ()

7.2 misol. . Boshqarish vositalaridan foydalanishni namoyish etadigan dasturni ko'rib chiqing Umumiy.Dialog oynasi. Faylni ochish va saqlash uchun shrift va ranglarni tanlash, shuningdek matnni tahrirlash.

Format fayli. TXT. matn maydoniga yuklanadi (chap maydoni 7,2-rasmda) va format fayli RTF. - dalada BoyText qutisi. (7.2-rasmda).

ob'ekt

Sinf

ob'ekt

Mulk

ob'ekt

Qiymatli mulk

"Umumiy panellar

muloqot

Yorliq sifatida oching / saqlang

Shriftni belgilang.

Xatcho'p ranglari

Jadval menyubyulylning xususiyatlariga xalaqit bermaydi. Shrift, Rang va Tahrirlash.. Quyida faqat menyu buyruqlari uchun protsedura kodi. Fayli (Ochiq., Saqlash. va Saqlash.Kabi). Boshqa menyu buyruqlari uchun kodni rasmiylashtirish - bu ishning ikkinchi ishi mavzusi.

Xususiy sub mnuopen_click ()

Combardialog1.ShowOwen.

F $ \u003d Combardialog1.Filename

Agar o'ng (f, 3) \u003d "rtf" bo'lsa

RichtTekxtBox1.loadfile F.

To'g'ri (F, 3) \u003d "txt"

1-sonli kirish uchun f off oching

S $ \u003d Kirish (N, 1)

Xususiy sub mnusiv_click ()

CombardialOg1.Shoave

F $ \u003d Combardialog1.Filename

Xususiy sub mnusave_click ()

CombardialOg1.Shoave

F $ \u003d Combardialog1.Filename

RichtTextBox1.SavveFile F, RTFRTFFF

Ushbu ish davomida talaba 2 ta vazifani bajarishi kerak.

Mashq 1. Vazifani yakunlash jarayonida talabalar o'zboshimchalik bilan kirish to'g'risidagi fayllar bilan VB 6 imkoniyatlarini o'zlashtirmoqdalar ( RAF -tasodifiykirishfayli).

Berilgan ma'lumotlar bazasi uchun foydalanuvchi ma'lumotlar turi e'lon qilinadi, o'zgaruvchan o'zgaruvchisi deb e'lon qilinadi (qo'llanma, 108 - 112) va unda foydalanuvchi turdagi o'zgaruvchisi ishlatiladi.

Xususan, menyu buyrug'i uchun protseduralar amalga oshiriladi. Faylga yozingRAF. va Fayldan o'qing.RAF.. 7.1-misolda ma'lumotlarni tahrirlash uchun ob'ektlar ishlatiladi. Kombinatsiya.Quti. va menyu Tahrirlash. Beshta buyruq bilan subyenu: Eslatma qo'shish, Yozishni o'chirish, Yozish yozish, Yozishni tahrirlash, Tasvirni tozalash.

1 variant.

"Car" stoli uchun foydalanuvchi ma'lumotini e'lon qiling (7.1-jadval) ma'lumotlar bazasi "Avtomatik xizmati" ma'lumotlar bazasi.

mashina	mashina	ayb

7.1-jadvalning pastki chizig'ida - maydonlar turlari.

2-variant..

"Avtomobil xizmati" ma'lumotlar bazasining "xato" jadvali uchun foydalanuvchi ma'lumotlarini e'lon qiling (7.2-jadval).

ayb

Ism

ayb

Narx

7.2-jadvalning pastki qismida - maydonlar turlari.

7.1-namunani qo'llash, jadval sifatida, jadvalga kiritish va tahrirlash, ushbu ma'lumotlarni tasodifiy kirish fayliga kiritish va o'zboshimchalik bilan kirish faylidan o'qishni yozish. 7.1-misolda ko'rsatilgan harakatlar menyuni buyruqlar rasmini qanday qilib namoyish etishini amalga oshiradi. 7.1.

2-vazifa. Vazifalar davomida talabalar ushbu dasturni oddiy matn muharriri sifatida ko'rib chiqishga imkon beradigan yangi xususiyatlar bilan 2-misolni to'ldirishni to'ldiradilar.

1 variant Umumiy.Dialog oynasi. Menyu buyruqlarini amalga oshirish Shrift va Rang (subenu bilan) Rang belgilari va Orqa fon rangi). Ushbu buyruqlarni, shriftni tanlash (uning nomi, chizig'i va o'lchamlari) derazadagi tanlangan matnli parchani ta'minlamasligi kerak. BoyText qutisi.Tanlangan pardasi belgilarining rangi bilan bir qatorda, butun oynaning orqa fon rolini tanlang.

Eslatma: Ob'ektni sozlashda Umumiy.Dialog oynasi. Xususiyatlar (Custom) yordamida shriftni tanlash uchun siz 1, 2 yoki 3-sonli bayroqlarning qiymatini belgilashingiz kerak (qo'lda va 183-betga qarang).

2-variant.. Boshqaruvdan foydalanish Umumiy.Dialog oynasi. Menyu buyruqlarini amalga oshirish Tahrirlash. (Subenu) Nusxalash., Kesilgan. va Paste.) tayinlangani nusxa ko'chirmoq yoki olib tashlash Tanlangan matnning klipida, shuningdek, kiritmoq Tanlangan joyda Clipboard tarkibidagi matni.

Eslatma: Birja buferiga (ob'ekt Clipboard.) Siz postkstika va gettext usullaridan foydalanishingiz mumkin:

Clipboard. Cosmongextbox1.Selext.

RichTExtBox1.Seltrext \u003d Clipboard. Gettext.