Как вывести на форму? - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Как вывести на форму?
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Как вывести на форму?

Prog опубликован 14-12-2001 17:10 MSK
Вот я пишу в модуль:
Map(0)= "________________________________"
Map(1)= "______iiiipiiiiipiiiii__________"
Map(2)= "______pppppppipppiippp__________"
Map(3) ="________________________________"
i это picture1
p это picture2
И как вывести этот рисунок на Форму?

7in опубликован 14-12-2001 21:48 MSK
Создаёшь 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).
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Как вывести на форму?
Prog	опубликован 14-12-2001 17:10 MSK Вот я пишу в модуль: Map(0)= "________________________________" Map(1)= "______iiiipiiiiipiiiii__________" Map(2)= "______pppppppipppiippp__________" Map(3) ="________________________________" i это picture1 p это picture2 И как вывести этот рисунок на Форму?
7in	опубликован 14-12-2001 21:48 MSK Создаёшь 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).