VB6 İş Menüsü Dosya Sistemi Örnekleri Kodu.

Her program diske veri kaydetmeli ve bunları diskten okumalıdır. Bu, örneğin, program ayarlarını kaydetmek için, kullanıcının bir dahaki sefere tekrar yapılandırmak zorunda olduğunuz programı beğenmesi muhtemel değildir.

Bu yazı, Visual Basic ile metin dosyalarıyla çalışma hakkında konuşacağız.

Dosya Kolu

Dosyalarla çalışmak işletim sistemi G / Ç kanallarını kullanır, yani. herkes açık dosya Kendi numarası var.

Visual Basic'te bir fonksiyon var FreeFile.Bu, dosyayla çalışmak için kullanılabilecek ücretsiz bir kanal numarası döndürür. Ücretsiz kanal yoksa, bir hata oluşur.

FreeFile [((Rangenumber) ]

Rangenumber - eğer serbest kanal değerlerini tanımlamanıza izin veren parametre Rangenumber \u003d 0 (varsayılan), ardından kanal numarası 1 - 255 aralığından ve eğer 1, daha sonra 256 - 511 aralığından iade edilir.

MyFile \u003d FreeFile. "MyFile değişkeni ücretsiz bir kanal atanır ve şimdi dosyalarla çalışmak için kullanılabilir.

Metin dosyalarıyla çalışma

Çoğu zaman metin dosyalarıyla görüşmeniz gerekir. Metin dosyaları bir setten oluşur semboller ASCII. (Amerikan Standart Kodu Bilgi değişimi. - Amerikan standart kod Bilgi paylaşımı için).

Verileri yazmaya başlamadan önce, dosya açılmalıdır, operatör kullanılarak yapılır. Açık (Dosya adı) Olarak #Dosya numarasıNerede:

Giriş - Dosya yoksa, hata oluşursa, hata oluşur;

Çıktı. - Kayıt için, dosya mevcut değilse, oluşturulursa ve dosya varsa, üzerine yazılır;

Eklemek. - Dosya yoksa, oluşturulacaksa, oluşturulacaktır ve dosyalar varsa, veriler dosyanın sonuna eklenecektir.

Metin dosyalarını okuma iki şekilde gerçekleştirilebilir: Hakim okuma, bunun için işlevi kullanır Giriş (Number_stile_simvol, #Dosya numarası) ve bu işlev için sıraya girin Hat girişi #Dosya numarası, Vasıtasıyla.

Loş myfile

Dize olarak loş s "Veri depolama değişkeni

MyFile \u003d FreeFile.

#Myfile olarak giriş için aç ("C: \\ test.txtt")

Satır girişi #myfile, s "Test.txt dosyasından gelen ilk satırı S değişkenine okuyun.

Loş myfile "Ücretsiz bir dosya için bir değişken ilan ediyoruz

Loş ben tamsayı olarak "Döngü değişkeni

Dize olarak loş ts "Dizeleri okumak için değişken

Dize olarak loş s "Nihai verileri depolamak için değişken

MyFile \u003d FreeFile. "Dosyalarla çalışmak için ücretsiz kanal atıyoruz

"Okumak için Test.txt dosyasını açın.

I \u003d 1 ila 5 için

Satır girişi #MyFile, TS "Test.txt dosyası satırını oku

Eğer ben \u003d\u003e 5 ise s \u003d ts "Beşinci çizgi ise, sonra değişkende hatırlayın.

Sonraki I.

#Myfile "yakın dosyayı kapatın

Dim MyFile "Ücretsiz bir dosya için bir değişken ilan ediyoruz

Dizge olarak loşar "Depolama Değişkeni Verileri Oku

MyFile \u003d FreeFile. "Dosyalarla çalışmak için ücretsiz kanal atıyoruz

#Myfile olarak giriş için aç ("C: \\ test.txtt") "Okumak için Test.txt dosyasını açın.

S \u003d Giriş $ (log (1), 1) "Tüm dosyayı S değişkeninde okuyun

#Myfile "yakın dosyayı kapatın

Operatörler dosyaya yazmak için var Yazdır #Dosya numarası, Veri ve Yazmak #Dosya numarası, Veri. Bu operatörleri sadece bunu ayırt eder Yazmak. Alıntılara veri yazıyor ve Yazdır. tırnak işareti olmadan.

Aşağıdaki kod C: \\ diskinde oluşturulur yeni dosya. Test.txt ve içinde iki satır kaydeder, ilk alıntı olmadan ve ikincisi alıntılarda:

Loş myfile "Ücretsiz bir dosya için bir değişken ilan ediyoruz

MyFile \u003d FreeFile. "Dosyalarla çalışmak için ücretsiz kanal atıyoruz

#Myfile olarak çıktı için açık ("C: \\ test.txt") "Kaydetmek için Test.txt dosyasını açın

#MyFile'i yazdırın, "Bu satır baskı operatörü tarafından kaydedilir, alıntılar olmadan ..."

#Myfile yaz, "Bu satır, yazma operatörü tarafından kaydedilir, alıntılarda ..."

#Myfile "yakın dosyayı kapatın

Tamam. Muhtemelen anlaşıldığınız gibi, operatör dosyayı kapatmaya yarar Kapat #Dosya numarası, burada, # Dosya numarası Şart değil.

Makale biraz nemlidir, ancak acemi programcılar için faydalı olacaktır. Bir dahaki sefere ikili dosyalarla çalışmak hakkında konuşacağım.

8. Bilgi tasarrufu ve okuma

Programın kapatılmasından sonra yapmak için, bellekte oluşturulan tüm veriler gitmedi, sabit diskteki bilgileri kaydedebilmeniz gerekir. Aksi takdirde, tüm bilgiler izleme olmadan kaybolur. Verileri kaydedin ve onları çeşitli şekillerde okuyun. Çeşitli hacim ve formattan bilgi ile çalışmak için, ikili ve metin dosyalarını kullanabilirsiniz. Küçük miktarda bilgi saklamak için Windows kayıt defterini kullanabilirsiniz. Ve en zor görevler için, veritabanlarını kullanmak makul.

8.1. Operatörü kullanarak dosyaları açma "Açık »

Dosya, herhangi bir harici bilgi sürücüsünün adlandırılmış bir alanıdır. Bilgisayarın hafızasında "Canlı" verileri ve dosyalar sabit diskteki. Program doğrudan dosyalarla çalışmaz, ancak işletim sistemini aracı olarak kullanır.

Dosya adları iki tür vardır: Tam - Dosya adına ek olarak, dosyanın dış taşıyıcıdaki konumu da belirtilir (örneğin, "C: \\ Program Dosyaları \\ Microsoft Visual Studio \\ VB98 \\ VB 6.exe" ) ve kısa - sadece dosya adı (VB 6.exe). Dosyanın yeri belirtilmediyse, geçerli klasörde, başvurunuzun bulunduğu varsayılan klasörde aranır. Doğrudan dosya adı iki bölümden oluşur: gerçek benzersiz dosya adı ve genişlemesi. Ad, dosyanın kendisini tanımlar ve uzantı genellikle dosya biçimini veya hangi programın oluşturduğu programı gösterir.

Dosyayla çalışmaya başlamadan önce, işletim sisteminden talep etmelisiniz. işaretçi (tanımlayıcı) dosya. Bunu elde etmek için "FreeFile" işlevini kullanın. Ardından, açık ifadeyi kullanarak, bu işaretçi gerekli dosyayla ilişkilendirilir. Sadece bundan sonra program bununla birlikte çalışabilecektir. Dosya açma sözdizimi aşağıdaki gibidir:

'Ücretsiz bir dosya işaretçisi alın ve bir değişkene atayın

FileHandle% \u003d FreeFile

'Bevel'i aç

FilePath'u aç _

[#] FileHandle%

... (iş dosyası)

Kapat [#] filewhandle

· FileHandle%, dosyanın işaretçisinin depolandığı bir değişkendir;

· FreeFile - Dosya işaretçisini döndüren fonksiyonun adı;

· Açık - operatörün adı;

· FilePath - Tam dosya adı;

· İçin - bir anahtar kelime ve ardından dosya erişim modunun bir açıklaması;

· Mod - dosya erişim modu (bkz. Tablo 15);

Tablo 15.

Dosya erişim modları

Erişim modları	Açıklama
Eklemek.	Mevcut bir metin dosyasının sonuna veri ekleme. Dosya yoksa, oluşturulacak
İkili.	İkili modda bir dosya açma, yani. Bir bayt biçiminde. Dosya mevcut değilse, ancak oluşturulacak
Giriş	Metin biçiminde bir okuma dosyası açma
Çıktı.	Bir metin dosyasını kaydetmek için bir dosyayı açma. Aynı zamanda, tüm eski bilgiler silinecek. Dosya mevcut değilse, ancak oluşturulacak
Rastgele	Keyfi erişim modunda bir dosyayı açmak. Bu mod, basit girişlerle çalışmak için kullanılır. Dosya mevcut değilse, ancak oluşturulacak

· Erişim - İsteğe bağlı bir anahtar kelime ardından erişim türünün bir açıklaması;

· Accesstype - Erişim Türü Açıklama:

· Okuma - okuma;

· Yazma - Kayıt;

· Yazma - okuma ve yazma okuma.

Not	Ekleme ve çıkış modları eklendiğinde, yalnızca Yazma Erişim Tipi Giriş - Yalnızca Okuma ve İkili ve Rastgele ile her üç erişim türü mevcuttur.

· LockType, programınız onunla çalışırken diğer programların bu dosyayı kullanıp kullanmayacağını tanımlayan isteğe bağlı bir parametredir. Genellikle ağdaki çalışmalarla ilişkilendirilir (bkz. Tablo 16).

Tablo 16.

Locktype parametresinin olası değerleri

Değer vermek	Açıklama
Paylaşılan.	Dosya, gerekli haklara sahip tüm kullanıcılara tam olarak erişebilir.
Kilit okuma.	Bir dosyayı okurken bloklar ve kaydın izin verilir
Kilitleme yazısı.	Bir dosyaya kaydı engeller ve okuma izin verilir
Kilit Okuma yazma.	Okumayın ve yazmayın

· Olarak - anahtar kelime ve ardından dosya işaretçisi.

· # - Sembol, aşağıdaki değerin bir dosya işaretçisi olduğunu gösterir.

· LEN - İsteğe bağlı bir anahtar kelime, ardından kayıt uzunluğunu tanımlayan bir parametre.

· CharinBuffer% - Keyfi erişim modunda (rastgele) açık bir dosya için kayıt uzunluğu.

· Kapat, belirtilen tanımlayıcı ile ilişkili dosyayı kapatan bir operatördür.

Bununla çalışmanın bitiminden sonra dosyayı kapatmak önemlidir. "Kapat" operatörü, dosya işaretçisini ve ilgili bellek alanını serbest bırakır.

Dosyayla çalışırken, yani onundan okurken, dosyanın sonunu belirlemek çok önemlidir. EOF (dosya sonu) işlevi kullanılarak belirlenebilir:

EOF (FileHandle)

· EOF - İşlev Adı;

· FileHandle, sonunca belirlenen bir dosya işaretçisidir.

Fonksiyon, dosyanın sonuna ulaşıldığında True (gerçek) döndürür, aksi takdirde yanlış döndürülür.

8.2. Metin dosyasına okuma ve yazma

Metin dosyası "giriş", "çıkış" veya "APPEND" erişim modunda açıktır (bkz. Tablo 15). Bu rejimin özeti, yalnızca belirli basılı sembollerle çalışmasıdır. Servis sembolleri ile iş işe yaramaz.

Bilgi kaydı için, sözdizimi aşağıdaki gibidir, iki baskı ve yazma operatörü kullanılır:

# FileHandle%, varbuffer [;]

· Yazdır / Yazma - Anahtar Kelimeler Operatörleri.

· # FileHandle% Bilginin yerleştirileceği dosya işaretçisidir.

· Varbuffer dosyada kaydedilecek bir değerdir.

· ; - Metin dosyasına yazarken kullanılan isteğe bağlı parametre, bir sonraki değerin aynı hatta kaydedileceği ve bunun yokluğunda - bir sonraki kişiye kaydedileceği anlamına gelir.

Bilgileri dosyadan okumak için, "giriş" ve "satır girişi" operatörleri kullanılır. SyntaxichangChendrugdrugua:

Hat girişi # fileHandle%, varbuffer

Giriş # FileHandle%, Varbuffer

· Hat giriş / giriş - anahtar kelimeler operatörleri.

· # FileHandle%, bilgilerin inanılacağı bir dosya işaretçisidir.

· Varbuffer, bilgilerin okunacağı bir değişkendir.

Hat girişi ve giriş ifadeleri arasındaki fark, birincisinin yalnızca metin dosyaları için tasarlandığı ve ikincisi herhangi biri içindir. Metin dosyaları durumunda, giriş verileri bir satırda birinci ayırıcıya (metin verileri için, ayırıcı "," (virgül) ve sayısal - "" (boşluk) ve ",") ve " Hat girişi "herhangi bir ayırıcıyı göz ardı ederek bir kerede tüm çizgiyi okur.

Not	Visual Basic, önceden oluşturulan dosyaların formatını kontrol etmiyor. Bu nedenle, "2" sembolü, uygun bir sayı olarak okunabilir ve bunun tersi de geçerlidir.

8.3. İkili Dosyalarla Çalışma

Dosyalar Aç B. İkili format "İkili" modunda operatör "açık". Bu modun kendine özgü bir özelliği, dosyayla çalışmanın yalnızca belirli baytlara odaklandığıdır. Visual Basic, doğrudan dosyanın konumuna ekleyebildiğinden, bu mod da denir - doğrudan Erişim Modu. Bu modun bir başka özelliği, aynı anda kayıt ve okuma bilgilerinin, dosyanın farklı bölümlerine ayırmadan kullanılabilirliğidir. İkili modda açık olan bir dosyaya kayıt aşağıdaki sözdizimi ile gerçekleştirilir:

Put # FileHandle%, Namevar

· Put, bilgi kayıt operatörünün adıdır.

· Recnumber - Bilgilerin kaydedileceği dosyanın bayt sayısı (isteğe bağlı parametre).

· Namevar - değişken, içeriği dosyaya kaydedilecektir.

Dosyadan bilgiyi ikili modda kontrol etmek aşağıdaki operatörü kullanmaktır:

Al # FileHandle%, Namevar

· GET - Bilgi kayıt operatörünün adı.

· FileHandle% - Dosya Pointer.

· Bilgilerin okunacağı dosyanın geri çekilmesi - bayt sayısı (gerekli parametre değil).

· Namevar, okuma bilgilerinin yerleştirileceği değişkenin adıdır.

İkili mod, bilgi baytlarına odaklandığından, ardından dosyadan okurken, tampon değişkeni kesinlikle tanımlanmış bir türe sahip olmalıdır: "bayt", sonra baytın sayısal değeri veya bir karakterde sembol sabit uzunluğu, o zaman Bayt, bir sembol olarak okunacak, kodu bayt değerine karşılık gelen ANSI. Bu sembol, metin dosyaları durumunda elde edilemeyen bir yönetici olabilir.

Not

"Recnumber" parametresinin yokluğunda, birlikte çalıştıktan sonra dosyanın aşağıdaki panelinde bilgi kaydı veya okunması gerçekleşir.

8.4. Manipülasyon grafikleri

Grafik görüntüleri dosyalardaki ve ayıklayabilirsiniz. Raster dosyasından veya simge dosyasından çıkarmak ve "PictureBox" ve "Resim" kontrolünün "resim" özelliğine atayın, aşağıdaki sözdizimiyle "LoadPicture ()" işlevini kullanın:

İmagectrl.picture \u003d loadpicture (FilePath)

· İmageChrl - bir desen, bir görüntü kontrol öğesi veya formu olan pencere kontrolünün adı;

· LoadPicture - İşlevin adı;

· FilePath - tam dosya adı.

SavePicture Imagectrl .picture, FilePath

· SavePicture, operatörün adıdır;

· İmageChrl - bir desen, bir görüntü kontrol öğesi veya formu olan pencere kontrolünün adı;

· Resim - Görüntüden sorumlu nesne özelliğinin adı;

· FilePath - diskteki konumunu gösteren dosyanın tam adı.

8.5. Kayıt defterindeki verilerle çalışma

Karakter formatı bilgilerinin küçük parçalarını saklamak için, Windows kayıt defterini kullanabilirsiniz. Visual Basic, erişmek için kullanılabilecek dört prosedüre sahiptir. Kullanımı çok kolaydır, ancak bir ana dezavantajı vardır: Verilere yalnızca belirli bir kayıt defteri anahtarından erişebilirsiniz: "MyComputer \\ HKEY _Current _User \\ Software \\ VB ve VBA Programı Ayarları". Diğer kayıt defteri bölümlerine erişmek için, Win 32 API'nin özel özelliklerini kullanmanız gerekir.

Parametrenin değerini Windows kayıt defteri bölümünün Visual Basic bölümünden almak için aşağıdaki işlevi kullanmanız gerekir:

MyString \u003d GetSetting (VBKeyName, bölüm, Anahtar [, Varsayılan])

· MyString, işlev tarafından döndürülen değeri depolamak için bir dizedir;

· Getleme, fonksiyonun adıdır.

· VBKeyName - Dahili alt bölümün adı olan bir dize değeri VB / VBA.

· Anahtar - bölümdeki parametrenin adını temsil eden bir dize değeri.

· Varsayılan, bir hata durumunda değeri iade edilecek isteğe bağlı bir argümandır (parametre yok).

Windows kayıt defterinde bir değeri kaydetmek için aşağıdaki operatör kullanılır:

Savesetting vbkeyname, bölüm, anahtar, benim dize

· SaveSetting, operatörün adıdır.

· MyString, değerin yerleştirileceği bir dize değişkenidir.

Belirli bir alt bölümden tüm parametre değerlerini içeren kayıt defterinden bir dizi elde etmek için aşağıdaki işlev kullanılır:

MyVariant \u003d SetTallSettings (VBKeyName, bölüm)

· MyVariant, "varyantı" değerinin aralığı tarafından döndürülen bir fonksiyondur.

· SetTallSettings - İşlev adı.

· Bölüm - belirli bir uygulamanın bir bölümünü veya alt bölümünü temsil eden bir dize değeri.

Parametrelerin tamamını silmek için, bir operatör aşağıdaki sözdizimiyle birlikte uygulanır:

Deletesetting vbkeyname, bölüm, anahtar

· Siletesetting, operatörün adıdır.

Kendi kendine test için soruları kontrol edin

Bazı bilgileri ne kadar süre saklayabilirim?
Dosya nedir?
Hangi dosya adlarını biliyorsunuz?
Açık operatör sözdizimini getirin. Parametrelerinin amacını açıklar.
Birden fazla uygulamanın ortak erişimi aynı anda bir dosyaya nasıl düzenleyebilirsiniz?
Dosyada hangi bilgiler tükenir?
Neden dosyayla çalıştıktan sonra kapanması önerilir?
Metin ve ikili dosyaların biçimlerinin farkını ne görüyorsunuz?
Veri, metin dosyası modunda nasıl okunur ve yazar?
Veriler ikili dosya modunda nasıl okunur ve yazar?
Dosyalarla çalışırken "baskı" ve "Yazma" operatörleri arasındaki fark nedir?
Dosyalarla çalışırken "giriş" ve "satır girişi" operatörleri arasındaki fark nedir?
Grafik verileriyle nasıl çalışabilirim?
Windows kayıt defterinle çalışmanın temel prensipleri nelerdir?

pencereler

İşin amacı: Dosyalarla çalışmak için VB 6 operatörlerinin öğrenilmesi ve kullanımı farklı şekiller: Sıralı (metin) dosyaları, keyfi erişim dosyaları, ikili dosyalar. Aracı Araştırma ve Kullanımı YAYGIN.İletişim kutusu. Dosyaları açmak ve kaydetmek için, nesneyi kullanmanın yanı sıra yazı tipi ve rengi seçin. Pano.metin parçalarını depolamak için - basit bir metin editörü oluşturma örneğinde.

Kontrol soruları:

1. Bir metin dosyasını ne yönlendirebilirsiniz? Metin ve başka bir açık dosyayı nasıl kapatır?

2. Metin dosyasındaki veriler nasıl yazılır? Yazma ve baskı operatörleri arasındaki fark nedir?

3. Metin dosyasındaki veriler nasıl okunur? Her bir operatörden ne diffl giriş ve satır girişi? Hangi fonksiyonla dosyadan okuyabilirsiniz set numarası karakterler? Tüm dosya karakterlerini nasıl okur?

4. Kullanıcı veri türü nedir ve keyfi erişim dosyalarıyla çalışırken bu kavramın nasıl kullanıldığı ( raf.)?

5. Dosyadaki hangi operatörlerle raf. Kayıtları ve dosyayı okuyun raf.yeni kayıtlar yazacak mı?

6. Hangi amaç için, endeks belirlenir ve dosyayla çalışırken kullanılır. raf.?

7. İkili dosyaları kullanmanın özellikleri nelerdir? Nasıl açılırlar? Nasıl okunur ikili dosya. ve ikili dosyaya yazın?

8. Kontrolü nasıl uygulayabilirim YAYGIN.İletişim kutusu. Bir metin dosyasının içeriğini bir metin kutusuna indirmek için? Düzenlenmiş metni aynı kontrol öğesini kullanarak metin dosyasında nasıl kaydedin?

9. Kontrolü nasıl uygulayabilirim YAYGIN.İletişim kutusu. Dosyanın içeriğini indirmek için rtf. alanda ZenginMetin kutusu.? Düzenlenmiş metni aynı kontrol elemanını kullanarak dosyada nasıl kaydedin rtf.?

10. Bir öğeyi nasıl uygulayabilirim YAYGIN.İletişim kutusu. Yazı tipi parametrelerini değiştirmek ve penceredeki metnin rengini değiştirmek için Metin kutusu. (veya penceredeki seçilen metin parçaları ZenginMetin kutusu.)?

Örnek 7.1. Bir metin dosyasına (ve bir metin dosyasından okuma) gösteren bir uygulamayı düşünün. Her biri bir kimlik numarası, tam adı, doğum tarihi ve bir çalışanın doğum yeri içeren satırlar. Dizeler, ekran formundaki bir tablo oluşturur (Şekil 7.1), tarz özelliğinin 1 - SimpleCOBBO olduğu Tarak Nesneleri (I) dizisini oluşturan kombinasyon kutusu kontrolünün 4'ü (Şekil 7.1) oluşturur.

Uzak bir dizgeyi vurgulayın ", VBExClamation

Tarak (j) .removeitem ben

'Kutu yeni Kayıt Tablo:

Özel alt mnuinsert_click ()

İ% \u003d tarak (0) .ListIndex

EĞER BEN.< 0 Then

Msgbox "önüne eklemek için bir dizgeyi vurgulayın", VBexClamation

Tarak (0) .additem Invubbox ("Numarayı Gir"), i

Tarak (1) .additem Invubbox ("Tam ad gir"), i

Tarak (2) .additem Invubbox ("doğum tarihini girin."), Ben

Tarak (3) .additem Invubbox ("doğum yerini girin."), Ben

'Tablodaki girişi değiştirme:

Özel alt mnuupdate_click ()

İ% \u003d tarak (0) .ListIndex

EĞER BEN.< 0 Then

MSGBOX "Değişken bir dizgeyi vurgulayın", VBExClamation

Tarak (0). List (i) \u003d Inputbox ("Numarayı Gir", Tarak (0). List (i))

Tarak (1) .List (i) \u003d Inputbox ("Tam Adı Girin", Tarak (1). List (i))

Tarak (2) .List (i) \u003d InputBox ("Doğum tarihini girin.", Tarak (2). List (i))

Tarak (3). List (i) \u003d Inputbox ("Yer girin.", Tarak (3). List (i))

'Tüm tabloyu temizleme:

Özel alt mnuclear_click ()

'Tablo bilgilerini bir metin dosyasından doldurma:

Özel alt Mnuload_Click ()

Aç "Kişi. Txt" # 1 olarak giriş için

Giriş # 1, uyuşuk, Fio, Bdate, Bloc

Tarak (0) .additem uyuşuk

Tarak (1) .additem fio

Tarak (2) .additem bdate

Tarak (3) .additem bloğu

'Bir metin dosyasında tablo bilgilerini kaydetme:

Özel alt mnusave_click ()

N% \u003d tarak (0) .ListCount

Açık "Kişi. Txt" # 1 olarak çıktı için

İçin i \u003d 0 ila n - 1

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

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

bdate \u003d CDate (Tarak (2). List (i))

bloc \u003d tarak (3). List (i)

# 1, numb, fio, bdate, blok yaz

'Uygulamanın kapatılması:

Özel alt mnuexit_click ()

Örnek 7.2. . Kontrol kullanımını gösteren bir uygulamayı düşünün YAYGIN.İletişim kutusu. Dosyayı açmak ve kaydetmek için, yazı tipi ve renkleri seçmek ve metni düzenlemek için.

Format dosyası. TXT. metin alanına (Şekil 7.2'deki sol alan) ve format dosyasına yüklenecektir. Rtf. - alanda ZenginMetin kutusu. (Şekil 7.2'de sağ alan).

nesne

Sınıf

nesne

Emlak

nesne

Değer özelliği

"Genel paneller

diyalog

Açık / Sekme olarak kaydet

Yer imi yazı tipi.

Yer imi rengi

Tablo, menü komutu özelliklerini engellemez. Yazı tipi, Renk ve Düzenle.. Aşağıda, yalnızca menü komutları için prosedür kodudur. Dosya (Açık., Kayıt etmek. ve Kayıt etmek.Gibi). Diğer menü komutları için kod hazırlama - bu çalışmanın 2. işinin konusu.

Özel alt mnuopen_click ()

Commultialog1.Showopen.

F $ \u003d COMMONDIALOG1.FILENAME

Sağsa (f, 3) \u003d "rtf" o zaman

Richtextbox1.loadfile F.

Elseif sağ (f, 3) \u003d "txt" sonra

# 1 giriş için f açın

S $ \u003d Giriş (n, 1)

Özel alt mnusave_click ()

Commondialog1.showsave

F $ \u003d COMMONDIALOG1.FILENAME

Özel alt mnusaveas_click ()

Commondialog1.showsave

F $ \u003d COMMONDIALOG1.FILENAME

Richtextbox1.Savefile f, rtfrtf

Bu çalışma sırasında, öğrenci 2 görevi yerine getirmelidir.

1. Egzersiz. Görevi tamamlama sürecinde, öğrenciler isteğe bağlı erişim dosyalarıyla VB 6 yeteneklerinde mevcuttur ( Raf -rastgelegiriş.dosya).

Belirli bir veritabanı tablosu için, bir kullanıcı veri türü bildirilir, bir değişken bu tür (öğretici, sayfa 108 - 112) ve kullanıcı tipi değişkenin kullanıldığı prosedürler bildirilir.

Özellikle, menü komutları için prosedürler uygulanır. Dosyaya YazRaf. ve Dosyadan oku.Raf.. Örnek 7.1'deki gibi, verileri düzenlemek için bir dizi nesne kullanılır. Combo.Kutu. ve menü Düzenle. Beş komutlu alt menüsü: Bir not ekle, Kaydı sil, Yazma ekle, Kayıt Düzenle, Açık masa.

seçenek 1.

"Araba" tablosu (Tablo 7.1) Veritabanı "Otomatik Servis" için bir kullanıcı veri türünü açıklayın.

araba	araba	hata

Tablo 7.1'in alt satırında - alan türleri.

Seçenek 2..

"Otomatik Servis" veritabanının "Hata" tablosu (Tablo 7.2) için bir kullanıcı veri türünü bildirin.

hata

İsim vermek

hata

Maliyet

Tablo 7.2'nin alt satırında - alan türleri.

Örnek 7.1'in bir örneği olarak kullanılması, gösterilen tablo için giriş ve düzenleme verilerini düzenlemek için, bu verileri rasgele bir erişim dosyasına kaydedin ve rastgele erişim dosyasından veri okumak. Örnek 7.1'de olduğu gibi, belirtilen eylemler, Şek. 7.1.

Görev 2. Görev sırasında, öğrenciler bu uygulamayı basit bir metin editörü olarak düşünmenize izin veren yeni özelliklerle Örnek 2'nin uygulanmasını tamamlar.

seçenek 1 YAYGIN.İletişim kutusu. Menü komutlarını uygulayın Yazı tipi ve Renk (alt menü ile Renk sembolleri ve Arka plan rengi). Bu komutları kullanarak, penceredeki seçilen metin parçası için bir yazı tipi seçimi (adı, çizim ve boyut) sağlanmalıdır. ZenginMetin kutusu.Seçilen parçanın karakterlerinin renginin seçimi ve tüm pencerenin arka plan rengini seçmek.

Not: Nesneyi ayarlarken YAYGIN.İletişim kutusu. Özellikleri (özel) kullanarak bir yazı tipi seçmek için, 1, 2 veya 3 numaralı bayrakların değerini ayarlamanız gerekir (manuel, sayfa 183).

Seçenek 2.. Kontrolü kullanmak YAYGIN.İletişim kutusu. Menü komutlarını uygulayın Düzenle. (Alt menü Kopyala., Kesmek. ve Yapıştırmak), kimin randevusu kopya veya kaldırma Metnin seçilen parçasının panosunda eklemek Pano içeriğinin seçilen yerde metninde.

Not: Borsa tamponuna (nesne Pano.) SetText ve GetText yöntemlerini kullanabilirsiniz:

Pano. Sundunxt RichTextBox1.seltext.

Richtextbox1.seltext \u003d pano. Gettekstik