Как читать из файла и печатать на PictureBox

@Элина Галстян · Регистрация: 22.10.2012

Студворк — интернет-сервис помощи студентам

пожалуйста помогите мне как сделать программу, чтобы читать из файла и печать на PictureBox.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim s As String
Dim z As String
Dim file As Long
 
file = FreeFile
 
Open App.Path & "\help.txt" For Input As #file
    Line Input #file, s
    z = ""
        For i = 1 To Len(s)
            z = Mid(s, i, 1) & " "
            pic1.Print z;
        Next i
Close #file

вот это программа но оно печатает в одном строку. Как сделать?

@Апострофф · 04.02.2013, 11:41

Visual Basic
1
2
3
4
5
        For i = 1 To Len(s)
            z = Mid(s, i, 1) & " "
            pic1.Print z;
        Next i
        pic1.print

?

@Элина Галстян · 04.02.2013, 11:46 **[ТС]**

Visual Basic
1
2
3
4
5
        For i = 1 To Len(s)
            z = Mid(s, i, 1) & " "
            pic1.Print z;
        Next i
        pic1.print

так не получается

Скрипт · 04.02.2013, 12:00

Элина Галстян, а как добавить в Toolbox элемент управления PictureBox?

@Элина Галстян · 04.02.2013, 12:05 **[ТС]**

но это не добавляют это есть на Toolbox.

Скрипт · 04.02.2013, 12:07

Элина Галстян, в VBA на Tollbox есть только Image.

@Элина Галстян · 04.02.2013, 12:16 **[ТС]**

у меня не VBA а VB6.

SoftIce · 04.02.2013, 12:43

В 12-ой строке уберите ;

Будет в один столбик

Добавлено через 11 минут
А в несколько строк и столбцов

Visual Basic
1
2
3
4
5
6
7
8
       For i = 1 To Len(s)
            z = Mid(s, i, 1) 
            Pic1.Print z; vbTab;
            If Pic1.CurrentX > Pic1.Width Then
               Pic1.CurrentY = Pic1.CurrentY + 300
               Pic1.CurrentX = 0
            End If
       Next i

Добавлено через 4 минуты
Вы своим кодом открываете текстовый файл, считываете из него первую строку, и выводите её по одной букве на печать, закрываете файл.
Вы действительно Этого хотите?

@Элина Галстян · 04.02.2013, 12:46 **[ТС]**

я хочью читать из файла всю информацию и печать на PictureBox.

SoftIce · 04.02.2013, 12:49

Ну так это делается по-другому.

У вас файл такого вида?

1 2 3 4 5
8 7 6 5 7
4 6 7 8 5
Тогда сейчас скажу как...

@Элина Галстян · 04.02.2013, 12:51 **[ТС]**

нет у меня в файле строки.

SoftIce · 04.02.2013, 12:56

Сообщение от Элина Галстян

нет у меня в файле строки.

попробуйте

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim s As String
Dim z As String
Dim file As Long
 
file = FreeFile
 
Open App.Path & "\help.txt" For Input As #file
      s = Input(LOF(1), 1)
      Pic1.Print s
Close #file

@Элина Галстян · 04.02.2013, 12:57 **[ТС]**

получилось, большое спасибо.

@Элина Галстян · 05.02.2013, 14:55 **[ТС]**

можно вопрос, как можно распределить окно по горизонтальном и вертикальным линиям.

@Апострофф · 05.02.2013, 15:14

Элина Галстян:
1 - выложите содержимое Вашего файла сюда;
2 - поясните, что значит распределить окно по горизонтальном и вертикальным линиям - нарисовать сетку или вывести значения матрицы в читаемом виде или то и другое или ещё что?

SoftIce · 05.02.2013, 15:23

Лучше использовать TextBox (свойство MultiLine = True, ScrollBars = 2 )
Код тот же самый, только вместо

Visual Basic
1
 pic1.Print z;

вот такой

Visual Basic
1
Text1.Text = z

Добавлено через 1 минуту
Апострофф, у неё, наверное, текст в картинку не помещается.

@Апострофф · 05.02.2013, 15:23

И шрифт моноширный, например "Courier".

@Элина Галстян · 05.02.2013, 15:35 **[ТС]**

я имела введу упорядочить на MDIform.

@Апострофф · 05.02.2013, 15:37

Сообщение от Элина Галстян

я имела введу упорядочить на MDIform

Стало ещё непонятнее

@Элина Галстян · 05.02.2013, 16:02 **[ТС]**

есть открытые несколько окна, нужна написать программу которая распределит эти несколько окна на горизонтальном и на вертикальном линии.

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	04.02.2013, 12:00
	Элина Галстян, а как добавить в Toolbox элемент управления PictureBox? 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	04.02.2013, 12:05 [ТС]
	но это не добавляют это есть на Toolbox. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	04.02.2013, 12:07
	Элина Галстян, в VBA на Tollbox есть только Image. 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	04.02.2013, 12:16 [ТС]
	у меня не VBA а VB6. 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	04.02.2013, 12:46 [ТС]
	я хочью читать из файла всю информацию и печать на PictureBox. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	04.02.2013, 12:49
	Ну так это делается по-другому. У вас файл такого вида? 1 2 3 4 5 8 7 6 5 7 4 6 7 8 5 Тогда сейчас скажу как... 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	04.02.2013, 12:51 [ТС]
	нет у меня в файле строки. 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	04.02.2013, 12:57 [ТС]
	получилось, большое спасибо. 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	05.02.2013, 14:55 [ТС]
	можно вопрос, как можно распределить окно по горизонтальном и вертикальным линиям. 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	05.02.2013, 15:14
	Элина Галстян: 1 - выложите содержимое Вашего файла сюда; 2 - поясните, что значит распределить окно по горизонтальном и вертикальным линиям - нарисовать сетку или вывести значения матрицы в читаемом виде или то и другое или ещё что? 1

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	05.02.2013, 15:23
	И шрифт моноширный, например "Courier". 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	05.02.2013, 15:35 [ТС]
	я имела введу упорядочить на MDIform. 0

@Элина Галстян 1 / 1 / 0 Регистрация: 22.10.2012 Сообщений: 65
	05.02.2013, 16:02 [ТС]
	есть открытые несколько окна, нужна написать программу которая распределит эти несколько окна на горизонтальном и на вертикальном линии. 0