Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alvin Natawiguna
IF3230-Tugas-Besar-Sister-2015
Commits
20ab19c0
Commit
20ab19c0
authored
Apr 26, 2015
by
Arina Listyarini Dwiastuti
Browse files
implement SendFind & MixItem
parent
7e616e6e
Changes
18
Expand all
Hide whitespace changes
Inline
Side-by-side
src/client/PoiClient/PoiClient/MixItem.Designer.vb
View file @
20ab19c0
...
...
@@ -23,16 +23,6 @@ Partial Class MixItem
<
System
.
Diagnostics
.
DebuggerStepThrough
()
>
_
Private
Sub
InitializeComponent
()
Dim
resources
As
System
.
ComponentModel
.
ComponentResourceManager
=
New
System
.
ComponentModel
.
ComponentResourceManager
(
GetType
(
MixItem
))
Me
.
PictureBox4
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox3
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox2
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox1
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox8
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox5
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox9
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox11
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox12
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox13
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
LabelHoney
=
New
System
.
Windows
.
Forms
.
Label
()
Me
.
LabelHerbs
=
New
System
.
Windows
.
Forms
.
Label
()
Me
.
LabelClay
=
New
System
.
Windows
.
Forms
.
Label
()
...
...
@@ -45,118 +35,34 @@ Partial Class MixItem
Me
.
LabelIncense
=
New
System
.
Windows
.
Forms
.
Label
()
Me
.
Button1
=
New
System
.
Windows
.
Forms
.
Button
()
Me
.
Button2
=
New
System
.
Windows
.
Forms
.
Button
()
Me
.
PictureBox11
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox12
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox13
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox5
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox9
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox4
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox3
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox2
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox1
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
PictureBox8
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
DropdownOffer
=
New
System
.
Windows
.
Forms
.
ComboBox
()
Me
.
OfferedPic
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
DemandedPic
=
New
System
.
Windows
.
Forms
.
PictureBox
()
Me
.
DropdownDemand
=
New
System
.
Windows
.
Forms
.
ComboBox
()
CType
(
Me
.
PictureBox11
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox12
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox13
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox5
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox9
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox4
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox3
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox2
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox1
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox8
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox5
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox9
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox11
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox12
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
PictureBox13
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
OfferedPic
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
CType
(
Me
.
DemandedPic
,
System
.
ComponentModel
.
ISupportInitialize
).
BeginInit
()
Me
.
SuspendLayout
()
'
'PictureBox4
'
Me
.
PictureBox4
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox4.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox4
.
Location
=
New
System
.
Drawing
.
Point
(
395
,
37
)
Me
.
PictureBox4
.
Name
=
"PictureBox4"
Me
.
PictureBox4
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox4
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox4
.
TabIndex
=
10
Me
.
PictureBox4
.
TabStop
=
False
'
'PictureBox3
'
Me
.
PictureBox3
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox3.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox3
.
Location
=
New
System
.
Drawing
.
Point
(
274
,
37
)
Me
.
PictureBox3
.
Name
=
"PictureBox3"
Me
.
PictureBox3
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox3
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox3
.
TabIndex
=
8
Me
.
PictureBox3
.
TabStop
=
False
'
'PictureBox2
'
Me
.
PictureBox2
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox2.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox2
.
Location
=
New
System
.
Drawing
.
Point
(
157
,
37
)
Me
.
PictureBox2
.
Name
=
"PictureBox2"
Me
.
PictureBox2
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox2
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox2
.
TabIndex
=
6
Me
.
PictureBox2
.
TabStop
=
False
'
'PictureBox1
'
Me
.
PictureBox1
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox1.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox1
.
Location
=
New
System
.
Drawing
.
Point
(
40
,
37
)
Me
.
PictureBox1
.
Name
=
"PictureBox1"
Me
.
PictureBox1
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox1
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox1
.
TabIndex
=
4
Me
.
PictureBox1
.
TabStop
=
False
'
'PictureBox8
'
Me
.
PictureBox8
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox8.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox8
.
Location
=
New
System
.
Drawing
.
Point
(
518
,
37
)
Me
.
PictureBox8
.
Name
=
"PictureBox8"
Me
.
PictureBox8
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox8
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox8
.
TabIndex
=
5
Me
.
PictureBox8
.
TabStop
=
False
'
'PictureBox5
'
Me
.
PictureBox5
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox5.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox5
.
Location
=
New
System
.
Drawing
.
Point
(
157
,
185
)
Me
.
PictureBox5
.
Name
=
"PictureBox5"
Me
.
PictureBox5
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox5
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox5
.
TabIndex
=
13
Me
.
PictureBox5
.
TabStop
=
False
'
'PictureBox9
'
Me
.
PictureBox9
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox9.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox9
.
Location
=
New
System
.
Drawing
.
Point
(
40
,
185
)
Me
.
PictureBox9
.
Name
=
"PictureBox9"
Me
.
PictureBox9
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox9
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox9
.
TabIndex
=
12
Me
.
PictureBox9
.
TabStop
=
False
'
'PictureBox11
'
Me
.
PictureBox11
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox11.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox11
.
Location
=
New
System
.
Drawing
.
Point
(
518
,
185
)
Me
.
PictureBox11
.
Name
=
"PictureBox11"
Me
.
PictureBox11
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox11
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox11
.
TabIndex
=
14
Me
.
PictureBox11
.
TabStop
=
False
'
'PictureBox12
'
Me
.
PictureBox12
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox12.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox12
.
Location
=
New
System
.
Drawing
.
Point
(
395
,
185
)
Me
.
PictureBox12
.
Name
=
"PictureBox12"
Me
.
PictureBox12
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox12
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox12
.
TabIndex
=
16
Me
.
PictureBox12
.
TabStop
=
False
'
'PictureBox13
'
Me
.
PictureBox13
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox13.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox13
.
Location
=
New
System
.
Drawing
.
Point
(
274
,
185
)
Me
.
PictureBox13
.
Name
=
"PictureBox13"
Me
.
PictureBox13
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox13
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox13
.
TabIndex
=
15
Me
.
PictureBox13
.
TabStop
=
False
'
'LabelHoney
'
Me
.
LabelHoney
.
AutoSize
=
True
...
...
@@ -249,7 +155,7 @@ Partial Class MixItem
'
'Button1
'
Me
.
Button1
.
Location
=
New
System
.
Drawing
.
Point
(
24
8
,
4
56
)
Me
.
Button1
.
Location
=
New
System
.
Drawing
.
Point
(
24
1
,
4
70
)
Me
.
Button1
.
Name
=
"Button1"
Me
.
Button1
.
Size
=
New
System
.
Drawing
.
Size
(
156
,
23
)
Me
.
Button1
.
TabIndex
=
27
...
...
@@ -258,18 +164,160 @@ Partial Class MixItem
'
'Button2
'
Me
.
Button2
.
Location
=
New
System
.
Drawing
.
Point
(
24
8
,
498
)
Me
.
Button2
.
Location
=
New
System
.
Drawing
.
Point
(
24
1
,
512
)
Me
.
Button2
.
Name
=
"Button2"
Me
.
Button2
.
Size
=
New
System
.
Drawing
.
Size
(
156
,
23
)
Me
.
Button2
.
TabIndex
=
28
Me
.
Button2
.
Text
=
"Back"
Me
.
Button2
.
UseVisualStyleBackColor
=
True
'
'PictureBox11
'
Me
.
PictureBox11
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox11.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox11
.
Location
=
New
System
.
Drawing
.
Point
(
518
,
185
)
Me
.
PictureBox11
.
Name
=
"PictureBox11"
Me
.
PictureBox11
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox11
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox11
.
TabIndex
=
14
Me
.
PictureBox11
.
TabStop
=
False
'
'PictureBox12
'
Me
.
PictureBox12
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox12.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox12
.
Location
=
New
System
.
Drawing
.
Point
(
395
,
185
)
Me
.
PictureBox12
.
Name
=
"PictureBox12"
Me
.
PictureBox12
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox12
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox12
.
TabIndex
=
16
Me
.
PictureBox12
.
TabStop
=
False
'
'PictureBox13
'
Me
.
PictureBox13
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox13.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox13
.
Location
=
New
System
.
Drawing
.
Point
(
274
,
185
)
Me
.
PictureBox13
.
Name
=
"PictureBox13"
Me
.
PictureBox13
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox13
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox13
.
TabIndex
=
15
Me
.
PictureBox13
.
TabStop
=
False
'
'PictureBox5
'
Me
.
PictureBox5
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox5.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox5
.
Location
=
New
System
.
Drawing
.
Point
(
157
,
185
)
Me
.
PictureBox5
.
Name
=
"PictureBox5"
Me
.
PictureBox5
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox5
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox5
.
TabIndex
=
13
Me
.
PictureBox5
.
TabStop
=
False
'
'PictureBox9
'
Me
.
PictureBox9
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox9.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox9
.
Location
=
New
System
.
Drawing
.
Point
(
40
,
185
)
Me
.
PictureBox9
.
Name
=
"PictureBox9"
Me
.
PictureBox9
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox9
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox9
.
TabIndex
=
12
Me
.
PictureBox9
.
TabStop
=
False
'
'PictureBox4
'
Me
.
PictureBox4
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox4.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox4
.
Location
=
New
System
.
Drawing
.
Point
(
395
,
37
)
Me
.
PictureBox4
.
Name
=
"PictureBox4"
Me
.
PictureBox4
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox4
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox4
.
TabIndex
=
10
Me
.
PictureBox4
.
TabStop
=
False
'
'PictureBox3
'
Me
.
PictureBox3
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox3.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox3
.
Location
=
New
System
.
Drawing
.
Point
(
274
,
37
)
Me
.
PictureBox3
.
Name
=
"PictureBox3"
Me
.
PictureBox3
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox3
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox3
.
TabIndex
=
8
Me
.
PictureBox3
.
TabStop
=
False
'
'PictureBox2
'
Me
.
PictureBox2
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox2.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox2
.
Location
=
New
System
.
Drawing
.
Point
(
157
,
37
)
Me
.
PictureBox2
.
Name
=
"PictureBox2"
Me
.
PictureBox2
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox2
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox2
.
TabIndex
=
6
Me
.
PictureBox2
.
TabStop
=
False
'
'PictureBox1
'
Me
.
PictureBox1
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox1.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox1
.
Location
=
New
System
.
Drawing
.
Point
(
40
,
37
)
Me
.
PictureBox1
.
Name
=
"PictureBox1"
Me
.
PictureBox1
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox1
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox1
.
TabIndex
=
4
Me
.
PictureBox1
.
TabStop
=
False
'
'PictureBox8
'
Me
.
PictureBox8
.
Image
=
CType
(
resources
.
GetObject
(
"PictureBox8.Image"
),
System
.
Drawing
.
Image
)
Me
.
PictureBox8
.
Location
=
New
System
.
Drawing
.
Point
(
518
,
37
)
Me
.
PictureBox8
.
Name
=
"PictureBox8"
Me
.
PictureBox8
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
93
)
Me
.
PictureBox8
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
PictureBox8
.
TabIndex
=
5
Me
.
PictureBox8
.
TabStop
=
False
'
'DropdownOffer
'
Me
.
DropdownOffer
.
DropDownStyle
=
System
.
Windows
.
Forms
.
ComboBoxStyle
.
DropDownList
Me
.
DropdownOffer
.
FormattingEnabled
=
True
Me
.
DropdownOffer
.
Items
.
AddRange
(
New
Object
()
{
"Honey"
,
"Herbs"
,
"Clay"
,
"Mineral"
,
"Potion"
,
"Incense"
,
"Gems"
,
"Life Elixir"
,
"Mana Crystal"
,
"Philosopher Stone"
})
Me
.
DropdownOffer
.
Location
=
New
System
.
Drawing
.
Point
(
157
,
321
)
Me
.
DropdownOffer
.
Name
=
"DropdownOffer"
Me
.
DropdownOffer
.
Size
=
New
System
.
Drawing
.
Size
(
112
,
21
)
Me
.
DropdownOffer
.
TabIndex
=
60
'
'OfferedPic
'
Me
.
OfferedPic
.
Location
=
New
System
.
Drawing
.
Point
(
168
,
348
)
Me
.
OfferedPic
.
Name
=
"OfferedPic"
Me
.
OfferedPic
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
90
)
Me
.
OfferedPic
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
OfferedPic
.
TabIndex
=
59
Me
.
OfferedPic
.
TabStop
=
False
'
'DemandedPic
'
Me
.
DemandedPic
.
Location
=
New
System
.
Drawing
.
Point
(
395
,
348
)
Me
.
DemandedPic
.
Name
=
"DemandedPic"
Me
.
DemandedPic
.
Size
=
New
System
.
Drawing
.
Size
(
90
,
90
)
Me
.
DemandedPic
.
SizeMode
=
System
.
Windows
.
Forms
.
PictureBoxSizeMode
.
StretchImage
Me
.
DemandedPic
.
TabIndex
=
62
Me
.
DemandedPic
.
TabStop
=
False
'
'DropdownDemand
'
Me
.
DropdownDemand
.
DropDownStyle
=
System
.
Windows
.
Forms
.
ComboBoxStyle
.
DropDownList
Me
.
DropdownDemand
.
FormattingEnabled
=
True
Me
.
DropdownDemand
.
Items
.
AddRange
(
New
Object
()
{
"Honey"
,
"Herbs"
,
"Clay"
,
"Mineral"
,
"Potion"
,
"Incense"
,
"Gems"
,
"Life Elixir"
,
"Mana Crystal"
,
"Philosopher Stone"
})
Me
.
DropdownDemand
.
Location
=
New
System
.
Drawing
.
Point
(
386
,
321
)
Me
.
DropdownDemand
.
Name
=
"DropdownDemand"
Me
.
DropdownDemand
.
Size
=
New
System
.
Drawing
.
Size
(
112
,
21
)
Me
.
DropdownDemand
.
TabIndex
=
61
'
'MixItem
'
Me
.
AutoScaleDimensions
=
New
System
.
Drawing
.
SizeF
(
6.0
!,
13.0
!)
Me
.
AutoScaleMode
=
System
.
Windows
.
Forms
.
AutoScaleMode
.
Font
Me
.
ClientSize
=
New
System
.
Drawing
.
Size
(
649
,
561
)
Me
.
Controls
.
Add
(
Me
.
DemandedPic
)
Me
.
Controls
.
Add
(
Me
.
DropdownDemand
)
Me
.
Controls
.
Add
(
Me
.
DropdownOffer
)
Me
.
Controls
.
Add
(
Me
.
OfferedPic
)
Me
.
Controls
.
Add
(
Me
.
Button2
)
Me
.
Controls
.
Add
(
Me
.
Button1
)
Me
.
Controls
.
Add
(
Me
.
LabelPhilosoperStone
)
...
...
@@ -294,16 +342,18 @@ Partial Class MixItem
Me
.
Controls
.
Add
(
Me
.
PictureBox8
)
Me
.
Name
=
"MixItem"
Me
.
Text
=
"MixItem"
CType
(
Me
.
PictureBox11
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox12
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox13
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox5
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox9
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox4
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox3
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox2
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox1
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox8
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox5
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox9
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox11
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox12
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
PictureBox13
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
OfferedPic
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
CType
(
Me
.
DemandedPic
,
System
.
ComponentModel
.
ISupportInitialize
).
EndInit
()
Me
.
ResumeLayout
(
False
)
Me
.
PerformLayout
()
...
...
@@ -330,4 +380,8 @@ Partial Class MixItem
Friend
WithEvents
LabelIncense
As
System
.
Windows
.
Forms
.
Label
Friend
WithEvents
Button1
As
System
.
Windows
.
Forms
.
Button
Friend
WithEvents
Button2
As
System
.
Windows
.
Forms
.
Button
Friend
WithEvents
DropdownOffer
As
System
.
Windows
.
Forms
.
ComboBox
Friend
WithEvents
OfferedPic
As
System
.
Windows
.
Forms
.
PictureBox
Friend
WithEvents
DemandedPic
As
System
.
Windows
.
Forms
.
PictureBox
Friend
WithEvents
DropdownDemand
As
System
.
Windows
.
Forms
.
ComboBox
End
Class
src/client/PoiClient/PoiClient/MixItem.resx
View file @
20ab19c0
This diff is collapsed.
Click to expand it.
src/client/PoiClient/PoiClient/MixItem.vb
View file @
20ab19c0
Imports
Newtonsoft.Json
Public
Class
MixItem
Private
itemMix1
As
Integer
Private
itemMix2
As
Integer
Private
Sub
Button2_Click
(
sender
As
Object
,
e
As
EventArgs
)
Handles
Button2
.
Click
Me
.
Close
()
End
Sub
Private
Sub
MixItem_Load
(
sender
As
Object
,
e
As
EventArgs
)
Handles
MyBase
.
Load
RefreshInventory
()
End
Sub
Private
Sub
RefreshInventory
()
GlobalVariables
.
NETWORK
=
New
NetIO
Dim
request
As
New
InventoryJSONSend
Dim
recv
As
String
...
...
@@ -29,4 +34,101 @@ Public Class MixItem
LabelPhilosoperStone
.
Text
=
recvjson
.
inventory
(
9
)
'Philosoper Stone
End
If
End
Sub
Private
Sub
PictureBox1_Click
(
sender
As
Object
,
e
As
EventArgs
)
Handles
PictureBox1
.
Click
End
Sub
Private
Sub
DropdownOffer_SelectedIndexChanged
(
sender
As
Object
,
e
As
EventArgs
)
Handles
DropdownOffer
.
SelectedIndexChanged
Select
Case
DropdownOffer
.
SelectedItem
.
ToString
()
Case
"Honey"
OfferedPic
.
Image
=
PictureBox1
.
Image
itemMix1
=
0
Case
"Herbs"
OfferedPic
.
Image
=
PictureBox2
.
Image
itemMix1
=
1
Case
"Clay"
OfferedPic
.
Image
=
PictureBox3
.
Image
itemMix1
=
2
Case
"Mineral"
OfferedPic
.
Image
=
PictureBox4
.
Image
itemMix1
=
3
Case
"Potion"
OfferedPic
.
Image
=
PictureBox8
.
Image
itemMix1
=
4
Case
"Incense"
OfferedPic
.
Image
=
PictureBox9
.
Image
itemMix1
=
5
Case
"Gems"
OfferedPic
.
Image
=
PictureBox5
.
Image
itemMix1
=
6
Case
"Life Elixir"
OfferedPic
.
Image
=
PictureBox13
.
Image
itemMix1
=
7
Case
"Mana Crystal"
OfferedPic
.
Image
=
PictureBox12
.
Image
itemMix1
=
8
Case
"Philosopher Stone"
OfferedPic
.
Image
=
PictureBox11
.
Image
itemMix1
=
9
End
Select
End
Sub
Private
Sub
Button1_Click
(
sender
As
Object
,
e
As
EventArgs
)
Handles
Button1
.
Click
GlobalVariables
.
NETWORK
=
New
NetIO
Dim
request
As
New
MixItemJSONSend
Dim
recv
As
String
request
.
item1
=
itemMix1
request
.
item2
=
itemMix2
recv
=
NETWORK
.
SendRecv
(
request
)
Dim
recvjson
As
New
MixItemJSONRecv
recvjson
=
JsonConvert
.
DeserializeObject
(
Of
MixItemJSONRecv
)(
recv
)
If
(
recvjson
.
status
=
"ok"
)
Then
MsgBox
(
recv
)
RefreshInventory
()
ElseIf
(
recvjson
.
status
=
"fail"
)
Then
MsgBox
(
recvjson
.
description
)
Else
MsgBox
(
"Unknown error occured!"
)
End
If
End
Sub
Private
Sub
DropdownDemand_SelectedIndexChanged
(
sender
As
Object
,
e
As
EventArgs
)
Handles
DropdownDemand
.
SelectedIndexChanged
Select
Case
DropdownDemand
.
SelectedItem
.
ToString
()
Case
"Honey"
DemandedPic
.
Image
=
PictureBox1
.
Image
itemMix2
=
0
Case
"Herbs"
DemandedPic
.
Image
=
PictureBox2
.
Image
itemMix2
=
1
Case
"Clay"
DemandedPic
.
Image
=
PictureBox3
.
Image
itemMix2
=
2
Case
"Mineral"
DemandedPic
.
Image
=
PictureBox4
.
Image
itemMix2
=
3
Case
"Potion"
DemandedPic
.
Image
=
PictureBox8
.
Image
itemMix2
=
4
Case
"Incense"
DemandedPic
.
Image
=
PictureBox9
.
Image
itemMix2
=
5
Case
"Gems"
DemandedPic
.
Image
=
PictureBox5
.
Image
itemMix2
=
6
Case
"Life Elixir"
DemandedPic
.
Image
=
PictureBox13
.
Image
itemMix2
=
7
Case
"Mana Crystal"
DemandedPic
.
Image
=
PictureBox12
.
Image
itemMix2
=
8
Case
"Philosopher Stone"
DemandedPic
.
Image
=
PictureBox11
.
Image
itemMix2
=
9
End
Select
End
Sub
End
Class
\ No newline at end of file
src/client/PoiClient/PoiClient/My Project/Resources.Designer.vb
View file @
20ab19c0
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.34
209
' Runtime Version:4.0.30319.34
014
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
...
...
@@ -60,6 +60,46 @@ Namespace My.Resources
End
Set
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend
ReadOnly
Property
clay
()
As
System
.
Drawing
.
Bitmap
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"clay"
,
resourceCulture
)
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend
ReadOnly
Property
gems
()
As
System
.
Drawing
.
Bitmap
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"gems"
,
resourceCulture
)
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend
ReadOnly
Property
herbs
()
As
System
.
Drawing
.
Bitmap
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"herbs"
,
resourceCulture
)
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend
ReadOnly
Property
honey
()
As
System
.
Drawing
.
Bitmap
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"honey"
,
resourceCulture
)
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
...
...
@@ -69,5 +109,65 @@ Namespace My.Resources
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend
ReadOnly
Property
incense
()
As
System
.
Drawing
.
Bitmap
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"incense"
,
resourceCulture
)
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend
ReadOnly
Property
lifeelixir
()
As
System
.
Drawing
.
Bitmap
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"lifeelixir"
,
resourceCulture
)
Return
CType
(
obj
,
System
.
Drawing
.
Bitmap
)
End
Get
End
Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.