frmmain.StatusBar1.Panels(1).Text = "登录用户：" + gp + Trim(subgroup) + un statebar的详细资料都可以在网上找到。 登錄窗體：Login.frm 用戶工號：user.text 登錄后窗體:WareHouseSetting.frm-----其中一個窗體； 還是不懂; 一个简单的示例：VB code:
Private Sub cmdOK_Click() '检查正确的密码 If user.text = "abc" Then if pass.text<>"123" then MsgBox "用户或密码错误，请重试!", , "错误" exit sub Else WareHouseSetting.StatusBar1.Panels(1).Text =trim(user.text) WareHouseSetting.show unload me End If else MsgBox "用户或密码错误，请重试!", , "错误" exit sub End If End Sub
Tkanks" lsftest"; Issue is close; Code As follows: Me.StatusBar1.Panels(1).Text = &q
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Type GUID Data1 As Long ......
Private objXml As New DOMDocument60 Private xmlRoot As IXMLDOMElement Public Function xmlNode() Set objXml = New DOMDocument objXml.async = False objXml.Load ("E:\Li ......
