質問編集履歴
1
実現したいことを追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,18 @@
|
|
|
1
1
|
いつもお世話になっております。
|
|
2
|
+
|
|
3
|
+
・実現したいこと
|
|
4
|
+
|
|
5
|
+
WindowsFormApplicationで備品管理アプリを作っています。
|
|
6
|
+
|
|
7
|
+
LOADイベントで備品の写真を以下に示すコードによって各々表示していますが、処理が終了したあと
|
|
8
|
+
|
|
9
|
+
Kousinプロシージャで備品を新しいimageプロパティに変更したいと思っているのですが、
|
|
10
|
+
|
|
11
|
+
これが想定通り動いてくれていません。古いイメージのまま何も反映されていません。
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
|
|
2
16
|
|
|
3
17
|
表題の件ですが、
|
|
4
18
|
|
|
@@ -52,6 +66,28 @@
|
|
|
52
66
|
|
|
53
67
|
|
|
54
68
|
|
|
69
|
+
Private Sub panel1_click(sender As Object, e As EventArgs)
|
|
70
|
+
|
|
71
|
+
'panel1をクリックしたら別フォームが開き、備品に対する処理を行う。
|
|
72
|
+
|
|
73
|
+
Dim t As New 貸出/返却フォーム
|
|
74
|
+
|
|
75
|
+
t.tana_kigou = "C"
|
|
76
|
+
|
|
77
|
+
t.SetBounds(Me.Left, Me.Top, Me.Width, Me.Height)
|
|
78
|
+
|
|
79
|
+
t.ShowDialog(Me)
|
|
80
|
+
|
|
81
|
+
t.Dispose()
|
|
82
|
+
|
|
83
|
+
'処理が終わればKousinを呼び出して、備品のimageプロパティを新しいものに変える
|
|
84
|
+
|
|
85
|
+
Call Kousin(sender, e)
|
|
86
|
+
|
|
87
|
+
End Sub
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
55
91
|
Private Sub Kousin(sender as object, e as eventargs)
|
|
56
92
|
|
|
57
93
|
Dim fs as Filestream
|