表单的 Object 名称要用 专案浏览器 表单左边的名称

Frist (Main.frm)

Frist 是 Object 名称，Main.frm 是档案名称



因此将名称改一下


Private Sub Image1_Click(Index As Integer)
Frist.Image1.Picture = Image1(Index).Picture
Frist.fk.Caption = Label1(Index).Caption
Dim y As Integer
y = Image1(Index).Tag + (Label3(0).Caption - 1) * 9
Dim z As String
z = y
x = WritePrivateProfileString("map", "lastchoice", z, App.Path & "\Data\Setting\Save.ini")
Unload Me
End Sub

下面是引用 ebolaman 于 2012-07-03 22:44 发表的 :
表单的 Object 名称要用 专案浏览器 表单左边的名称
Frist (Main.frm)
Frist 是 Object 名称，Main.frm 是档案名称

因此将名称改一下
.......

你实在太强了 QAQ
原来是名称搞错 然怪一直找不到原因 Thx U (^_^) 

下面是引用 zsx123665 于 2012-07-04 12:50 发表的 :


你实在太强了 QAQ
原来是名称搞错 然怪一直找不到原因 Thx U (^_^) 

不客气~