查看單個文章
舊 2006-05-08, 06:43 PM   #1
劍痞憶秋年
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設 VB6 程式碼昇級 VS.NET2005 的問題

劣者用昇級精靈昇級 一個 用 VB6 寫好的一套的程式碼,遇到好多問題
有沒有哪位前輩可以幫忙!

'TESTMODE' 不是 'System.Windows.Forms.Form' 的成員

VB6 程式碼如下 ==> 昇級 VB .NET 2005 卻發生上述問題
(PS:程式碼不是只有下列如此簡單而己,下列只是範例)

<<Form1.frm>>
語法:
Option Explicit

Private Sub Form_Load()
  HomeFrm.TESTMODE = 1
End Sub
<<MDIForm1.frm>>
語法:
Option Explicit

Public TESTMODE As Integer

Private Sub A1_Click()
  Form1.Show
End Sub

Private Sub MDIForm_Load()
  Set HomeFrm = Me
End Sub
<<Module1.bas>>
語法:
Option Explicit

Public HomeFrm As MDIForm
__________________
一切有為法 如夢幻泡影
如露亦如電 應作如是觀
劍痞憶秋年 目前離線  
送花文章: 150, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖