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
VB中callbacke function 如下： Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long Dim slength As Long, WndTitle As String ' title bar text length an ......
