Option Explicit
Public gConnStr As String
Public Sub ChangeForm(frmMain As MDIForm, frm As Form)
Dim Top As Integer
Top = (frmMain.ScaleHeight - frm.Height) / 2 - 600
If Top > 0 Then
frm.Top = Top
Else
frm.Top = 0
End If
frm.Left = (frmMain.ScaleWidth - frm.Width) / 2
End Sub
Public Sub Main()
gConnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1"
Dim frmLogin As String
frmLogin.Show
End Sub
倒数第二行的frmLogin运行时显示:编译错误:变量未定义'
这是怎么回事啊?
没有倒数第三行的Dim frmLogin As String
我的窗体名:Form1(frmLogin.frm)