回答編集履歴
2
修正
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
|
|
8
8
|
|
|
9
|
-
TextBox1.Text = $"{"ABCDEF"(Int(e.
|
|
9
|
+
TextBox1.Text = $"{"ABCDEFG"(Int(e.Y / (PictureBox1.Height / 7)))}{Int(e.X / (PictureBox1.Width / 6)) + 1}"
|
|
10
10
|
|
|
11
11
|
End Sub
|
|
12
12
|
|
1
修正
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
|
|
8
8
|
|
|
9
|
-
TextBox1.Text = $"(
|
|
9
|
+
TextBox1.Text = $"{"ABCDEF"(Int(e.X / (PictureBox1.Width / 6)))}{Int(e.Y / (PictureBox1.Height / 7))}"
|
|
10
10
|
|
|
11
11
|
End Sub
|
|
12
12
|
|