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 ......
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
Private objXml As New DOMDocument60 Private xmlRoot As IXMLDOMElement Public Function xmlNode() Set objXml = New DOMDocument objXml.async = False objXml.Load ("E:\Li ......