質問編集履歴
3
関連タグ追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
2
コード修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
Private Sub Button1
|
|
26
26
|
|
|
27
|
-
call F_test()
|
|
27
|
+
call F_test() 'listview1のアイテムの個数を数える
|
|
28
28
|
|
|
29
29
|
end sub
|
|
30
30
|
|
|
@@ -40,13 +40,11 @@
|
|
|
40
40
|
|
|
41
41
|
--------------------------------------------------
|
|
42
42
|
|
|
43
|
-
３．module側
|
|
43
|
+
３．module側(中身は以下が全てです。)
|
|
44
|
-
|
|
45
|
-
Public uc As New UserControl1
|
|
46
44
|
|
|
47
45
|
Public Sub F_test()
|
|
48
46
|
|
|
49
|
-
Dim xCount =
|
|
47
|
+
Dim xCount = ListView1.Items.Count
|
|
50
48
|
|
|
51
49
|
MsgBox(xCount)
|
|
52
50
|
|
|
@@ -56,10 +54,22 @@
|
|
|
56
54
|
|
|
57
55
|
|
|
58
56
|
|
|
57
|
+
このようにするとうまくいきませんでした。
|
|
59
58
|
|
|
60
|
-
|
|
61
|
-
|
|
59
|
+
すみませんが、よろしくお願い致します。
|
|
62
60
|
|
|
63
61
|
|
|
64
62
|
|
|
63
|
+
ListView1.Items.Count←コチラの部分ですが、このまま書くとエラーが出ます。
|
|
64
|
+
|
|
65
|
+
たぶんフォームからmoduleを通してのusercontrolのlistviewまでたどり着いてないと
|
|
66
|
+
|
|
67
|
+
思いますがその書き方がよくわかりません。
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
以下に2名様からコメントを頂きましたが、まだ解決できてないのですみませんが、
|
|
74
|
+
|
|
65
|
-
|
|
75
|
+
よろしくお願い致します。
|
1
文字修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,7 +58,7 @@
|
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
61
|
-
このようにす
|
|
61
|
+
このようにするとうまくいきませんでした。
|
|
62
62
|
|
|
63
63
|
|
|
64
64
|
|