7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ffb 2003-09-12
- 打赏
- 举报
谢谢
道素 2003-09-12
- 打赏
- 举报
1。用typename
2。
Private Sub bBut01_Click()
Dim UsrName, SysName, DomName As String
Dim Wnet As Object
'Set Wnet = Wscript.CreateObject("Wscript.Network") Note that
the Wscript object is omitted in the VB code.
Set Wnet = CreateObject("Wscript.Network")
UsrName = Wnet.UserName
SysName = Wnet.Computername
DomName = Wnet.UserDomain
MsgBox "User: " & UsrName & "@" & DomName & vbCrLf & "Logged on to: " & SysName
End Sub
2。
Private Sub bBut01_Click()
Dim UsrName, SysName, DomName As String
Dim Wnet As Object
'Set Wnet = Wscript.CreateObject("Wscript.Network") Note that
the Wscript object is omitted in the VB code.
Set Wnet = CreateObject("Wscript.Network")
UsrName = Wnet.UserName
SysName = Wnet.Computername
DomName = Wnet.UserDomain
MsgBox "User: " & UsrName & "@" & DomName & vbCrLf & "Logged on to: " & SysName
End Sub
kmzs 2003-09-12
- 打赏
- 举报
Wscript Object?
withpointer 2003-09-12
- 打赏
- 举报
Public Function PictureOrButton(ByRef Obj ) as Boolean
If TypeOf Obj Is PictureBox Then
MsgBox "PictureBox"
ElseIf TypeOf Obj Is CommandButton Then '这行刚才写错了
MsgBox "按扭"
End If
End Function
If TypeOf Obj Is PictureBox Then
MsgBox "PictureBox"
ElseIf TypeOf Obj Is CommandButton Then '这行刚才写错了
MsgBox "按扭"
End If
End Function
withpointer 2003-09-12
- 打赏
- 举报
前一个问题
Public Function PictureOrButton(ByRef Obj ) as Boolean
If TypeOf Obj Is PictureBox Then
MsgBox "PictureBox"
ElseIf TypeOf Obj Is Command Then
MsgBox "按扭"
End If
End Function
Public Function PictureOrButton(ByRef Obj ) as Boolean
If TypeOf Obj Is PictureBox Then
MsgBox "PictureBox"
ElseIf TypeOf Obj Is Command Then
MsgBox "按扭"
End If
End Function
