質問編集履歴
3
関連タグ追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
File without changes
|
2
コード修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
--------------------------------------------------
|
|
12
12
|
１．フォーム側
|
|
13
13
|
Private Sub Button1
|
|
14
|
-
call F_test()
|
|
14
|
+
call F_test() 'listview1のアイテムの個数を数える
|
|
15
15
|
end sub
|
|
16
16
|
|
|
17
17
|
--------------------------------------------------
|
|
@@ -19,15 +19,20 @@
|
|
|
19
19
|
listview1にアイテムが6個入っている状態
|
|
20
20
|
|
|
21
21
|
--------------------------------------------------
|
|
22
|
-
３．module側
|
|
22
|
+
３．module側(中身は以下が全てです。)
|
|
23
|
-
Public uc As New UserControl1
|
|
24
23
|
Public Sub F_test()
|
|
25
|
-
Dim xCount =
|
|
24
|
+
Dim xCount = ListView1.Items.Count
|
|
26
25
|
MsgBox(xCount)
|
|
27
26
|
End Sub
|
|
28
27
|
--------------------------------------------------
|
|
29
28
|
|
|
30
|
-
|
|
31
29
|
このようにするとうまくいきませんでした。
|
|
30
|
+
すみませんが、よろしくお願い致します。
|
|
32
31
|
|
|
32
|
+
ListView1.Items.Count←コチラの部分ですが、このまま書くとエラーが出ます。
|
|
33
|
+
たぶんフォームからmoduleを通してのusercontrolのlistviewまでたどり着いてないと
|
|
34
|
+
思いますがその書き方がよくわかりません。
|
|
35
|
+
|
|
36
|
+
|
|
37
|
+
以下に2名様からコメントを頂きましたが、まだ解決できてないのですみませんが、
|
|
33
|
-
|
|
38
|
+
よろしくお願い致します。
|
1
文字修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,6 +28,6 @@
|
|
|
28
28
|
--------------------------------------------------
|
|
29
29
|
|
|
30
30
|
|
|
31
|
-
このようにす
|
|
31
|
+
このようにするとうまくいきませんでした。
|
|
32
32
|
|
|
33
33
|
すみませんが、よろしくお願い致します。
|