表單的 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 (^_^) 

不客氣~