Commit e1d2232f authored by Michael Alexander's avatar Michael Alexander
Browse files

Merge branch 'master' of gitlab.informatika.org:alvin-nt/IF3230-Tugas-Besar-Sister-2015

Conflicts:
	src/client/PoiClient/PoiClient/My Project/Resources.Designer.vb
	src/client/PoiClient/PoiClient/My Project/Resources.resx
	src/client/PoiClient/PoiClient/PoiClient.vbproj
parents e1b43f5f 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(248, 456)
Me.Button1.Location = New System.Drawing.Point(241, 470)
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(248, 498)
Me.Button2.Location = New System.Drawing.Point(241, 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
This diff is collapsed.
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
......@@ -45,6 +45,8 @@ Partial Class SendFind
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()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
......@@ -55,11 +57,12 @@ Partial Class SendFind
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.OfferedPic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(248, 499)
Me.Button2.Location = New System.Drawing.Point(243, 505)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(156, 23)
Me.Button2.TabIndex = 50
......@@ -68,7 +71,7 @@ Partial Class SendFind
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(248, 457)
Me.Button1.Location = New System.Drawing.Point(243, 463)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(156, 23)
Me.Button1.TabIndex = 49
......@@ -265,11 +268,32 @@ Partial Class SendFind
Me.PictureBox8.TabIndex = 30
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(263, 322)
Me.DropdownOffer.Name = "DropdownOffer"
Me.DropdownOffer.Size = New System.Drawing.Size(112, 21)
Me.DropdownOffer.TabIndex = 58
'
'OfferedPic
'
Me.OfferedPic.Location = New System.Drawing.Point(274, 349)
Me.OfferedPic.Name = "OfferedPic"
Me.OfferedPic.Size = New System.Drawing.Size(90, 90)
Me.OfferedPic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.OfferedPic.TabIndex = 57
Me.OfferedPic.TabStop = False
'
'SendFind
'
<