frmmain.StatusBar1.Panels(1).Text = "µÇ¼Óû§£º" + gp + Trim(subgroup) + un statebarµÄÏêϸ×ÊÁ϶¼¿ÉÒÔÔÚÍøÉÏÕÒµ½¡£ µÇ錄´°體£ºLogin.frm ÓÃ戶¹¤號£ºuser.text µÇ錄ºó´°體:WareHouseSetting.frm-----ÆäÖÐÒ»個´°體£» 還ÊDz»¶®; Ò»¸ö¼òµ¥µÄʾÀý£º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