Visual Basic от нулата

Така че стандартното начало е:

Опция Изрично
Вариант 1

Dim MassiveData (12) Като низ

Dim FileName As String 'за името на качените файлове
Dim F As Long 'за безплатен номер на файл
Dim X As Long 'за променлива For loop. Следващия
Dim QuantityFonts As Long 'за броя на намерените шрифтове

След това процедурата за зареждане на формуляра. Тук първоначално задаваме името на изтегления файл - "1" ("1.jpg" и "1.txt") и преминаваме към процедурата, която създадохме за изтеглянето на тези файлове Зареждане на данни ().

Частна подформа Form_Load ()
FileName = "1"
Зареждане на данни
Крайна под

Частно подзареждане на данни ()

Image1.Picture = LoadPicture (App.Path & "\" & FileName & ".jpg")

Възстановете позицията на Image1 съответно от лявата и горната граница на екрана

Изображение 1. Ляво = 24
Изображение 1. Върху = 128

Центрираме позицията на картината в зависимост от това дали е вертикална (Image1.Height> Image1.Width - височината е по-голяма от ширината) или хоризонтална (Image1.Width> Image1.Height - ширината е по-голяма от височината)
Ако Image1.Width> Image1.Height, тогава Image1.Top = Image1.Top + (250 - Image1.Height)/2
Ако Image1.Height> Image1.Width Тогава Image1.Left = Image1.Left + (250 - Image1.Width)/2

Отворете текстов файл със същото име като картината и заредете 12 реда текст в 12 елемента на масива

F = FreeFile
Отворете App.Path & "\" & FileName & ".txt" За въвеждане като #F
За X = 1 до 12
Линеен вход #F, MassiveData (X)

Label9 (X) .Caption = MassiveData (X)
Следваща X
Затворете #F

В бутони Команда1 и Команда2 пишем код за промяна на името на качения файл. Всичко това отново прилича на програма Тестер от глава 8 и няма да се спирам подробно на това.

Частен Su b Command1_Click ()
Ако Val (Име на файла)> 1 Тогава
Име на файла = Str (Val (Име на файла) - 1)
FileName = дясно (FileName, Len (FileName) - 1)
Зареждане на данни
Край ако
Крайна под

Частен Su b Command2_Click ()
Име на файла = Str (Val (Име на файла) + 1)
FileName = дясно (FileName, Len (FileName) - 1)
Ако Dir (App.Path & "\" & FileName & ".txt") <> " Или Dir (App.Path & "\" & FileName & ".jpg") <> " Тогава
Зареждане на данни
Иначе
Име на файла = Str (Val (Име на файла) - 1)
FileName = дясно (FileName, Len (FileName) - 1)
Зареждане на данни
Край ако
Крайна под

Но сега преминаваме към това, за което започнахме всичко това. Нека се опитаме да подготвим документ за печат. В процедура с бутон Команда3 ще започнем да формираме страницата за печат. Първо, нека декларираме някои променливи

Частна подкоманда3_Click ()
Dim OrientTelefona As Single 'променя отместването от картината в зависимост от това дали е хоризонтално или вертикално
Затъмняване на шрифтове () Като Strin g 'едноизмерен динамичен масив за съхраняване на съществуващи шрифтове
Dim VertCoord As Single 'натрупва вертикално отместване, когато линиите се създават в документа
Dim Number Шрифт с дължина на шрифта

нулирайте променливата, съдържаща броя на шрифтовете за всеки случай

По отношение на дефинирането на шрифтовете на текущия принтер, аз поех по пътя на най-малкото съпротивление. Въз основа на факта, че поне един от четирите често използвани шрифта е инсталиран на всеки компютър, проверявам тяхното присъствие и зареждам имената на намерените шрифтове в динамичен масив Шрифтове (). За целта организираме цикъл, в който итерираме всички шрифтове, съществуващи на текущия компютър (техният брой ни се връща от свойството .FontCount) и заредете имената им в масив Шрифтове (). Броячът QuantityFonts отразява колко от четирите шрифта са намерени.

За NumberFont = 0 Към принтера.FontCount - 1
Ако Printer.Fonts (NumberFont) = "Arial Cyr" Или Printer.Fonts (NumberFont) = "Times New Roman" _
Или Printer.Fonts (NumberFont) = "Courier New" Или Printer.Fonts (NumberFont) = "MS Sans Serif" Тогава

---