home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
Klicker.frm
< prev
next >
Wrap
Text File
|
1999-07-28
|
4KB
|
151 lines
VERSION 5.00
Begin VB.Form Klicker
Caption = "WΣnde selektieren"
ClientHeight = 1860
ClientLeft = 60
ClientTop = 345
ClientWidth = 5085
LinkTopic = "Form1"
ScaleHeight = 1860
ScaleWidth = 5085
StartUpPosition = 3 'Windows Default
Begin VB.Timer DerTicker
Left = 0
Top = 1080
End
Begin VB.CommandButton Start
Caption = "Selektieren"
Height = 375
Left = 120
TabIndex = 6
Top = 1320
Width = 1575
End
Begin VB.CommandButton Quit
Caption = "Ende"
Height = 375
Left = 3360
TabIndex = 5
Top = 1320
Width = 1575
End
Begin VB.CommandButton Clear
Caption = "Selektion &l÷schen"
Height = 375
Left = 1740
TabIndex = 4
Top = 1320
Width = 1575
End
Begin VB.TextBox WandID
Height = 375
Left = 2760
TabIndex = 3
Top = 720
Width = 2175
End
Begin VB.TextBox Anzahl
Height = 375
Left = 2760
TabIndex = 1
Text = "0"
Top = 240
Width = 2175
End
Begin VB.Label Label2
Caption = "Letzte Wand-ID:"
Height = 255
Left = 240
TabIndex = 2
Top = 720
Width = 2295
End
Begin VB.Label Label1
Caption = "Anzahl der selektierten WΣnde:"
Height = 255
Left = 240
TabIndex = 0
Top = 240
Width = 2295
End
End
Attribute VB_Name = "Klicker"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents exe As ArCon.ArCon
Attribute exe.VB_VarHelpID = -1
Private Sub Clear_Click()
Anzahl.Text = "0"
WandID.Text = ""
Dim w As ArCon.Wall
For Each w In exe.CurrentStory.Walls
MarkWall w, False
Next
End Sub
Private Sub DerTicker_Timer()
DerTicker.Interval = 0
Start_Click
End Sub
Private Sub exe_GotOneClick(ByVal valid As Boolean, ByVal x As Single, ByVal y As Single, ByVal id As Long)
Dim w As ArCon.Wall
If Not valid Then
WandID.Text = ""
Exit Sub
End If
Set w = exe.CurrentStory.FindWall(x, y)
If w Is Nothing Then
WandID.Text = ""
Exit Sub
End If
WandID.Text = w.id
MarkWall w, True
Anzahl.Text = Anzahl.Text + 1
DerTicker.Interval = 50
End Sub
Private Sub MarkWall(dieWand As ArCon.Wall, ByVal mark As Boolean)
Dim col As Long
If mark Then
col = RGB(255, 0, 0)
Else
col = RGB(0, 0, 0)
End If
Dim s As ArCon.WallSegment
For Each s In dieWand.WallSegments
s.SetLineColor col
Next
End Sub
Private Sub exe_ProgramExit()
Quit_Click
End Sub
Private Sub Form_Load()
Set exe = New ArCon.ArCon
exe.StartMe hWnd, ""
Clear_Click
End Sub
Private Sub Form_Unload(Cancel As Integer)
exe.EndMe
Set exe = Nothing
End Sub
Private Sub Quit_Click()
Unload Me
End Sub
Private Sub Start_Click()
Dim v As Variant
exe.GetOneClick "Bitte wΣhlen Sie eine Wand aus", v, 0
End Sub