Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.144.250.169] |
|
Сообщ.
#1
,
|
|
|
Вот я пишу в модуль:
Map(0)= "________________________________" Map(1)= "______iiiipiiiiipiiiii__________" Map(2)= "______pppppppipppiippp__________" Map(3) ="________________________________" i это picture1 p это picture2 И как вывести этот рисунок на Форму? |
Сообщ.
#2
,
|
|
|
Создаёшь Picture1 и Picture2 (или Image1/2, Label1/2...). Устанавливаешь свойства Index=0 (это обязательно!) и Visible=Flase у обоих, затем пишешь...
Option Explicit Private Sub Form_Load() Dim Map(3) As String Dim X As Integer, Y As Integer Dim P(1) As Integer Map(0) = "________________________________" Map(1) = "______iiiipiiiiipiiiii__________" Map(2) = "______pppppppipppiippp__________" Map(3) = "________________________________" For Y = 0 To 3 For X = 1 To Len(Map(Y)) Select Case Mid(Map(Y), X, 1) Case "i": P(0) = P(0) + 1 Load Picture1(P(0)) Picture1(P(0)).Left = (X - 1) * Picture1(0).Width Picture1(P(0)).Top = Y * Picture1(0).Height Picture1(P(0)).Visible = True Case "p": P(1) = P(1) + 1 Load Picture2(P(1)) Picture2(P(1)).Left = (X - 1) * Picture2(0).Width Picture2(P(1)).Top = Y * Picture2(0).Height Picture2(P(1)).Visible = True End Select Next X Next Y End Sub Т.е. слово Load создаёт копию объекта с индексом 0, но эта копия имеет уже другой индекс. Unload, соответственно, удаляет объект. P(0) и P(1) - это номера индексов объектов, которые создаются (соответственно для Picture1 и Picture2). |