WebSVN – aysalia – Blame – /trunk/Schatten über Aysalia/CheckHero.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form CheckHero
		3	BackColor = &H00400000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Helden prüfen"
		6	ClientHeight = 4230
		7	ClientLeft = 45
		8	ClientTop = 330
		9	ClientWidth = 5835
		10	Icon = "CheckHero.frx":0000
		11	LinkTopic = "CheckHero"
		12	MaxButton = 0 'False
		13	ScaleHeight = 4230
		14	ScaleWidth = 5835
		15	StartUpPosition = 2 'CenterScreen
		16	Begin VB.CommandButton Command2
		17	BackColor = &H00FF8080&
		18	Cancel = -1 'True
		19	Caption = "Schließen"
		20	Default = -1 'True
		21	BeginProperty Font
		22	Name = "MS Sans Serif"
		23	Size = 8.25
		24	Charset = 0
		25	Weight = 700
		26	Underline = 0 'False
		27	Italic = 0 'False
		28	Strikethrough = 0 'False
		29	EndProperty
		30	Height = 375
		31	Left = 4440
		32	Style = 1 'Graphical
		33	TabIndex = 2
		34	Top = 3720
		35	Width = 1335
		36	End
		37	Begin VB.CommandButton Command1
		38	BackColor = &H00FF8080&
		39	Caption = "Inventar"
		40	Height = 375
		41	Left = 4440
		42	Style = 1 'Graphical
		43	TabIndex = 1
		44	Top = 120
		45	Width = 1335
		46	End
		47	Begin VB.Label Label3
		48	AutoSize = -1 'True
		49	BackColor = &H00000000&
		50	BackStyle = 0 'Transparent
		51	Caption = "Stärke"
		52	BeginProperty Font
		53	Name = "Arial"
		54	Size = 14.25
		55	Charset = 0
		56	Weight = 700
		57	Underline = 0 'False
		58	Italic = 0 'False
		59	Strikethrough = 0 'False
		60	EndProperty
		61	ForeColor = &H0000FFFF&
		62	Height = 330
		63	Left = 480
		64	TabIndex = 18
		65	Top = 1560
		66	Width = 900
		67	End
		68	Begin VB.Label Label4
		69	AutoSize = -1 'True
		70	BackColor = &H00000000&
		71	BackStyle = 0 'Transparent
		72	Caption = "Intelligenz"
		73	BeginProperty Font
		74	Name = "Arial"
		75	Size = 14.25
		76	Charset = 0
		77	Weight = 700
		78	Underline = 0 'False
		79	Italic = 0 'False
		80	Strikethrough = 0 'False
		81	EndProperty
		82	ForeColor = &H0000FFFF&
		83	Height = 330
		84	Left = 480
		85	TabIndex = 17
		86	Top = 2160
		87	Width = 1410
		88	End
		89	Begin VB.Label Label5
		90	AutoSize = -1 'True
		91	BackColor = &H00000000&
		92	BackStyle = 0 'Transparent
		93	Caption = "Gewandtheit"
		94	BeginProperty Font
		95	Name = "Arial"
		96	Size = 14.25
		97	Charset = 0
		98	Weight = 700
		99	Underline = 0 'False
		100	Italic = 0 'False
		101	Strikethrough = 0 'False
		102	EndProperty
		103	ForeColor = &H0000FFFF&
		104	Height = 330
		105	Left = 480
		106	TabIndex = 16
		107	Top = 2760
		108	Width = 1740
		109	End
		110	Begin VB.Label Label6
		111	AutoSize = -1 'True
		112	BackStyle = 0 'Transparent
		113	Caption = "00"
		114	BeginProperty Font
		115	Name = "Arial"
		116	Size = 18
		117	Charset = 0
		118	Weight = 700
		119	Underline = 0 'False
		120	Italic = 0 'False
		121	Strikethrough = 0 'False
		122	EndProperty
		123	ForeColor = &H00FFFFFF&
		124	Height = 435
		125	Left = 2760
		126	TabIndex = 15
		127	Top = 1560
		128	Width = 390
		129	End
		130	Begin VB.Label Label7
		131	AutoSize = -1 'True
		132	BackStyle = 0 'Transparent
		133	Caption = "00"
		134	BeginProperty Font
		135	Name = "Arial"
		136	Size = 18
		137	Charset = 0
		138	Weight = 700
		139	Underline = 0 'False
		140	Italic = 0 'False
		141	Strikethrough = 0 'False
		142	EndProperty
		143	ForeColor = &H00FFFFFF&
		144	Height = 435
		145	Left = 2760
		146	TabIndex = 14
		147	Top = 2160
		148	Width = 390
		149	End
		150	Begin VB.Label Label8
		151	AutoSize = -1 'True
		152	BackStyle = 0 'Transparent
		153	Caption = "00"
		154	BeginProperty Font
		155	Name = "Arial"
		156	Size = 18
		157	Charset = 0
		158	Weight = 700
		159	Underline = 0 'False
		160	Italic = 0 'False
		161	Strikethrough = 0 'False
		162	EndProperty
		163	ForeColor = &H00FFFFFF&
		164	Height = 435
		165	Left = 2760
		166	TabIndex = 13
		167	Top = 2760
		168	Width = 390
		169	End
		170	Begin VB.Label Label9
		171	AutoSize = -1 'True
		172	BackStyle = 0 'Transparent
		173	Caption = "Lebensenergie"
		174	BeginProperty Font
		175	Name = "Arial"
		176	Size = 14.25
		177	Charset = 0
		178	Weight = 700
		179	Underline = 0 'False
		180	Italic = 0 'False
		181	Strikethrough = 0 'False
		182	EndProperty
		183	ForeColor = &H000000FF&
		184	Height = 330
		185	Left = 480
		186	TabIndex = 12
		187	Top = 3480
		188	Width = 2085
		189	End
		190	Begin VB.Label Label11
		191	AutoSize = -1 'True
		192	BackStyle = 0 'Transparent
		193	Caption = "00"
		194	BeginProperty Font
		195	Name = "Arial"
		196	Size = 18
		197	Charset = 0
		198	Weight = 700
		199	Underline = 0 'False
		200	Italic = 0 'False
		201	Strikethrough = 0 'False
		202	EndProperty
		203	ForeColor = &H00FFFFFF&
		204	Height = 435
		205	Left = 2760
		206	TabIndex = 11
		207	Top = 3480
		208	Width = 390
		209	End
		210	Begin VB.Label Label20
		211	AutoSize = -1 'True
		212	BackStyle = 0 'Transparent
		213	Caption = "00"
		214	BeginProperty Font
		215	Name = "Arial"
		216	Size = 18
		217	Charset = 0
		218	Weight = 700
		219	Underline = 0 'False
		220	Italic = 0 'False
		221	Strikethrough = 0 'False
		222	EndProperty
		223	ForeColor = &H0000FF00&
		224	Height = 435
		225	Left = 3720
		226	TabIndex = 10
		227	Top = 3480
		228	Width = 390
		229	End
		230	Begin VB.Label Label22
		231	AutoSize = -1 'True
		232	BackStyle = 0 'Transparent
		233	Caption = "/"
		234	BeginProperty Font
		235	Name = "Arial"
		236	Size = 18
		237	Charset = 0
		238	Weight = 700
		239	Underline = 0 'False
		240	Italic = 0 'False
		241	Strikethrough = 0 'False
		242	EndProperty
		243	ForeColor = &H0000FFFF&
		244	Height = 435
		245	Left = 3480
		246	TabIndex = 9
		247	Top = 3480
		248	Width = 105
		249	End
		250	Begin VB.Label Label2
		251	AutoSize = -1 'True
		252	BackStyle = 0 'Transparent
		253	Caption = "Stufe"
		254	BeginProperty Font
		255	Name = "Arial"
		256	Size = 12
		257	Charset = 0
		258	Weight = 700
		259	Underline = 0 'False
		260	Italic = 0 'False
		261	Strikethrough = 0 'False
		262	EndProperty
		263	ForeColor = &H00C0C0FF&
		264	Height = 285
		265	Left = 480
		266	TabIndex = 8
		267	Top = 600
		268	Width = 600
		269	End
		270	Begin VB.Label Label13
		271	AutoSize = -1 'True
		272	BackStyle = 0 'Transparent
		273	Caption = "Erfahrung"
		274	BeginProperty Font
		275	Name = "Arial"
		276	Size = 12
		277	Charset = 0
		278	Weight = 700
		279	Underline = 0 'False
		280	Italic = 0 'False
		281	Strikethrough = 0 'False
		282	EndProperty
		283	ForeColor = &H00C0C0FF&
		284	Height = 285
		285	Left = 480
		286	TabIndex = 7
		287	Top = 960
		288	Width = 1155
		289	End
		290	Begin VB.Label Label14
		291	Alignment = 1 'Right Justify
		292	AutoSize = -1 'True
		293	BackStyle = 0 'Transparent
		294	Caption = "la14"
		295	BeginProperty Font
		296	Name = "Arial"
		297	Size = 9.75
		298	Charset = 0
		299	Weight = 700
		300	Underline = 0 'False
		301	Italic = 0 'False
		302	Strikethrough = 0 'False
		303	EndProperty
		304	ForeColor = &H0000FF00&
		305	Height = 240
		306	Left = 2085
		307	TabIndex = 6
		308	Top = 960
		309	Width = 390
		310	End
		311	Begin VB.Label Label15
		312	BackStyle = 0 'Transparent
		313	Caption = "/"
		314	BeginProperty Font
		315	Name = "Arial"
		316	Size = 9.75
		317	Charset = 0
		318	Weight = 700
		319	Underline = 0 'False
		320	Italic = 0 'False
		321	Strikethrough = 0 'False
		322	EndProperty
		323	ForeColor = &H00C0C0FF&
		324	Height = 255
		325	Left = 2520
		326	TabIndex = 5
		327	Top = 960
		328	Width = 135
		329	End
		330	Begin VB.Label Label16
		331	AutoSize = -1 'True
		332	BackStyle = 0 'Transparent
		333	Caption = "la16"
		334	BeginProperty Font
		335	Name = "Arial"
		336	Size = 9.75
		337	Charset = 0
		338	Weight = 700
		339	Underline = 0 'False
		340	Italic = 0 'False
		341	Strikethrough = 0 'False
		342	EndProperty
		343	ForeColor = &H0000FF00&
		344	Height = 240
		345	Left = 2640
		346	TabIndex = 4
		347	Top = 960
		348	Width = 390
		349	End
		350	Begin VB.Label Label17
		351	AutoSize = -1 'True
		352	BackStyle = 0 'Transparent
		353	Caption = "la17"
		354	BeginProperty Font
		355	Name = "Arial"
		356	Size = 12
		357	Charset = 0
		358	Weight = 700
		359	Underline = 0 'False
		360	Italic = 0 'False
		361	Strikethrough = 0 'False
		362	EndProperty
		363	ForeColor = &H0000FFFF&
		364	Height = 285
		365	Left = 2160
		366	TabIndex = 3
		367	Top = 600
		368	Width = 465
		369	End
		370	Begin VB.Label Label1
		371	AutoSize = -1 'True
		372	BackStyle = 0 'Transparent
		373	Caption = "#Name des Helden"
		374	BeginProperty Font
		375	Name = "Tahoma"
		376	Size = 14.25
		377	Charset = 0
		378	Weight = 700
		379	Underline = 0 'False
		380	Italic = 0 'False
		381	Strikethrough = 0 'False
		382	EndProperty
		383	ForeColor = &H0000FFFF&
		384	Height = 345
		385	Left = 480
		386	TabIndex = 0
		387	Top = 120
		388	Width = 2745
		389	End
		390	End
		391	Attribute VB_Name = "CheckHero"
		392	Attribute VB_GlobalNameSpace = False
		393	Attribute VB_Creatable = False
		394	Attribute VB_PredeclaredId = True
		395	Attribute VB_Exposed = False
		396	Private Sub Command1_Click()
		397	ObjectSelect.Show (vbModal)
		398	End Sub
		399
		400	Private Sub Command2_Click()
		401	Unload CheckHero
		402	End Sub
		403
		404	Private Sub Form_Load()
		405	Label1.Caption = nom
		406	Label20.Caption = STARThp
		407	Label17.Caption = stufe
		408	Label14.Caption = experience
		409	Label16.Caption = NextLevel
		410	Label6.Caption = Strength
		411	Label7.Caption = Iq
		412	Label8.Caption = Speed
		413	Label11.Caption = hp
		414	End Sub
		415
		416	Private Sub Label10_Click()
		417	End Sub
		418

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/CheckHero.frm – Rev 2